Change 33751 by [EMAIL PROTECTED] 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" <[EMAIL PROTECTED]>
Date: Thu, 24 Apr 2008 21:36:51 -0500
Message-id: <[EMAIL PROTECTED]>
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.
