From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 15 Aug 2003 15:37:36 +0000 (+0000)
Subject: Integrate from maint:
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=52327cafe6c445fb33a7b02ad4bf3a6d10bae0de;p=p5sagit%2Fp5-mst-13.2.git

Integrate from maint:
[ 20724]
No peeking before the buffer.
(This was probably the random failure showing up
 in Solaris with t/uni/tr_7jis.t)
p4raw-link: @20724 on //depot/maint-5.8/perl: bc636a03071ec9785e0be7bacbc34e6f3ee1225c

p4raw-id: //depot/perl@20725
p4raw-integrated: from //depot/maint-5.8/perl@20721 'merge in' toke.c
	(@20522..)
---

diff --git a/toke.c b/toke.c
index adc7d26..aa20096 100644
--- a/toke.c
+++ b/toke.c
@@ -6996,7 +6996,7 @@ S_scan_str(pTHX_ char *start, int keep_quoted, int keep_delims)
 		    goto read_more_line;
 		else {
 		    /* handle quoted delimiters */
-		    if (*(svlast-1) == '\\') {
+		    if (SvCUR(sv) > 1 && *(svlast-1) == '\\') {
 			char *t;
 			for (t = svlast-2; t >= SvPVX(sv) && *t == '\\';)
 			    t--;