[perl-ldap-checkins] CVS: ldap/contrib tklkup,2.1,2.2

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

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}) )
 {