Update CPANPLUS to CPAN version 0.9115
authorChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Wed, 21 Dec 2011 20:06:41 +0000 (20:06 +0000)
committerChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Wed, 21 Dec 2011 21:07:15 +0000 (21:07 +0000)
  [DELTA]

  Changes for 0.9115      Tue Dec 20 21:10:24 2011
  ================================================
  * Added new config option 'allow_unknown_prereqs'
    to resolve issues with 0.9114 release

Porting/Maintainers.pl
cpan/CPANPLUS/lib/CPANPLUS.pm
cpan/CPANPLUS/lib/CPANPLUS/Config.pm
cpan/CPANPLUS/lib/CPANPLUS/Dist.pm
cpan/CPANPLUS/lib/CPANPLUS/Error.pm
cpan/CPANPLUS/lib/CPANPLUS/Internals.pm
cpan/CPANPLUS/lib/CPANPLUS/Shell/Default.pm
cpan/CPANPLUS/t/inc/conf.pl
pod/perldelta.pod

index 23fcb37..d496029 100755 (executable)
@@ -447,7 +447,7 @@ use File::Glob qw(:case);
 
     'CPANPLUS' => {
         'MAINTAINER'   => 'kane',
-        'DISTRIBUTION' => 'BINGOS/CPANPLUS-0.9114.tar.gz',
+        'DISTRIBUTION' => 'BINGOS/CPANPLUS-0.9115.tar.gz',
         'FILES'        => q[cpan/CPANPLUS],
         'EXCLUDED'     => [
             qr{^inc/},
index 5bea8c3..5c405db 100644 (file)
@@ -13,7 +13,7 @@ BEGIN {
     use vars        qw( @EXPORT @ISA $VERSION );
     @EXPORT     =   qw( shell fetch get install );
     @ISA        =   qw( Exporter );
-    $VERSION = "0.9114";     #have to hardcode or cpan.org gets unhappy
+    $VERSION = "0.9115";     #have to hardcode or cpan.org gets unhappy
 }
 
 ### purely for backward compatibility, so we can call it from the commandline:
index ead0ae7..c734f8a 100644 (file)
@@ -150,6 +150,19 @@ are run interactively or not. Defaults to 'true'.
 
         $Conf->{'conf'}->{'allow_build_interactivity'} = 1;
 
+=item allow_unknown_prereqs
+
+Boolean flag to indicate that unresolvable prereqs are acceptable.
+If C<true> then only warnings will be issued (the behaviour before 0.9114)
+when a module is unresolvable from any our sources (CPAN and/or
+C<custom_sources>). If C<false> then an unresolvable prereq will fail
+during the C<prepare> stage of distribution installation.
+Defaults to C<true>.
+
+=cut
+
+        $Conf->{'conf'}->{'allow_unknown_prereqs'} = 1;
+
 =item base
 
 The directory CPANPLUS keeps all its build and state information in.
index 22af846..73b0d63 100644 (file)
@@ -529,7 +529,7 @@ sub _resolve_prereqs {
     my $conf = $cb->configure_object;
     my %hash = @_;
 
-    my ($prereqs, $format, $verbose, $target, $force, $prereq_build);
+    my ($prereqs, $format, $verbose, $target, $force, $prereq_build,$tolerant);
     my $tmpl = {
         ### XXX perhaps this should not be required, since it may not be
         ### packaged, just installed...
@@ -549,6 +549,8 @@ sub _resolve_prereqs {
         target          => { default => '', store => \$target,
                                 allow => ['',qw[create ignore install]] },
         prereq_build    => { default => 0, store => \$prereq_build },
+        tolerant        => { default => $conf->get_conf('allow_unknown_prereqs'),
+                                store => \$tolerant },
     };
 
     check( $tmpl, \%hash ) or return;
@@ -634,7 +636,7 @@ sub _resolve_prereqs {
             my $core = $sub->( $mod );
             unless ( defined $core ) {
                error( loc( "No such module '%1' found on CPAN", $mod ) );
-               $flag++;
+               $flag++ unless $tolerant;
                next;
             }
             if ( $cb->_vcmp( $version, $core ) > 0 ) {
index ee6cbd8..74acdce 100644 (file)
@@ -143,7 +143,8 @@ local $| = 1;
 $ERROR_FH   = \*STDERR;
 $MSG_FH     = \*STDOUT;
 
-package Log::Message::Handlers;
+package # Hide from Pause
+  Log::Message::Handlers;
 use Carp ();
 
 {
index b0cfc7b..569b06b 100644 (file)
@@ -42,7 +42,7 @@ use vars qw[@ISA $VERSION];
             CPANPLUS::Internals::Report
         ];
 
-$VERSION = "0.9114";
+$VERSION = "0.9115";
 
 =pod
 
index dcc76bf..4ce8bea 100644 (file)
@@ -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.9114";
+    $VERSION = "0.9115";
 }
 
 load CPANPLUS::Shell;
index 4977c39..6608707 100644 (file)
@@ -143,6 +143,7 @@ sub gimme_conf {
     $conf->set_conf( base       => File::Spec->rel2abs(TEST_CONF_CPANPLUS_DIR));
     $conf->set_conf( dist_type  => '' );
     $conf->set_conf( signature  => 0 );
+    $conf->set_conf( allow_unknown_prereqs => 1 ); # just to make sure, eh
     $conf->set_conf( verbose    => 1 ) if $ENV{ $Env };
 
     ### never use a pager in the test suite
index db5a96d..92672e2 100644 (file)
@@ -103,7 +103,7 @@ XXX
 
 =item *
 
-L<XXX> has been upgraded from version 0.69 to version 0.70.
+L<CPANPLUS> has been upgraded from version 0.9113 to version 0.9115.
 
 =back