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

diff --git a/doop.c b/doop.c
index a562536..1bd16b5 100644 (file)
--- 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);
        }
     }

diff --git a/t/op/tie.t b/t/op/tie.t
index 9301bb3..fcbf7a5 100644 (file)
--- a/t/op/tie.t
+++ b/t/op/tie.t
@@ -1259,3 +1259,21 @@ $h{i}{j} = 'k';
 print $h{i}{j}, "\n";
 EXPECT
 k
+########
+
+# [perl #8931] FETCH for tied $" called an odd number of times.
+use strict;
+my $i = 0;
+sub A::TIESCALAR {bless [] => 'A'}
+sub A::FETCH {print ++ $i, "\n"}
+my @a = ("", "", "");
+
+tie $" => 'A';
+"@a";
+
+$i = 0;
+tie my $a => 'A';
+join $a, 1..10;
+EXPECT
+1
+1