From: Vince Darley <vincentdarley@sourceforge.net>
Date: Fri, 7 Sep 2001 08:16:22 +0000 (+0000)
Subject: fix
X-Git-Tag: vfs-1-2~111
X-Git-Url: http://privyetmir.co.uk/gitweb.cgi?a=commitdiff_plain;h=4310590487b6049a3ce7fd664b85a288feefa007;p=tclvfs

fix
---

diff --git a/generic/vfs.c b/generic/vfs.c
index 4df5ac3..a5beb0f 100644
--- a/generic/vfs.c
+++ b/generic/vfs.c
@@ -705,7 +705,7 @@ VfsOpenFileChannel(cmdInterp, pathPtr, modeString, permissions)
 	    chan = Tcl_GetChannel(interp, Tcl_GetString(element), 0);
 	    
 	    if (chan == NULL) {
-	        returnVal == TCL_ERROR;
+	        returnVal = TCL_ERROR;
 	    } else {
 		if (reslen == 2) {
 		    Tcl_ListObjIndex(interp, resultObj, 1, &element);