Extract _cmd_L_handle_postponed_breakpoints.
authorShlomi Fish <shlomif@shlomifish.org>
Thu, 15 Nov 2012 09:08:13 +0000 (11:08 +0200)
committerTony Cook <tony@develop-help.com>
Wed, 2 Jan 2013 00:22:04 +0000 (11:22 +1100)
lib/perl5db.pl

index 8fd976b..460b4b1 100644 (file)
@@ -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 ) {