diff --git a/lib/Simba/CA.pm b/lib/Simba/CA.pm
index 692b6bf..6db94cc 100644
--- a/lib/Simba/CA.pm
+++ b/lib/Simba/CA.pm
@@ -64,7 +64,7 @@ use IPC::Open2;
 use POSIX qw(strftime);
 use Simba::Util qw(quote unquote typestr);
 use Readonly;
-use Digest::SHA1;
+use Digest::SHA;
 use List::Util qw(min);
 use IO::Handle;
 use File::stat;
@@ -741,7 +741,7 @@ sub store_file {
         }
         my $size = $f2->{s};
         my $err;
-        my $sha1 = Digest::SHA1->new;
+        my $sha1 = Digest::SHA->new(1);
 
         while ($size > 0) {
             my $buffer;
diff --git a/lib/Simba/DA.pm b/lib/Simba/DA.pm
index 22766b7..a390b7e 100644
--- a/lib/Simba/DA.pm
+++ b/lib/Simba/DA.pm
@@ -6,7 +6,7 @@ use Encode qw(decode encode);
 use File::Find;
 use File::stat;
 use Readonly;
-use Digest::SHA1;
+use Digest::SHA;
 use List::Util qw(min);
 use IO::Handle;
 use Simba::Util qw(quote unquote typestr);
@@ -186,7 +186,7 @@ sub get {
         $fh_out->print("data $path ", $self->metastr($fn, $st), "\n");
         my $size = $st->size;
         my $err;
-        my $sha1 = Digest::SHA1->new;
+        my $sha1 = Digest::SHA->new(1);
 
         while ($size > 0) {
             my $buffer;