Skip to content

Commit

Permalink
Remove the last traces of the no longer existing cmd_l command
Browse files Browse the repository at this point in the history
cmd_l was still mentioned in the documentation and comments. Also,
there was no test for the "v" command which would test Perl#18900.
  • Loading branch information
choroba committed Oct 6, 2021
1 parent 33c3508 commit c186270
Showing 1 changed file with 4 additions and 4 deletions.
8 changes: 4 additions & 4 deletions lib/perl5db.pl
Original file line number Diff line number Diff line change
Expand Up @@ -531,7 +531,7 @@ BEGIN
use vars qw($VERSION $header);

# bump to X.XX in blead, only use X.XX_XX in maint
$VERSION = '1.61';
$VERSION = '1.62';

$header = "perl5db.pl version $VERSION";

Expand Down Expand Up @@ -2544,7 +2544,7 @@ sub _DB__handle_i_command {
next CMD;
}

=head3 C<cmd_l> - list lines (command)
=head3 C<_cmd_l_main> - list lines (command)
Most of the command is taken up with transforming all the different line
specification syntaxes into 'start-stop'. After that is done, the command
Expand Down Expand Up @@ -6001,7 +6001,7 @@ sub cmd_O {
=head3 C<cmd_v> - view window (command)
Uses the C<$preview> variable set in the second C<BEGIN> block (q.v.) to
move back a few lines to list the selected line in context. Uses C<cmd_l>
move back a few lines to list the selected line in context. Uses C<_cmd_l_main>
to do the actual listing after figuring out the range of line to request.
=cut
Expand All @@ -6027,7 +6027,7 @@ sub cmd_v {
# Back up by the context amount.
$start -= $preview;

# Put together a linespec that cmd_l will like.
# Put together a linespec that _cmd_l_main will like.
$line = $start . '-' . ( $start + $incr );

# List the lines.
Expand Down

0 comments on commit c186270

Please sign in to comment.