From 5b17b83d789df385a67e0c774078c5c8ab9e217b Mon Sep 17 00:00:00 2001
From: Mike Guy <mjtg@cam.ac.uk>
Date: Fri, 1 Jun 2001 19:17:02 +0100
Subject: [PATCH] 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
---
 lib/perl5db.pl | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

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