diff options
| author | Arne Georg Gleditsch <arne@gledits.ch> | 2012-06-05 15:54:51 +0200 |
|---|---|---|
| committer | Arne Georg Gleditsch <arne@gledits.ch> | 2012-06-05 15:54:51 +0200 |
| commit | ae900e0759b6564d414697482347a8845681797b (patch) | |
| tree | c8ae9d1e7e77b59e646209117d51a6c25348898f /lib/LXRng/Cached.pm | |
| parent | a844bad0235b0bf6309b37ba5255a5dfb7bd110a (diff) | |
Diffstat (limited to 'lib/LXRng/Cached.pm')
| -rw-r--r-- | lib/LXRng/Cached.pm | 6 |
1 files changed, 3 insertions, 3 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->()]; |