From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Tue, 24 Apr 2007 10:35:15 +0000 (+0000)
Subject: Fix potential precedence problem
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=58bde88d59b50dfafcac03e2948c42887eb15e97;p=p5sagit%2Fp5-mst-13.2.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: