5 $: = Tie::File::_default_recsep();
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("rec0$:");
20 check_contents("rec0$:rec1$:");
21 $a[2] = "rec2$:$:"; # should we detect this?
22 check_contents("rec0$:rec1$:rec2$:$:");
29 { local $/; $a = <FH> }
30 $a = "" unless defined $a;
34 my $msg = "not ok $N # expected <$x>, got <$a>";