This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
In the debugger, flush stdout/stderr before the prompt is printed
[perl5.git] / lib / perl5db.pl
index 7c8507c..9655956 100644 (file)
@@ -1,5 +1,7 @@
 package DB;
 
 package DB;
 
+use IO::Handle;
+
 # Debugger for Perl 5.00x; perl5db.pl patch level:
 $VERSION = 1.20;
 $header  = "perl5db.pl version $VERSION";
 # Debugger for Perl 5.00x; perl5db.pl patch level:
 $VERSION = 1.20;
 $header  = "perl5db.pl version $VERSION";
@@ -1269,6 +1271,8 @@ EOP
                $onetimeDump = undef;
                 $onetimedumpDepth = undef;
            } elsif ($term_pid == $$) {
                $onetimeDump = undef;
                 $onetimedumpDepth = undef;
            } elsif ($term_pid == $$) {
+               STDOUT->flush();
+               STDERR->flush();
                print $OUT "\n";
            }
        } continue {            # CMD:
                print $OUT "\n";
            }
        } continue {            # CMD: