From: Chris Williams <chris@bingosnet.co.uk>
Date: Thu, 12 Nov 2009 22:31:19 +0000 (+0000)
Subject: Updated CPANPLUS to cpan version 0.89_09
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=968682bce14e5963abd216113468bc07e01bce0f;p=p5sagit%2Fp5-mst-13.2.git

Updated CPANPLUS to cpan version 0.89_09

  Changes for 0.89_09     Thu Nov 12 21:54:01 2009
  ================================================
  * Only look for missing prereqs in the output of the last
    set of tests that were run. This resolves RT #51408,
    reported by Andreas Koenig
---

diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl
index 468178a..021eab4 100755
--- a/Porting/Maintainers.pl
+++ b/Porting/Maintainers.pl
@@ -423,7 +423,7 @@ use File::Glob qw(:case);
     'CPANPLUS' =>
 	{
 	'MAINTAINER'	=> 'kane',
-	'DISTRIBUTION'	=> 'BINGOS/CPANPLUS-0.89_08.tar.gz',
+	'DISTRIBUTION'	=> 'BINGOS/CPANPLUS-0.89_09.tar.gz',
 	'FILES'		=> q[cpan/CPANPLUS],
 	'EXCLUDED'	=> [ qr{^inc/},
 			     qr{^t/dummy-.*\.hidden$},
diff --git a/cpan/CPANPLUS/lib/CPANPLUS.pm b/cpan/CPANPLUS/lib/CPANPLUS.pm
index 00e898a..5421106 100644
--- a/cpan/CPANPLUS/lib/CPANPLUS.pm
+++ b/cpan/CPANPLUS/lib/CPANPLUS.pm
@@ -13,7 +13,7 @@ BEGIN {
     use vars        qw( @EXPORT @ISA $VERSION );
     @EXPORT     =   qw( shell fetch get install );
     @ISA        =   qw( Exporter );
-    $VERSION = "0.89_08";     #have to hardcode or cpan.org gets unhappy
+    $VERSION = "0.89_09";     #have to hardcode or cpan.org gets unhappy
 }
 
 ### purely for backward compatibility, so we can call it from the commandline:
diff --git a/cpan/CPANPLUS/lib/CPANPLUS/Internals.pm b/cpan/CPANPLUS/lib/CPANPLUS/Internals.pm
index a6c348f..0715ba9 100644
--- a/cpan/CPANPLUS/lib/CPANPLUS/Internals.pm
+++ b/cpan/CPANPLUS/lib/CPANPLUS/Internals.pm
@@ -42,7 +42,7 @@ use vars qw[@ISA $VERSION];
             CPANPLUS::Internals::Report
         ];
 
-$VERSION = "0.89_08";
+$VERSION = "0.89_09";
 
 =pod
 
diff --git a/cpan/CPANPLUS/lib/CPANPLUS/Internals/Constants/Report.pm b/cpan/CPANPLUS/lib/CPANPLUS/Internals/Constants/Report.pm
index 6ad577c..59a41a6 100644
--- a/cpan/CPANPLUS/lib/CPANPLUS/Internals/Constants/Report.pm
+++ b/cpan/CPANPLUS/lib/CPANPLUS/Internals/Constants/Report.pm
@@ -145,12 +145,13 @@ use constant TEST_FAIL_STAGE
 use constant MISSING_PREREQS_LIST
                             => sub {
                                 my $buffer = shift;
+                                my $last = ( split /\[ERROR\] .+? MAKE TEST/, $buffer )[-1];
                                 my @list = map { s/.pm$//; s|/|::|g; $_ }
-                                    ($buffer =~
+                                    ($last =~
                                         m/\bCan\'t locate (\S+) in \@INC/g);
                                 
                                 ### make sure every missing prereq is only 
-                                ### listed ones
+                                ### listed once
                                 {   my %seen;
                                     @list = grep { !$seen{$_}++ } @list
                                 }
diff --git a/cpan/CPANPLUS/lib/CPANPLUS/Shell/Default.pm b/cpan/CPANPLUS/lib/CPANPLUS/Shell/Default.pm
index 245d32c..eaa9f80 100644
--- a/cpan/CPANPLUS/lib/CPANPLUS/Shell/Default.pm
+++ b/cpan/CPANPLUS/lib/CPANPLUS/Shell/Default.pm
@@ -26,7 +26,7 @@ local $Data::Dumper::Indent     = 1; # for dumpering from !
 BEGIN {
     use vars        qw[ $VERSION @ISA ];
     @ISA        =   qw[ CPANPLUS::Shell::_Base::ReadLine ];
-    $VERSION = "0.89_08";
+    $VERSION = "0.89_09";
 }
 
 load CPANPLUS::Shell;