Re: Named-capture regex syntax

[p5sagit/p5-mst-13.2.git] / hv.c

diff --git a/hv.c b/hv.c
index 1432077..fbfdce3 100644 (file)
--- a/hv.c
+++ b/hv.c
@@ -467,10 +467,8 @@ S_hv_fetch_common(pTHX_ HV *hv, SV *keysv, const char *key, STRLEN klen,
                }
                if (regdata) {
                    sv = Perl_reg_named_buff_sv(aTHX_ keysv);
-                   if (!sv) {
-                       SvREFCNT_dec(keysv);
-                       return 0;
-                   }
+                   if (!sv)
+                       sv = sv_newmortal();
                } else {
                    sv = sv_newmortal();
                    mg_copy((SV*)hv, sv, (char *)keysv, HEf_SVKEY);
@@ -2672,7 +2670,7 @@ Perl_hv_placeholders_set(pTHX_ HV *hv, I32 ph)
     /* else we don't need to add magic to record 0 placeholders.  */
 }
 
-SV *
+STATIC SV *
 S_refcounted_he_value(pTHX_ const struct refcounted_he *he)
 {
     dVAR;