summaryrefslogtreecommitdiff
path: root/doop.c
diff options
context:
space:
mode:
authorAndy Lester <andy@petdance.com>2006-06-06 05:01:37 -0500
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>2006-06-07 08:30:03 +0000
commitb9ac451d97da485ed458751b091ad58161889fca (patch)
treeb11f9fb62f73bbe1b4425b6b2245cc12554aaea8 /doop.c
parent7686528ec527b1dbb8270dafda0d29b2197ddc9e (diff)
downloadperl-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.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/doop.c b/doop.c
index 6ff58c55d7..5d1fc7a7da 100644
--- a/doop.c
+++ b/doop.c
@@ -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);
}
}