diff --git a/ddclient.in b/ddclient.in
index 82a4eed..c522451 100755
--- a/ddclient.in
+++ b/ddclient.in
@@ -2123,8 +2123,8 @@ sub init_config {
     # given?
 
     my @protos = map(opt('protocol', $_), keys(%config));
-    my @needs_sha1 = grep({ my $p = $_; grep($_ eq $p, @protos); } qw(freedns nfsn route53));
-    load_sha1_support(join(', ', @needs_sha1)) if @needs_sha1;
+    my @needs_sha = grep({ my $p = $_; grep($_ eq $p, @protos); } qw(freedns nfsn route53));
+    load_sha_support(join(', ', @needs_sha)) if @needs_sha;
     my @needs_json = grep({ my $p = $_; grep($_ eq $p, @protos); }
                           qw(1984 cloudflare digitalocean directnic dnsexit2 gandi godaddy hetzner
                              nfsn njalla porkbun yandex));
@@ -2706,10 +2706,7 @@ sub check_value {
     return $value;
 }
 
-######################################################################
-## load_sha1_support
-######################################################################
-sub load_sha1_support {
+sub load_sha_support {
     my ($protocol) = @_;
     eval { require Digest::SHA; } or fatal(<<"EOM");
 Error loading the Perl module Digest::SHA needed for $protocol update.
diff --git a/t/aws_signed_request.pl b/t/aws_signed_request.pl
index ab061b7..fa58626 100644
--- a/t/aws_signed_request.pl
+++ b/t/aws_signed_request.pl
@@ -2,7 +2,7 @@ use Test::More;
 use ddclient::t;
 SKIP: { eval { require Test::Warnings; } or skip($@, 1); }
 eval { require 'ddclient'; } or BAIL_OUT($@);
-ddclient::load_sha1_support("route53");
+ddclient::load_sha_support("route53");
 
 my $TARGET_REQUEST_HASH = "18edc7204269d65bfa6a075381b0496cdb38166dfc3654207e929c6178d1a1ba";