Lines Matching refs:fh
25 (my $fh, $tmpnam) = tmpnam();
27 print "# TMPNAM: in list context: $fh $tmpnam\n";
33 my $status = unlink0($fh, $tmpnam);
44 $fh = tmpfile();
46 if (defined $fh) {
47 ok( $fh );
48 print "# TMPFILE: tmpfile got FH $fh\n";
50 $fh->autoflush(1) if $] >= 5.006;
55 print $fh $original
59 ok( seek($fh,0,0) );
62 my $line = <$fh>;
67 close($fh);