diff options
author | Andy Lester <andy@petdance.com> | 2006-06-06 05:01:37 -0500 |
---|---|---|
committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-06-07 08:30:03 +0000 |
commit | b9ac451d97da485ed458751b091ad58161889fca (patch) | |
tree | b11f9fb62f73bbe1b4425b6b2245cc12554aaea8 /doop.c | |
parent | 7686528ec527b1dbb8270dafda0d29b2197ddc9e (diff) | |
download | perl-b9ac451d97da485ed458751b091ad58161889fca.tar.gz |
dump.c patches
Message-ID: <20060606150137.GA4434@petdance.com>
p4raw-id: //depot/perl@28363
Diffstat (limited to 'doop.c')
-rw-r--r-- | doop.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -648,7 +648,7 @@ Perl_do_trans(pTHX_ SV *sv) } void -Perl_do_join(pTHX_ register SV *sv, SV *del, register SV **mark, register SV **sp) +Perl_do_join(pTHX_ register SV *sv, SV *delim, register SV **mark, register SV **sp) { dVAR; SV ** const oldmark = mark; @@ -656,7 +656,7 @@ Perl_do_join(pTHX_ register SV *sv, SV *del, register SV **mark, register SV **s register STRLEN len; STRLEN delimlen; - (void) SvPV_const(del, delimlen); /* stringify and get the delimlen */ + (void) SvPV_const(delim, delimlen); /* stringify and get the delimlen */ /* SvCUR assumes it's SvPOK() and woe betide you if it's not. */ mark++; @@ -693,7 +693,7 @@ Perl_do_join(pTHX_ register SV *sv, SV *del, register SV **mark, register SV **s if (delimlen) { for (; items > 0; items--,mark++) { - sv_catsv(sv,del); + sv_catsv(sv,delim); sv_catsv(sv,*mark); } } |