From: Vince Darley <vincentdarley@sourceforge.net>
Date: Mon, 14 Oct 2002 11:10:42 +0000 (+0000)
Subject: ftp glob fix
X-Git-Tag: vfs-1-2~33
X-Git-Url: http://privyetmir.co.uk/gitweb.cgi?a=commitdiff_plain;h=9222dd55412ca2d7e8e1ea97518f4f6e1ee077fd;p=tclvfs

ftp glob fix
---

diff --git a/library/ftpvfs.tcl b/library/ftpvfs.tcl
index 89ac5d2..d7e905f 100644
--- a/library/ftpvfs.tcl
+++ b/library/ftpvfs.tcl
@@ -222,6 +222,9 @@ proc vfs::ftp::matchindirectory {fd path actualpath pattern type} {
 
 	foreach p $ftpList {
 	    foreach {name perms} [_parseListLine $p] {}
+	    if {![string match $pattern $name]} {
+		continue 
+	    } 
 	    if {[::vfs::matchDirectories $type]} {
 		if {[string index $perms 0] == "d"} {
 		    lappend res "$actualpath$name"