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..)

1 files changed, 1 insertions, 1 deletions

diff --git a/toke.c b/toke.c
index adc7d26822..aa200963eb 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--;