From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 9 Jul 2002 15:06:55 +0000 (+0000)
Subject: Missing patch fragment, noted by Hugo.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6f27f9a7eff1b9dfc549cd13594b6977d1eb967d;p=p5sagit%2Fp5-mst-13.2.git

Missing patch fragment, noted by Hugo.

p4raw-id: //depot/perl@17441
---

diff --git a/toke.c b/toke.c
index 8d8ac54..bfc6436 100644
--- a/toke.c
+++ b/toke.c
@@ -450,7 +450,7 @@ Perl_lex_start(pTHX_ SV *line)
     if (SvREADONLY(PL_linestr))
 	PL_linestr = sv_2mortal(newSVsv(PL_linestr));
     s = SvPV(PL_linestr, len);
-    if (len && s[len-1] != ';') {
+    if (!len || s[len-1] != ';') {
 	if (!(SvFLAGS(PL_linestr) & SVs_TEMP))
 	    PL_linestr = sv_2mortal(newSVsv(PL_linestr));
 	sv_catpvn(PL_linestr, "\n;", 2);