Make eq work again with utf8 (disabling the upgrading

should no more be necessary since the copies of the
scalars are upgraded, not the scalars themselves).
Takes care of ID 20001009.001.  (The claimed length()
bug in 20001009.001 seems bogus to me.)

p4raw-id: //depot/perl@7182

1 files changed, 1 insertions, 1 deletions

diff --git a/sv.c b/sv.c
index a2e6fbd558..21b6758342 100644
--- a/sv.c
+++ b/sv.c
@@ -4094,7 +4094,7 @@ Perl_sv_eq(pTHX_ register SV *sv1, register SV *sv2)
 	pv2 = SvPV(sv2, cur2);
 
     /* do not utf8ize the comparands as a side-effect */
-    if (cur1 && cur2 && SvUTF8(sv1) != SvUTF8(sv2) && !IN_BYTE && 0) {
+    if (cur1 && cur2 && SvUTF8(sv1) != SvUTF8(sv2) && !IN_BYTE) {
 	if (SvUTF8(sv1)) {
 	    pv2 = (char*)bytes_to_utf8((U8*)pv2, &cur2);
 	    pv2tmp = TRUE;