[perl.git] branch blead, updated. v5.15.6-378-g4e6ab4a

In perl.git, the branch blead has been updated

<http://perl5.git.perl.org/perl.git/commitdiff/4e6ab4ad4b945939f13a6619c54a969c2e1fb74a?hp=d4844813c9e0fba779ebe017575e81de954ec93b>

- Log -----------------------------------------------------------------
commit 4e6ab4ad4b945939f13a6619c54a969c2e1fb74a
Author: Chris 'BinGOs' Williams <chris@bingosnet.co.uk>
Date:   Tue Jan 3 21:01:46 2012 +0000

    Update Module-Pluggable to CPAN version 4.0
    
      [DELTA]
    
      No change log found for 4.0 release
-----------------------------------------------------------------------

Summary of changes:
 Porting/Maintainers.pl                          |    2 +-
 cpan/Module-Pluggable/lib/Devel/InnerPackage.pm |    6 +++---
 cpan/Module-Pluggable/lib/Module/Pluggable.pm   |    2 +-
 pod/perldelta.pod                               |    4 ++++
 4 files changed, 9 insertions(+), 5 deletions(-)

diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl
index 40f28cc..886ad43 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 614a59a..69f8dca 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 bbdb49b..55cf726 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 daeafc8..b50f817 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

--
Perl5 Master Repository

• [perl.git] branch blead, updated. v5.15.6-378-g4e6ab4a by Chris 'Bingos' Williams