[perl-ldap-checkins] CVS: ldap/lib/Net LDAP.pm,1.41,1.42 LDAP.pod,1.20,1.21

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

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

Modified Files:
	LDAP.pm LDAP.pod 
Log Message:
Added ->disconnect to do explicit disconnects from the server


Index: LDAP.pm
===================================================================
RCS file: /cvsroot/perl-ldap/ldap/lib/Net/LDAP.pm,v
retrieving revision 1.41
retrieving revision 1.42
diff -u -d -r1.41 -r1.42
--- LDAP.pm	6 May 2003 15:37:51 -0000	1.41
+++ LDAP.pm	6 May 2003 15:47:37 -0000	1.42
@@ -610,6 +610,11 @@
   $err;
 }
 
+sub disconnect {
+  my $self = shift;
+  _drop_conn($self, LDAP_USER_CANCELED, "Explicit disconnect");
+}
+
 sub _sendmesg {
   my $ldap = shift;
   my $mesg = shift;

Index: LDAP.pod
===================================================================
RCS file: /cvsroot/perl-ldap/ldap/lib/Net/LDAP.pod,v
retrieving revision 1.20
retrieving revision 1.21
diff -u -d -r1.20 -r1.21
--- LDAP.pod	6 May 2003 11:52:40 -0000	1.20
+++ LDAP.pod	6 May 2003 15:47:37 -0000	1.21
@@ -777,6 +777,10 @@
 
 =back
 
+=item disconnect
+
+Disconnect from the server
+
 =back
 
 =over 4