Lines Matching refs:fh
26 (my $fh, $tmpnam) = tmpnam();
28 print "# TMPNAM: in list context: $fh $tmpnam\n";
34 my $status = unlink0($fh, $tmpnam);
43 $fh = tmpfile();
45 if (defined $fh) {
46 ok( $fh );
47 print "# TMPFILE: tmpfile got FH $fh\n";
49 $fh->autoflush(1) if $] >= 5.006;
54 print $fh $original
58 ok( seek($fh,0,0) );
61 my $line = <$fh>;
66 close($fh);