diff options
| -rwxr-xr-x | perl-external/bin/module-manage.pl | 20 | ||||
| -rw-r--r-- | perl-external/notes.txt | 5 |
2 files changed, 6 insertions, 19 deletions
diff --git a/perl-external/bin/module-manage.pl b/perl-external/bin/module-manage.pl index cd9e07996..e810dd95c 100755 --- a/perl-external/bin/module-manage.pl +++ b/perl-external/bin/module-manage.pl @@ -53,31 +53,23 @@ sub add { # try to install the distribution using cpanm my $out = ''; - my $cmd = "cpanm --reinstall $module"; + my $cmd = "cpanm --reinstall --save-dists $minicpan $module"; # print " running '$cmd'\n"; run3( $cmd, undef, \$out, \$out ) || die "Error running '$cmd'"; - my @fetched_urls = - map { s{.*(http://\S+).*}{$1}; $_ } - grep { m{^Fetching http://search.cpan.org} } - split /\n/, $out; - - write_file( $module_list, { append => 1 }, "$module\n" ); - - # write_file( $file_list, { append => 1 }, map { "$_\n" } @fetched_urls ); - sort_files(); - - fetch_all(); - index_minicpan(); - if ( $out =~ m{FAIL} ) { die "\n\n\n" . "ERROR: Something did not build correctly" . " - please see ~/.cpanm/build_log for details" . "\n\n\n"; } + + write_file( $module_list, { append => 1 }, "$module\n" ); + + index_minicpan(); + sort_files(); } sub index_minicpan { diff --git a/perl-external/notes.txt b/perl-external/notes.txt index 84caccd45..d25283f19 100644 --- a/perl-external/notes.txt +++ b/perl-external/notes.txt @@ -9,11 +9,6 @@ Steps to add a module. Find remaining in live file and add to local file - - - -fetch files from backpan if not found on cpan - Create the packages file by stripping out the goodness from live cpan packages file |