[perl-ldap-checkins] CVS: ldap/contrib tklkup,1.39,1.40

[Clif H. <ch...@us...>]

Update of /cvsroot/perl-ldap/ldap/contrib
In directory sc8-pr-cvs1:/tmp/cvs-serv4636/ldap/contrib

Modified Files:
	tklkup 
Log Message:

Corrected an error in the rootDse subroutine.



Index: tklkup
===================================================================
RCS file: /cvsroot/perl-ldap/ldap/contrib/tklkup,v
retrieving revision 1.39
retrieving revision 1.40
diff -u -d -r1.39 -r1.40
--- tklkup	25 Jan 2003 05:00:26 -0000	1.39
+++ tklkup	25 Jan 2003 05:17:24 -0000	1.40
@@ -4317,6 +4317,7 @@
 {
    my $error =  "Root DSE entry could not be obtained.";
    ERROR(\$error);
+   return;
 }
 
 #