From: Vincent Pit <vince@profvince.com>
Date: Mon, 28 Dec 2009 18:35:07 +0000 (+0100)
Subject: call_sv() ought to take an I32
X-Git-Tag: v0.40~10
X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=354ba160bf92d157a773528894a63967565fcd19;p=perl%2Fmodules%2FVariable-Magic.git

call_sv() ought to take an I32
---

diff --git a/Magic.xs b/Magic.xs
index edddac8..3a170c0 100644
--- a/Magic.xs
+++ b/Magic.xs
@@ -1029,7 +1029,7 @@ STATIC int vmg_svt_free(pTHX_ SV *sv, MAGIC *mg) {
  PERL_CONTEXT saved_cx;
  I32 cxix;
 #endif
- unsigned int had_err, has_err, flags = G_SCALAR | G_EVAL;
+ I32 had_err, has_err, flags = G_SCALAR | G_EVAL;
  int ret = 0;
 
  dSP;