From 81714fb9c03d91d66b66cab6e899e81bf64a2ca7 Mon Sep 17 00:00:00 2001 From: Yves Orton Date: Fri, 6 Oct 2006 21:16:01 +0200 Subject: Re: [PATCH] Initial attempt at named captures for perls regexp engine Message-ID: <9b18b3110610061016x5ddce965u30d9a821f632d450@mail.gmail.com> p4raw-id: //depot/perl@28957 --- doop.c | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'doop.c') diff --git a/doop.c b/doop.c index 5d1fc7a7da..16204653b0 100644 --- a/doop.c +++ b/doop.c @@ -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++; -- cgit v1.2.1