Add empty lines and an explicit return.
authorShlomi Fish <shlomif@shlomifish.org>
Wed, 14 Nov 2012 17:15:50 +0000 (19:15 +0200)
committerTony Cook <tony@develop-help.com>
Wed, 2 Jan 2013 00:22:03 +0000 (11:22 +1100)
lib/perl5db.pl

index 94b28a7..8fd976b 100644 (file)
@@ -5839,6 +5839,7 @@ sub cmd_L {
             }
         } ## end for $file (keys %postponed_file)
     } ## end if (@have and ($break_wanted...
+
     if ( %break_on_load and $break_wanted ) {
         print {$OUT} "Breakpoints on load:\n";
         BREAK_ON_LOAD: for my $filename ( keys %break_on_load ) {
@@ -5846,6 +5847,7 @@ sub cmd_L {
             last BREAK_ON_LOAD if $signal;
         }
     } ## end if (%break_on_load and...
+
     if ($watch_wanted and ( $trace & 2 )) {
         print {$OUT} "Watch-expressions:\n" if @to_watch;
         TO_WATCH: for my $expr (@to_watch) {
@@ -5853,6 +5855,8 @@ sub cmd_L {
             last TO_WATCH if $signal;
         }
     }
+
+    return;
 } ## end sub cmd_L
 
 =head3 C<cmd_M> - list modules (command)