From: Dave Mitchell <davem@fdisolutions.com>
Date: Sat, 14 Apr 2007 21:53:17 +0000 (+0000)
Subject: Move PL_comppad nulling from do_clean_all to sv_clear
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3f90d08564e6a1d7297ac8c4469eb0266b7d1eab;p=p5sagit%2Fp5-mst-13.2.git

Move PL_comppad nulling from do_clean_all to sv_clear

p4raw-id: //depot/perl@30952
---

diff --git a/sv.c b/sv.c
index 4ce7071..43ab8bd 100644
--- a/sv.c
+++ b/sv.c
@@ -502,10 +502,6 @@ do_clean_all(pTHX_ SV *sv)
     dVAR;
     DEBUG_D((PerlIO_printf(Perl_debug_log, "Cleaning loops: SV at 0x%"UVxf"\n", PTR2UV(sv)) ));
     SvFLAGS(sv) |= SVf_BREAK;
-    if (PL_comppad == (AV*)sv) {
-	PL_comppad = NULL;
-	PL_curpad = NULL;
-    }
     SvREFCNT_dec(sv);
 }
 
@@ -5124,6 +5120,10 @@ Perl_sv_clear(pTHX_ register SV *sv)
 	hv_undef((HV*)sv);
 	break;
     case SVt_PVAV:
+	if (PL_comppad == (AV*)sv) {
+	    PL_comppad = NULL;
+	    PL_curpad = NULL;
+	}
 	av_undef((AV*)sv);
 	break;
     case SVt_PVLV: