In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/9349a6bbb9de151e5385038b962ceff7c7278b53?hp=b173165cb2425ea00a041490534260cd10909456>
- Log ----------------------------------------------------------------- commit 9349a6bbb9de151e5385038b962ceff7c7278b53 Author: Steffen Mueller <smuel...@cpan.org> Date: Fri Dec 5 17:23:55 2014 +0100 Remove branch seemingly untaken An HV* that is not an SVt_PVHV? Maybe I don't have sufficient fantasy. This branch goes back to 1994, so things have changed ... a bit since then. ----------------------------------------------------------------------- Summary of changes: pp_hot.c | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/pp_hot.c b/pp_hot.c index 35493eb..1550de5 100644 --- a/pp_hot.c +++ b/pp_hot.c @@ -1790,8 +1790,7 @@ PP(pp_helem) const bool localizing = PL_op->op_private & OPpLVAL_INTRO; bool preeminent = TRUE; - if (SvTYPE(hv) != SVt_PVHV) - RETPUSHUNDEF; + assert(SvTYPE(hv) != SVt_PVHV); if (localizing) { MAGIC *mg; -- Perl5 Master Repository