From 4fa080dbc664ee90dd374a9a49ac0a4932421bd7 Mon Sep 17 00:00:00 2001 From: David Mitchell Date: Mon, 10 Jul 2017 13:13:03 +0100 Subject: OP_VALUES: reserve OPpMAYBE_LVSUB bit This op doesn't use that bit, but it calls the function Perl_do_kv(), which is called by several different ops which *do* use that bit. So ensure no-one in future thinks that bit is spare in OP_VALUES. --- doop.c | 3 +++ 1 file changed, 3 insertions(+) (limited to 'doop.c') diff --git a/doop.c b/doop.c index 010db089b7..f10269f61b 100644 --- a/doop.c +++ b/doop.c @@ -1282,6 +1282,9 @@ Perl_do_kv(pTHX) || PL_op->op_type == OP_VALUES || PL_op->op_type == OP_AVHVSWITCH); + assert(!( PL_op->op_type == OP_VALUES + && (PL_op->op_private & OPpMAYBE_LVSUB))); + (void)hv_iterinit(keys); /* always reset iterator regardless */ if (gimme == G_VOID) -- cgit v1.2.1