Fwd: "use encoding 'utf8'" breaks Net::LDAP::RootDSE

[Eugene Gladchenko]

Alexandre Jousset wrote:

      I wrote a small test app like this:
-------------------------------------------------------
#!/usr/bin/perl -w

use strict;
use utf8;
use encoding 'utf8';

use Net::LDAP;

my $ldap = Net::LDAP->new('localhost', version => 3);

unless ($ldap) {
     die "Could not connect to localhost: $@";
}

my ($dn, $passwd) = ('cn=admin,dc=exemple,dc=com', 'mypass');

my $mesg = $ldap->bind(dn => $dn, password => $passwd);
if ($mesg->is_error) {
     die "LDAP bind failed: " . $mesg->error;
}

print "schema = " . $ldap->schema;
-------------------------------------------------------

And when used like this, it gets an undef'd schema. If I remove the
"use encoding 'utf8';" line, it works ok.

Do you need something else ? Am I doing something wrong ?

Confirmed.

When I add "use encoding 'utf8';" line into my scripts I get

Net::LDAP encountered an error while decoding a response packet from
the server

and

Bad sequence length  at
/usr/local/lib/perl5/site_perl/5.8.7/Convert/ASN1/Debug.pm line 79,
<DATA> line 424.
...
...
Use of uninitialized value in addition (+) at
/usr/local/lib/perl5/site_perl/5.8.7/Convert/ASN1/Debug.pm line 88,
<DATA> line 424.
Use of uninitialized value in printf at
/usr/local/lib/perl5/site_perl/5.8.7/Convert/ASN1/Debug.pm line 94,
<DATA> line 424.
...

in the debug(15) output.

FreeBSD 5.4-RELEASE-p4, perl 5.8.7, Convert::ASN1 0.18, perl-ldap 0.33.

Any ideas?

--
Eugene Gladchenko,
EVG15-RIPE