12 lines
433 B
Diff
12 lines
433 B
Diff
|
--- perl-5.8.8/perl.c.bz183553_ubz38657 2006-02-27 12:51:49.000000000 -0500
|
||
|
|
+++ perl-5.8.8/perl.c 2006-03-01 17:18:41.000000000 -0500
|
||
|
|
@@ -3110,7 +3110,7 @@
|
||
|
|
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", (char *)SvPV_nolen_const(sv));
|