Upgrade to Locale::Maketext 1.07.

[p5sagit/p5-mst-13.2.git] / doop.c

diff --git a/doop.c b/doop.c
index ffa1d1b..ea64ff8 100644 (file)
--- a/doop.c
+++ b/doop.c
@@ -669,7 +669,7 @@ Perl_do_join(pTHX_ register SV *sv, SV *del, register SV **mark, register SV **s
        ++mark;
     }
 
-    sv_setpv(sv, "");
+    sv_setpvn(sv, "", 0);
     /* sv_setpv retains old UTF8ness [perl #24846] */
     if (SvUTF8(sv))
        SvUTF8_off(sv);