From: Father Chrysostomos <sprout@cpan.org>
Date: Sat, 30 Jun 2012 05:25:28 +0000 (-0700)
Subject: op.c: S_op_integerize: -foo no longer needs an exception
X-Git-Tag: upstream/5.20.0~6183
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=077da62ff955a1517f28fde7b6613d123050dbcb;p=platform%2Fupstream%2Fperl.git

op.c: S_op_integerize: -foo no longer needs an exception
---

diff --git a/op.c b/op.c
index e708a99..ae0d6e8 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)];