From 077da62ff955a1517f28fde7b6613d123050dbcb Mon Sep 17 00:00:00 2001 From: Father Chrysostomos Date: Fri, 29 Jun 2012 22:25:28 -0700 Subject: op.c: S_op_integerize: -foo no longer needs an exception --- op.c | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) (limited to 'op.c') diff --git a/op.c b/op.c index e708a9920b..ae0d6e8c5c 100644 --- a/op.c +++ b/op.c @@ -3184,11 +3184,8 @@ S_op_integerize(pTHX_ OP *o) PERL_ARGS_ASSERT_OP_INTEGERIZE; - /* integerize op, unless it happens to be C<-foo>. - * XXX should pp_i_negate() do magic string negation instead? */ - if ((PL_opargs[type] & OA_OTHERINT) && (PL_hints & HINT_INTEGER) - && !(type == OP_NEGATE && cUNOPo->op_first->op_type == OP_CONST - && (cUNOPo->op_first->op_private & OPpCONST_BARE))) + /* integerize op. */ + if ((PL_opargs[type] & OA_OTHERINT) && (PL_hints & HINT_INTEGER)) { dVAR; o->op_ppaddr = PL_ppaddr[type = ++(o->op_type)]; -- cgit v1.2.1