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 (file)
--- 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(@_);