Re: the dirty half dozen (Re: perl@15662)

Message-ID: <20020405232117.GE323@Bagpuss.unfortu.net>

(with the last one reversed)

p4raw-id: //depot/perl@15757

1 files changed, 0 insertions, 9 deletions

diff --git a/pp.c b/pp.c
index fbe4737497..6c4f2ff84d 100644
--- a/pp.c
+++ b/pp.c
@@ -3689,15 +3689,6 @@ PP(pp_each)
     EXTEND(SP, 2);
     if (entry) {
         SV* sv = hv_iterkeysv(entry);
-	if (HvUTF8KEYS((SV*)hash) && !DO_UTF8(sv)) {
-	    STRLEN len, i;
-	    char* s = SvPV(sv, len);
-	    for (i = 0; i < len && NATIVE_IS_INVARIANT(s[i]); i++);
-	    if (i < len) {
-	        sv = newSVsv(sv);
-		sv_utf8_upgrade(sv);
-	    }
-	}
 	PUSHs(sv);	/* won't clobber stack_sp */
 	if (gimme == G_ARRAY) {
 	    SV *val;