From: Jason A. Smith <smithj4@rpi.edu>
Date: Fri, 6 Feb 1998 17:47:08 +0000 (-0500)
Subject: Fix saving of STDOUT during system() in lib/perl5db.pl:
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8ee058cb0e1f1b40dae70bf2e700d6b09a7122d8;p=p5sagit%2Fp5-mst-13.2.git

Fix saving of STDOUT during system() in lib/perl5db.pl:
	Subject: Perl debugger.

p4raw-id: //depot/perl@501
---

diff --git a/lib/perl5db.pl b/lib/perl5db.pl
index f0774bc..9048ed2 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(@_);