From b81b0779c56b017a12588c6800507f3cef5fc499 Mon Sep 17 00:00:00 2001
From: vincentdarley <vincentdarley>
Date: Sun, 24 Mar 2002 18:09:19 +0000
Subject: fixed typo and compiler warning in last commit; all tests now pass on
 unix

---
 generic/tclIOUtil.c   | 4 ++--
 tests/fileSystem.test | 2 +-
 unix/tclUnixFCmd.c    | 4 ++--
 3 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/generic/tclIOUtil.c b/generic/tclIOUtil.c
index 9432c8f..f6bf2c7 100644
--- a/generic/tclIOUtil.c
+++ b/generic/tclIOUtil.c
@@ -17,7 +17,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclIOUtil.c,v 1.37 2002/03/24 11:41:50 vincentdarley Exp $
+ * RCS: @(#) $Id: tclIOUtil.c,v 1.38 2002/03/24 18:09:19 vincentdarley Exp $
  */
 
 #include "tclInt.h"
@@ -1757,7 +1757,7 @@ Tcl_FSMatchInDirectory(interp, result, pathPtr, pattern, types)
 		switch (tclPlatform) {
 		    case TCL_PLATFORM_UNIX:
 			if (cwdStr[cwdLen-1] != '/') {
-			    sep == '/';
+			    sep = '/';
 			}
 			break;
 		    case TCL_PLATFORM_WINDOWS:
diff --git a/tests/fileSystem.test b/tests/fileSystem.test
index 1e118c1..ecc6523 100644
--- a/tests/fileSystem.test
+++ b/tests/fileSystem.test
@@ -147,7 +147,7 @@ test filesystem-4.3 {testfilesystem} {
 	testfilesystem 0
 	set filesystemReport
     }
-    -result {* {matchindirectory *} *}
+    -result {* {matchindirectory *}*}
 }
 
 # cleanup
diff --git a/unix/tclUnixFCmd.c b/unix/tclUnixFCmd.c
index 49131de..f9610fd 100644
--- a/unix/tclUnixFCmd.c
+++ b/unix/tclUnixFCmd.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: tclUnixFCmd.c,v 1.18 2002/03/24 11:41:51 vincentdarley Exp $
+ * RCS: @(#) $Id: tclUnixFCmd.c,v 1.19 2002/03/24 18:09:19 vincentdarley Exp $
  *
  * Portions of this code were derived from NetBSD source code which has
  * the following copyright notice:
@@ -1690,7 +1690,7 @@ TclpObjNormalizePath(interp, pathPtr, nextCheckpoint)
 	     */
 	    Tcl_DStringFree(&ds);
 	    Tcl_ExternalToUtfDString(NULL,normPath,
-                                     strlen(normPath),&ds);
+                                     (unsigned)strlen(normPath),&ds);
 
 	    if (path[nextCheckpoint] != '\0') {
 		/* not at end, append remaining path */
-- 
cgit v0.12