ftpvfs fix

diff --git a/ChangeLog b/ChangeLog
index 7c7bcc3ee5965508a6117eb7f703e57073e70155..cccb5ce79377f9ff043d2eb675c4bf940ac635fe 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2003-06-16  Vince Darley <vincentdarley@sourceforge.net>
+
+       * library/ftpvfs.tcl: added '-output ::vfs::log' to ftp
+        initialisation code to avoid messages being dumped to stderr
+        when errors occur.
+       
 2003-05-16  Vince Darley <vincentdarley@sourceforge.net>
 
        * library/tkvfs.tcl: added 'tk' widget hierarchy vfs.  Use:

diff --git a/library/ftpvfs.tcl b/library/ftpvfs.tcl
index c2bdb5997183edfbf0152f970c5dfdd302b60097..784d930b09524c5eaba2350e6ec3c2295ee1c5ef 100644 (file)
--- a/library/ftpvfs.tcl
+++ b/library/ftpvfs.tcl
@@ -29,7 +29,7 @@ proc vfs::ftp::Mount {dirurl local} {
        set user anonymous
     }
     
-    set fd [::ftp::Open $host $user $pass $path]
+    set fd [::ftp::Open $host $user $pass -output ::vfs::log]
     if {$fd == -1} {
        error "Mount failed"
     }