Introduces SvREPADTMP(sv) that marks a repad SvIV as a offset

on the pad. Fixes coredumps in cleanups introduced by
Change 11755

p4raw-id: //depot/perl@11790

1 files changed, 4 insertions, 1 deletions

diff --git a/perl.c b/perl.c
index 51cb92757a..820f65d3bd 100644
--- a/perl.c
+++ b/perl.c
@@ -496,7 +496,10 @@ perl_destruct(pTHXx)
                  * flag is set in regexec.c:S_regtry
                  */
                 SvFLAGS(resv) &= ~SVf_BREAK;
-            }
+            } 
+	    else if(SvREPADTMP(resv)) {
+	      SvREPADTMP_off(resv);
+	    }
             else {
                 ReREFCNT_dec(re);
             }