Change 30143 by [EMAIL PROTECTED] on 2007/02/06 16:42:50
Upgrade to Module-Pluggable-3.5
Affected files ...
... //depot/perl/lib/Module/Pluggable.pm#4 edit
... //depot/perl/lib/Module/Pluggable/Object.pm#4 edit
Differences ...
==== //depot/perl/lib/Module/Pluggable.pm#4 (text) ====
Index: perl/lib/Module/Pluggable.pm
--- perl/lib/Module/Pluggable.pm#3~29404~ 2006-11-28 05:50:37.000000000
-0800
+++ perl/lib/Module/Pluggable.pm 2007-02-06 08:42:50.000000000 -0800
@@ -9,7 +9,7 @@
# Peter Gibbons: I wouldn't say I've been missing it, Bob!
-$VERSION = '3.4';
+$VERSION = '3.5';
sub import {
my $class = shift;
==== //depot/perl/lib/Module/Pluggable/Object.pm#4 (text) ====
Index: perl/lib/Module/Pluggable/Object.pm
--- perl/lib/Module/Pluggable/Object.pm#3~29404~ 2006-11-28
05:50:37.000000000 -0800
+++ perl/lib/Module/Pluggable/Object.pm 2007-02-06 08:42:50.000000000 -0800
@@ -159,7 +159,7 @@
next unless $plugin =~ m!(?:[a-z\d]+)[a-z\d]!i;
- my $err = eval { $self->handle_finding_plugin($plugin) };
+ my $err = $self->handle_finding_plugin($plugin);
carp "Couldn't require $plugin : $err" if $err;
push @plugins, $plugin;
@@ -215,7 +215,7 @@
foreach my $plugin (Devel::InnerPackage::list_packages($path)) {
- my $err = eval { $self->handle_finding_plugin($plugin) };
+ my $err = $self->handle_finding_plugin($plugin);
#next if $err;
#next unless $INC{$plugin};
push @plugins, $plugin;
@@ -228,6 +228,7 @@
sub _require {
my $self = shift;
my $pack = shift;
+ local $@;
eval "CORE::require $pack";
return $@;
}
End of Patch.
