From 9222dd55412ca2d7e8e1ea97518f4f6e1ee077fd Mon Sep 17 00:00:00 2001
From: Vince Darley <vincentdarley@sourceforge.net>
Date: Mon, 14 Oct 2002 11:10:42 +0000
Subject: [PATCH] ftp glob fix

---
 library/ftpvfs.tcl | 3 +++
 1 file changed, 3 insertions(+)

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