Fix potential precedence problem

p4raw-id: //depot/perl@31052

diff --git a/op.c b/op.c
index 50728a5..d623f2b 100644 (file)
--- 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: