diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-10-23 11:11:58 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-10-23 11:11:58 (GMT) |
| commit | 52f3af0bcf937dece6a0a7cc8d6dc254af41f21b (patch) | |
| tree | 1f49e7a5ca583e4a6578ed51d6c96b7ca25814c6 /unix/tclUnixFile.c | |
| parent | 49583636084266c570cffa232d86dd3740a1fc3d (diff) | |
| parent | 01498c5ecda9522a8353a016d1ced6352b10e90a (diff) | |
| download | tcl-52f3af0bcf937dece6a0a7cc8d6dc254af41f21b.zip tcl-52f3af0bcf937dece6a0a7cc8d6dc254af41f21b.tar.gz tcl-52f3af0bcf937dece6a0a7cc8d6dc254af41f21b.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'unix/tclUnixFile.c')
| -rw-r--r-- | unix/tclUnixFile.c | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/unix/tclUnixFile.c b/unix/tclUnixFile.c index c81ebb6..3589253 100644 --- a/unix/tclUnixFile.c +++ b/unix/tclUnixFile.c @@ -267,9 +267,9 @@ TclpMatchInDirectory( Tcl_StatBuf statBuf; Tcl_DString ds; /* native encoding of dir */ Tcl_DString dsOrig; /* utf-8 encoding of dir */ + Tcl_Encoding encoding = Tcl_GetEncoding(interp ,NULL); Tcl_DStringInit(&dsOrig); - Tcl_Encoding encoding; dirName = TclGetStringFromObj(fileNamePtr, &dirLength); Tcl_DStringAppend(&dsOrig, dirName, dirLength); @@ -365,7 +365,6 @@ TclpMatchInDirectory( */ - encoding = Tcl_GetEncoding(interp ,NULL); utfname = Tcl_ExternalToUtfDString(encoding, entryPtr->d_name, -1, &utfDs); if (Tcl_StringCaseMatch(utfname, pattern, 0)) { |