Index: modules/ftpd/ChangeLog
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/ftpd/ChangeLog,v
retrieving revision 1.6
diff -u -r1.6 ChangeLog
--- modules/ftpd/ChangeLog	2001/09/05 23:53:52	1.6
+++ modules/ftpd/ChangeLog	2001/09/07 22:19:45
@@ -1,3 +1,10 @@
+2001-09-07  Andreas Kupries  <andreas_kupries@users.sourceforge.net>
+
+	* ftpd.tcl: Applied patch [459197] from Hemang to fix more
+	  'namespace export *'. Patch modified before application as some
+	  export command are actually private (Implementations of the ftp
+	  commands).
+
 2001-09-05  Andreas Kupries  <andreas_kupries@users.sourceforge.net>
 
 	* ftpd.tcl: Restricted export list to public API.
Index: modules/ftpd/ftpd.tcl
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/ftpd/ftpd.tcl,v
retrieving revision 1.10
diff -u -r1.10 ftpd.tcl
--- modules/ftpd/ftpd.tcl	2001/09/05 23:53:52	1.10
+++ modules/ftpd/ftpd.tcl	2001/09/07 22:19:45
@@ -105,7 +105,6 @@
 
     namespace export config hasCallback logStderr 
     namespace export fileAuth anonAuth unixAuth server accept read
-    namespace export fsFile::docRoot fsFile::fs
 }
 
 # ::ftpd::config --
@@ -655,7 +654,7 @@
 # ftp commands with the same name as the procs.
 
 namespace eval ::ftpd::command {
-    namespace export *
+    # All commands in this namespace are private, no export.
 }
 
 # ::ftpd::command::ABOR --
@@ -1624,7 +1623,7 @@
 	set docRoot /
     }
 
-    namespace export *
+    namespace export docRoot fs
 }
 
 # ::ftpd::fsFile::docRoot --
