Changeset 820

Timestamp:

08/29/09 01:57:27 (3 months ago)

Author:

athomason

Message:

The key reconstituted from server by get_multi won't have utf8 on, so turn it off on input scalar to allow hash lookup to succeed.

Location:

trunk/api/perl

Files:

• lib/Cache/Memcached.pm (modified) (2 diffs)
• t/06_utf8_key.t (added)

trunk/api/perl/lib/Cache/Memcached.pm

@@ -19 +19 @@
 use Errno qw( EINPROGRESS EWOULDBLOCK EISCONN );
 use Cache::Memcached::GetParser;
+use Encode ();
 use fields qw{
     debug no_rehash stats compress_threshold compress_enable stat_callback
@@ -548 +549 @@
     my $r = $self->get_multi($key);
     my $kval = ref $key ? $key->[1] : $key;
+
+    # key reconstituted from server won't have utf8 on, so turn it off on input
+    # scalar to allow hash lookup to succeed
+    Encode::_utf8_off($kval) if Encode::is_utf8($kval);
+
     return $r->{$kval};
 }