From: Vsevolod Stakhov <vsevolod@highsecure.ru>
Date: Tue, 16 Jun 2015 14:16:53 +0000 (+0100)
Subject: Fix digest invocation.
X-Git-Tag: 0.9.6~12
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=04ec1eaa1ed05dffdcc91041b51d55dda658b6fe;p=thirdparty%2Frspamd.git

Fix digest invocation.
---

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