From b8aa76214ee16647bab0c30d9d1ab9e3ead9faea Mon Sep 17 00:00:00 2001 From: wimpunk Date: Tue, 14 May 2013 19:10:05 +0000 Subject: [PATCH] Adding sha1-patch provided by pirast in [9742ac09] git-svn-id: svn+ssh://svn.code.sf.net/p/ddclient/code/trunk@152 3873ddee-7413-0410-b6c4-c2c57c1ab35a --- ddclient | 13 +++++++++---- 1 file changed, 9 insertions(+), 4 deletions(-) diff --git a/ddclient b/ddclient index 9eec957..4d02adc 100755 --- a/ddclient +++ b/ddclient @@ -1789,13 +1789,18 @@ EOM ###################################################################### sub load_sha1_support { my $sha1_loaded = eval {require Digest::SHA1}; - unless ($sha1_loaded) { + my $sha_loaded = eval {require Digest::SHA}; + unless ($sha1_loaded || $sha_loaded) { fatal(<<"EOM"); -Error loading the Perl module Digest::SHA1 needed for freedns update. -On Debian, the package libdigest-sha1-perl must be installed. +Error loading the Perl module Digest::SHA1 or Digest::SHA needed for freedns update. +On Debian, the package libdigest-sha1-perl or libdigest-sha-perl must be installed. EOM } - import Digest::SHA1 (qw/sha1_hex/); + if($sha1_loaded) { + import Digest::SHA1 (qw/sha1_hex/); + } elsif($sha_loaded) { + import Digest::SHA (qw/sha1_hex/); + } } ###################################################################### ## geturl