diff options
| -rwxr-xr-x | Porting/Maintainers.pl | 2 | ||||
| -rw-r--r-- | cpan/Module-Pluggable/lib/Devel/InnerPackage.pm | 6 | ||||
| -rw-r--r-- | cpan/Module-Pluggable/lib/Module/Pluggable.pm | 2 | ||||
| -rw-r--r-- | pod/perldelta.pod | 4 |
4 files changed, 9 insertions, 5 deletions
diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl index 40f28ccda6..886ad43746 100755 --- a/Porting/Maintainers.pl +++ b/Porting/Maintainers.pl @@ -1281,7 +1281,7 @@ use File::Glob qw(:case); 'Module::Pluggable' => { 'MAINTAINER' => 'simonw', - 'DISTRIBUTION' => 'SIMONW/Module-Pluggable-3.9.tar.gz', + 'DISTRIBUTION' => 'SIMONW/Module-Pluggable-4.0.tar.gz', 'FILES' => q[cpan/Module-Pluggable], 'UPSTREAM' => 'cpan', 'CUSTOMIZED' => ['Makefile.PL'], diff --git a/cpan/Module-Pluggable/lib/Devel/InnerPackage.pm b/cpan/Module-Pluggable/lib/Devel/InnerPackage.pm index 614a59a85e..69f8dcaa44 100644 --- a/cpan/Module-Pluggable/lib/Devel/InnerPackage.pm +++ b/cpan/Module-Pluggable/lib/Devel/InnerPackage.pm @@ -4,7 +4,7 @@ use strict; use base qw(Exporter); use vars qw($VERSION @EXPORT_OK); -$VERSION = '0.3'; +$VERSION = '0.4'; @EXPORT_OK = qw(list_packages); =pod @@ -83,12 +83,12 @@ sub list_packages { sub _loaded { my ($class, $name) = @_; - no strict 'refs'; + no strict 'refs'; # Handle by far the two most common cases # This is very fast and handles 99% of cases. return 1 if defined ${"${name}::VERSION"}; - return 1 if defined @{"${name}::ISA"}; + return 1 if @{"${name}::ISA"}; # Are there any symbol table entries other than other namespaces foreach ( keys %{"${name}::"} ) { diff --git a/cpan/Module-Pluggable/lib/Module/Pluggable.pm b/cpan/Module-Pluggable/lib/Module/Pluggable.pm index bbdb49b6bc..55cf7269e7 100644 --- a/cpan/Module-Pluggable/lib/Module/Pluggable.pm +++ b/cpan/Module-Pluggable/lib/Module/Pluggable.pm @@ -9,7 +9,7 @@ use Module::Pluggable::Object; # Peter Gibbons: I wouldn't say I've been missing it, Bob! -$VERSION = '3.9'; +$VERSION = '4.0'; sub import { my $class = shift; diff --git a/pod/perldelta.pod b/pod/perldelta.pod index daeafc8172..b50f817234 100644 --- a/pod/perldelta.pod +++ b/pod/perldelta.pod @@ -203,6 +203,10 @@ and the same. =item * +L<Module::Pluggable> has been upgraded from version 3.9 to version 4.0. + +=item * + L<POSIX> has been upgraded from version 1.27 to version 1.28. C<sigsuspend> and C<pause> now run signals handle before returning, as the |