APR::Base64 Bug

[Torsten Foertsch]

Hi,

there is something wrong with APR::Base64.

[EMAIL PROTECTED]:~> 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
[EMAIL PROTECTED]:~> 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

pgpIeoNgozeAY.pgp
Description: PGP signature