From 7697c34d09d9e8d225e9be4a9a7efabd16e3306c Mon Sep 17 00:00:00 2001
From: Jacob Pipkin <j@dawnrazor.net>
Date: Sun, 4 Nov 2012 12:37:45 -0600
Subject: ditch prototype for compare_md5s

---
 SBO-Lib/lib/SBO/Lib.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'SBO-Lib/lib/SBO/Lib.pm')

diff --git a/SBO-Lib/lib/SBO/Lib.pm b/SBO-Lib/lib/SBO/Lib.pm
index c579e67..3968c66 100644
--- a/SBO-Lib/lib/SBO/Lib.pm
+++ b/SBO-Lib/lib/SBO/Lib.pm
@@ -398,7 +398,7 @@ sub compute_md5sum ($) {
 	return $md5sum;
 }
 
-sub compare_md5s ($$) {
+sub compare_md5s {
 	exists $_[1] or script_error 'compare_md5s requires two arguments.';
 	my ($first, $second) = @_;
 	return $first eq $second ? 1 : undef;
@@ -413,7 +413,7 @@ sub verify_distfile ($$) {
 	return unless -d $distfiles;
 	return unless -f $filename;
 	my $md5sum = compute_md5sum $filename;
-	return compare_md5s $info_md5sum, $md5sum;
+	return compare_md5s ($info_md5sum, $md5sum);
 }
 
 # for a given distfile, attempt to retrieve it and, if successful, check its
@@ -428,7 +428,7 @@ sub get_distfile ($$) {
 		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
-	compare_md5s $md5sum, $exp_md5 or die "md5sum failure for $filename.\n";
+	compare_md5s ($md5sum, $exp_md5) or die "md5sum failure for $filename.\n";
 	return 1;
 }
 
-- 
cgit v1.2.3