* test/winPipe.test: Changed to remove echoArgs.tcl temporary file

when done.

* tests/cmdAH.test:
* generic/tclFileName.c (TclGetExtension): Changed behavior so the
split happens at the last period in the name instead of the first
period of the last run of periods.  So, "foo..o" is split into
"foo." and ".o" now. [Bug: 1126]

4 files changed, 46 insertions, 13 deletions

diff --git a/changes b/changes
index 9f082d1..7b34909 100644
--- a/changes
+++ b/changes
@@ -1,6 +1,6 @@
 Recent user-visible changes to Tcl:
 
-RCS: @(#) $Id: changes,v 1.40 1999/02/02 23:01:41 stanton Exp $
+RCS: @(#) $Id: changes,v 1.41 1999/02/03 19:12:25 stanton Exp $
 
 1. No more [command1] [command2] construct for grouping multiple
 commands on a single command line.
@@ -3704,3 +3704,39 @@ missing.  (stanton)
 
 2/2/99 (bug fix) Added support for HKEY_PERFORMANCE_DATA and
 HKEY_DYN_DATA keys in the "registry" command. (stanton)
+
+2/2/99 (bug fix) ENOTSUP and EOPNOTSUPP clashed on some Linux
+variants. (stanton)
+
+2/2/99 (enhancement) The "open" command has been changed to use the
+object interfaces. (stanton)
+
+2/2/99 (bug fix) In some cases Tcl would crash due to an overflow of
+the exception stack resulting from a missing byte code in some
+expressions. (stanton)
+
+2/2/99 (bug fix) Changed configure so Linux and IRIX shared libraries
+are linked with the system libraries. (stanton)
+
+2/2/99 (bug fix) Added support for BSDI 4.x (BSD/OS-4*) to the
+configure script. (stanton)
+
+2/2/99 (bug fix) Fixed bug where upvar could resurrect a namespace
+variable after the namespace had been deleted. (stanton)
+
+2/2/99 (bug fix) In some cases when creating variables, the
+interpreter result was being modified even if the TCL_LEAVE_ERR_MSG
+flag was set. (stanton)
+
+2/2/99 (bug fix & new feature) Changed the socket drivers to properly
+handle failures during an async socket connection.  Added a new
+fconfigure option "-error" to retrieve the failure message.  See the
+socket.n manual entry for details. (stanton)
+
+2/2/99 (bug fix) Deleting a renamed interp alias could result in a
+panic. (stanton)
+
+2/2/99 (feature change/bug fix) Changed the behavior of "file
+extension" so that it splits at the last period.  Now the extension of
+a file like "foo..o" is ".o" instead of "..o" as in previous versions. 
+*** POTENTIAL INCOMPATIBILITY ***
diff --git a/generic/tclFileName.c b/generic/tclFileName.c
index ed29ae2..f76192f 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.3 1998/09/14 18:39:59 stanton Exp $
+ * RCS: @(#) $Id: tclFileName.c,v 1.4 1999/02/03 19:12:26 stanton Exp $
  */
 
 #include "tclInt.h"
@@ -1031,15 +1031,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;
 }
 
diff --git a/tests/cmdAH.test b/tests/cmdAH.test
index e09eb58..f9251a9 100644
--- a/tests/cmdAH.test
+++ b/tests/cmdAH.test
@@ -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: cmdAH.test,v 1.3 1998/09/14 18:40:08 stanton Exp $
+# RCS: @(#) $Id: cmdAH.test,v 1.4 1999/02/03 19:12:27 stanton Exp $
 
 if {[string compare test [info procs test]] == 1} then {source defs}
 
@@ -784,7 +784,7 @@ test cmdAH-7.34 {Tcl_FileObjCmd: extension} {
     file extension a\\b.c\\
 } {}
 set num 35
-foreach value {a..b a...b a.c..b ..b} result {..b ...b ..b ..b} {
+foreach value {a..b a...b a.c..b ..b} result {.b .b .b .b} {
     foreach p {unix mac windows} {
 ;	test cmdAH-7.$num {Tcl_FileObjCmd: extension} "
 	    testsetplatform $p
diff --git a/tests/winPipe.test b/tests/winPipe.test
index 62154ae..6e1cb85 100644
--- a/tests/winPipe.test
+++ b/tests/winPipe.test
@@ -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: winPipe.test,v 1.4 1998/11/02 23:04:15 stanton Exp $
+# RCS: @(#) $Id: winPipe.test,v 1.5 1999/02/03 19:12:27 stanton Exp $
 
 if {$tcl_platform(platform) != "windows"} {
     return
@@ -368,4 +368,4 @@ if {[catch {set env(TEMP) $env_temp}]} {
     unset $env(TEMP)
 }
 
-file delete big little stdout stderr nothing dummy.tcl
+file delete big little stdout stderr nothing dummy.tcl echoArgs.tcl