diff options
author | Edmund von der Burg <evdb@mysociety.org> | 2011-06-09 09:44:37 +0100 |
---|---|---|
committer | Edmund von der Burg <evdb@mysociety.org> | 2011-06-09 09:44:37 +0100 |
commit | 2e8c9f4ab19f8db068318239f15f2458dd64aa00 (patch) | |
tree | 28cbce147c80e9efab2d784ad00fe7f8f165e807 | |
parent | ba0bd42476b93908529f63bb8b71135ebf7a86ca (diff) |
Fix missing module needed for module-manage.pl preventing initial run
-rwxr-xr-x | perl-external/bin/module-manage.pl | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/perl-external/bin/module-manage.pl b/perl-external/bin/module-manage.pl index 19e380055..5e826aabf 100755 --- a/perl-external/bin/module-manage.pl +++ b/perl-external/bin/module-manage.pl @@ -8,7 +8,6 @@ use LWP::Simple; use File::Slurp; use Path::Class; use List::MoreUtils 'uniq'; -use CPAN::ParseDistribution; # TODO - 'updates' action that lists packages that could be updated # TODO - add smarts to strip out old packages (could switch to building using files.txt after) @@ -120,6 +119,10 @@ sub index_minicpan { foreach my $missing (@missing_files) { next if $lines_to_add{$missing}; + # do a require here so that this module does not prevent 'setup' from + # being run - needed to install it. + require CPAN::ParseDistribution; + print " Parsing out matches for '$missing'\n"; my ( $A, $B ) = $missing =~ m{^(.)(.)}; |