From d5b1589c09b534ccfeb2eae26b3de9339c1bf22b Mon Sep 17 00:00:00 2001
From: Nicholas Clark <nick@ccl4.org>
Date: Wed, 10 Feb 2010 09:57:23 +0000
Subject: Convert PAD_DUP to a function Perl_padlist_dup().

assert() that pads are never AvREAL().
---
 embed.fnc | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'embed.fnc')

diff --git a/embed.fnc b/embed.fnc
index 57dd568b1d..8e463c1275 100644
--- a/embed.fnc
+++ b/embed.fnc
@@ -2079,6 +2079,11 @@ pd	|void	|pad_fixup_inner_anons|NN PADLIST *padlist|NN CV *old_cv|NN CV *new_cv
 pdX	|void	|pad_push	|NN PADLIST *padlist|int depth
 : Only used in PAD_COMPNAME_TYPE() in op.c
 pR	|HV*	|pad_compname_type|const PADOFFSET po
+: Used in sv.c
+#if defined(USE_ITHREADS)
+pR	|AV*	|padlist_dup	|NULLOK AV *const srcpad \
+				|NN CLONE_PARAMS *const param
+#endif
 
 #if defined(PERL_IN_PAD_C) || defined(PERL_DECL_PROT)
 sd	|PADOFFSET|pad_findlex	|NN const char *name|NN const CV* cv|U32 seq|int warn \
-- 
cgit v1.2.1