From ae900e0759b6564d414697482347a8845681797b Mon Sep 17 00:00:00 2001 From: Arne Georg Gleditsch Date: Tue, 5 Jun 2012 15:54:51 +0200 Subject: Digest::SHA1 is now called Digest::SHA, apparently. --- lib/LXRng/Cached.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'lib/LXRng/Cached.pm') 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->()]; -- cgit v1.2.3