Change 33753 by [EMAIL PROTECTED] on 2008/04/27 07:40:00
Revert change #33751, at least for now: this breaks perl5db.t
Affected files ...
... //depot/perl/lib/perl5db.pl#133 edit
Differences ...
==== //depot/perl/lib/perl5db.pl#133 (text) ====
Index: perl/lib/perl5db.pl
--- perl/lib/perl5db.pl#132~33751~ 2008-04-26 14:58:15.000000000 -0700
+++ perl/lib/perl5db.pl 2008-04-27 00:40:00.000000000 -0700
@@ -6766,9 +6766,10 @@
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;
End of Patch.
