Remove the non debugger-safe DOWN

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: ;$

diff --git a/lib/Scope/Upper.pm b/lib/Scope/Upper.pm
index 51560158b054cb9532ebacbeb1b131fe34bed065..ffd3c751298a97e8edc654d83c96223641e19e0e 100644 (file)
--- a/lib/Scope/Upper.pm
+++ b/lib/Scope/Upper.pm
@@ -98,10 +98,6 @@ The current level.
 
 The level of the scope just above C<$from>.
 
-=head2 C<DOWN $from>
-
-The level of the scope just below C<$from>.
-
 =head2 C<SUB $from>
 
 The level of the closest subroutine context above C<$from>.
@@ -224,7 +220,7 @@ will righteously set C<$num> to C<26>.
 
 The functions L</reap>, L</localize>, L</localize_elem>, L</localize_delete>,  L</unwind> and L</want_at> are only exported on request, either individually or by the tags C<':funcs'> and C<':all'>.
 
-Same goes for the words L</TOP>, L</HERE>, L</UP>, L</DOWN>, L</SUB>, L</EVAL> and L</CALLER> that are only exported on request, individually or by the tags C<':words'> and C<':all'>.
+Same goes for the words L</TOP>, L</HERE>, L</UP>, L</SUB>, L</EVAL> and L</CALLER> that are only exported on request, individually or by the tags C<':words'> and C<':all'>.
 
 =cut
 
@@ -233,7 +229,7 @@ use base qw/Exporter/;
 our @EXPORT      = ();
 our %EXPORT_TAGS = (
  funcs => [ qw/reap localize localize_elem localize_delete unwind want_at/ ],
- words => [ qw/TOP HERE UP DOWN SUB EVAL CALLER/ ],
+ words => [ qw/TOP HERE UP SUB EVAL CALLER/ ],
 );
 our @EXPORT_OK   = map { @$_ } values %EXPORT_TAGS;
 $EXPORT_TAGS{'all'} = [ @EXPORT_OK ];

diff --git a/t/01-import.t b/t/01-import.t
index 76452a0f5692afac73ea25396743e04356c233f2..fe4f1c59dfbab801ac18ab43d88af66ae2d956d8 100644 (file)
--- a/t/01-import.t
+++ b/t/01-import.t
@@ -3,11 +3,11 @@
 use strict;
 use warnings;
 
-use Test::More tests => 13;
+use Test::More tests => 12;
 
 require Scope::Upper;
 
-for (qw/reap localize localize_elem localize_delete unwind want_at TOP HERE UP DOWN SUB EVAL CALLER/) {
+for (qw/reap localize localize_elem localize_delete unwind want_at TOP HERE UP SUB EVAL CALLER/) {
  eval { Scope::Upper->import($_) };
  is($@, '', 'import ' . $_);
 }

diff --git a/t/05-words.t b/t/05-words.t
index 318581d2c5f40e7f552fae6613a4a6df324395c3..b1d1467161c5db82c906353a8a45bd11e01c69da 100644 (file)
--- a/t/05-words.t
+++ b/t/05-words.t
@@ -3,14 +3,13 @@
 use strict;
 use warnings;
 
-use Test::More tests => 46;
+use Test::More tests => 42;
 
 use Scope::Upper qw/:words/;
 
 is HERE, 0, 'main : here';
 is TOP,  0, 'main : top';
 is UP,   0, 'main : up';
-is DOWN, 0, 'main : down';
 is SUB,  undef, 'main : sub';
 is EVAL, undef, 'main : eval';
 
@@ -18,9 +17,6 @@ is EVAL, undef, 'main : eval';
  is HERE, 1, '{ 1 } : here';
  is TOP,  0, '{ 1 } : top';
  is UP,   0, '{ 1 } : up';
- is DOWN, 1, '{ 1 } : down';
- is DOWN(UP), 1, '{ 1 } : up then down';
- is UP(DOWN), 0, '{ 1 } : down then up';
 }
 
 do {