Upgrade to Tie::File 0.20.
[perl.git] / lib / Tie / File / t / 11_rv_splice_rs.t
index ae3c9b3..ae10538 100644 (file)
@@ -15,7 +15,7 @@ print "ok $N\n"; $N++;  # partial credit just for showing up
 
 init_file($data);
 
-my $o = tie @a, 'Tie::File', $file, recsep => 'blah';
+my $o = tie @a, 'Tie::File', $file, autochomp => 0, recsep => 'blah';
 print $o ? "ok $N\n" : "not ok $N\n";
 $N++;