diff options
| author | Edmund von der Burg <evdb@mysociety.org> | 2011-05-19 18:53:48 +0100 |
|---|---|---|
| committer | Edmund von der Burg <evdb@mysociety.org> | 2011-05-19 18:53:48 +0100 |
| commit | 5a7a1f0d1d7a58f74910ea7633df678e62dd6b1d (patch) | |
| tree | 502ae99ad007cd2da2af6c3ca4f17c01c46970e0 | |
| parent | 6daf48fb85c99f11cc508c1d7f1add829f327ad1 (diff) | |
Clearer messages
| -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 17c0db8da..187340da8 100755 --- a/perl-external/bin/module-manage.pl +++ b/perl-external/bin/module-manage.pl @@ -9,6 +9,9 @@ use File::Slurp; use Path::Class; use List::MoreUtils 'uniq'; +# 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) + my $root_dir = file(__FILE__)->dir->parent->absolute->stringify; my $module_list = "$root_dir/modules.txt"; my $file_list = "$root_dir/files.txt"; @@ -204,7 +207,7 @@ sub fetch { my $url = shift @urls; # try to fetch - print " Trying '$url'...\n"; + print " Fetching '$url'...\n"; last if is_success( getstore( $url, "$destination" ) ); # if more options try again |