From: Josh ben Jore <jjore@cpan.org>
Date: Sat, 10 Jul 2010 14:52:06 +0000 (-0700)
Subject: Promote eval { require( ... )} || die to mere require( ... )
X-Git-Tag: accepted/trunk/20130322.191538~8515
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=999f23be0835e6ccd8ae052efccda4af3260d475;p=platform%2Fupstream%2Fperl.git

Promote eval { require( ... )} || die to mere require( ... )
---

diff --git a/lib/perl5db.pl b/lib/perl5db.pl
index ffdd737..09613a3 100644
--- a/lib/perl5db.pl
+++ b/lib/perl5db.pl
@@ -6000,7 +6000,7 @@ sub setterm {
     # Load Term::Readline, but quietly; don't debug it and don't trace it.
     local $frame = 0;
     local $doret = -2;
-    eval { require Term::ReadLine } or die $@;
+    require Term::ReadLine;
 
     # If noTTY is set, but we have a TTY name, go ahead and hook up to it.
     if ($notty) {
@@ -6150,7 +6150,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) {
-        eval { require Term::ReadLine } or die $@;
+        require Term::ReadLine;
         if ( !$rl ) {
             $term = Term::ReadLine::Stub->new( 'perldb', $IN, $OUT );
         }