diff options
| author | Josh ben Jore <jjore@cpan.org> | 2010-07-10 07:52:06 -0700 |
|---|---|---|
| committer | Josh ben Jore <jjore@cpan.org> | 2010-07-10 19:25:11 +0000 |
| commit | 999f23be0835e6ccd8ae052efccda4af3260d475 (patch) | |
| tree | 3aba5ad58966867eff9512d45c3cf359a98fa4d3 /lib/perl5db.pl | |
| parent | bee4b460530bb2a72ada333b929a58f669d30a06 (diff) | |
| download | perl-999f23be0835e6ccd8ae052efccda4af3260d475.tar.gz | |
Promote eval { require( ... )} || die to mere require( ... )
Diffstat (limited to 'lib/perl5db.pl')
| -rw-r--r-- | lib/perl5db.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/perl5db.pl b/lib/perl5db.pl index ffdd73755d..09613a3ac8 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 ); } |