From: Vince Darley <vincentdarley@sourceforge.net>
Date: Mon, 16 Jun 2003 16:11:18 +0000 (+0000)
Subject: ftpvfs fix
X-Git-Tag: vfs-1-3~16
X-Git-Url: https://privyetmir.co.uk/gitweb.cgi?a=commitdiff_plain;h=e75c46da5701821c57576bfbce0fd57059e90477;p=tclvfs

ftpvfs fix
---

diff --git a/ChangeLog b/ChangeLog
index 7c7bcc3..cccb5ce 100644
--- 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 c2bdb59..784d930 100644
--- 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"
     }