diff options
| author | Jason A. Smith <smithj4@rpi.edu> | 1998-02-06 12:47:08 -0500 |
|---|---|---|
| committer | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1998-02-12 16:09:26 +0000 |
| commit | 8ee058cb0e1f1b40dae70bf2e700d6b09a7122d8 (patch) | |
| tree | f20079c6db80f338dc8c99be40f569dabba8ed0e /lib/perl5db.pl | |
| parent | bf0f82cfd49ab93b8023104206fc86377822b057 (diff) | |
| download | perl-8ee058cb0e1f1b40dae70bf2e700d6b09a7122d8.tar.gz | |
Fix saving of STDOUT during system() in lib/perl5db.pl:
Subject: Perl debugger.
p4raw-id: //depot/perl@501
Diffstat (limited to 'lib/perl5db.pl')
| -rw-r--r-- | lib/perl5db.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/perl5db.pl b/lib/perl5db.pl index f0774bcdac..9048ed2baf 100644 --- a/lib/perl5db.pl +++ b/lib/perl5db.pl @@ -1386,7 +1386,7 @@ sub system { # We save, change, then restore STDIN and STDOUT to avoid fork() since # many non-Unix systems can do system() but have problems with fork(). open(SAVEIN,"<&STDIN") || &warn("Can't save STDIN"); - open(SAVEOUT,">&OUT") || &warn("Can't save STDOUT"); + open(SAVEOUT,">&STDOUT") || &warn("Can't save STDOUT"); open(STDIN,"<&IN") || &warn("Can't redirect STDIN"); open(STDOUT,">&OUT") || &warn("Can't redirect STDOUT"); system(@_); |