diff options
Diffstat (limited to 'lib/LXRng')
| -rw-r--r-- | lib/LXRng/Cached.pm | 6 | ||||
| -rw-r--r-- | 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); |