Lines Matching full:foo*
12 open(FOO, ">foo-$$") || die;16 my $saver = new SelectSaver(FOO);17 print "foo\n";21 open(FOO, "foo-$$") || die;22 chomp($foo = <FOO>);23 close FOO;24 unlink "foo-$$";26 print "ok 2\n" if $foo eq "foo";