start_tls failes on reconnect

[Markus B. <Mar...@si...>]

Hi List,

i wrote a authenticator for squid.
This programm becommes user/password from stdin
and returns OK/ERR on stdout.
The programm should never exit so there is a endless mainloop.

I wrote some wrapper function for search bind etc. which reconnects
when the connection is broken. This works with plain ldap and ldaps,
but not when using tls.

This is what i do to connect do the server:
$ldap = Net::LDAP->new($LDAP_HOST, port=>$LDAP_PORT, version=>3);
...some error checking...

$ret = $ldap->start_tls(verify => "required",
		capath=>$SSL_CAPATH,
		cafile=>$SSL_CAFILE);
...some error checking...

This is called on the first time when the programm starts up and
everytime the connection got lost.

When it is call the second time the programm exits with:
Can't call method "get_context_handle" without a package or object reference
at /usr/lib/perl5/site_perl/5.6.0/IO/Socket/SSL.pm line 602, <> line 2.

Is this a error in the IO::Socket::SSL Module ?
Must i close the previous connection first or clean it ?

When i place a $IO::Socket::SSL::DEBUG = 1 bevor start_tls i get this error:
<Authenticator> LDAP: starting TLS ...
using SSLv2/3
SSL_Context::DESTROY: 'SSL_Context=HASH(0x84872e4)', '138969448'.
SSL_Context::DESTROY: 'SSL_Context=HASH(0x84d4094)', '139301816'.
Can't call method "get_context_handle" without a package or object reference at /usr/lib/perl5/site_perl/5.6.0/IO/Socket/SSL.pm line 602, <> line 2.
DESTROY: SSL_SSL=HASH(0x84d7958).
IO::Socket::SSL::DESTROY: 'IO::Socket::SSL=GLOB(0x847d6f4)'.
DESTROY: SSL_SSL=HASH(0x84869a4).

some ideas ?

--
Markus Benning

   .^.
   /V\     Tel. : +49 9131 7 21713
 /(   )\   Email: Mar...@si...
  ^^-^^    __________________________________