Larry's fix for buggy propagation of utf8-ness in join(); add test

p4raw-id: //depot/perl@5920

1 files changed, 3 insertions, 6 deletions

diff --git a/doop.c b/doop.c
index 06b1b38d5c..4224b0ea13 100644
--- a/doop.c
+++ b/doop.c
@@ -660,12 +660,9 @@ Perl_do_join(pTHX_ register SV *sv, SV *del, register SV **mark, register SV **s
     if (items-- > 0) {
 	char *s;
 
-	if (*mark) {
-	    s = SvPV(*mark, tmplen);
-	    sv_setpvn(sv, s, tmplen);
-	}
-	else
-	    sv_setpv(sv, "");
+	sv_setpv(sv, "");
+	if (*mark)
+	    sv_catsv(sv, *mark);
 	mark++;
     }
     else