diff options
author | Father Chrysostomos <sprout@cpan.org> | 2014-09-17 20:20:53 -0700 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2014-09-17 23:39:28 -0700 |
commit | 13381c391de0642003d3624c1d0fe8546509d142 (patch) | |
tree | 935457a51b9208c4bf7fad3b7b064e29be525eb5 /pad.c | |
parent | b1334eb561a5055ad8a8362c53fbf5660fe12cf5 (diff) | |
download | perl-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.c | 3 |
1 files changed, 1 insertions, 2 deletions
@@ -773,8 +773,7 @@ Perl_pad_alloc(pTHX_ I32 optype, U32 tmptype) #else (SVs_PADMY|SVs_PADTMP) #endif - ) && - !IS_PADGV(sv)) + )) break; } if (konst) { |