ignoring wide chars in cache keys

git-svn-id: svn://svn.open-ils.org/ILS/trunk@740 dcc99617-32d9-48b4-a31d-7c20da2025e4

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher.pm b/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher.pm
index 90bfcff..09b384e 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher.pm
@@ -65,7 +65,10 @@ sub cachable_wrapper {
        }
 
        my $cache_page = int($cache_args{offset} / $cache_args{cache_page_size});
-       my $cache_key = md5_hex($key_string.$cache_page);
+       my $cache_key;
+       {       use bytes;
+               $cache_key = md5_hex($key_string.$cache_page);
+       }
 
        $log->debug("Key string for cache lookup is $key_string -> $cache_key", DEBUG);
        $log->debug("Cache page is $cache_page", DEBUG);