summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorFather Chrysostomos <sprout@cpan.org>2012-10-15 22:53:30 -0700
committerFather Chrysostomos <sprout@cpan.org>2012-10-15 22:53:30 -0700
commitbc1df6c26399cfc1a6171e049edcc6a5a21de2a6 (patch)
tree1c15ab6ee1a56af7a135c1c8e63aca31e48d643a
parente9a8753af0f0f92b6ebd38e85f4b6a815f978eed (diff)
downloadperl-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.
-rw-r--r--pp.c9
1 files changed, 3 insertions, 6 deletions
diff --git a/pp.c b/pp.c
index 24837a0897..28a774eba5 100644
--- a/pp.c
+++ b/pp.c
@@ -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);