[perl-ldap-checkins] CVS: ldap/lib/Net LDAP.pm,1.32,1.33

[Graham B. <gb...@us...>]

Update of /cvsroot/perl-ldap/ldap/lib/Net
In directory usw-pr-cvs1:/tmp/cvs-serv25909/lib/Net

Modified Files:
	LDAP.pm 
Log Message:
Remember host connected to, needed for sasl


Index: LDAP.pm
===================================================================
RCS file: /cvsroot/perl-ldap/ldap/lib/Net/LDAP.pm,v
retrieving revision 1.32
retrieving revision 1.33
diff -u -d -r1.32 -r1.33
--- LDAP.pm	21 May 2002 14:53:58 -0000	1.32
+++ LDAP.pm	28 May 2002 09:34:50 -0000	1.33
@@ -22,7 +22,7 @@
 			   LDAP_INAPPROPRIATE_AUTH
 			);
 
-$VERSION 	= "0.25_01";
+$VERSION 	= "0.25_50";
 @ISA     	= qw(Net::LDAP::Extra);
 $LDAP_VERSION 	= 2;      # default LDAP protocol version
 
@@ -105,6 +105,7 @@
 
   return undef unless $obj->{net_ldap_socket};
 
+  $obj->{net_ldap_host}    = $host;
   $obj->{net_ldap_resp}    = {};
   $obj->{net_ldap_version} = $arg->{version} || $LDAP_VERSION;
   $obj->{net_ldap_async}   = $arg->{async} ? 1 : 0;