8 # We may see failures with package filehandles if Fatal/autodie
9 # incorrectly pulls out a cached subroutine from a different package.
11 # We're using Fatal because package filehandles are likely to
12 # see more use with Fatal than autodie.
22 # Holy smokes! We couldn't even open our own file, bail out...
24 plan skip_all => q{Can't open $0 for filehandle tests}
31 like($line, qr{perl}, 'Looks like we opened $0 correctly');
35 package autodie::test;
44 is($@,"",'Opened $0 in autodie::test');
48 like($line2, qr{perl}, '...and we can read from $0 fine');
54 # This shouldn't read anything, because FILE2 should be inside
57 no warnings; # Otherwise we see problems with FILE2
58 my $wrong_line = <FILE2>;
60 ok(! defined($wrong_line),q{Filehandles shouldn't leak between packages});