Re: Authen::SASL 2.13 infinite loop bug (resend?)

On Fri, Feb 12, 2010 at 6:08 PM, Graham Barr <[email protected]> wrote:

> In Net/LDAP.pm the bind sub we have
>
>    $passwd = {
>      mechanism   => $sasl_conn->mechanism,
>      credentials => (length($initial) ? $initial : undef)
>    };
>
> what happens if you change that to be just  credentials => $initial,

Here we go:

Net::LDAP=HASH(0xc04818) sending:

30 2C 02 01 01 60 27 02 01 03 04 14 73 6E 3D 6D 0,...`'.....sn=m
73 69 53 63 72 69 70 74 73 2C 64 63 3D 44 54 43 siScripts,dc=DTC
A3 0C 04 08 45 58 54 45 52 4E 41 4C 04 00 __ __ ....EXTERNAL..

0000   44: SEQUENCE {
0002    1:   INTEGER = 1
0005   39:   [APPLICATION 0] {
0007    1:     INTEGER = 3
000A   20:     STRING = 'sn=msiScripts,dc=DTC'
0020   12:     [CONTEXT 3] {
0022    8:       STRING = 'EXTERNAL'
002C    0:       STRING = ''
002E     :     }
002E     :   }
002E     : }
Net::LDAP=HASH(0xc04818) 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     : }
success!

> Graham

Forrest