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

[Graham Barr]

Hi,

I hard a hard time tracking this error down, but it seems the two lines in
my code  broke my LDAP CGI script:

use utf8;
use encoding 'utf8';

Example to demonstrate:

# perl -wd -e 'use encoding "utf8";use Net::LDAP; use Net::LDAP::RootDSE'

Loading DB routines from perl5db.pl version 1.27
Editor support available.

Enter h or `h h' for help, or `man perldebug' for more help.

Debugged program terminated.  Use q to quit or R to restart,
  use O inhibit_exit to avoid stopping after program termination,
  h q, h R or h O to get additional info.
  DB<1> $l=new Net::LDAP('ldap')

  DB<2> x $d=$l->root_dse()
0  undef

...

# perl -wd -e 'use Net::LDAP; use Net::LDAP::RootDSE'
Loading DB routines from perl5db.pl version 1.27
Editor support available.

Enter h or `h h' for help, or `man perldebug' for more help.

Debugged program terminated.  Use q to quit or R to restart,
  use O inhibit_exit to avoid stopping after program termination,
  h q, h R or h O to get additional info.
  DB<1> $l=new Net::LDAP('ldap')

  DB<2> x $d=$l->root_dse()
0  Net::LDAP::RootDSE=HASH(0x87ee680)
   'asn' => HASH(0x88189a8)
      'attributes' => ARRAY(0x8819ac0)
         0  HASH(0x881a878)
            'type' => 'namingContexts'
            'vals' => ARRAY(0x881bb58)
               0  'dc=klinik,dc=uni-regensburg,dc=de'
         1  HASH(0x881a89c)
            'type' => 'supportedControl'
            'vals' => ARRAY(0x881c6e4)
               0  '2.16.840.1.113730.3.4.18'
               1  '2.16.840.1.113730.3.4.2'
               2  '1.3.6.1.4.1.4203.1.10.1'
               3  '1.2.840.113556.1.4.1413'
               4  '1.2.840.113556.1.4.1339'
               5  '1.2.840.113556.1.4.319'
               6  '1.2.826.0.1.334810.2.3'
         2  HASH(0x881a7e8)
            'type' => 'supportedExtension'
            'vals' => ARRAY(0x881c7b0)
               0  '1.3.6.1.4.1.1466.20037'
               1  '1.3.6.1.4.1.4203.1.11.1'
               2  '1.3.6.1.4.1.4203.1.11.3'
         3  HASH(0x881bb88)
            'type' => 'supportedLDAPVersion'
            'vals' => ARRAY(0x881c75c)
               0  2
               1  3
         4  HASH(0x881b930)
            'type' => 'supportedSASLMechanisms'
            'vals' => ARRAY(0x881c858)
               0  'GSSAPI'
               1  'DIGEST-MD5'
               2  'CRAM-MD5'
         5  HASH(0x881b954)
            'type' => 'subschemaSubentry'
            'vals' => ARRAY(0x881c798)
               0  'cn=Subschema'
      'objectName' => ''
   'changes' => ARRAY(0x87ee710)
        empty array
   'changetype' => 'modify'

The Version is Net::LDAP is that of SuSE Linux 9.2 (0.29).

Regards,
Ulrich Windl