diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2003-06-02 20:59:39 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2003-06-02 20:59:39 +0000 |
| commit | cab02963b8a3a0067a2c0c2a6edd2ef2af19842f (patch) | |
| tree | bf75cd872c0e300ab62e3881b510b3695fa9e4be /lib/Tie | |
| parent | 11998fdb9e856e363920dd01b47ba3f3fe2d0bb2 (diff) | |
| download | perl-cab02963b8a3a0067a2c0c2a6edd2ef2af19842f.tar.gz | |
fix for 09_gen_rs.t#59 failure on windows
p4raw-id: //depot/perl@19669
Diffstat (limited to 'lib/Tie')
| -rw-r--r-- | lib/Tie/File/t/09_gen_rs.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Tie/File/t/09_gen_rs.t b/lib/Tie/File/t/09_gen_rs.t index c1ef7400c8..43b7140a92 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: $!"; |