Change 33751: [patch]perl5db.pl - What I needed to get the forked debugger to work

Change 33751 by rgs@scipion on 2008/04/26 21:58:15

	Subject: [patch]perl5db.pl - What I needed to get the forked debugger to work
	From: "John E. Malmberg" <wb8tyw@qsl.net>
	Date: Thu, 24 Apr 2008 21:36:51 -0500
	Message-id: <481143C3.3080500@qsl.net>

Affected files ...

... //depot/perl/lib/perl5db.pl#132 edit

Differences ...

==== //depot/perl/lib/perl5db.pl#132 (text) ====
Index: perl/lib/perl5db.pl
--- perl/lib/perl5db.pl#131~32361~	2007-11-17 04:55:15.000000000 -0800
+++ perl/lib/perl5db.pl	2008-04-26 14:58:15.000000000 -0700
@@ -6766,10 +6766,9 @@
 
 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;
End of Patch.

• Change 33751: [patch]perl5db.pl - What I needed to get the forked debugger to work by Rafael Garcia-Suarez