Mark all places where perl needs to look at a possibly-freed scalar

with a macro SvIS_FREED(sv)

p4raw-id: //depot/perl@26132

1 files changed, 1 insertions, 1 deletions

diff --git a/pad.c b/pad.c
index cbc1cb5075..df1b8f4175 100644
--- a/pad.c
+++ b/pad.c
@@ -233,7 +233,7 @@ Perl_pad_undef(pTHX_ CV* cv)
 
     if (!padlist)
 	return;
-    if (!SvREFCNT(CvPADLIST(cv))) /* may be during global destruction */
+    if (SvIS_FREED(padlist)) /* may be during global destruction */
 	return;
 
     DEBUG_X(PerlIO_printf(Perl_debug_log,