Update of /cvsroot/perl-ldap/ldap/contrib
In directory sc8-pr-cvs1:/tmp/cvs-serv23985/ldap/contrib
Modified Files:
tklkup
Log Message:
Corrected an error in the resetting of the Global max variable
when a new schema is pulled.
Index: tklkup
===================================================================
RCS file: /cvsroot/perl-ldap/ldap/contrib/tklkup,v
retrieving revision 2.1
retrieving revision 2.2
diff -u -d -r2.1 -r2.2
--- tklkup 11 Feb 2003 03:41:01 -0000 2.1
+++ tklkup 13 Feb 2003 02:18:18 -0000 2.2
@@ -2359,9 +2359,9 @@
&schema_clear();
-my $dt = "/tmp/schema.dat.$$";
+$Global{'max'} = 0; # Reset objectclass name lenght.
-#if ( $Global{'sclear'} ) { &schema_clear(); }
+my $dt = "/tmp/schema.dat.$$";
if ( ! defined($Global{ldap}) )
{
|
