Change 31352: Plug a memory leak (noticed by Yves)

[Rafael Garcia-Suarez]

Change 31352 by [EMAIL PROTECTED] on 2007/06/07 16:09:54

        Plug a memory leak (noticed by Yves)

Affected files ...

... //depot/perl/regcomp.c#594 edit

Differences ...

==== //depot/perl/regcomp.c#594 (text) ====
Index: perl/regcomp.c
--- perl/regcomp.c#593~31341~   2007-06-06 07:42:01.000000000 -0700
+++ perl/regcomp.c      2007-06-07 09:09:54.000000000 -0700
@@ -4883,7 +4883,9 @@
         if (flags & RXf_HASH_ALL) {
             return hv_exists_ent(rx->paren_names, key, 0);
         } else {
-            if (CALLREG_NAMED_BUFF_FETCH(rx, key, flags)) {
+           SV *sv = CALLREG_NAMED_BUFF_FETCH(rx, key, flags);
+            if (sv) {
+               SvREFCNT_dec(sv);
                 return TRUE;
             } else {
                 return FALSE;
End of Patch.