diff options
| author | Ilya Zakharevich <ilya@math.berkeley.edu> | 2001-11-14 16:26:31 -0500 |
|---|---|---|
| committer | Abhijit Menon-Sen <ams@wiw.org> | 2001-11-15 02:52:52 +0000 |
| commit | 43c8efd8a96392ed0e720af5c06ab52c6d53fcc4 (patch) | |
| tree | a619bd3bceb8f074b8782c71f426c9a13ea0c63a | |
| parent | f5a431647513928a32057b5c6a7b988927648302 (diff) | |
| download | perl-43c8efd8a96392ed0e720af5c06ab52c6d53fcc4.tar.gz | |
CreateTTY in -d
Message-Id: <20011114212631.A25705@math.ohio-state.edu>
p4raw-id: //depot/perl@13014
| -rw-r--r-- | lib/perl5db.pl | 5 |
1 files changed, 2 insertions, 3 deletions
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; } |