(Retracted by #7978, too shaky yet.)

Subject: Re: utf8 in hash keys, implementor missing
Message-ID: <20001202194935.A25673@pembro33.pmb.ox.ac.uk>

The first step at UTF-8 hash keys.

p4raw-id: //depot/perl@7977

1 files changed, 2 insertions, 0 deletions

diff --git a/pp.c b/pp.c
index 10e6c6aa99..b3e2030769 100644
--- a/pp.c
+++ b/pp.c
@@ -2693,6 +2693,8 @@ PP(pp_each)
     EXTEND(SP, 2);
     if (entry) {
 	PUSHs(hv_iterkeysv(entry));	/* won't clobber stack_sp */
+	if (SvUTF8((SV*)hash))
+	    SvUTF8_on(TOPs);
 	if (gimme == G_ARRAY) {
 	    SV *val;
 	    PUTBACK;