cleaner version of the official unofficial patch

: There were some warnings (AIX, xlc compiler):

Here's a cleaner version of the official unofficial patch, based on 5.001.

1 files changed, 4 insertions, 1 deletions

diff --git a/toke.c b/toke.c
index 99d0e6182c..783974e89e 100644
--- a/toke.c
+++ b/toke.c
@@ -4633,6 +4633,9 @@ start_subparse()
     CV* outsidecv = compcv;
     AV* comppadlist;
 
+    if (compcv) {
+	assert(SvTYPE(compcv) == SVt_PVCV);
+    }
     save_I32(&subline);
     save_item(subname);
     SAVEINT(padix);
@@ -4665,7 +4668,7 @@ start_subparse()
     av_store(comppadlist, 1, SvREFCNT_inc((SV*)comppad));
 
     CvPADLIST(compcv) = comppadlist;
-    CvOUTSIDE(compcv) = outsidecv;
+    CvOUTSIDE(compcv) = (CV*)SvREFCNT_inc((SV*)outsidecv);
 
     return oldsavestack_ix;
 }