Lines Matching refs:fh
22 (my $fh, $template) = mkstemp($template);
24 print "# MKSTEMP: FH is $fh File is $template fileno=".fileno($fh)."\n";
29 $fh->autoflush(1) if $] >= 5.006;
33 print $fh $string;
36 ok(seek( $fh, 0, 0));
39 my $line = <$fh>;
54 my $status = unlink0($fh, $template);
68 ($fh, my $fname) = mkstemps($template, $suffix);
70 print "# MKSTEMPS: File is $template -> $fname fileno=".fileno($fh)."\n";
76 $status = unlink0($fh, $fname);