diff options
| author | Nicholas Clark <nick@ccl4.org> | 2002-04-06 01:21:17 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-04-06 15:47:52 +0000 |
| commit | 19692e8d256164f96817d6df6ecee26c3cda4ae9 (patch) | |
| tree | 6ff4d53f478a079339f72080bb79e1ada434b4de /doop.c | |
| parent | ef3337d48bf32551564ac40d2bbaf9452e4e918f (diff) | |
| download | perl-19692e8d256164f96817d6df6ecee26c3cda4ae9.tar.gz | |
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
Diffstat (limited to 'doop.c')
| -rw-r--r-- | doop.c | 9 |
1 files changed, 0 insertions, 9 deletions
@@ -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) { |