With regexps stored as real RVs, we can eliminate SvREPADTMP().

Exterminate! Exterminate! Exterminate!

p4raw-id: //depot/perl@32902

1 files changed, 0 insertions, 3 deletions

diff --git a/perl.c b/perl.c
index e57356bcd1..88448de785 100644
--- a/perl.c
+++ b/perl.c
@@ -887,9 +887,6 @@ perl_destruct(pTHXx)
 		/* So stop it pointing to what is now a dead reference.  */
 		SvROK_off(resv);
             }
-	    else if(SvREPADTMP(resv)) {
-	      SvREPADTMP_off(resv);
-            }
         }
     }
     SvREFCNT_dec(PL_regex_padav);