diff options
| author | John E. Malmberg <wb8tyw@qsl.net> | 2008-04-24 16:36:51 -0500 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2008-04-26 21:58:15 +0000 |
| commit | 216e512e84140c4f1a6711dd28168b2a82c86fd9 (patch) | |
| tree | 33e5077b4bc125da3ca5ac93f04ce8b721bdf491 /lib/perl5db.pl | |
| parent | a26136ef4f31e2fb1d3630b5c3f021c56c89644b (diff) | |
| download | perl-216e512e84140c4f1a6711dd28168b2a82c86fd9.tar.gz | |
[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
Diffstat (limited to 'lib/perl5db.pl')
| -rw-r--r-- | lib/perl5db.pl | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/lib/perl5db.pl b/lib/perl5db.pl index 2167f789a5..a64443babf 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; |