perl-dev mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From Torsten Foertsch <torsten.foert...@gmx.net>
Subject APR::Base64 Bug
Date Sun, 22 May 2005 17:18:58 GMT
Hi,

there is something wrong with APR::Base64.

r2@opi:~> perl -MAPR::Base64 -MData::Dumper -e '$x=APR::Base64::encode( "x" ); print "$x\n".Dumper(
[split "", $x] ), "length=".length($x)."\n";'
eA==
$VAR1 = [
          'e',
          'A',
          '=',
          '=',
          ''
        ];
length=5
r2@opi:~> perl -MAPR::Base64 -MData::Dumper -e '$x=APR::Base64::encode( "xxx" ); print
"$x\n".Dumper( [split "", $x] ), "length=".length($x)."\n";'
eHh4
$VAR1 = [
          'e',
          'H',
          'h',
          '4',
          ''
        ];
length=5

In both cases length should be 4 and split("",$x) should return (qw(e a = =)).

Torsten

Mime
View raw message