Update Module-Pluggable to CPAN version 4.0
authorChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Tue, 3 Jan 2012 21:01:46 +0000 (21:01 +0000)
committerChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Tue, 3 Jan 2012 21:01:46 +0000 (21:01 +0000)
  [DELTA]

  No change log found for 4.0 release

Porting/Maintainers.pl
cpan/Module-Pluggable/lib/Devel/InnerPackage.pm
cpan/Module-Pluggable/lib/Module/Pluggable.pm
pod/perldelta.pod

index 40f28cc..886ad43 100755 (executable)
@@ -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'],
index 614a59a..69f8dca 100644 (file)
@@ -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}::"} ) {
index bbdb49b..55cf726 100644 (file)
@@ -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;
index daeafc8..b50f817 100644 (file)
@@ -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