Attachment "459197.diff.2" to
ticket [459197ffff]
added by
andreas_kupries
2001-09-08 05:20:50.
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 <[email protected]>
+
+ * 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 <[email protected]>
* 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 --
