use Digest::SHA over Digest::SHA1 since it is core, RT #70092 (Salvatore Bonaccorso)

diff --git a/Changes b/Changes
index 4ab5581..6a47e74 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,5 +1,8 @@
 Revision history for DBIx::Class::Cursor::Cached
 
+1.1.2 5 August 2011 15:47:00
+        - use Digest::SHA over Digest::SHA1 since it is core, RT #70092 (Salvatore Bonaccorso)
+
 1.1.1 30 March 2011 12:17:00
         - use 5.8.1 instead of 5.6.1 (and correctly)
         - bump DBIx::Class dependency (RT#66601)

diff --git a/Makefile.PL b/Makefile.PL
index 8aeba6d..8e8d150 100644 (file)
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -6,7 +6,7 @@ name 'DBIx-Class-Cursor-Cached';
 all_from 'lib/DBIx/Class/Cursor/Cached.pm';
 
 requires 'DBIx::Class' => '0.08124';
-requires 'Digest::SHA1';
+requires 'Digest::SHA';
 requires 'Carp::Clan' => '6.0';
 
 build_requires 'DBD::SQLite' => '1.25';

diff --git a/lib/DBIx/Class/Cursor/Cached.pm b/lib/DBIx/Class/Cursor/Cached.pm
index a69397d..08fc6dd 100644 (file)
--- a/lib/DBIx/Class/Cursor/Cached.pm
+++ b/lib/DBIx/Class/Cursor/Cached.pm
@@ -4,12 +4,12 @@ use strict;
 use warnings;
 use 5.008001;
 use Storable ();
-use Digest::SHA1 ();
+use Digest::SHA ();
 use Carp::Clan qw/^DBIx::Class/;
 
 use vars qw($VERSION);
 
-$VERSION = '1.001001';
+$VERSION = '1.001002';
 
 sub new {
   my $class = shift;
@@ -66,7 +66,7 @@ sub _build_cache_key {
   }
   
   local $Storable::canonical = 1;
-  return Digest::SHA1::sha1_hex(Storable::nfreeze( [ $ref, $conn->{Name}, $conn->{Username} || '' ] ));
+  return Digest::SHA::sha1_hex(Storable::nfreeze( [ $ref, $conn->{Name}, $conn->{Username} || '' ] ));
 
 }