Retract #7977, still too volatile (the euphemism of the day

for unfinished and buggy :-)

p4raw-id: //depot/perl@7978

1 files changed, 1 insertions, 4 deletions

diff --git a/doop.c b/doop.c
index 762c67974a..3c34425075 100644
--- a/doop.c
+++ b/doop.c
@@ -1177,11 +1177,8 @@ Perl_do_kv(pTHX)
     PUTBACK;	/* hv_iternext and hv_iterval might clobber stack_sp */
     while ((entry = hv_iternext(keys))) {
 	SPAGAIN;
-	if (dokeys) {
+	if (dokeys)
 	    XPUSHs(hv_iterkeysv(entry));	/* won't clobber stack_sp */
-	    if (SvUTF8((SV*)keys))
-		SvUTF8_on(TOPs); /* Yuck */
-	} 
 	if (dovalues) {
 	    PUTBACK;
 	    tmpstr = realhv ?