Lines Matching refs:fh
19 ok((open my $fh, "+>", undef), "open my \$fh, '+>', undef");
20 print $fh "the right write stuff";
21 ok(seek($fh, 0, SEEK_SET), "seek to zero");
22 my $data = <$fh>;
27 ok((open my $fh, "+<", undef), "open my \$fh, '+<', undef");
28 print $fh "the right read stuff";
29 ok(seek($fh, 0, SEEK_SET), "seek to zero");
30 my $data = <$fh>;
36 ok((open my $fh, "+>>", undef), "open my \$fh, '+>>', undef")
38 print $fh "abc";
39 ok(seek($fh, 0, SEEK_SET), "seek to zero");
40 print $fh "xyz";
41 ok(seek($fh, 0, SEEK_SET), "seek to zero again");
42 my $data = <$fh>;