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

diff --git a/Op.xs b/Op.xs
index 89716e7..cdcc89a 100644
--- a/Op.xs
+++ b/Op.xs
@@ -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);