diff options
| author | stanton <stanton> | 1999-02-10 23:31:10 (GMT) |
|---|---|---|
| committer | stanton <stanton> | 1999-02-10 23:31:10 (GMT) |
| commit | bcc73119d3301482376ec5d7876b49b28e615e75 (patch) | |
| tree | d13f4f917b1cc9bcb348bfb160c43812ede3fcc1 /generic/tclFileName.c | |
| parent | 346e62b0d3e9ae361bfab66add2936891f6f299e (diff) | |
| download | tcl-bcc73119d3301482376ec5d7876b49b28e615e75.zip tcl-bcc73119d3301482376ec5d7876b49b28e615e75.tar.gz tcl-bcc73119d3301482376ec5d7876b49b28e615e75.tar.bz2 | |
* unix/mkLinks:
* doc/SetVar.3:
* generic/tcl.h:
* generic/tclVar.c: Restored Tcl_ObjGetVar2 and Tcl_ObjSetVar2
from 8.0. Renamed Tcl_Get/SetObjVar2 to Tcl_GetVar2Ex and
Tcl_SetVar2Ex.
* Merged 8.0.5b2 patches
Diffstat (limited to 'generic/tclFileName.c')
| -rw-r--r-- | generic/tclFileName.c | 13 |
1 files changed, 5 insertions, 8 deletions
diff --git a/generic/tclFileName.c b/generic/tclFileName.c index b14577a..7da53a9 100644 --- a/generic/tclFileName.c +++ b/generic/tclFileName.c @@ -9,7 +9,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.1.2.7 1998/12/12 01:36:58 lfb Exp $ + * RCS: @(#) $Id: tclFileName.c,v 1.1.2.8 1999/02/10 23:31:16 stanton Exp $ */ #include "tclInt.h" @@ -1088,15 +1088,12 @@ TclGetExtension(name) } /* - * Back up to the first period in a series of contiguous dots. - * This is needed so foo..o will be split on the first dot. + * In earlier versions, we used to back up to the first period in a series + * so that "foo..o" would be split into "foo" and "..o". This is a + * confusing and usually incorrect behavior, so now we split at the last + * period in the name. */ - if (p != NULL) { - while ((p > name) && *(p-1) == '.') { - p--; - } - } return p; } |