From: Nicholas Clark <nick@ccl4.org>
Date: Fri, 14 Jan 2005 09:52:51 +0000 (+0000)
Subject: SvUTF8_off() in do_join can be unconditional.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=fb622db0657a53699cb72fa7e5cdf67e58366454;p=p5sagit%2Fp5-mst-13.2.git

SvUTF8_off() in do_join can be unconditional.

p4raw-id: //depot/perl@23799
---

diff --git a/doop.c b/doop.c
index c0c1ef4..b1de08d 100644
--- a/doop.c
+++ b/doop.c
@@ -676,8 +676,7 @@ Perl_do_join(pTHX_ register SV *sv, SV *del, register SV **mark, register SV **s
 
     sv_setpvn(sv, "", 0);
     /* sv_setpv retains old UTF8ness [perl #24846] */
-    if (SvUTF8(sv))
-	SvUTF8_off(sv);
+    SvUTF8_off(sv);
 
     if (PL_tainting && SvMAGICAL(sv))
 	SvTAINTED_off(sv);