X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=Upper.xs;h=14923a61b4903b5c1c2885c01ad645e305ca6ead;hb=da0237ee151a65dff50933a7af535ea0541c2ac2;hp=73bf6e776b6b1336da7a6f3be59c81679869f6a8;hpb=3bccb84b883d0410edb8401401e0ac296643caae;p=perl%2Fmodules%2FScope-Upper.git

diff --git a/Upper.xs b/Upper.xs
index 73bf6e7..14923a6 100644
--- a/Upper.xs
+++ b/Upper.xs
@@ -744,19 +744,6 @@ CODE:
 OUTPUT:
  RETVAL
 
-SV *
-DOWN(...)
-PROTOTYPE: ;$
-PREINIT:
- I32 cxix;
-CODE:
- SU_GET_CONTEXT(0, 0);
- if (++cxix > cxstack_ix)
-  cxix = cxstack_ix;
- RETVAL = newSViv(cxix);
-OUTPUT:
- RETVAL
-
 void
 SUB(...)
 PROTOTYPE: ;$