[Bug 183553] perlbug #38657: Using import() with arguments with -d: broke in 5.8.8, was okay in 5.8.7

[Red Hat Bugzilla]

Please do not reply directly to this email. All additional
comments should be made in the comments box of this bug report.

Summary: perlbug #38657: Using import() with arguments with -d: broke in 5.8.8, was okay
in 5.8.7


https://bugzilla.redhat.com/bugzilla/show_bug.cgi?id=183553





------- Additional Comments From jvdias(a)redhat.com  2006-03-01 16:53 EST -------
I have reproduced this problem, and confirmed the code above used to work on
perl-5.8.6 . Suggested fix:
---
From: "Rafael Garcia-Suarez" <rgarciasuarez(a)gmail.com&gt;
  To: perl5-porters(a)perl.org
Date: 2006-03-01 16:16

On 3/1/06, via RT jhi @ ugli. hut. fi <perlbug-followup(a)perl.org&gt; wrote:
>  $ /tmp/jhi/p587/bin/perl -wIlib -d:Foo=bar -le 1
>  import(Devel::Foo bar)
>  $ /tmp/jhi/p588/bin/perl -wIlib -d:Foo=bar -le 1
>  Can't find string terminator ";" anywhere before EOF. 
Bad news, guys. This patch solves it :

==== //depot/perl/perl.c#736 - /home/rafael/p4blead/perl.c ====
--- /home/rafael/tmp/tmp.9616.0 2006-03-01 22:18:07.000000000 +0100
+++ /home/rafael/p4blead/perl.c 2006-03-01 22:18:04.000000000 +0100
@@ -3031,7 +3031,7 @@ Perl_moreswitches(pTHX_ char *s)
                sv_catpv(sv, start);
            else {
                sv_catpvn(sv, start, s-start);
-               Perl_sv_catpvf(aTHX_ sv, " split(/,/,q%c%s%c)", 0, ++s, 0);
+               Perl_sv_catpvf(aTHX_ sv, " split(/,/,q(%s))", ++s);
            }
            s += strlen(s);
            my_setenv("PERL5DB", SvPV_nolen_const(sv));

That means that using \0 as a q() delimiter no longer works.
---

Now testing this.

-- 
Configure bugmail: https://bugzilla.redhat.com/bugzilla/userprefs.cgi?tab=email
------- You are receiving this mail because: -------
You are on the CC list for the bug, or are watching someone who is.