diff -ur gnupod-0.99.8.orig/configure gnupod-0.99.8/configure
--- a/configure	2009-08-04 05:49:56.000000000 +0000
+++ b/configure	2017-07-30 11:37:29.708161021 +0000
@@ -1771,7 +1771,7 @@
 exit 1
 fi
 
-ALL_MODULES="Digest::MD5 Digest::SHA1 XML::Parser Unicode::String MP3::Info File::Copy Date::Parse Date::Format Data::Dumper"
+ALL_MODULES="Digest::MD5 Digest::SHA XML::Parser Unicode::String MP3::Info File::Copy Date::Parse Date::Format Data::Dumper"
 OPT_MODULES="Audio::FLAC::Header Ogg::Vorbis::Header::PurePerl Date::Manip"
 
 ###IFS=" " Not needed with new autoconf?!
diff -ur gnupod-0.99.8.orig/configure.ac gnupod-0.99.8/configure.ac
--- a/configure.ac	2009-07-10 23:20:05.000000000 +0000
+++ b/configure.ac	2017-07-30 11:37:29.708161021 +0000
@@ -18,7 +18,7 @@
 fi
 
 dnl Basic modules
-ALL_MODULES="Digest::MD5 Digest::SHA1 XML::Parser Unicode::String MP3::Info File::Copy Date::Parse Date::Format Data::Dumper"
+ALL_MODULES="Digest::MD5 Digest::SHA XML::Parser Unicode::String MP3::Info File::Copy Date::Parse Date::Format Data::Dumper"
 OPT_MODULES="Audio::FLAC::Header Ogg::Vorbis::Header::PurePerl Date::Manip"
 
 dnl Ugly check for modules
diff -ur gnupod-0.99.8.orig/src/ext/Hash58.pm gnupod-0.99.8/src/ext/Hash58.pm
--- a/src/ext/Hash58.pm	2009-07-10 23:20:05.000000000 +0000
+++ b/src/ext/Hash58.pm	2017-07-30 11:37:29.712161039 +0000
@@ -22,7 +22,7 @@
 #    along with this program.  If not, see <http://www.gnu.org/licenses/>.#
 
 use strict;
-use Digest::SHA1;
+use Digest::SHA;
 
 use constant OFFSET_UNK30  => 0x30;     # Will set this to 1
 use constant OFFSET_DBID   => 0x18;     # Offset of dbid, we need to blank it out
@@ -122,7 +122,7 @@
 	my $brain = _PrepareItunes(FD=>*ITUNES);                               # Blank out some offsets in iTunesDB
 
 	Hmac($key,64,0x36);                                                    # Create HMAC for $key
-	$sha1 = Digest::SHA1->new;                                             # SHA1-Round1
+	$sha1 = Digest::SHA->new;                                             # SHA1-Round1
 	$sha1->add(_ArrayRefToString($key));                                   # -> Add HMACed $key
 	$sha1->addfile(*ITUNES);                                               # -> Add iTunesDB with some blanks
 	$phash = $sha1->digest;                                                # -> this is the phash
@@ -162,7 +162,7 @@
 		$y->[$i] = $inv_table->[$y->[$i]];
 	}
 	
-	my $sha1 = Digest::SHA1->new;
+	my $sha1 = Digest::SHA->new;
 	   $sha1->add(_ArrayRefToString($fixed));
 	   $sha1->add(_ArrayRefToString($y));