Prefer Digest::SHA over Digest::SHA1

`Digest::SHA` is a core module; `Digest::SHA1` is not.
This commit is contained in:
Richard Hansen 2024-06-03 22:19:45 -04:00
parent a0240345bf
commit 1e1e100d7f

View file

@ -2609,10 +2609,10 @@ Error loading the Perl module Digest::SHA1 or Digest::SHA needed for $why update
On Debian, the package libdigest-sha1-perl or libdigest-sha-perl must be installed.
EOM
}
if ($sha1_loaded) {
Digest::SHA1->import(qw/sha1_hex/);
} elsif ($sha_loaded) {
if ($sha_loaded) {
Digest::SHA->import(qw/sha1_hex/);
} elsif ($sha1_loaded) {
Digest::SHA1->import(qw/sha1_hex/);
}
}
######################################################################