5 unshift @INC, '../lib';
13 eval { open FOO, '<lkjqweriuapofukndajsdlfjnvcvn' };
14 print "not " unless $@ =~ /^Can't open/;
15 print "ok $i\n"; ++$i;
18 for ('$foo', "'$foo'", "*$foo", "\\*$foo") {
19 eval qq{ open $_, '<$0' };
21 print "ok $i\n"; ++$i;
23 print "not " unless scalar(<FOO>) =~ m|^#!./perl|;
25 print "ok $i\n"; ++$i;