This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
No need to copy the part of PERL5OPT that we've already scanned past.
authorNicholas Clark <nick@ccl4.org>
Mon, 14 Apr 2008 18:09:35 +0000 (18:09 +0000)
committerNicholas Clark <nick@ccl4.org>
Mon, 14 Apr 2008 18:09:35 +0000 (18:09 +0000)
p4raw-id: //depot/perl@33682

perl.c

diff --git a/perl.c b/perl.c
index 0ba663b..95c36f7 100644 (file)
--- 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;