Re: [ID 20010529.004] program doesn't work unless in debug mode

Message-Id: <E155sXm-0001C2-00@draco.cus.cam.ac.uk>

p4raw-id: //depot/perl@10380

diff --git a/lib/perl5db.pl b/lib/perl5db.pl
index ef1f89b..15a4af6 100644 (file)
--- a/lib/perl5db.pl
+++ b/lib/perl5db.pl
@@ -540,15 +540,13 @@ if ($notty) {
 
     $OUT = \*OUT;
   }
-  select($OUT);
+  my $previous = select($OUT);
   $| = 1;                      # for DB::OUT
-  select(STDOUT);
+  select($previous);
 
   $LINEINFO = $OUT unless defined $LINEINFO;
   $lineinfo = $console unless defined $lineinfo;
 
-  $| = 1;                      # for real STDOUT
-
   $header =~ s/.Header: ([^,]+),v(\s+\S+\s+\S+).*$/$1$2/;
   unless ($runnonstop) {
     if ($term_pid eq '-1') {