From: Father Chrysostomos <sprout@cpan.org>
Date: Thu, 1 Sep 2011 19:52:06 +0000 (-0700)
Subject: Defenestrate PAD_DUP
X-Git-Tag: v5.15.3~267
X-Git-Url: https://perl5.git.perl.org/perl5.git/commitdiff_plain/25b1159e83fc9adc6d42cbbd24260c1b6d977d6b

Defenestrate PAD_DUP

It has been unused in core since d5b1589c and is not used on CPAN.
---

diff --git a/pad.h b/pad.h
index 184b067..6b2164f 100644
--- a/pad.h
+++ b/pad.h
@@ -322,27 +322,12 @@ ling pad (lvalue) to C<gen>.  Note that C<SvUV_set> is hijacked for this purpose
 
 
 /*
-=for apidoc m|void|PAD_DUP|PADLIST dstpad|PADLIST srcpad|CLONE_PARAMS* param
-Clone a padlist.
-
 =for apidoc m|void|PAD_CLONE_VARS|PerlInterpreter *proto_perl|CLONE_PARAMS* param
 Clone the state variables associated with running and compiling pads.
 
 =cut
 */
 
-
-#define PAD_DUP(dstpad, srcpad, param)				\
-    if ((srcpad) && !AvREAL(srcpad)) {				\
-	/* XXX padlists are real, but pretend to be not */ 	\
-	AvREAL_on(srcpad);					\
-	(dstpad) = av_dup_inc((srcpad), param);			\
-	AvREAL_off(srcpad);					\
-	AvREAL_off(dstpad);					\
-    }								\
-    else							\
-	(dstpad) = av_dup_inc((srcpad), param);			
-
 /* NB - we set PL_comppad to null unless it points at a value that
  * has already been dup'ed, ie it points to part of an active padlist.
  * Otherwise PL_comppad ends up being a leaked scalar in code like