From: Vincent Pit <vince@profvince.com>
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 */