diff options
| author | Yves Orton <demerphq@gmail.com> | 2006-10-06 21:16:01 +0200 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-10-07 14:30:32 +0000 |
| commit | 81714fb9c03d91d66b66cab6e899e81bf64a2ca7 (patch) | |
| tree | 40861dec0355f417fff2a7ff3c393082960066cc /doop.c | |
| parent | f5def3a2a0d8913110936f9f4e13e37835754c28 (diff) | |
| download | perl-81714fb9c03d91d66b66cab6e899e81bf64a2ca7.tar.gz | |
Re: [PATCH] Initial attempt at named captures for perls regexp engine
Message-ID: <9b18b3110610061016x5ddce965u30d9a821f632d450@mail.gmail.com>
p4raw-id: //depot/perl@28957
Diffstat (limited to 'doop.c')
| -rw-r--r-- | doop.c | 5 |
1 files changed, 4 insertions, 1 deletions
@@ -1425,8 +1425,11 @@ Perl_do_kv(pTHX) RETURN; } - if (! SvTIED_mg((SV*)keys, PERL_MAGIC_tied)) + if (! SvTIED_mg((SV*)keys, PERL_MAGIC_tied) + && ! SvTIED_mg((SV*)keys, PERL_MAGIC_regdata_names)) + { i = HvKEYS(keys); + } else { i = 0; while (hv_iternext(keys)) i++; |