From: Nicholas Clark <nick@ccl4.org>
Date: Mon, 14 Apr 2008 18:09:35 +0000 (+0000)
Subject: No need to copy the part of PERL5OPT that we've already scanned past.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=bfa6c418906571a0809c2388a78539a223ec23b4;p=p5sagit%2Fp5-mst-13.2.git

No need to copy the part of PERL5OPT that we've already scanned past.

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

diff --git a/perl.c b/perl.c
index 0ba663b..95c36f7 100644
--- a/perl.c
+++ b/perl.c
@@ -2004,9 +2004,9 @@ S_parse_body(pTHX_ char **env, XSINIT_t xsinit)
 		while (++s && *s) {
 		    if (isSPACE(*s)) {
 			if (!popt_copy) {
-			    popt_copy = SvPVX(sv_2mortal(newSVpv(popt,0)));
-			    s = popt_copy + (s - popt);
-			    d = popt_copy + (d - popt);
+			    popt_copy = SvPVX(sv_2mortal(newSVpv(d,0)));
+			    s = popt_copy + (s - d);
+			    d = popt_copy;
 			}
 		        *s++ = '\0';
 			break;