From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Mon, 20 Nov 2006 14:04:22 +0000 (+0000)
Subject: Fix precedence problem
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f46c40814880c71fd883cf2eabf29259a3236f08;hp=de734bd5c0f518849c823cf9035c5583d1cd8d67;p=p5sagit%2Fp5-mst-13.2.git

Fix precedence problem

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

diff --git a/mg.c b/mg.c
index 67f1453..e4d7393 100644
--- a/mg.c
+++ b/mg.c
@@ -504,9 +504,9 @@ Perl_magic_regdata_cnt(pTHX_ SV *sv, MAGIC *mg)
 		I32 paren = rx->lastparen;
 
 		/* return the last filled */
-		while ( paren >= 0 &&
-		    rx->startp[paren] == -1 || rx->endp[paren] == -1)
-		paren--;
+		while ( paren >= 0
+			&& (rx->startp[paren] == -1 || rx->endp[paren] == -1) )
+		    paren--;
 		return (U32)paren;
 	    }
 	}