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 |