[perl-ldap-checkins] CVS: ldap/contrib tklkup,1.27,1.28

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

Update of /cvsroot/perl-ldap/ldap/contrib
In directory usw-pr-cvs1:/tmp/cvs-serv14316/ldap/contrib

Modified Files:
	tklkup 
Log Message:

Added the calling of the DSML end_dsml function when schema XML information
is writen to a file.



Index: tklkup
===================================================================
RCS file: /cvsroot/perl-ldap/ldap/contrib/tklkup,v
retrieving revision 1.27
retrieving revision 1.28
diff -u -d -r1.27 -r1.28
--- tklkup	15 Jun 2002 02:47:34 -0000	1.27
+++ tklkup	19 Jul 2002 02:44:19 -0000	1.28
@@ -22,6 +22,11 @@
 #
 # Revisions:
 # $Log$
+# Revision 1.28  2002/07/19 02:44:19  charden
+#
+# Added the calling of the DSML end_dsml function when schema XML information
+# is writen to a file.
+#
 # Revision 1.27  2002/06/15 02:47:34  charden
 #
 # Added code to close windows after ldap actions are taken.  This is to force
@@ -1684,6 +1689,7 @@
     open(FXML, ">$Global{'fdata'}");  
     $dsml = Net::LDAP::DSML->new( output => *FXML, pretty_print => 1 );
     $dsml->write_schema($schemaHash{'schema'});
+    $dsml->end_dsml;
     close(FXML);
   }
   else