fix for 09_gen_rs.t#59 failure on windows

p4raw-id: //depot/perl@19669

diff --git a/lib/Tie/File/t/09_gen_rs.t b/lib/Tie/File/t/09_gen_rs.t
index c1ef740..43b7140 100644 (file)
--- a/lib/Tie/File/t/09_gen_rs.t
+++ b/lib/Tie/File/t/09_gen_rs.t
@@ -147,7 +147,7 @@ if (setup_badly_terminated_file(2)) {
 # There's special-case code to fix the final record when it is read normally.
 # But the $#a forces it to be read from the cache, which skips the
 # termination.
-$badrec = "world\nhello";
+$badrec = "world${RECSEP}hello";
 if (setup_badly_terminated_file(1)) {
   tie(@a, "Tie::File", $file, mode => 0, recsep => $RECSEP)
       or die "Couldn't tie file: $!";