diff options
| author | Jacob Pipkin <j@dawnrazor.net> | 2012-11-04 12:55:53 -0600 |
|---|---|---|
| committer | Jacob Pipkin <j@dawnrazor.net> | 2012-11-04 12:55:53 -0600 |
| commit | e8d07426f592040e945709c1bc574ea3283343f2 (patch) | |
| tree | e13d2ecfe7d10f27a9e77c508ee050d1703e033d /SBO-Lib/lib | |
| parent | fcfc0827c11403f92657e0f279d17646cef213ed (diff) | |
| download | sbotools2-e8d07426f592040e945709c1bc574ea3283343f2.tar.xz | |
rename $info_md5sum to equally clear but more concise $info_md5
Diffstat (limited to 'SBO-Lib/lib')
| -rw-r--r-- | SBO-Lib/lib/SBO/Lib.pm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/SBO-Lib/lib/SBO/Lib.pm b/SBO-Lib/lib/SBO/Lib.pm index b1aa75c..2f5eac6 100644 --- a/SBO-Lib/lib/SBO/Lib.pm +++ b/SBO-Lib/lib/SBO/Lib.pm @@ -402,7 +402,7 @@ sub compute_md5sum ($) { # matches the sbo's .info file sub verify_distfile ($$) { exists $_[1] or script_error 'verify_distfile requires two arguments.'; - my ($link, $info_md5sum) = @_; + my ($link, $info_md5) = @_; my $filename = get_filename_from_link $link; return unless -d $distfiles; return unless -f $filename; @@ -420,7 +420,6 @@ sub get_distfile ($$) { chdir $distfiles; system ("wget --no-check-certificate $link") == 0 or die "Unable to wget $link\n"; - my $md5sum = compute_md5sum $filename; # can't do anything if the link in the .info doesn't lead to a good d/l verify_distfile ($link, $info_md5) ? return 1 : die "md5sum failure for $filename.\n"; |