This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
perl5db: fix some indentation that was off.
authorShlomi Fish <shlomif@shlomifish.org>
Tue, 2 Oct 2012 14:05:45 +0000 (16:05 +0200)
committerRicardo Signes <rjbs@cpan.org>
Mon, 12 Nov 2012 14:18:33 +0000 (09:18 -0500)
lib/perl5db.pl

index ed6002a..7a5b81e 100644 (file)
@@ -2050,7 +2050,7 @@ the new command. This is faster, but perhaps a bit more convoluted.
         while (_DB__read_next_cmd($tid))
         {
 
-                       share($cmd);
+            share($cmd);
             # ... try to execute the input as debugger commands.
 
             # Don't stop running.
@@ -3303,13 +3303,13 @@ any variables we might want to address in the C<DB> package.
                 $onetimedumpDepth = undef;
             }
             elsif ( $term_pid == $$ ) {
-               eval {          # May run under miniperl, when not available...
+                eval { # May run under miniperl, when not available...
                     STDOUT->flush();
                     STDERR->flush();
-               };
+                };
 
                 # XXX If this is the master pid, print a newline.
-                print $OUT "\n";
+                print {$OUT} "\n";
             }
         } ## end while (($term || &setterm...