diff options
| author | Jacob Pipkin <j@dawnrazor.net> | 2012-11-05 03:21:13 -0600 |
|---|---|---|
| committer | Jacob Pipkin <j@dawnrazor.net> | 2012-11-05 03:21:13 -0600 |
| commit | 63db7af11265967d0111c8224aa07c040fb438b9 (patch) | |
| tree | ff7e2669d6e0f012a5ac676dd80d5b711496c070 /SBO-Lib/lib | |
| parent | 62b6156406606a18e9cdbc4fdc52bedae4f21835 (diff) | |
| download | sbotools2-63db7af11265967d0111c8224aa07c040fb438b9.tar.xz | |
git rid of prototype for get_distfile. all tests pass.
Diffstat (limited to 'SBO-Lib/lib')
| -rw-r--r-- | SBO-Lib/lib/SBO/Lib.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/SBO-Lib/lib/SBO/Lib.pm b/SBO-Lib/lib/SBO/Lib.pm index 07e3975..b6acd49 100644 --- a/SBO-Lib/lib/SBO/Lib.pm +++ b/SBO-Lib/lib/SBO/Lib.pm @@ -406,7 +406,7 @@ sub verify_distfile { # for a given distfile, attempt to retrieve it and, if successful, check its # md5sum against that in the sbo's .info file -sub get_distfile ($$) { +sub get_distfile { exists $_[1] or script_error 'get_distfile requires an argument'; my ($link, $info_md5) = @_; my $filename = get_filename_from_link $link; @@ -489,7 +489,7 @@ sub check_distfiles (%) { exists $_[0] or script_error 'check_distfiles requires an argument.'; my %dists = @_; while (my ($link, $md5) = each %dists) { - get_distfile $link, $md5 unless verify_distfile ($link, $md5) + get_distfile ($link, $md5) unless verify_distfile ($link, $md5); } return 1; } |