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

[Nicholas Clark]

Change 33682 by [EMAIL PROTECTED] on 2008/04/14 18:09:35

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

Affected files ...

... //depot/perl/perl.c#869 edit

Differences ...

==== //depot/perl/perl.c#869 (text) ====
Index: perl/perl.c
--- perl/perl.c#868~33681~      2008-04-14 10:46:26.000000000 -0700
+++ perl/perl.c 2008-04-14 11:09:35.000000000 -0700
@@ -2004,9 +2004,9 @@
                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;
End of Patch.