From: Mike Guy <mjtg@cam.ac.uk>
Date: Fri, 1 Jun 2001 18:17:02 +0000 (+0100)
Subject: Re: [ID 20010529.004] program doesn't work unless in debug mode
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5b17b83d789df385a67e0c774078c5c8ab9e217b;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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') {