Lines Matching refs:fh
25 ok((open my $fh, "+>", undef), "open my \$fh, '+>', undef");
26 print $fh "the right write stuff";
27 ok(seek($fh, 0, SEEK_SET), "seek to zero");
28 my $data = <$fh>;
33 ok((open my $fh, "+<", undef), "open my \$fh, '+<', undef");
34 print $fh "the right read stuff";
35 ok(seek($fh, 0, SEEK_SET), "seek to zero");
36 my $data = <$fh>;