ftp glob fix

diff --git a/library/ftpvfs.tcl b/library/ftpvfs.tcl
index 89ac5d20c9b6a9c1937251e3a0ecf413baed3bb4..d7e905f312950ea8ef80fa57bafac5968d7318a2 100644 (file)
--- 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"