diff options
author | Father Chrysostomos <sprout@cpan.org> | 2012-10-15 22:53:30 -0700 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2012-10-15 22:53:30 -0700 |
commit | bc1df6c26399cfc1a6171e049edcc6a5a21de2a6 (patch) | |
tree | 1c15ab6ee1a56af7a135c1c8e63aca31e48d643a /pp.c | |
parent | e9a8753af0f0f92b6ebd38e85f4b6a815f978eed (diff) | |
download | perl-bc1df6c26399cfc1a6171e049edcc6a5a21de2a6.tar.gz |
Prune some dead code in pp.c:pp_undef
Since commit 6fc9266916, the if (SvFAKE) check under the SVt_PVGV case
in pp_undef has been redundant. And PVBMs are no longer GVs.
Diffstat (limited to 'pp.c')
-rw-r--r-- | pp.c | 9 |
1 files changed, 3 insertions, 6 deletions
@@ -980,11 +980,9 @@ PP(pp_undef) } break; case SVt_PVGV: - if (SvFAKE(sv)) { - SvSetMagicSV(sv, &PL_sv_undef); - break; - } - else if (isGV_with_GP(sv)) { + assert(isGV_with_GP(sv)); + assert(!SvFAKE(sv)); + { GP *gp; HV *stash; @@ -1022,7 +1020,6 @@ PP(pp_undef) break; } - /* FALL THROUGH */ default: if (SvTYPE(sv) >= SVt_PV && SvPVX_const(sv) && SvLEN(sv)) { SvPV_free(sv); |