diff options
| author | Jason Smith <smithj4@rpi.edu> | 1998-03-04 11:47:43 +0000 |
|---|---|---|
| committer | Tim Bunce <TimBunce@ig.ac.uk> | 1998-03-04 11:47:43 +0000 |
| commit | 728dada8f8290b950a790081dc22ac5992ebc6fb (patch) | |
| tree | 1b16dc5abd85aac8d05fe991b8c8974303514758 /lib | |
| parent | d17896e0b30fc0c151dd07f5aa5a83e9fd347d9e (diff) | |
| download | perl-728dada8f8290b950a790081dc22ac5992ebc6fb.tar.gz | |
"properly save STDOUT during system() in debugger", #F110
Files: lib/perl5db.pl
p4raw-id: //depot/maint-5.004/perl@746
Diffstat (limited to 'lib')
| -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 e070a20bc5..e922aea4ff 100644 --- a/lib/perl5db.pl +++ b/lib/perl5db.pl @@ -1343,7 +1343,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(@_); |