Tk Library Source Code

Artifact 5d13a8c3da5c3092091e7e2be9a47e774f44c92c:

Attachment "ftpd1.2.5-bug3312880.diff" to ticket [3312880fff] added by rkeene 2011-06-23 23:03:52.

---

diff -uNr ftpd1.2.5-orig//ftpd.tcl ftpd1.2.5-bug3312880/ftpd.tcl
--- ftpd1.2.5-orig//ftpd.tcl	2011-06-06 22:59:33.000000000 +0000
+++ ftpd1.2.5-bug3312880/ftpd.tcl	2011-06-23 15:50:47.464732245 +0000
@@ -1301,7 +1301,7 @@
 
     set path [file join $data(cwd) [string trimleft $filename /]]
 
-    if {[file exists $path]} {
+    if {[::ftpd::Fs exists $path]} {
         if {[::ftpd::hasCallback authFileCmd]} {
             set cmd $::ftpd::cfg(authFileCmd)
             lappend cmd $data(user) $path write