Blame perl-5.8.8-bz183553_ubz38657.patch
|
jvdias |
78a6163 |
--- perl-5.8.8/perl.c.bz183553_ubz38657 2006-02-27 12:51:49.000000000 -0500
|
|
jvdias |
78a6163 |
+++ perl-5.8.8/perl.c 2006-03-01 17:18:41.000000000 -0500
|
|
jvdias |
78a6163 |
@@ -3110,7 +3110,7 @@
|
|
jvdias |
78a6163 |
sv_catpv(sv, start);
|
|
jvdias |
78a6163 |
else {
|
|
jvdias |
78a6163 |
sv_catpvn(sv, start, s-start);
|
|
jvdias |
78a6163 |
- Perl_sv_catpvf(aTHX_ sv, " split(/,/,q%c%s%c)", 0, ++s, 0);
|
|
jvdias |
78a6163 |
+ Perl_sv_catpvf(aTHX_ sv, " split(/,/,q(%s))", ++s);
|
|
jvdias |
78a6163 |
}
|
|
jvdias |
78a6163 |
s += strlen(s);
|
|
jvdias |
78a6163 |
my_setenv("PERL5DB", (char *)SvPV_nolen_const(sv));
|