From: Vincent Pit 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/?a=commitdiff_plain;h=d2b447cb5e3d6bb934c3eb77088a5a68186d87a5;p=perl%2Fmodules%2FVariable-Magic.git 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));