From: Gurusamy Sarathy <gsar@cpan.org>
Date: Mon, 2 Jun 2003 20:59:39 +0000 (+0000)
Subject: fix for 09_gen_rs.t#59 failure on windows
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=cab02963b8a3a0067a2c0c2a6edd2ef2af19842f;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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: $!";