From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Tue, 24 Apr 2007 10:35:15 +0000 (+0000)
Subject: Fix potential precedence problem
X-Git-Tag: accepted/trunk/20130322.191538~15393
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=58bde88d59b50dfafcac03e2948c42887eb15e97;p=platform%2Fupstream%2Fperl.git

Fix potential precedence problem

p4raw-id: //depot/perl@31052
---

diff --git a/op.c b/op.c
index 50728a5..d623f2b 100644
--- a/op.c
+++ b/op.c
@@ -1300,7 +1300,7 @@ Perl_mod(pTHX_ OP *o, I32 type)
 	    Perl_croak(aTHX_ "That use of $[ is unsupported");
 	break;
     case OP_STUB:
-	if (o->op_flags & OPf_PARENS || PL_madskills)
+	if ((o->op_flags & OPf_PARENS) || PL_madskills)
 	    break;
 	goto nomod;
     case OP_ENTERSUB: