Fix digest invocation.

diff --git a/utils/redirector.pl.in b/utils/redirector.pl.in
index 555006374a923c19802d19e028480b546de5a58f..fb8daf251ff1ead7600d71847c81bd262eeb4e74 100755 (executable)
--- a/utils/redirector.pl.in
+++ b/utils/redirector.pl.in
@@ -186,8 +186,8 @@ sub memcached_check_url {
     my ( $url ) = @_;
 
     my $context = Digest->new("SHA-256");
-
-    return $memd->get(unpack("H*", ($context->hash($url))));
+       $context->update($url);
+    return $memd->get($context->digest());
 }
 
 # Write url to memcached key
@@ -196,8 +196,8 @@ sub memcached_cache_url {
        
     if ($url ne $url_real) {
         my $context = Digest->new("SHA-256");
-
-        $memd->set(unpack("H*", ($context->hash($url))), $url_real, 
+               $context->update($url);
+        $memd->set($context->digest(), $url_real, 
             $cfg{cache_expire});
     }
 }