X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=Op.xs;h=cdcc89af7a2d45946ff78f87bf3f87190316c42e;hb=a3c83d0adc138681da18079c268948d2fe9326d7;hp=e76fb9bd5c998bef67d83bcc56d0f6e41fa58077;hpb=08c8d3d772e4b8a9249f25851be11843a8932daa;p=perl%2Fmodules%2FSub-Op.git

diff --git a/Op.xs b/Op.xs
index e76fb9b..cdcc89a 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 */
 
@@ -381,3 +381,15 @@ PPCODE:
   XSRETURN_UNDEF;
  ST(0) = sv_2mortal(newSVpvn(&on->buf, on->len));
  XSRETURN(1);
+
+void
+_constant_sub(SV *sv)
+PROTOTYPE: $
+PPCODE:
+ if (!SvROK(sv))
+  XSRETURN_UNDEF;
+ sv = SvRV(sv);
+ if (SvTYPE(sv) < SVt_PVCV)
+  XSRETURN_UNDEF;
+ ST(0) = sv_2mortal(newSVuv(CvCONST(sv)));
+ XSRETURN(1);