This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Revert change #33751, at least for now: this breaks perl5db.t
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Sun, 27 Apr 2008 07:40:00 +0000 (07:40 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Sun, 27 Apr 2008 07:40:00 +0000 (07:40 +0000)
p4raw-link: @33751 on //depot/perl: 216e512e84140c4f1a6711dd28168b2a82c86fd9

p4raw-id: //depot/perl@33753

lib/perl5db.pl

index a64443b..2167f78 100644 (file)
@@ -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;