diff options
| author | Simon Cozens <simon@netthink.co.uk> | 2000-12-02 19:49:35 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-12-04 16:25:15 +0000 |
| commit | 3c1071f27f81b6dfd8d73d825ae7de3c747da907 (patch) | |
| tree | 7a254a84ba48570e24432b4a0dc4e9417d7adc64 /doop.c | |
| parent | 8e4bc33bdf4ed8200ffbc530cba09e11f3edc232 (diff) | |
| download | perl-3c1071f27f81b6dfd8d73d825ae7de3c747da907.tar.gz | |
(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
Diffstat (limited to 'doop.c')
| -rw-r--r-- | doop.c | 5 |
1 files changed, 4 insertions, 1 deletions
@@ -1177,8 +1177,11 @@ 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 ? |