From: Tomas Doran <bobtfish@bobtfish.net>
Date: Sat, 5 May 2012 14:24:55 +0000 (+0100)
Subject: RT#69811 - Fix SHA1 use
X-Git-Tag: 0.32~5
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7d5ab57c4bd57a60d68b9a02e3971e75cc319565;p=gitmo%2FMooseX-Storage.git

RT#69811 - Fix SHA1 use
---

diff --git a/Changes b/Changes
index 786fa83..2fbc887 100644
--- 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
--- 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
--- 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,
 };