From: Vincent Pit Date: Mon, 4 Jan 2010 11:32:34 +0000 (+0100) Subject: Remove unused variables X-Git-Tag: v0.02~10 X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=c4608b58e39347084b651ee4c3db26bf522378ea;p=perl%2Fmodules%2FSub-Op.git Remove unused variables --- diff --git a/Op.xs b/Op.xs index e76fb9b..89716e7 100644 --- a/Op.xs +++ b/Op.xs @@ -201,7 +201,6 @@ STATIC OP *so_ck_entersub(pTHX_ OP *o) { gv = cGVOPx_gv(gvop); { - HV *stash = GvSTASH(gv); SV *pp_sv, **svp; CV *cv = NULL; const char *name = GvNAME(gv); @@ -328,7 +327,7 @@ PREINIT: HV *map; CV *placeholder; tTHX owner; -CODE: +PPCODE: { dMY_CXT; owner = MY_CXT.owner; @@ -341,6 +340,7 @@ CODE: MY_CXT.placeholder = placeholder; MY_CXT.owner = aTHX; } + XSRETURN(0); #endif /* SO_THREADSAFE */