Lines Matching refs:fh

36 (my $fh, my $filename) = tempfile();
39 ok(check_atexit($fh));
41 ($fh, $filename) = tempfile();
44 ok(check_atexit($fh));
46 ($fh, $filename) = tempfile();
49 ok(check_atexit($fh));
51 ($fh, $filename) = tempfile();
54 ok(check_atexit($fh));
56 ($fh, $filename) = tempfile();
59 ok(!check_atexit($fh));
75     my $fh = shift;
76     my $data = <$fh>;