diff options
Diffstat (limited to 'Master/tlpkg/TeXLive')
| -rw-r--r-- | Master/tlpkg/TeXLive/TLConfig.pm | 3 | ||||
| -rw-r--r-- | Master/tlpkg/TeXLive/TLUtils.pm | 6 |
2 files changed, 6 insertions, 3 deletions
diff --git a/Master/tlpkg/TeXLive/TLConfig.pm b/Master/tlpkg/TeXLive/TLConfig.pm index 1242ce98b30..27bafd41df5 100644 --- a/Master/tlpkg/TeXLive/TLConfig.pm +++ b/Master/tlpkg/TeXLive/TLConfig.pm @@ -52,6 +52,7 @@ BEGIN { $F_OK $F_WARNING $F_ERROR $F_NOPOSTACTION $ChecksumLength $ChecksumProgram + $ChecksumExtension ); @EXPORT = @EXPORT_OK; } @@ -224,6 +225,8 @@ $ChecksumLength = 128; # argument $ChecksumProgram = "sha512sum"; +# The extension of the checksum file +$ChecksumExtension = "sha512"; 1; diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm index 115b98cb6dd..72c01ef7713 100644 --- a/Master/tlpkg/TeXLive/TLUtils.pm +++ b/Master/tlpkg/TeXLive/TLUtils.pm @@ -3747,8 +3747,8 @@ sub download_to_temp_or_file { =item C<< verify_download($file, $url) >> -Verifies a download of C<$url> into C<$file> by checking C<$url.checksum> -and if gpg is available, verifying that with C<$url.checksum.asc>. +Verifies a download of C<$url> into C<$file> by checking C<$url.sha512> +and if gpg is available, verifying that with C<$url.sha512.asc>. Returns 0 on success, -1 on connection error, 1 on checksum error. In case of errors returns an informal message as second argument. @@ -3758,7 +3758,7 @@ In case of errors returns an informal message as second argument. sub verify_download { my ($file, $url) = @_; # download checksum file - my $checksum_url = "$url.checksum"; + my $checksum_url = "$url.$TeXLive::TLConfig::ChecksumExtension"; my $signature_url = "$checksum_url.asc"; my $checksum_file = download_to_temp_or_file($checksum_url); |