From: Andreas J. Koenig <andk@cpan.org>
Date: Sat, 27 Mar 2010 17:26:44 +0000 (-0400)
Subject: Andreas provided a patch to CPAN::Distribution to deal with a bug in core
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9eafb59736e2d046fbc9fd6762a4ebe03b15288b;p=p5sagit%2Fp5-mst-13.2.git

Andreas provided a patch to CPAN::Distribution to deal with a bug in core
 module deprecation

commit 8b7e29685086feb1e01992478bcb0498f584574c
Author: Andreas J. Koenig <andk@cpan.org>
Date:   Tue Mar 16 08:56:03 2010 +0100

    except deprecated modules from short circuiting, uncovered by
Data::TreeDumper/Class::ISA
---

diff --git a/cpan/CPAN/lib/CPAN/Distribution.pm b/cpan/CPAN/lib/CPAN/Distribution.pm
index a664320..ac8f873 100644
--- a/cpan/CPAN/lib/CPAN/Distribution.pm
+++ b/cpan/CPAN/lib/CPAN/Distribution.pm
@@ -5,7 +5,7 @@ use CPAN::Distroprefs;
 use CPAN::InfoObj;
 @CPAN::Distribution::ISA = qw(CPAN::InfoObj);
 use vars qw($VERSION);
-$VERSION = "1.9456";
+$VERSION = "1.9456_01";
 
 # Accessors
 sub cpan_comment {
@@ -2576,7 +2576,10 @@ sub unsat_prereq {
                      or $need_version eq '0'    # "==" would trigger warning when not numeric
                      or $need_version eq "undef"
                     )) {
-                next NEED;
+                unless ($nmo->inst_deprecated) {                               
+                    next NEED;                                                 
+                }                                                              
+
             }
 
             $available_version = $nmo->available_version;
diff --git a/dist/Module-CoreList/lib/Module/CoreList.pm b/dist/Module-CoreList/lib/Module/CoreList.pm
index 36542a2..df2e90f 100644
--- a/dist/Module-CoreList/lib/Module/CoreList.pm
+++ b/dist/Module-CoreList/lib/Module/CoreList.pm
@@ -13449,7 +13449,7 @@ for my $version ( sort { $a <=> $b } keys %released ) {
 	'CPAN::Complete'        => '5.5',
 	'CPAN::Debug'           => '5.5001',
 	'CPAN::DeferredCode'    => '5.50',
-	'CPAN::Distribution'    => '1.9456',
+	'CPAN::Distribution'    => '1.9456_01',
 	'CPAN::Distroprefs'     => '6',
 	'CPAN::Distrostatus'    => '5.5',
 	'CPAN::Exception::RecursiveDependency'=> '5.5',