diff options
Diffstat (limited to 'generic/tclFileName.c')
| -rw-r--r-- | generic/tclFileName.c | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/generic/tclFileName.c b/generic/tclFileName.c index fc0dbcd..16bf9d0 100644 --- a/generic/tclFileName.c +++ b/generic/tclFileName.c @@ -10,7 +10,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclFileName.c,v 1.39 2002/11/13 22:11:40 vincentdarley Exp $ + * RCS: @(#) $Id: tclFileName.c,v 1.40 2003/01/09 10:01:59 vincentdarley Exp $ */ #include "tclInt.h" @@ -2597,15 +2597,12 @@ TclDoGlob(interp, separators, headPtr, tail, types) */ Tcl_Obj *nameObj; - /* Used to deal with one special case pertinent to MacOS */ - int macSpecialCase = 0; switch (tclPlatform) { case TCL_PLATFORM_MAC: { if (strchr(Tcl_DStringValue(headPtr), ':') == NULL) { Tcl_DStringAppend(headPtr, ":", 1); } - macSpecialCase = 1; break; } case TCL_PLATFORM_WINDOWS: { |