From: Vincent Pit <vince@profvince.com>
Date: Fri, 16 Apr 2010 22:12:10 +0000 (+0200)
Subject: Silence a gcc warning
X-Git-Tag: v0.11~2
X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FScope-Upper.git;a=commitdiff_plain;h=0cd54c06e5318e8f5134e67bfa3a00fce20e80f2

Silence a gcc warning
---

diff --git a/Upper.xs b/Upper.xs
index 9817196..92f9e65 100644
--- a/Upper.xs
+++ b/Upper.xs
@@ -542,7 +542,7 @@ STATIC void su_pop(pTHX_ void *ud) {
  if (depth > 0) {
   I32 pad;
 
-  if (pad = SU_UD_PAD(ud)) {
+  if ((pad = SU_UD_PAD(ud))) {
    dMY_CXT;
    do {
     SU_D(PerlIO_printf(Perl_debug_log,