| Subject: | Bundle expand |
For the latest CPAN release I needed the following patch with CPAN::SQLite
to properly expand Bundles. The CPAN::Module class cannot find it, only CPAN::Bundle.
Otherwise I get undef.
--- cpan/CPAN/lib/App/Cpan.pm
+++ cpan/CPAN/lib/App/Cpan.pm
@@ -6,7 +6,7 @@ use vars qw($VERSION);
use if $] < 5.008 => 'IO::Scalar';
-$VERSION = '1.64';
+$VERSION = '1.64_01';
=head1 NAME
@@ -1479,8 +1479,8 @@ sub _path_to_module
sub _expand_module
{
my( $module ) = @_;
-
- my $expanded = CPAN::Shell->expand( "Module", $module );
+ my $class = $module =~ /^Bundle::/ ? "Bundle" : "Module";
+ my $expanded = CPAN::Shell->expand( $class, $module );
unless( defined $expanded ) {
$logger->error( "Could not expand [$module]. Check the module name." );
my $threshold = (
--
Reini Urban