Update Module-Pluggable to CPAN version 4.6

  [DELTA]

  2013-01-23 - 4.6
      Add warning about future removal from core

diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl
index ee15089..e8cdc52 100755 (executable)
--- a/Porting/Maintainers.pl
+++ b/Porting/Maintainers.pl
@@ -1301,7 +1301,7 @@ use File::Glob qw(:case);
 
     'Module::Pluggable' => {
         'MAINTAINER'   => 'simonw',
-        'DISTRIBUTION' => 'SIMONW/Module-Pluggable-4.5.tar.gz',
+        'DISTRIBUTION' => 'SIMONW/Module-Pluggable-4.6.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 ee2a5f4..cf28569 100644 (file)
--- a/cpan/Module-Pluggable/lib/Devel/InnerPackage.pm
+++ b/cpan/Module-Pluggable/lib/Devel/InnerPackage.pm
@@ -4,6 +4,8 @@ use strict;
 use base qw(Exporter);
 use vars qw($VERSION @EXPORT_OK);
 
+use if $] > 5.017, 'deprecate';
+
 $VERSION = '0.4';
 @EXPORT_OK = qw(list_packages);
 

diff --git a/cpan/Module-Pluggable/lib/Module/Pluggable.pm b/cpan/Module-Pluggable/lib/Module/Pluggable.pm
index 9217af6..a723dbc 100644 (file)
--- a/cpan/Module-Pluggable/lib/Module/Pluggable.pm
+++ b/cpan/Module-Pluggable/lib/Module/Pluggable.pm
@@ -4,12 +4,14 @@ use strict;
 use vars qw($VERSION $FORCE_SEARCH_ALL_PATHS);
 use Module::Pluggable::Object;
 
+use if $] > 5.017, 'deprecate';
+
 # ObQuote:
 # Bob Porter: Looks like you've been missing a lot of work lately. 
 # Peter Gibbons: I wouldn't say I've been missing it, Bob! 
 
 
-$VERSION = '4.5'; # core release only!
+$VERSION = '4.6'; # core release only!
 $FORCE_SEARCH_ALL_PATHS = 0;
 
 sub import {

diff --git a/cpan/Module-Pluggable/lib/Module/Pluggable/Object.pm b/cpan/Module-Pluggable/lib/Module/Pluggable/Object.pm
index 8e74008..3c198a7 100644 (file)
--- a/cpan/Module-Pluggable/lib/Module/Pluggable/Object.pm
+++ b/cpan/Module-Pluggable/lib/Module/Pluggable/Object.pm
@@ -8,7 +8,9 @@ use Carp qw(croak carp confess);
 use Devel::InnerPackage;
 use vars qw($VERSION);
 
-$VERSION = '4.5';
+use if $] > 5.017, 'deprecate';
+
+$VERSION = '4.6';
 
 
 sub new {