Remove the non debugger-safe DOWN

[perl/modules/Scope-Upper.git] / Upper.xs

diff --git a/Upper.xs b/Upper.xs
index 73bf6e776b6b1336da7a6f3be59c81679869f6a8..14923a61b4903b5c1c2885c01ad645e305ca6ead 100644 (file)
--- 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: ;$