Fatal.t revision 7c478bd95313f5f23a4c958a745db2134aa03244
#!./perl -w
BEGIN {
chdir 't' if -d 't';
print "1..15\n";
}
use strict;
my $i = 1;
print "ok $i\n"; ++$i;
eval qq{ open $_, '<$0' };
print "not " if $@;
print "ok $i\n"; ++$i;
print "not " if $@ or scalar(<$foo>) !~ m|^#!./perl|;
print "ok $i\n"; ++$i;
eval qq{ close FOO };
print "not " if $@;
print "ok $i\n"; ++$i;
}
print "not " unless $@ =~ /^Can't open/;
print "ok $i\n"; ++$i;
print "ok $i\n"; ++$i;