Lines Matching full:foo*
13 eval { open FOO, '<lkjqweriuapofukndajsdlfjnvcvn' };
17 my $foo = 'FOO';
18 for ('$foo', "'$foo'", "*$foo", "\\*$foo") {
23 print "not " if $@ or scalar(<$foo>) !~ m|^#!./perl|;
25 eval qq{ close FOO };
30 eval { opendir FOO, 'lkjqweriuapofukndajsdlfjnvcvn' };
34 eval { my $a = opendir FOO, 'lkjqweriuapofukndajsdlfjnvcvn' };