In PL_regexp_padav, store regexps via real references, rather than

hiding them within IVs. We can do this now that they are real SV
pointers.

p4raw-id: //depot/perl@32900

1 files changed, 2 insertions, 4 deletions

diff --git a/perl.c b/perl.c
index 72735c274d..e57356bcd1 100644
--- a/perl.c
+++ b/perl.c
@@ -884,13 +884,11 @@ perl_destruct(pTHXx)
                  * flag is set in regexec.c:S_regtry
                  */
                 SvFLAGS(resv) &= ~SVf_BREAK;
+		/* So stop it pointing to what is now a dead reference.  */
+		SvROK_off(resv);
             }
 	    else if(SvREPADTMP(resv)) {
 	      SvREPADTMP_off(resv);
-	    }
-            else if(SvIOKp(resv)) {
-		REGEXP *re = INT2PTR(REGEXP *,SvIVX(resv));
-                ReREFCNT_dec(re);
             }
         }
     }