UTF-8 tweaks.

p4raw-id: //depot/perl@8827

1 files changed, 6 insertions, 8 deletions

diff --git a/sv.c b/sv.c
index 109868038b..ea360c3f6e 100644
--- a/sv.c
+++ b/sv.c
@@ -4724,17 +4724,15 @@ Perl_sv_eq(pTHX_ register SV *sv1, register SV *sv2)
 
 	if (SvUTF8(sv1)) {
 	    char *pv = (char*)bytes_from_utf8((U8*)pv1, &cur1, &is_utf8);
-	    if (is_utf8)
-		return 0;
-	    pv1tmp = (pv != pv1);
-	    pv1 = pv;
+
+	    if ((pv1tmp = (pv != pv1)))
+		pv1 = pv;
 	}
 	else {
 	    char *pv = (char *)bytes_from_utf8((U8*)pv2, &cur2, &is_utf8);
-	    if (is_utf8)
-		return 0;
-	    pv2tmp = (pv != pv2);
-	    pv2 = pv;
+
+	    if ((pv2tmp = (pv != pv2)))
+		pv2 = pv;
 	}
     }