diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2008-04-27 07:40:00 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2008-04-27 07:40:00 +0000 |
| commit | f8d0f69b872506af4a8ffccd29197bd600466252 (patch) | |
| tree | 8ce9883f88edfd3566310d18b365a071260437dc /lib | |
| parent | fdf0a293a88d8a14c42b43c2f82c991c50f7dc39 (diff) | |
| download | perl-f8d0f69b872506af4a8ffccd29197bd600466252.tar.gz | |
Revert change #33751, at least for now: this breaks perl5db.t
p4raw-link: @33751 on //depot/perl: 216e512e84140c4f1a6711dd28168b2a82c86fd9
p4raw-id: //depot/perl@33753
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/perl5db.pl | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lib/perl5db.pl b/lib/perl5db.pl index a64443babf..2167f789a5 100644 --- a/lib/perl5db.pl +++ b/lib/perl5db.pl @@ -6766,9 +6766,10 @@ we go ahead and set C<$console> and C<$tty> to the file indicated. sub TTY { - # We can get here with $term undefined, which means that the new - # terminal has been created, but we can not switch to it. - if ( @_ and !defined($term)) { + # With VMS we can get here with $term undefined, so we do not + # switch to this terminal. There may be a better place to make + # sure that $term is defined on VMS + if ( @_ and ($^O eq 'VMS') and !defined($term) ) { eval { require Term::ReadLine } or die $@; if ( !$rl ) { $term = new Term::ReadLine::Stub 'perldb', $IN, $OUT; |