Permalink
Browse files

Defenestrate PAD_DUP

It has been unused in core since d5b1589 and is not used on CPAN.
  • Loading branch information...
1 parent a551023 commit 25b1159e83fc9adc6d42cbbd24260c1b6d977d6b Father Chrysostomos committed Sep 1, 2011
Showing with 0 additions and 15 deletions.
  1. +0 −15 pad.h
View
15 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

0 comments on commit 25b1159

Please sign in to comment.