Re: APR::Table lost UTF8 flag

Hi,

Am 27.09.2004 um 00:03 schrieb Stas Bekman:

> Boris Zentner wrote:
>
> > No, I think the stored strings are correct currently. The example use 
> > latin1 chars that by luck are bellow 256 in utf8. In other words we 
> > can not convert them back. A conversion back and forth is not 
> > possible every-time.
> But how APR::Table is supposed to know whether it should restore the 
> UTF8 flag or not, if it has no place to store it?
I do not know, reserve the first char of each byte sequence as flags?

> How about this solution:
>
> use Devel::Peek;
> use Encode;
> @str = ("Hi " . chr(0x2663), "there");
> for my $str (@str) {
>     print "perl original string:\n";
>     Dump($str);
>     Encode::_utf8_off($str); # simulate set/get to apr::Table
>     print "perl string returned from APR::Table:\n";
>     Dump($str);
>     print "fixed perl string:\n";
>     $str = decode("utf8", $str);
No, the user has to know the encoding for str and he needs to decode by 
itself.
>     Dump($str);
>     print "\n------------\n";
> }
--
Boris