SOURCES: perl_588-27368.patch - wrr... forgot to add the actual fi...

[radek]

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