diff options
| author | Andreas Guldstrand <andreas.guldstrand@gmail.com> | 2015-11-19 14:15:12 +0100 |
|---|---|---|
| committer | Andreas Guldstrand <andreas.guldstrand@gmail.com> | 2015-11-19 14:15:12 +0100 |
| commit | 446aa59e3c96cdbac09248024d462d50c9c303b2 (patch) | |
| tree | bbbc67b0e157f928af79db05bb4f82412c76330c | |
| parent | 285a4f40a00166c791bbc28e723b8ecc5ff80832 (diff) | |
| download | sbotools2-446aa59e3c96cdbac09248024d462d50c9c303b2.tar.xz | |
get_distfile needs 2 arguments, checks for 2 arguments, but error message was about 1
| -rw-r--r-- | SBO-Lib/lib/SBO/Lib.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/SBO-Lib/lib/SBO/Lib.pm b/SBO-Lib/lib/SBO/Lib.pm index 358ea15..7eba745 100644 --- a/SBO-Lib/lib/SBO/Lib.pm +++ b/SBO-Lib/lib/SBO/Lib.pm @@ -504,7 +504,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 { - exists $_[1] or script_error('get_distfile requires an argument'); + exists $_[1] or script_error('get_distfile requires two arguments'); my ($link, $info_md5) = @_; my $filename = get_filename_from_link($link); mkdir $distfiles unless -d $distfiles; |