| Subject: | utf-8 flag is not retained |
When storing a scalar value, its utf-8 flag is not stored (or maybe
retrieved in get()). The test case is as follows. There is a similar
report for Cache::Memcached (w/o ::Fast) at
https://rt.cpan.org/Ticket/Display.html?id=28095
#!/usr/bin/perl -w
use strict;
use Test::More tests => 2;
use Cache::Memcached::Fast;
use utf8;
my $memd = Cache::Memcached::Fast->new({
servers => [ '127.0.0.1:11211', ]
});
my $var = 'krteček';
ok(utf8::is_utf8($var));
$memd->set('key', $var);
my $read_var = $memd->get('key');
ok(utf8::is_utf8($read_var));
__END__