? LOG
? Makefile
? LOG.2
? config.status
? config.cache
? config.log
? modules/fileinput
? modules/ftp/example
? modules/ftpd/examples
Index: ChangeLog
===================================================================
RCS file: /cvsroot/tcllib/tcllib/ChangeLog,v
retrieving revision 1.90
diff -u -w -r1.90 ChangeLog
--- ChangeLog	2001/11/28 14:21:34	1.90
+++ ChangeLog	2001/12/06 21:52:37
@@ -1,3 +1,7 @@
+2001-12-06  Andreas Kupries  <andreas_kupries@users.sourceforge.net>
+
+	* fileutil: Bugfix for item #486572.
+
 2001-11-28  Reinhard Max  <max@suse.de>
 
 	* split.tcl: Speed improvement.
Index: modules/fileutil/ChangeLog
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/fileutil/ChangeLog,v
retrieving revision 1.8
diff -u -w -r1.8 ChangeLog
--- modules/fileutil/ChangeLog	2001/11/08 06:26:41	1.8
+++ modules/fileutil/ChangeLog	2001/12/06 21:52:37
@@ -1,3 +1,9 @@
+2001-12-06  Andreas Kupries  <andreas_kupries@users.sourceforge.net>
+
+	* fileutil.test: Restricted tests 2.2 and 2.3 to the directory
+	  structure created for the test and not the whole directory the
+	  test is run in. Bugfix for item #486572.
+
 2001-11-06  Andreas Kupries  <andreas_kupries@users.sourceforge.net>
 
 	* fileutil.test:
Index: modules/fileutil/fileutil.test
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/fileutil/fileutil.test,v
retrieving revision 1.6
diff -u -w -r1.6 fileutil.test
--- modules/fileutil/fileutil.test	2001/11/08 06:26:41	1.6
+++ modules/fileutil/fileutil.test	2001/12/06 21:52:38
@@ -88,12 +88,12 @@
 } {wrong#args for "::fileutil::findByPattern", should be "::fileutil::findByPattern basedir ?-regexp|-glob? ?--? patterns"}
 
 test find-2.2 {find by pattern} {
-    lsort [::fileutil::findByPattern $dir -glob {fil*}]
+    lsort [::fileutil::findByPattern [file join $dir find1] -glob {fil*}]
 } [list [file join $dir find1 file1] [file join $dir find1 find2 file2]]
 
 test find-2.3 {find by pattern} {
-    lsort [::fileutil::findByPattern $dir -regexp {.*1$}]
-} [list [file join $dir find1] [file join $dir find1 file1]]
+    lsort [::fileutil::findByPattern [file join $dir find1] -regexp {.*1$}]
+} [list [file join $dir find1 file1]]
 
 
 catch {removeDirectory grepTest} ; # start with a clean structure!
