Change 13014 by ams@lustre on 2001/11/15 02:52:52
Subject: [PATCH current] CreateTTY in -d
From: Ilya Zakharevich <[EMAIL PROTECTED]>
Date: Wed, 14 Nov 2001 21:26:31 -0500
Message-Id: <[EMAIL PROTECTED]>
Affected files ...
.... //depot/perl/lib/perl5db.pl#70 edit
Differences ...
==== //depot/perl/lib/perl5db.pl#70 (text) ====
Index: perl/lib/perl5db.pl
--- perl/lib/perl5db.pl.~1~ Wed Nov 14 20:00:05 2001
+++ perl/lib/perl5db.pl Wed Nov 14 20:00:05 2001
@@ -541,9 +541,8 @@
);
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 @@
}
&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;
}
End of Patch.
