You are viewing a plain text version of this content. The canonical link for it is here.
Posted to websh-cvs@tcl.apache.org by ro...@apache.org on 2002/05/07 14:53:27 UTC
cvs commit: tcl-websh/src/generic script.ws3
ronnie 02/05/07 05:53:27
Modified: src/generic script.ws3
Log:
- fixed bug with spaces in file (web::include)
Revision Changes Path
1.5 +3 -3 tcl-websh/src/generic/script.ws3
Index: script.ws3
===================================================================
RCS file: /home/cvs/tcl-websh/src/generic/script.ws3,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- script.ws3 13 Feb 2002 17:48:03 -0000 1.4
+++ script.ws3 7 May 2002 12:53:27 -0000 1.5
@@ -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.
#
-# @(#) $Id: script.ws3,v 1.4 2002/02/13 17:48:03 davidw Exp $
+# @(#) $Id: script.ws3,v 1.5 2002/05/07 12:53:27 ronnie Exp $
#
#-----------------------------------------------------------------------------
@@ -66,10 +66,10 @@
if {![file exists $name]} {
set so "$name[info sharedlibextension]"
if {[file exists $so]} {
- return [catch {uplevel load $so} msg]
+ return [catch {uplevel [list load $so]} msg]
}
}
- return [catch {uplevel source $name} msg]
+ return [catch {uplevel [list source $name]} msg]
}
#-----------------------------------------------------------------------------
---------------------------------------------------------------------
To unsubscribe, e-mail: websh-cvs-unsubscribe@tcl.apache.org
For additional commands, e-mail: websh-cvs-help@tcl.apache.org