[perl-ldap-checkins] CVS: ldap/contrib tklkup,2.27,2.28

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

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

Modified Files:
	tklkup 
Log Message:

Corrected the error in the ldif modify code.



Index: tklkup
===================================================================
RCS file: /cvsroot/perl-ldap/ldap/contrib/tklkup,v
retrieving revision 2.27
retrieving revision 2.28
diff -u -d -r2.27 -r2.28
--- tklkup	11 Mar 2003 02:52:36 -0000	2.27
+++ tklkup	12 Mar 2003 02:19:06 -0000	2.28
@@ -4363,7 +4363,8 @@
           else
           {
           $op = $$entry{changes};
-          $mesg = $Global{ldap}->modify($entry);
+          #$mesg = $Global{ldap}->modify($entry);
+          $mesg = $entry->update($Global{ldap});
           }
           if ( $mesg->code )
           {