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@xxxxxxxxxx 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@xxxxxxxxx> To: perl5-porters@xxxxxxxx Date: 2006-03-01 16:16 On 3/1/06, via RT jhi @ ugli. hut. fi <perlbug-followup@xxxxxxxx> 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.
