Upgrade to Tie::File 0.20.
[perl.git] / lib / Tie / File / t / 09_gen_rs.t
index 120080b..f9f5ccc 100644 (file)
@@ -8,7 +8,7 @@ my $N = 1;
 use Tie::File;
 print "ok $N\n"; $N++;
 
-my $o = tie @a, 'Tie::File', $file, recsep => 'blah';
+my $o = tie @a, 'Tie::File', $file, recsep => 'blah', autochomp => 0;
 print $o ? "ok $N\n" : "not ok $N\n";
 $N++;