Lines Matching refs:eof
44 if (eof()) {
73 ok( eof TRY );
75 ok( eof NEVEROPENED, 'eof() true on unopened filehandle' );
79 ok( !eof(), 'STDIN has something' );
85 ok( eof(), 'eof() true with empty @ARGV' );
88 ok( !eof() );
91 ok( !eof() );
94 ok( eof(), 'eof() true after closing ARGV' );
115 fresh_perl_is( <<'**PROG**', "foobar", {}, "ARGV aliasing and eof()" );
123 print "bar" if eof();