X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=Upper.xs;h=92f9e65b4f0e09573b28c7dd9e8ab6bf54b44607;hb=a06eb7aacdd80daabe3b1565c15b37096ea2b57c;hp=9817196867a8466c1867c3ff6a45d9a17122d8a4;hpb=1ddb3bd47f50cb3a056d2c9e5467ba1bca94251b;p=perl%2Fmodules%2FScope-Upper.git

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,