From 43c8efd8a96392ed0e720af5c06ab52c6d53fcc4 Mon Sep 17 00:00:00 2001
From: Ilya Zakharevich <ilya@math.berkeley.edu>
Date: Wed, 14 Nov 2001 16:26:31 -0500
Subject: CreateTTY in -d Message-Id:
 <20011114212631.A25705@math.ohio-state.edu>

p4raw-id: //depot/perl@13014
---
 lib/perl5db.pl | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'lib')

diff --git a/lib/perl5db.pl b/lib/perl5db.pl
index 5e01d53743..a1eaf09a38 100644
--- a/lib/perl5db.pl
+++ b/lib/perl5db.pl
@@ -541,9 +541,8 @@ if ($notty) {
                                );
     if (!$OUT) { die "Unable to connect to remote host: $remoteport\n"; }
     $IN = $OUT;
-  } elsif ($CreateTTY & 4) {
-    create_IN_OUT(4);
   } else {
+    create_IN_OUT(4) if $CreateTTY & 4;
     if (defined $console) {
       my ($i, $o) = split /,/, $console;
       $o = $i unless defined $o;
@@ -2315,7 +2314,7 @@ sub TTY {
     }
     &warn("Too late to set TTY, enabled on next `R'!\n") if $term and @_;
     # Useful if done through PERLDB_OPTS:
-    $tty = shift if @_;
+    $console = $tty = shift if @_;
     $tty or $console;
 }
 
-- 
cgit v1.2.1