From: John E. Malmberg <wb8tyw@qsl.net>
Date: Thu, 24 Apr 2008 21:36:51 +0000 (-0500)
Subject: [patch]perl5db.pl - What I needed to get the forked debugger to work
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=216e512e84140c4f1a6711dd28168b2a82c86fd9;p=p5sagit%2Fp5-mst-13.2.git

[patch]perl5db.pl - What I needed to get the forked debugger to work
From: "John E. Malmberg" <wb8tyw@qsl.net>
Message-id: <481143C3.3080500@qsl.net>

p4raw-id: //depot/perl@33751
---

diff --git a/lib/perl5db.pl b/lib/perl5db.pl
index 2167f78..a64443b 100644
--- a/lib/perl5db.pl
+++ b/lib/perl5db.pl
@@ -6766,10 +6766,9 @@ we go ahead and set C<$console> and C<$tty> to the file indicated.
 
 sub TTY {
 
-    # 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) ) {
+    # 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)) {
 	eval { require Term::ReadLine } or die $@;
         if ( !$rl ) {
 	    $term = new Term::ReadLine::Stub 'perldb', $IN, $OUT;