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
|
