diff options
| author | rjohnson <rjohnson> | 1999-04-21 21:50:22 (GMT) |
|---|---|---|
| committer | rjohnson <rjohnson> | 1999-04-21 21:50:22 (GMT) |
| commit | 1df32a4d2cd7f7221d1e1310817ee0af71057111 (patch) | |
| tree | 052e39d4c88db47521c59ebe5546302186a5022f /win/tclWinFile.c | |
| parent | d2a3e887caf524096070bbe8667b700520357b4b (diff) | |
| download | tcl-1df32a4d2cd7f7221d1e1310817ee0af71057111.zip tcl-1df32a4d2cd7f7221d1e1310817ee0af71057111.tar.gz tcl-1df32a4d2cd7f7221d1e1310817ee0af71057111.tar.bz2 | |
Resynced with mainline.
Diffstat (limited to 'win/tclWinFile.c')
| -rw-r--r-- | win/tclWinFile.c | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/win/tclWinFile.c b/win/tclWinFile.c index e7dce3f..3a04a46 100644 --- a/win/tclWinFile.c +++ b/win/tclWinFile.c @@ -11,7 +11,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclWinFile.c,v 1.5 1999/04/16 00:48:08 stanton Exp $ + * RCS: @(#) $Id: tclWinFile.c,v 1.6 1999/04/21 21:50:34 rjohnson Exp $ */ #include "tclWinInt.h" @@ -224,9 +224,7 @@ TclpMatchFiles(interp, separators, dirPtr, pattern, tail) Tcl_DStringInit(&patternString); newPattern = Tcl_DStringAppend(&patternString, pattern, tail - pattern); - if ((volFlags & FS_CASE_SENSITIVE) == 0) { - Tcl_UtfToLower(newPattern); - } + Tcl_UtfToLower(newPattern); /* * We need to check all files in the directory, so append a *.* @@ -306,6 +304,7 @@ TclpMatchFiles(interp, separators, dirPtr, pattern, tail) nativeMatchResult = nativeName; } Tcl_DStringFree(&ds); + if (nativeMatchResult == NULL) { continue; } |