SOURCES: perl_588-27368.patch - wrr... forgot to add the actual fi...
radek
radek at pld-linux.org
Mon Apr 3 14:19:37 CEST 2006
Author: radek Date: Mon Apr 3 12:19:37 2006 GMT
Module: SOURCES Tag: HEAD
---- Log message:
- wrr... forgot to add the actual fix, http://public.activestate.com/cgi-bin/perlbrowse?patch=27359
---- Files affected:
SOURCES:
perl_588-27368.patch (1.1 -> 1.2)
---- Diffs:
================================================================
Index: SOURCES/perl_588-27368.patch
diff -u SOURCES/perl_588-27368.patch:1.1 SOURCES/perl_588-27368.patch:1.2
--- SOURCES/perl_588-27368.patch:1.1 Mon Apr 3 13:35:35 2006
+++ SOURCES/perl_588-27368.patch Mon Apr 3 14:19:31 2006
@@ -10,8 +10,29 @@
... //depot/perl/t/lib/Devel/switchd.pm#3 edit
... //depot/perl/t/run/switchd.t#4 edit
-Differences ...
+Change 27359 by rgs at marais on 2006/03/01 22:39:24
+
+ Don't put strings with embedded NULs in the environment.
+ This makes things like -d:Foo=bar work again.
+
+Affected files ...
+
+... //depot/perl/perl.c#737 edit
+
+--- perl.c 2006-03-01 22:18:07.000000000 +0100
++++ perl.c 2006-03-01 22:18:04.000000000 +0100
+@@ -3031,7 +3031,9 @@
+ sv_catpv(sv, start);
+ else {
+ sv_catpvn(sv, start, s-start);
+- Perl_sv_catpvf(aTHX_ sv, " split(/,/,q%c%s%c)", 0, ++s, 0);
++ /* Don't use NUL as q// delimiter here, this string goes in the
++ * environment. */
++ Perl_sv_catpvf(aTHX_ sv, " split(/,/,q{%s});", ++s);
+ }
+ s += strlen(s);
+ my_setenv("PERL5DB", SvPV_nolen_const(sv));
--- t/lib/Devel/switchd.pm.dist 2006-03-02 20:02:52.000000000 +0200
+++ t/lib/Devel/switchd.pm 2006-03-02 20:12:59.000000000 +0200
@@ -1,6 +1,8 @@
================================================================
---- CVS-web:
http://cvs.pld-linux.org/SOURCES/perl_588-27368.patch?r1=1.1&r2=1.2&f=u
More information about the pld-cvs-commit
mailing list