From: Gurusamy Sarathy <gsar@cpan.org>
Date: Thu, 4 May 2000 16:09:28 +0000 (+0000)
Subject: change#5921 neglected to make eq honor "use bytes"
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ae3dfdc1f29fcb74d72e5e7661e89f0329a129fc;p=p5sagit%2Fp5-mst-13.2.git

change#5921 neglected to make eq honor "use bytes"

p4raw-link: @5921 on //depot/perl: c5cc35007718d4b8a82486110aec2d59e69a4f79

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

diff --git a/sv.c b/sv.c
index 7f7c9a6..e76e40f 100644
--- a/sv.c
+++ b/sv.c
@@ -3923,7 +3923,7 @@ Perl_sv_eq(pTHX_ register SV *str1, register SV *str2)
     if (cur1) {
 	if (!str2)
 	    return 0;
-	if (SvUTF8(str1) != SvUTF8(str2)) {
+	if (SvUTF8(str1) != SvUTF8(str2) && !IN_BYTE) {
 	    if (SvUTF8(str1)) {
 		sv_utf8_upgrade(str2);
 	    }