diff options
author | Shlomi Fish <shlomif@shlomifish.org> | 2012-11-15 11:08:13 +0200 |
---|---|---|
committer | Tony Cook <tony@develop-help.com> | 2013-01-02 11:22:04 +1100 |
commit | 55ade8eaa80d6afdd82ae1bdcd7d36b4a378d244 (patch) | |
tree | 77224c6f979dd40a7b56821be3e267c7e0687651 /lib | |
parent | cb45a45e45ce89eb9357dff7f61f8a2b92a2ddf0 (diff) | |
download | perl-55ade8eaa80d6afdd82ae1bdcd7d36b4a378d244.tar.gz |
Extract _cmd_L_handle_postponed_breakpoints.
Diffstat (limited to 'lib')
-rw-r--r-- | lib/perl5db.pl | 46 |
1 files changed, 28 insertions, 18 deletions
diff --git a/lib/perl5db.pl b/lib/perl5db.pl index 8fd976b754..460b4b13eb 100644 --- a/lib/perl5db.pl +++ b/lib/perl5db.pl @@ -5772,6 +5772,33 @@ sub _cmd_L_handle_breakpoints { return; } +sub _cmd_L_handle_postponed_breakpoints { + my ($handle_db_line) = @_; + + print {$OUT} "Postponed breakpoints in files:\n"; + + POSTPONED_SCANS: + for my $file ( keys %postponed_file ) { + my $db = $postponed_file{$file}; + print {$OUT} " $file:\n"; + for my $line ( sort { $a <=> $b } keys %$db ) { + print {$OUT} " $line:\n"; + + $handle_db_line->($db->{$line}); + + if ($signal) { + last POSTPONED_SCANS; + } + } + if ($signal) { + last POSTPONED_SCANS; + } + } + + return; +} + + sub cmd_L { my $cmd = shift; @@ -5820,24 +5847,7 @@ sub cmd_L { # If there are any, list them. if ( @have and ( $break_wanted or $action_wanted ) ) { - print {$OUT} "Postponed breakpoints in files:\n"; - POSTPONED_SCANS: - for my $file ( keys %postponed_file ) { - my $db = $postponed_file{$file}; - print {$OUT} " $file:\n"; - for my $line ( sort { $a <=> $b } keys %$db ) { - print {$OUT} " $line:\n"; - - $handle_db_line->($db->{$line}); - - if ($signal) { - last POSTPONED_SCANS; - } - } ## end for $line (sort { $a <=>... - if ($signal) { - last POSTPONED_SCANS; - } - } ## end for $file (keys %postponed_file) + _cmd_L_handle_postponed_breakpoints($handle_db_line); } ## end if (@have and ($break_wanted... if ( %break_on_load and $break_wanted ) { |