Move PL_comppad nulling from do_clean_all to sv_clear

p4raw-id: //depot/perl@30952

1 files changed, 4 insertions, 4 deletions

diff --git a/sv.c b/sv.c
index 4ce70719dd..43ab8bde85 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: