Lines Matching refs:fh
43 my ($fh, $tempfile) = tempfile(
50 ok( close( $fh ) );
70 ($fh, $tempfile) = tempfile(
83 ($fh, $tempfile) = tempfile(
93 ($fh, $tempfile) = tempfile(
105 ($fh, $tempfile) = tempfile( 'helloXXXXXXX',
119 ($fh, $tempfile) = tempfile( 'permXXXXXXX', UNLINK => 0 );
122 ok( close( $fh ) );
133 $fh = eval { tempfile( 'ftmpXXXXX', DIR => File::Spec->tmpdir ) };
135 if ($fh) {
138 ok( print $fh "Test\n" );
141 ok( close($fh) );