This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
33f361f
)
[perl5db] Remove unnecessary code.
author
Shlomi Fish
<shlomif@shlomifish.org>
Sun, 7 Oct 2012 22:12:13 +0000
(
00:12
+0200)
committer
Ricardo Signes
<rjbs@cpan.org>
Mon, 12 Nov 2012 14:18:38 +0000
(09:18 -0500)
We already handled the "t" command. This was detected during
refactoring.
lib/perl5db.pl
patch
|
blob
|
blame
|
history
diff --git
a/lib/perl5db.pl
b/lib/perl5db.pl
index
5341ff1
..
81b770a
100644
(file)
--- a/
lib/perl5db.pl
+++ b/
lib/perl5db.pl
@@
-3047,12
+3047,6
@@
any variables we might want to address in the C<DB> package.
=cut
- # t - turn trace on.
- if ($cmd =~ s#\At\s+(\d+)?#\$DB::trace |= 1;\n#) {
- my $trace_arg = $1;
- $trace_to_depth = $trace_arg ? $stack_depth||0 + $1 : 1E9;
- }
-
# s - single-step. Remember the last command was 's'.
if ($cmd =~ s/\As\s/\$DB::single = 1;\n/) {
$laststep = 's';