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
authorAlex Vandiver <alexmv@mit.edu>
Wed, 4 Jun 2003 04:50:10 +0000 (00:50 -0400)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Mon, 9 Jun 2003 18:33:50 +0000 (18:33 +0000)
Subject: Re: [PATCH] Perlbug #15228
Message-Id: <1054716610.21402.45.camel@supox>

p4raw-id: //depot/perl@19725

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: