From: Vincent Pit <vince@profvince.com>
Date: Thu, 26 Nov 2009 20:53:13 +0000 (+0100)
Subject: Remove unused variables
X-Git-Tag: v0.39~15
X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FVariable-Magic.git;a=commitdiff_plain;h=d2b447cb5e3d6bb934c3eb77088a5a68186d87a5

Remove unused variables
---

diff --git a/Magic.xs b/Magic.xs
index 1920c78..5a46c64 100644
--- a/Magic.xs
+++ b/Magic.xs
@@ -1297,7 +1297,7 @@ PREINIT:
  int    *level;
  U32     had_b__op_stash = 0;
  opclass c;
-CODE:
+PPCODE:
  {
   my_cxt_t ud;
   dMY_CXT;
@@ -1320,6 +1320,7 @@ CODE:
                               ? gv_stashpv(vmg_opclassnames[c], 1) : NULL;
   }
  }
+ XSRETURN(0);
 
 #endif /* VMG_THREADSAFE */
 
@@ -1327,11 +1328,8 @@ SV *_wizard(...)
 PROTOTYPE: DISABLE
 PREINIT:
  I32 i = 0;
- char buf[8];
  MGWIZ *w;
  MGVTBL *t;
- MAGIC *mg;
- SV *wiz;
  SV *cb;
 CODE:
  dMY_CXT;
@@ -1437,8 +1435,6 @@ PPCODE:
 
 SV *dispell(SV *sv, SV *wiz)
 PROTOTYPE: \[$@%&*]$
-PREINIT:
- U16 sig;
 CODE:
  wiz = vmg_wizard_validate(wiz);
  RETVAL = newSVuv(vmg_dispell(SvRV(sv), wiz));