4 use Test::More tests => 2;
6 # Under Perl 5.10.x, a string eval can cause a copy to be taken of
7 # %^H, which delays stringification of our scope guard objects,
8 # which in turn causes autodie to leak. These tests check to see
9 # if we've successfully worked around this issue.
18 open(my $fh, '<', 'this_file_had_better_not_exist');
25 $TODO = "Autodie can leak near string evals in 5.10.x";
28 is("$@","","Autodie should not leak out of scope");
31 # However, we can plug the leak with 'no autodie'.
36 open(my $fh, '<', 'this_file_had_better_not_exist');
39 is("$@","",'no autodie should be able to workaround this bug');