Skip to content

Commit 9952069

Browse files
committed
Added no-autodie-twice.t test
It reproduces the issue Dual-Life#80 : More: Scoping issue with "no autodie" and the "system" sub Dual-Life#80
1 parent 79f7f10 commit 9952069

File tree

1 file changed

+13
-0
lines changed

1 file changed

+13
-0
lines changed

t/no-autodie-twice.t

+13
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,13 @@
1+
#!/usr/bin/perl
2+
use Test::More;
3+
4+
{ no autodie; }
5+
{ no autodie; }
6+
7+
eval {
8+
system("echo something");
9+
};
10+
11+
ok(! $@, 'system worked')
12+
or diag explain $@;
13+
done_testing();

0 commit comments

Comments
 (0)