commit bc26eef60ee9661a98ffbc1008e5e5c20de9ee75 Author: Alexey Tourbin Date: Thu Apr 28 06:28:53 2011 +0400 perl5db.pl: disabled dependencies on Term::ReadLine and Term::Rendezvous diff --git a/lib/perl5db.pl b/lib/perl5db.pl index 707d04d..cba3168 100644 --- a/lib/perl5db.pl +++ b/lib/perl5db.pl @@ -6781,7 +6781,7 @@ sub setterm { # Load Term::Readline, but quietly; don't debug it and don't trace it. local $frame = 0; local $doret = -2; - require Term::ReadLine; + eval { require Term::ReadLine } or die $@; # If noTTY is set, but we have a TTY name, go ahead and hook up to it. if ($notty) { @@ -6797,7 +6797,7 @@ sub setterm { # We don't have a TTY - try to find one via Term::Rendezvous. else { - require Term::Rendezvous; + eval { require Term::Rendezvous } or die $@; # See if we have anything to pass to Term::Rendezvous. # Use $HOME/.perldbtty$$ if not. @@ -6956,7 +6956,7 @@ qq[3>&1 xterm -title "Daughter Perl debugger $pids $name" -e sh -c 'tty 1>&3;\ # We need $term defined or we can not switch to the newly created xterm if ($tty ne '' && !defined $term) { - require Term::ReadLine; + eval { require Term::ReadLine } or die $@; if ( !$rl ) { $term = Term::ReadLine::Stub->new( 'perldb', $IN, $OUT ); }