Lines Matching refs:fh
51 my $fh;
52 open ($fh, "<harness") or print "not ";
53 binmode($fh);
54 print "not " unless compare($fh,"harness") == 0;
56 close $fh;
61 my $fh;
62 open ($fh, "<harness") or print "not ";
63 binmode($fh);
64 print "not " unless compare_text($fh,"TEST") == 1;
66 close $fh;
83 my $fh;
84 open($fh,'harness');
85 binmode($fh);
86 my $data = <$fh>;
88 close($fh);