RT#69811 - Fix SHA1 use

diff --git a/Changes b/Changes
index 786fa83..2fbc887 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,5 +1,8 @@
 Revision history for MooseX-Storage
 
+ * Change to use core Digest and Digest::SHA dists, rather than Digest::SHA1.
+   RT##69811
+
 0.31
   * Add example for add_custom_type_handler to the MooseX::Storage::Engine docs. (perigrin)
 

diff --git a/lib/MooseX/Storage/Base/WithChecksum.pm b/lib/MooseX/Storage/Base/WithChecksum.pm
index 2227a2b..17f3101 100644 (file)
--- a/lib/MooseX/Storage/Base/WithChecksum.pm
+++ b/lib/MooseX/Storage/Base/WithChecksum.pm
@@ -85,7 +85,7 @@ sub _digest_object {
         }
     }
     else {
-        return Digest->new($d || "SHA1", @args);
+        return Digest->new($d || "SHA-1", @args);
     }
 }
 

diff --git a/t/030_with_checksum.t b/t/030_with_checksum.t
index eee46db..0a36b3c 100644 (file)
--- a/t/030_with_checksum.t
+++ b/t/030_with_checksum.t
@@ -9,7 +9,7 @@ use Test::Deep;
 
 use Test::Requires {
     'Digest' => 0.01, # skip all if not installed
-    'Digest::SHA1' => 0.01,
+    'Digest::SHA' => 0.00,
     'JSON::Any' => 0.01,
 };