This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix potential precedence problem
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Tue, 24 Apr 2007 10:35:15 +0000 (10:35 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Tue, 24 Apr 2007 10:35:15 +0000 (10:35 +0000)
p4raw-id: //depot/perl@31052

op.c

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: