From e75c46da5701821c57576bfbce0fd57059e90477 Mon Sep 17 00:00:00 2001
From: Vince Darley <vincentdarley@sourceforge.net>
Date: Mon, 16 Jun 2003 16:11:18 +0000
Subject: [PATCH] ftpvfs fix

---
 ChangeLog          | 6 ++++++
 library/ftpvfs.tcl | 2 +-
 2 files changed, 7 insertions(+), 1 deletion(-)

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"
     }
-- 
2.23.0