X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=doop.c;h=5d1fc7a7daad3dfe2790fc3b6e1a2bce8ffb9e51;hb=0295a53a2a0d7b08c078ea9d195ec919c7df2a35;hp=6ff58c55d7bf7f83fd2365bf4c62df1d045cf5fe;hpb=12abf4f0efbd7338e12bce75e8fe77c524383458;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/doop.c b/doop.c
index 6ff58c5..5d1fc7a 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);
 	}
     }