call_sv() ought to take an I32

[perl/modules/Variable-Magic.git] / Magic.xs

diff --git a/Magic.xs b/Magic.xs
index edddac8a3574a85a7a7791d54eef1e3fbcf8a9fc..3a170c0332a32e77402fffcf5aa91c9816f9c4bd 100644 (file)
--- 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;