11 print "ok $N\n"; $N++;
13 my $o = tie @a, 'Tie::File', $file, autodefer => 0;
14 print $o ? "ok $N\n" : "not ok $N\n";
18 check_contents("rec0blah");
20 check_contents("rec0blahrec1blah");
21 $a[2] = "rec2blahblah"; # should we detect this?
22 check_contents("rec0blahrec1blahrec2blahblah");
29 { local $/; $a = <FH> }
30 $a = "" unless defined $a;
34 my $msg = "not ok $N # expected <$x>, got <$a>";