Eliminate the use of PL_bufend outside of toke.c:

give Perl_scan_vstring() an explicit 'end' arg rather than using
PL_bufend, and replace it with a local var in Perl_find_script()

p4raw-id: //depot/perl@30820

1 files changed, 1 insertions, 6 deletions

diff --git a/sv.c b/sv.c
index 88dcd9686d..09a1772f88 100644
--- a/sv.c
+++ b/sv.c
@@ -8694,12 +8694,7 @@ Perl_sv_vcatpvfn(pTHX_ SV *sv, const char *pat, STRLEN patlen, va_list *args, SV
 			goto unknown;
 		    }
 		    vecsv = sv_newmortal();
-		    /* scan_vstring is expected to be called during
-		     * tokenization, so we need to fake up the end
-		     * of the buffer for it
-		     */
-		    PL_bufend = version + veclen;
-		    scan_vstring(version, vecsv);
+		    scan_vstring(version, version + veclen, vecsv);
 		    vecstr = (U8*)SvPV_const(vecsv, veclen);
 		    vec_utf8 = DO_UTF8(vecsv);
 		    Safefree(version);