Thread: Net::LDAP with perl 5.6

perl-ldap-dev

Net::LDAP with perl 5.6

From: Michael P. S. <mso...@no...> - 2002-02-26 16:36:07

    Hello,

    I'm currently trying to use the perl-ldap modules, and I'm running into a
problem. I have three different installations, all version 0.25. Two of them
are on HP-UX 10.20 with Perl 5.005_02 and Perl 5.6. The last is Linux with
Perl 5.6. 
    On HP-UX with Perl 5.005_02, it works fine. Unfortunately, in both cases
with Perl 5.6, the bind is returning nothing. 

main::(-e:1):   0
  DB<1> use Net::LDAP

  DB<2> $ldap = Net::LDAP->new('ldap-carling2.ca.nortel.com')

  DB<3> x $ldap
0  Net::LDAP=HASH(0x84b530c)
   'net_ldap_async' => 0
   'net_ldap_debug' => 0
   'net_ldap_host' => 'ldap-carling2.ca.nortel.com'
   'net_ldap_resp' => HASH(0x81e9f70)
        empty hash
   'net_ldap_socket' => IO::Socket::INET=GLOB(0x84b7184)
      -> 
            FileHandle({*Symbol::GEN0}) => fileno(3)
   'net_ldap_version' => 2
  DB<4> $mesg = $ldap->bind

  DB<5> x $mesg
0  undef
  DB<6> x $ldap
0  undef

    With the Perl 5.005_02 build on HP-UX, it works fine. 

    Any ideas?

    Mike

-- 
Michael P. Soulier, QX41, SKY  Tel: 613-765-4699 (ESN: 39-54699)
Optical Networks, Nortel Networks, SDE Pegasus
"...the word HACK is used as a verb to indicate a massive amount
of nerd-like effort."  -Harley Hahn, A Student's Guide to Unix

[Fwd] Net::LDAP with perl 5.6

From: Graham B. <gb...@po...> - 2002-02-26 16:37:17

----- Forwarded message from "Michael P. Soulier" <mso...@no...> -----

Date: Tue, 26 Feb 2002 11:35:15 -0500
To: gb...@po...
From: "Michael P. Soulier" <mso...@no...>
Subject: Net::LDAP with perl 5.6

    Hello,

    I'm currently trying to use the perl-ldap modules, and I'm running into a
problem. I have three different installations, all version 0.25. Two of them
are on HP-UX 10.20 with Perl 5.005_02 and Perl 5.6. The last is Linux with
Perl 5.6. 
    On HP-UX with Perl 5.005_02, it works fine. Unfortunately, in both cases
with Perl 5.6, the bind is returning nothing. 

main::(-e:1):   0
  DB<1> use Net::LDAP

  DB<2> $ldap = Net::LDAP->new('ldap-carling2.ca.nortel.com')

  DB<3> x $ldap
0  Net::LDAP=HASH(0x84b530c)
   'net_ldap_async' => 0
   'net_ldap_debug' => 0
   'net_ldap_host' => 'ldap-carling2.ca.nortel.com'
   'net_ldap_resp' => HASH(0x81e9f70)
        empty hash
   'net_ldap_socket' => IO::Socket::INET=GLOB(0x84b7184)
      -> 
            FileHandle({*Symbol::GEN0}) => fileno(3)
   'net_ldap_version' => 2
  DB<4> $mesg = $ldap->bind

  DB<5> x $mesg
0  undef
  DB<6> x $ldap
0  undef

    With the Perl 5.005_02 build on HP-UX, it works fine. 

    Any ideas?

    Mike

-- 
Michael P. Soulier, QX41, SKY  Tel: 613-765-4699 (ESN: 39-54699)
Optical Networks, Nortel Networks, SDE Pegasus
"...the word HACK is used as a verb to indicate a massive amount
of nerd-like effort."  -Harley Hahn, A Student's Guide to Unix

----- End forwarded message -----

Re: Net::LDAP with perl 5.6

From: Michael P. S. <mso...@no...> - 2002-02-27 21:47:39

    Well, back to Net::LDAPapi I guess... Unless anyone has any ideas. 

    Mike

On Tue, Feb 26, 2002 at 11:35:55AM -0500, Soulier, Michael [SKY:QX41:EXCH] wrote:
>     Hello,
> 
>     I'm currently trying to use the perl-ldap modules, and I'm running into a
> problem. I have three different installations, all version 0.25. Two of them
> are on HP-UX 10.20 with Perl 5.005_02 and Perl 5.6. The last is Linux with
> Perl 5.6. 
>     On HP-UX with Perl 5.005_02, it works fine. Unfortunately, in both cases
> with Perl 5.6, the bind is returning nothing. 
> 
> main::(-e:1):   0
>   DB<1> use Net::LDAP
> 
>   DB<2> $ldap = Net::LDAP->new('ldap-carling2.ca.nortel.com')
> 
>   DB<3> x $ldap
> 0  Net::LDAP=HASH(0x84b530c)
>    'net_ldap_async' => 0
>    'net_ldap_debug' => 0
>    'net_ldap_host' => 'ldap-carling2.ca.nortel.com'
>    'net_ldap_resp' => HASH(0x81e9f70)
>         empty hash
>    'net_ldap_socket' => IO::Socket::INET=GLOB(0x84b7184)
>       -> 
>             FileHandle({*Symbol::GEN0}) => fileno(3)
>    'net_ldap_version' => 2
>   DB<4> $mesg = $ldap->bind
> 
>   DB<5> x $mesg
> 0  undef
>   DB<6> x $ldap
> 0  undef
> 
>     With the Perl 5.005_02 build on HP-UX, it works fine. 
> 
>     Any ideas?
> 
>     Mike
> 
> -- 
> Michael P. Soulier, QX41, SKY  Tel: 613-765-4699 (ESN: 39-54699)
> Optical Networks, Nortel Networks, SDE Pegasus
> "...the word HACK is used as a verb to indicate a massive amount
> of nerd-like effort."  -Harley Hahn, A Student's Guide to Unix

-- 
Michael P. Soulier, QX41, SKY  Tel: 613-765-4699 (ESN: 39-54699)
Optical Networks, Nortel Networks, SDE Pegasus
"...the word HACK is used as a verb to indicate a massive amount
of nerd-like effort."  -Harley Hahn, A Student's Guide to Unix

Re: Net::LDAP with perl 5.6

From: Michael P. S. <mso...@no...> - 2002-02-27 22:22:34

    Oh, and I just tried it with v5.005_02, v5.6.0, and v5.6.1. It only works
with v5.005_02. 

    Mike

On Wed, Feb 27, 2002 at 04:47:23PM -0500, Soulier, Michael [SKY:QX41:EXCH] wrote:
> 
>     Well, back to Net::LDAPapi I guess... Unless anyone has any ideas. 
> 
>     Mike
> 
> On Tue, Feb 26, 2002 at 11:35:55AM -0500, Soulier, Michael [SKY:QX41:EXCH] wrote:
> >     Hello,
> > 
> >     I'm currently trying to use the perl-ldap modules, and I'm running into a
> > problem. I have three different installations, all version 0.25. Two of them
> > are on HP-UX 10.20 with Perl 5.005_02 and Perl 5.6. The last is Linux with
> > Perl 5.6. 
> >     On HP-UX with Perl 5.005_02, it works fine. Unfortunately, in both cases
> > with Perl 5.6, the bind is returning nothing. 
> > 
> > main::(-e:1):   0
> >   DB<1> use Net::LDAP
> > 
> >   DB<2> $ldap = Net::LDAP->new('ldap-carling2.ca.nortel.com')
> > 
> >   DB<3> x $ldap
> > 0  Net::LDAP=HASH(0x84b530c)
> >    'net_ldap_async' => 0
> >    'net_ldap_debug' => 0
> >    'net_ldap_host' => 'ldap-carling2.ca.nortel.com'
> >    'net_ldap_resp' => HASH(0x81e9f70)
> >         empty hash
> >    'net_ldap_socket' => IO::Socket::INET=GLOB(0x84b7184)
> >       -> 
> >             FileHandle({*Symbol::GEN0}) => fileno(3)
> >    'net_ldap_version' => 2
> >   DB<4> $mesg = $ldap->bind
> > 
> >   DB<5> x $mesg
> > 0  undef
> >   DB<6> x $ldap
> > 0  undef
> > 
> >     With the Perl 5.005_02 build on HP-UX, it works fine. 
> > 
> >     Any ideas?
> > 
> >     Mike
> > 
> > -- 
> > Michael P. Soulier, QX41, SKY  Tel: 613-765-4699 (ESN: 39-54699)
> > Optical Networks, Nortel Networks, SDE Pegasus
> > "...the word HACK is used as a verb to indicate a massive amount
> > of nerd-like effort."  -Harley Hahn, A Student's Guide to Unix
> 
> -- 
> Michael P. Soulier, QX41, SKY  Tel: 613-765-4699 (ESN: 39-54699)
> Optical Networks, Nortel Networks, SDE Pegasus
> "...the word HACK is used as a verb to indicate a massive amount
> of nerd-like effort."  -Harley Hahn, A Student's Guide to Unix

-- 
Michael P. Soulier, QX41, SKY  Tel: 613-765-4699 (ESN: 39-54699)
Optical Networks, Nortel Networks, SDE Pegasus
"...the word HACK is used as a verb to indicate a massive amount
of nerd-like effort."  -Harley Hahn, A Student's Guide to Unix

Re: Net::LDAP with perl 5.6

From: Graham B. <gb...@po...> - 2002-02-27 22:35:50

It seems very odd that $ldap should become undef after calling a
method on it. Net::LDAP could not do that if it tried (if $ldap was
lexical), which means maybe you have a perl config where Net::DAP
tickles a bug.

Graham.


On Wed, Feb 27, 2002 at 05:22:12PM -0500, Michael P. Soulier wrote:
> 
>     Oh, and I just tried it with v5.005_02, v5.6.0, and v5.6.1. It only works
> with v5.005_02. 
> 
>     Mike
> 
> On Wed, Feb 27, 2002 at 04:47:23PM -0500, Soulier, Michael [SKY:QX41:EXCH] wrote:
> > 
> >     Well, back to Net::LDAPapi I guess... Unless anyone has any ideas. 
> > 
> >     Mike
> > 
> > On Tue, Feb 26, 2002 at 11:35:55AM -0500, Soulier, Michael [SKY:QX41:EXCH] wrote:
> > >     Hello,
> > > 
> > >     I'm currently trying to use the perl-ldap modules, and I'm running into a
> > > problem. I have three different installations, all version 0.25. Two of them
> > > are on HP-UX 10.20 with Perl 5.005_02 and Perl 5.6. The last is Linux with
> > > Perl 5.6. 
> > >     On HP-UX with Perl 5.005_02, it works fine. Unfortunately, in both cases
> > > with Perl 5.6, the bind is returning nothing. 
> > > 
> > > main::(-e:1):   0
> > >   DB<1> use Net::LDAP
> > > 
> > >   DB<2> $ldap = Net::LDAP->new('ldap-carling2.ca.nortel.com')
> > > 
> > >   DB<3> x $ldap
> > > 0  Net::LDAP=HASH(0x84b530c)
> > >    'net_ldap_async' => 0
> > >    'net_ldap_debug' => 0
> > >    'net_ldap_host' => 'ldap-carling2.ca.nortel.com'
> > >    'net_ldap_resp' => HASH(0x81e9f70)
> > >         empty hash
> > >    'net_ldap_socket' => IO::Socket::INET=GLOB(0x84b7184)
> > >       -> 
> > >             FileHandle({*Symbol::GEN0}) => fileno(3)
> > >    'net_ldap_version' => 2
> > >   DB<4> $mesg = $ldap->bind
> > > 
> > >   DB<5> x $mesg
> > > 0  undef
> > >   DB<6> x $ldap
> > > 0  undef
> > > 
> > >     With the Perl 5.005_02 build on HP-UX, it works fine. 
> > > 
> > >     Any ideas?
> > > 
> > >     Mike
> > > 
> > > -- 
> > > Michael P. Soulier, QX41, SKY  Tel: 613-765-4699 (ESN: 39-54699)
> > > Optical Networks, Nortel Networks, SDE Pegasus
> > > "...the word HACK is used as a verb to indicate a massive amount
> > > of nerd-like effort."  -Harley Hahn, A Student's Guide to Unix
> > 
> > -- 
> > Michael P. Soulier, QX41, SKY  Tel: 613-765-4699 (ESN: 39-54699)
> > Optical Networks, Nortel Networks, SDE Pegasus
> > "...the word HACK is used as a verb to indicate a massive amount
> > of nerd-like effort."  -Harley Hahn, A Student's Guide to Unix
> 
> -- 
> Michael P. Soulier, QX41, SKY  Tel: 613-765-4699 (ESN: 39-54699)
> Optical Networks, Nortel Networks, SDE Pegasus
> "...the word HACK is used as a verb to indicate a massive amount
> of nerd-like effort."  -Harley Hahn, A Student's Guide to Unix
>

Re: Net::LDAP with perl 5.6

From: Michael P. S. <mso...@no...> - 2002-02-28 15:08:30

    It's definitely very strange behaviour. If I get the chance I'll try to
trace the code and find out what's going on, but I don't currently have the
time. 

    Mike

On Wed, Feb 27, 2002 at 10:35:21PM +0000, Graham Barr wrote:
> It seems very odd that $ldap should become undef after calling a
> method on it. Net::LDAP could not do that if it tried (if $ldap was
> lexical), which means maybe you have a perl config where Net::DAP
> tickles a bug.
> 
> Graham.
> 
> 
> On Wed, Feb 27, 2002 at 05:22:12PM -0500, Michael P. Soulier wrote:
> > 
> >     Oh, and I just tried it with v5.005_02, v5.6.0, and v5.6.1. It only works
> > with v5.005_02. 
> > 
> >     Mike
> > 
> > On Wed, Feb 27, 2002 at 04:47:23PM -0500, Soulier, Michael [SKY:QX41:EXCH] wrote:
> > > 
> > >     Well, back to Net::LDAPapi I guess... Unless anyone has any ideas. 
> > > 
> > >     Mike
> > > 
> > > On Tue, Feb 26, 2002 at 11:35:55AM -0500, Soulier, Michael [SKY:QX41:EXCH] wrote:
> > > >     Hello,
> > > > 
> > > >     I'm currently trying to use the perl-ldap modules, and I'm running into a
> > > > problem. I have three different installations, all version 0.25. Two of them
> > > > are on HP-UX 10.20 with Perl 5.005_02 and Perl 5.6. The last is Linux with
> > > > Perl 5.6. 
> > > >     On HP-UX with Perl 5.005_02, it works fine. Unfortunately, in both cases
> > > > with Perl 5.6, the bind is returning nothing. 
> > > > 
> > > > main::(-e:1):   0
> > > >   DB<1> use Net::LDAP
> > > > 
> > > >   DB<2> $ldap = Net::LDAP->new('ldap-carling2.ca.nortel.com')
> > > > 
> > > >   DB<3> x $ldap
> > > > 0  Net::LDAP=HASH(0x84b530c)
> > > >    'net_ldap_async' => 0
> > > >    'net_ldap_debug' => 0
> > > >    'net_ldap_host' => 'ldap-carling2.ca.nortel.com'
> > > >    'net_ldap_resp' => HASH(0x81e9f70)
> > > >         empty hash
> > > >    'net_ldap_socket' => IO::Socket::INET=GLOB(0x84b7184)
> > > >       -> 
> > > >             FileHandle({*Symbol::GEN0}) => fileno(3)
> > > >    'net_ldap_version' => 2
> > > >   DB<4> $mesg = $ldap->bind
> > > > 
> > > >   DB<5> x $mesg
> > > > 0  undef
> > > >   DB<6> x $ldap
> > > > 0  undef
> > > > 
> > > >     With the Perl 5.005_02 build on HP-UX, it works fine. 
> > > > 
> > > >     Any ideas?
> > > > 
> > > >     Mike
> > > > 
> > > > -- 
> > > > Michael P. Soulier, QX41, SKY  Tel: 613-765-4699 (ESN: 39-54699)
> > > > Optical Networks, Nortel Networks, SDE Pegasus
> > > > "...the word HACK is used as a verb to indicate a massive amount
> > > > of nerd-like effort."  -Harley Hahn, A Student's Guide to Unix
> > > 
> > > -- 
> > > Michael P. Soulier, QX41, SKY  Tel: 613-765-4699 (ESN: 39-54699)
> > > Optical Networks, Nortel Networks, SDE Pegasus
> > > "...the word HACK is used as a verb to indicate a massive amount
> > > of nerd-like effort."  -Harley Hahn, A Student's Guide to Unix
> > 
> > -- 
> > Michael P. Soulier, QX41, SKY  Tel: 613-765-4699 (ESN: 39-54699)
> > Optical Networks, Nortel Networks, SDE Pegasus
> > "...the word HACK is used as a verb to indicate a massive amount
> > of nerd-like effort."  -Harley Hahn, A Student's Guide to Unix
> > 

-- 
Michael P. Soulier, QX41, SKY  Tel: 613-765-4699 (ESN: 39-54699)
Optical Networks, Nortel Networks, SDE Pegasus
"...the word HACK is used as a verb to indicate a massive amount
of nerd-like effort."  -Harley Hahn, A Student's Guide to Unix

Re: Net::LDAP with perl 5.6

From: Graham B. <gb...@po...> - 2002-02-27 22:45:02

On Wed, Feb 27, 2002 at 04:47:23PM -0500, Michael P. Soulier wrote:
> 
>     Well, back to Net::LDAPapi I guess... Unless anyone has any ideas. 

What do you see on stderr when you add    debug => 15    to the arguments
to ->new(). Run it straight, not in the debugger.

Graham.

Re: Net::LDAP with perl 5.6

From: Michael P. S. <mso...@no...> - 2002-02-28 15:18:34

On Wed, Feb 27, 2002 at 10:44:41PM +0000, Graham Barr wrote:
> 
> What do you see on stderr when you add    debug => 15    to the arguments
> to ->new(). Run it straight, not in the debugger.

    Now that's weird. If I do it in the debugger, it still doesn't work. 

  DB<4> $mesg = $ldap->bind
Net::LDAP=HASH(0x4043ca2c) sending:

30 0C 02 01 01 60 07 02 01 02 04 00 80 00 __ __ 0....`........

0000   12: SEQUENCE {
0002    1:   INTEGER = 1
0005    7:   [APPLICATION 0] {
0007    1:     INTEGER = 2
000A    0:     STRING = ''
000C    0:     [CONTEXT 0]
000E     :   }
000E     : }
Net::LDAP=HASH(0x4043ca2c) received:

30 0C 02 01 01 61 07 0A 01 00 04 00 04 00 __ __ 0....a........

0000   12: SEQUENCE {
0002    1:   INTEGER = 1
0005    7:   [APPLICATION 1] {
0007    1:     ENUM = 0
000A    0:     STRING = ''
000C    0:     STRING = ''
000E     :   }
000E     : }

  DB<5> x $mesg
0  undef
  DB<6> x $ldap
0  undef

    But if I do it outside of the debugger, it works fine...

[msoulier@pmerd071 GRMS]$ ./try.pl
ldap after connect is:
$VAR1 = bless( {
                 'net_ldap_async' => 0,
                 'net_ldap_resp' => {},
                 'net_ldap_debug' => 0,
                 'net_ldap_host' => 'ldap-carling2.ca.nortel.com',
                 'net_ldap_version' => 2,
                 'net_ldap_socket' => bless( \*Symbol::GEN0,
'IO::Socket::INET' )
               }, 'Net::LDAP' );
mesg after bind is:
$VAR1 = bless( {
                 'callback' => undef,
                 'parent' => bless( {
                                      'net_ldap_async' => 0,
                                      'net_ldap_resp' => {},
                                      'net_ldap_mesg' => {},
                                      'net_ldap_debug' => 0,
                                      'net_ldap_host' =>
'ldap-carling2.ca.nortel.com',
                                      'net_ldap_version' => 2,
                                      'net_ldap_socket' => bless(
\*Symbol::GEN0, 'IO::Socket::INET' )
                                    }, 'Net::LDAP' ),
                 'mesgid' => 1,
                 'matchedDN' => '',
                 'resultCode' => 0,
                 'errorMessage' => ''
               }, 'Net::LDAP::Bind' );
ldap after bind is:
$VAR1 = bless( {
                 'net_ldap_async' => 0,
                 'net_ldap_resp' => {},
                 'net_ldap_mesg' => {},
                 'net_ldap_debug' => 0,
                 'net_ldap_host' => 'ldap-carling2.ca.nortel.com',
                 'net_ldap_version' => 2,
                 'net_ldap_socket' => bless( \*Symbol::GEN0,
'IO::Socket::INET' )
               }, 'Net::LDAP' );

    I'm confused. It's looking like a problem in Perl's debugger. 

    Mike

-- 
Michael P. Soulier, QX41, SKY  Tel: 613-765-4699 (ESN: 39-54699)
Optical Networks, Nortel Networks, SDE Pegasus
"...the word HACK is used as a verb to indicate a massive amount
of nerd-like effort."  -Harley Hahn, A Student's Guide to Unix

Re: Net::LDAP with perl 5.6

From: Graham B. <gb...@po...> - 2002-02-28 15:42:56

On Thu, Feb 28, 2002 at 10:18:15AM -0500, Michael P. Soulier wrote:
>     But if I do it outside of the debugger, it works fine...

That is why I said don't use the debugger. I have seen this problem
before, so personally I never use the perl debgger.

Graham.

Re: Net::LDAP with perl 5.6

From: Michael P. S. <mso...@no...> - 2002-02-28 15:46:21

On Thu, Feb 28, 2002 at 03:42:28PM +0000, Graham Barr wrote:
> 
> That is why I said don't use the debugger. I have seen this problem
> before, so personally I never use the perl debgger.

    That's not good if we can't rely on Perl's debugger anymore. 

    Thanks for the help,

    Mike

-- 
Michael P. Soulier, QX41, SKY  Tel: 613-765-4699 (ESN: 39-54699)
Optical Networks, Nortel Networks, SDE Pegasus
"...the word HACK is used as a verb to indicate a massive amount
of nerd-like effort."  -Harley Hahn, A Student's Guide to Unix