Lines Matching refs:fh
29 $fh = (new FileHandle "./TEST", O_RDONLY
34 $buffer = <$fh>;
38 ungetc $fh ord 'A';
39 CORE::read($fh, $buf,1);
42 close $fh;
44 $fh = new FileHandle;
46 print "not " unless ($fh->open("< TEST") && <$fh> eq $buffer);
49 $fh->seek(0,0);
50 print "#possible mixed CRLF/LF in t/TEST\nnot " unless (<$fh> eq $buffer);
53 $fh->seek(0,2);
54 $line = <$fh>;
55 print "not " if (defined($line) || !$fh->eof);
58 print "not " unless ($fh->open("TEST","r") && !$fh->tell && $fh->close);