Fix digest invocation.

1 files changed, 4 insertions, 4 deletions

diff --git a/utils/redirector.pl.in b/utils/redirector.pl.in
index 555006374..fb8daf251 100755
--- 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});
     }
 }