commit bc26eef60ee9661a98ffbc1008e5e5c20de9ee75

Author: Alexey Tourbin <at@altlinux.ru>

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 );

         }