- try with libperl installed as standard system library

[packages/perl.git] / perl_588-27368.patch

diff --git a/perl_588-27368.patch b/perl_588-27368.patch
index 25bb9467cdac054cf640e2774b2e7850476d133d..f0ee4786bb0bb763e8785cf69f78826d04954980 100644 (file)
--- a/perl_588-27368.patch
+++ b/perl_588-27368.patch
@@ -10,8 +10,29 @@ Affected files ...
 ... //depot/perl/t/lib/Devel/switchd.pm#3 edit
 ... //depot/perl/t/run/switchd.t#4 edit
 
-Differences ...
 
+Change 27359 by rgs@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 @@