Need to explicitly clone the name count
authorPeter Martini <PeterCMartini@GMail.com>
Sun, 23 Sep 2012 06:41:56 +0000 (02:41 -0400)
committerPeter Martini <PeterCMartini@GMail.com>
Wed, 17 Oct 2012 20:36:09 +0000 (16:36 -0400)
for subroutine signatures

pad.c

diff --git a/pad.c b/pad.c
index b8099b4..1c04818 100644 (file)
--- a/pad.c
+++ b/pad.c
@@ -2362,6 +2362,7 @@ Perl_padlist_dup(pTHX_ PADLIST *srcpad, CLONE_PARAMS *param)
     Newx(dstpad, 1, PADLIST);
     ptr_table_store(PL_ptr_table, srcpad, dstpad);
     PadlistMAX(dstpad) = max;
+    PadlistNAMECNT(dstpad) = PadlistNAMECNT(srcpad);
     Newx(PadlistARRAY(dstpad), max + 1, PAD *);
 
     if (cloneall) {