This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
fix and test handling of literal newlines in heredocs
authorGurusamy Sarathy <gsar@cpan.org>
Sun, 19 Jul 1998 06:07:51 +0000 (06:07 +0000)
committerGurusamy Sarathy <gsar@cpan.org>
Sun, 19 Jul 1998 06:07:51 +0000 (06:07 +0000)
From: Gisle Aas <gisle@aas.no>
Date: 17 Jul 1998 14:58:25 +0200
Message-ID: <m3iukw63da.fsf@furu.g.aas.no>
Subject: Re: [PATCH _71] CRs et al
--
From: larry@wall.org (Larry Wall)
Date: Fri, 17 Jul 1998 09:32:35 -0700
Message-Id: <199807171632.JAA12959@wall.org>
Subject: Re: [PATCH _71] CRs et al

p4raw-id: //depot/perl@1545

t/comp/multiline.t
toke.c

index fc1eedc..ed418b8 100755 (executable)
@@ -9,11 +9,15 @@ open(try,'>Comp.try') || (die "Can't open temp file.");
 $x = 'now is the time
 for all good men
 to come to.
+
+
+!
+
 ';
 
 $y = 'now is the time' . "\n" .
 'for all good men' . "\n" .
-'to come to.' . "\n";
+'to come to.' . "\n\n\n!\n\n";
 
 if ($x eq $y) {print "ok 1\n";} else {print "not ok 1\n";}
 
@@ -30,7 +34,7 @@ while (<try>) {
 
 if ($z eq $y) {print "ok 2\n";} else {print "not ok 2\n";}
 
-if ($count == 3) {print "ok 3\n";} else {print "not ok 3\n";}
+if ($count == 7) {print "ok 3\n";} else {print "not ok 3\n";}
 
 $_ = ($^O eq 'MSWin32') ? `type Comp.try` : `cat Comp.try`;
 
diff --git a/toke.c b/toke.c
index 9685fc3..d1afa50 100644 (file)
--- a/toke.c
+++ b/toke.c
@@ -5246,7 +5246,9 @@ scan_heredoc(register char *s)
        bufend = SvPVX(linestr) + SvCUR(linestr);
 #ifdef TMP_CRLF_PATCH
        if (bufend - linestart >= 2) {
-           if (bufend[-2] == '\r' || bufend[-2] == '\n') {
+           if ((bufend[-2] == '\r' && bufend[-1] == '\n') ||
+               (bufend[-2] == '\n' && bufend[-1] == '\r'))
+           {
                bufend[-2] = '\n';
                bufend--;
                SvCUR_set(linestr, bufend - SvPVX(linestr));
@@ -5543,7 +5545,9 @@ scan_str(char *start)
 
 #ifdef TMP_CRLF_PATCH
        if (to - SvPVX(sv) >= 2) {
-           if (to[-2] == '\r' || to[-2] == '\n') {
+           if ((to[-2] == '\r' && to[-1] == '\n') ||
+               (to[-2] == '\n' && to[-1] == '\r'))
+           {
                to[-2] = '\n';
                to--;
                SvCUR_set(sv, to - SvPVX(sv));