projects
/
platform
/
upstream
/
perl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
4a49187
)
Remove extra/useless $@ check after eval { require PadWalker } (which is still checked)
author
Josh ben Jore
<jjore@cpan.org>
Sat, 10 Jul 2010 14:54:32 +0000
(07:54 -0700)
committer
Josh ben Jore
<jjore@cpan.org>
Sat, 10 Jul 2010 19:25:11 +0000
(19:25 +0000)
lib/perl5db.pl
patch
|
blob
|
history
diff --git
a/lib/perl5db.pl
b/lib/perl5db.pl
index
da872e6
..
8159b41
100644
(file)
--- a/
lib/perl5db.pl
+++ b/
lib/perl5db.pl
@@
-8617,7
+8617,7
@@
if PadWalker could be loaded.
=cut
- if (not $text =~ /::/ and eval { require PadWalker }
and not $@
) {
+ if (not $text =~ /::/ and eval { require PadWalker } ) {
my $level = 1;
while (1) {
my @info = caller($level);