diff options
| author | Mike Guy <mjtg@cam.ac.uk> | 2001-06-01 19:17:02 +0100 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-01 16:19:18 +0000 |
| commit | 5b17b83d789df385a67e0c774078c5c8ab9e217b (patch) | |
| tree | c2ac3e2a991d8308c0144854b96b4a901978a236 /lib/perl5db.pl | |
| parent | 1f727ac0e62bc2e40ea8fa3c4c25da4e405d0fba (diff) | |
| download | perl-5b17b83d789df385a67e0c774078c5c8ab9e217b.tar.gz | |
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
Diffstat (limited to 'lib/perl5db.pl')
| -rw-r--r-- | lib/perl5db.pl | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/lib/perl5db.pl b/lib/perl5db.pl index ef1f89b568..15a4af6e41 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') { |