From ae900e0759b6564d414697482347a8845681797b Mon Sep 17 00:00:00 2001
From: Arne Georg Gleditsch <arne@gledits.ch>
Date: Tue, 5 Jun 2012 15:54:51 +0200
Subject: Digest::SHA1 is now called Digest::SHA, apparently.

---
 lib/LXRng/Cached.pm | 6 +++---
 lib/LXRng/Web.pm    | 2 +-
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/lib/LXRng/Cached.pm b/lib/LXRng/Cached.pm
index e713700..1af3609 100644
--- a/lib/LXRng/Cached.pm
+++ b/lib/LXRng/Cached.pm
@@ -30,11 +30,11 @@ use vars qw($memcached $has_memcached $nspace @ISA @EXPORT);
 BEGIN {
     eval { require Cache::Memcached;
 	   require Storable;
-	   require Digest::SHA1;
+	   require Digest::SHA;
        };
     if ($@ eq '') {
 	$has_memcached = 1;
-	$nspace = substr(Digest::SHA1::sha1_hex($LXRng::ROOT), 0, 8);
+	$nspace = substr(Digest::SHA::sha1_hex($LXRng::ROOT), 0, 8);
     }
 }
 
@@ -77,7 +77,7 @@ sub LXRng_Cached_cached(&;@) {
 	}
 	$params = Storable::freeze(\@args);
 
-	my $key = Digest::SHA1::sha1_hex(join("\0", $file, $line, $params));
+	my $key = Digest::SHA::sha1_hex(join("\0", $file, $line, $params));
 	my $val = LXRng::Cached::handle->get($key);
 	unless ($val) {
 	    $val = [$func->()];
diff --git a/lib/LXRng/Web.pm b/lib/LXRng/Web.pm
index 46b741f..a71834d 100644
--- a/lib/LXRng/Web.pm
+++ b/lib/LXRng/Web.pm
@@ -31,7 +31,7 @@ use Subst::Complex;
 
 use Template;
 use IO::Handle;
-use Digest::SHA1 qw(sha1_hex);
+use Digest::SHA qw(sha1_hex);
 use CGI::Ajax;
 use File::Temp qw(tempdir tempfile);
 use File::Path qw(mkpath);
-- 
cgit v1.2.3