Silence a gcc warning

diff --git a/Upper.xs b/Upper.xs
index 9817196867a8466c1867c3ff6a45d9a17122d8a4..92f9e65b4f0e09573b28c7dd9e8ab6bf54b44607 100644 (file)
--- 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,