Fix for [perl #8931], call magic only once for join's first arg.

1 files changed, 1 insertions, 1 deletions

diff --git a/doop.c b/doop.c
index a562536bbb..1bd16b5e66 100644
--- a/doop.c
+++ b/doop.c
@@ -720,7 +720,7 @@ Perl_do_join(pTHX_ register SV *sv, SV *delim, register SV **mark, register SV *
 
     if (delimlen) {
 	for (; items > 0; items--,mark++) {
-	    sv_catsv(sv,delim);
+	    sv_catsv_nomg(sv,delim);
 	    sv_catsv(sv,*mark);
 	}
     }