X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=doop.c;h=51c2248bbc1d132d8c3b701571d80908a924e8b1;hb=80a5d8e74b5512d4ab704d0e83466ae41247ce55;hp=20379a98e5061f95127a80add0bc60aa729fdc7a;hpb=004283b80f6094bb85aba6f48a74e3c5c34ea24f;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/doop.c b/doop.c
index 20379a9..51c2248 100644
--- a/doop.c
+++ b/doop.c
@@ -1338,15 +1338,6 @@ Perl_do_kv(pTHX)
 	SPAGAIN;
 	if (dokeys) {
 	    SV* sv = hv_iterkeysv(entry);
-	    if (HvUTF8KEYS((SV*)hv) && !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);
-		}
-	    }
 	    XPUSHs(sv);	/* won't clobber stack_sp */
 	}
 	if (dovalues) {