Lines Matching full:foo*
14 eval "\$foo\n = # this is a comment\n'ok 3';";
15 print $foo,"\n";
17 eval "\$foo\n = # this is a comment\n'ok 4\n';";
18 print $foo;
21 $foo =;'; # this tests for a call through yyerror()
24 print eval '$foo = /'; # this tests for a call through fatal()
31 $foo = 5;
32 $fact = 'if ($foo <= 1) {1;} else {push(@x,$foo--); (eval $fact) * pop(@x);}';
36 $foo = 5;
37 $fact = 'local($foo)=$foo; $foo <= 1 ? 1 : $foo-- * (eval $fact);';
220 eval { goto foo; };
224 foo: print "not ok 41\n";
423 sub Foo {} print Foo(eval {});