pad.c:cv_clone: add assertions

The outer sub should always be active and have a pad if it is
a sub that is being cloned.  Only formats can have an inactive or
padless outside.  Add assertions to that effect.

1 files changed, 2 insertions, 0 deletions

diff --git a/pad.c b/pad.c
index 1e796e7ab4..8deae8e5f1 100644
--- a/pad.c
+++ b/pad.c
@@ -2010,6 +2010,7 @@ Perl_cv_clone(pTHX_ CV *proto)
     outpad = CvPADLIST(outside)
 	? AvARRAY(AvARRAY(CvPADLIST(outside))[depth])
 	: NULL;
+    assert(outpad || SvTYPE(cv) == SVt_PVFM);
 
     for (ix = fpad; ix > 0; ix--) {
 	SV* const namesv = (ix <= fname) ? pname[ix] : NULL;
@@ -2022,6 +2023,7 @@ Perl_cv_clone(pTHX_ CV *proto)
 		if (!outpad || !(sv = outpad[PARENT_PAD_INDEX(namesv)])
 		 || (  SvPADSTALE(sv) && !SvPAD_STATE(namesv)
 		    && !CvDEPTH(outside))  ) {
+		    assert(SvTYPE(cv) == SVt_PVFM);
 		    Perl_ck_warner(aTHX_ packWARN(WARN_CLOSURE),
 				   "Variable \"%"SVf"\" is not available", namesv);
 		    sv = NULL;