APR::Table lost UTF8 flag

Boris Zentner Thu, 23 Sep 2004 16:42:23 -0700

Hi,

Whenever I store something into a APR::Table I get different data back. Even with a recent mod_perl I use

Server: Apache/2.0.50 (Unix) mod_perl/1.99_16 Perl/v5.8.4 SVN/1.1.0-rc2 mod_ssl/2.0.50 OpenSSL/0.9.7d DAV/2

Here is my prove, call it with http://your_server/something

############################ START ################################
<Perl>
package XX;
use APR::Table;
use Encode;
use APR::Pool;
use Devel::Peek;
use Apache::Const qw/OK/;

sub testHandler : method {
  my $r    = shift;
  my $str  = "\x{f6}\x{e4}\x{fc}";
  my $utf8 = Encode::decode( 'iso-8859-1', $str );
  my $p    = $r->pool->new;
  my $t    = APR::Table::make( $p, 10 );
  $t->set( aa => $str );
  $t->set( bb => $utf8 );
  my $aa       = $t->get('aa');
  my $bb       = $t->get('bb');
  my $messages = '';
  {
    close STDERR;
    open *STDERR, '>', \$messages or die $!;
    Dump $str;
    Dump $utf8;
    Dump $aa;
    Dump $bb;
  }
  print "Content-Type: text/plain; charset=ISO-8859-1\n\n";
  print $messages, "\n", "is $str eq $utf8 ? ",
    ( $str eq $utf8 ? "yes" : "no" ), "\n", "is $utf8 eq $bb ? ",
    ( $utf8 eq $bb ? "yes" : "no" ), "\n";
  Apache::OK();
}
1;

</Perl> <Location /> SetHandler perl-script PerlHandler XX::testHandler </Location> ###################################### END ##############################

This is the output from my system:

Content-Type: text/plain; charset=ISO-8859-1

SV = PV(0x1a48774) at 0x1a5b7a4 REFCNT = 1 FLAGS = (PADBUSY,PADMY,POK,pPOK) PV = 0x2b67550 "\366\344\374"\0 CUR = 3 LEN = 4 SV = PVMG(0x1b17300) at 0x1a48afc REFCNT = 1 FLAGS = (PADBUSY,PADMY,POK,pPOK,UTF8) IV = 0 NV = 0 PV = 0x2b67cc0 "\303\266\303\244\303\274"\0 [UTF8 "\x{f6}\x{e4}\x{fc}"] CUR = 6 LEN = 7 MAGIC = 0x2b67310 MG_VIRTUAL = &PL_vtbl_utf8 MG_TYPE = PERL_MAGIC_utf8(w) MG_LEN = 3 SV = PV(0x1acd900) at 0x1a5d484 REFCNT = 1 FLAGS = (PADBUSY,PADMY,POK,pPOK) PV = 0x2b671d0 "\366\344\374"\0 CUR = 3 LEN = 4 SV = PV(0x1acd8e8) at 0x1a5d4c0 REFCNT = 1 FLAGS = (PADBUSY,PADMY,POK,pPOK) PV = 0x2b67390 "\303\266\303\244\303\274"\0 CUR = 6 LEN = 7

is ��� eq ��� ? yes
is ��� eq öäü ? no


--
Boris


---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

APR::Table lost UTF8 flag

Reply via email to