X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;ds=sidebyside;f=Magic.xs;h=997b45d233a1e675f16a51577fb502d1684aba29;hb=39d298473b7bb1073edb5d64515c7c7e7be7c7fb;hp=8799958baade4e9af507b0bcd10c0ab7d6439431;hpb=938c75eca3b5b43540ce41e03f54d67e165fad74;p=perl%2Fmodules%2FVariable-Magic.git

diff --git a/Magic.xs b/Magic.xs
index 8799958..997b45d 100644
--- a/Magic.xs
+++ b/Magic.xs
@@ -269,10 +269,10 @@ STATIC I32 vmg_call_sv(pTHX_ SV *sv, I32 flags, int (*cleanup)(pTHX_ void *), vo
 #else
    ++PL_Ierror_count;
 #endif
-   } else if (!in_eval) {
-    if (!cleanup || cleanup(aTHX_ ud))
-     croak(NULL);
-   }
+  } else if (!in_eval) {
+   if (!cleanup || cleanup(aTHX_ ud))
+    croak(NULL);
+  }
  } else {
   if (old_err) {
    SvREFCNT_dec(ERRSV);