From: Alex Vandiver <alexmv@mit.edu>
Date: Wed, 4 Jun 2003 04:50:10 +0000 (-0400)
Subject: In the debugger, flush stdout/stderr before the prompt is printed
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9eba6a4e52ba202048e3c35bfee453d7de7bd5a4;p=p5sagit%2Fp5-mst-13.2.git

In the debugger, flush stdout/stderr before the prompt is printed
Subject: Re: [PATCH] Perlbug #15228
Message-Id: <1054716610.21402.45.camel@supox>

p4raw-id: //depot/perl@19725
---

diff --git a/lib/perl5db.pl b/lib/perl5db.pl
index 7c8507c..9655956 100644
--- a/lib/perl5db.pl
+++ b/lib/perl5db.pl
@@ -1,5 +1,7 @@
 package DB;
 
+use IO::Handle;
+
 # 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 == $$) {
+		STDOUT->flush();
+		STDERR->flush();
 		print $OUT "\n";
 	    }
 	} continue {		# CMD: