diff options
Diffstat (limited to 'generic/tclFileName.c')
| -rw-r--r-- | generic/tclFileName.c | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/generic/tclFileName.c b/generic/tclFileName.c index 92d325f..7f4f1cc 100644 --- a/generic/tclFileName.c +++ b/generic/tclFileName.c @@ -2145,7 +2145,7 @@ DoGlob( Tcl_GlobTypeData *types) /* List object containing list of acceptable * types. May be NULL. */ { - int baseLength, quoted, count; + int baseLength, quoted; int result = TCL_OK; char *name, *p, *openBrace, *closeBrace, *firstSpecialChar; Tcl_Obj *joinedPtr; @@ -2155,7 +2155,6 @@ DoGlob( * past the last initial separator. */ - count = 0; name = pattern; for (; *pattern != '\0'; pattern++) { if (*pattern == '\\') { @@ -2175,7 +2174,6 @@ DoGlob( } else if (strchr(separators, *pattern) == NULL) { break; } - count++; } /* |