In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/4d539dcf0dc3ee5f41c62f0575055ad1f4e935d3?hp=d657d9d6ff32d97f728468caa2335cb6d5c1c6cb>
- Log ----------------------------------------------------------------- commit 4d539dcf0dc3ee5f41c62f0575055ad1f4e935d3 Author: Chris 'BinGOs' Williams <[email protected]> Date: Wed Sep 19 12:40:02 2012 +0100 Update CPANPLUS to CPAN version 0.9131 [DELTA] Changes for 0.9131 Tue Sep 18 14:10:16 2012 ================================================ * Add Pod::* modules to reported toolchain modules * Resolve issue with $cb->search() and SQLite source engine ----------------------------------------------------------------------- Summary of changes: Porting/Maintainers.pl | 2 +- cpan/CPANPLUS/lib/CPANPLUS.pm | 2 +- cpan/CPANPLUS/lib/CPANPLUS/Internals.pm | 2 +- .../lib/CPANPLUS/Internals/Constants/Report.pm | 2 ++ .../lib/CPANPLUS/Internals/Source/SQLite.pm | 9 +++++++-- cpan/CPANPLUS/lib/CPANPLUS/Shell/Default.pm | 2 +- 6 files changed, 13 insertions(+), 6 deletions(-) diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl index 3dcdadf..e107f71 100755 --- a/Porting/Maintainers.pl +++ b/Porting/Maintainers.pl @@ -451,7 +451,7 @@ use File::Glob qw(:case); 'CPANPLUS' => { 'MAINTAINER' => 'kane', - 'DISTRIBUTION' => 'BINGOS/CPANPLUS-0.9130.tar.gz', + 'DISTRIBUTION' => 'BINGOS/CPANPLUS-0.9131.tar.gz', 'FILES' => q[cpan/CPANPLUS], 'EXCLUDED' => [ qr{^inc/}, diff --git a/cpan/CPANPLUS/lib/CPANPLUS.pm b/cpan/CPANPLUS/lib/CPANPLUS.pm index e03a3fb..74d2894 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.9130"; #have to hardcode or cpan.org gets unhappy + $VERSION = "0.9131"; #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 37b8596..c91acbd 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.9130"; +$VERSION = "0.9131"; =pod diff --git a/cpan/CPANPLUS/lib/CPANPLUS/Internals/Constants/Report.pm b/cpan/CPANPLUS/lib/CPANPLUS/Internals/Constants/Report.pm index 294de69..b2471b1 100644 --- a/cpan/CPANPLUS/lib/CPANPLUS/Internals/Constants/Report.pm +++ b/cpan/CPANPLUS/lib/CPANPLUS/Internals/Constants/Report.pm @@ -347,6 +347,8 @@ use constant REPORT_TOOLCHAIN_VERSIONS ExtUtils::ParseXS File::Spec Module::Build + Pod::Parser + Pod::Simple Test::Harness Test::More version diff --git a/cpan/CPANPLUS/lib/CPANPLUS/Internals/Source/SQLite.pm b/cpan/CPANPLUS/lib/CPANPLUS/Internals/Source/SQLite.pm index 47bdbeb..6bd3fdb 100644 --- a/cpan/CPANPLUS/lib/CPANPLUS/Internals/Source/SQLite.pm +++ b/cpan/CPANPLUS/lib/CPANPLUS/Internals/Source/SQLite.pm @@ -240,7 +240,6 @@ CPANPLUS::Internals::Source::SQLite - SQLite implementation *$sub = sub { my $self = shift; my %hash = @_; - my $dbh = $self->__sqlite_dbh; my($list,$type); my $tmpl = { @@ -256,9 +255,15 @@ CPANPLUS::Internals::Source::SQLite - SQLite implementation ### we aliased 'module' to 'name', so change that here too $type = 'module' if $type eq 'name'; + my $meth = $table .'_tree'; + + { + my $throw = $self->$meth; + } + + my $dbh = $self->__sqlite_dbh; my $res = $dbh->query( "SELECT * from $table" ); - my $meth = $table .'_tree'; my @rv = map { $self->$meth( $_->{$key} ) } grep { allow( $_->{$type} => $list ) } $res->hashes; diff --git a/cpan/CPANPLUS/lib/CPANPLUS/Shell/Default.pm b/cpan/CPANPLUS/lib/CPANPLUS/Shell/Default.pm index abed7cb..67adde2 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.9130"; + $VERSION = "0.9131"; } load CPANPLUS::Shell; -- Perl5 Master Repository
