summaryrefslogtreecommitdiff
path: root/pad.c
diff options
context:
space:
mode:
authorFather Chrysostomos <sprout@cpan.org>2014-09-17 20:20:53 -0700
committerFather Chrysostomos <sprout@cpan.org>2014-09-17 23:39:28 -0700
commit13381c391de0642003d3624c1d0fe8546509d142 (patch)
tree935457a51b9208c4bf7fad3b7b064e29be525eb5 /pad.c
parentb1334eb561a5055ad8a8362c53fbf5660fe12cf5 (diff)
downloadperl-13381c391de0642003d3624c1d0fe8546509d142.tar.gz
pad.c:pad_alloc: Remove redundant IS_PADGV
GVs are stored in the pads in two code paths, newPADOP when called by newGVOP, and ck_rvconst. Both of those now set the pad name to &PL_sv_no, as of c9859fbde1 and c2bad63bb3. So by the time this check is reached, IS_PADGV can never be true.
Diffstat (limited to 'pad.c')
-rw-r--r--pad.c3
1 files changed, 1 insertions, 2 deletions
diff --git a/pad.c b/pad.c
index a3423499ee..6320afb529 100644
--- a/pad.c
+++ b/pad.c
@@ -773,8 +773,7 @@ Perl_pad_alloc(pTHX_ I32 optype, U32 tmptype)
#else
(SVs_PADMY|SVs_PADTMP)
#endif
- ) &&
- !IS_PADGV(sv))
+ ))
break;
}
if (konst) {