From 8638bfda88a8701a649874dfa6a16049004610a9 Mon Sep 17 00:00:00 2001
From: "Christopher J. Morrone" <morrone2@llnl.gov>
Date: Mon, 15 May 2006 16:40:46 +0000
Subject: [PATCH] Fix cset's bahviour to not do string substitution a second
time
---
testsuite/expect/globals | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/testsuite/expect/globals b/testsuite/expect/globals
index 02b7f441397..156343e1d38 100755
--- a/testsuite/expect/globals
+++ b/testsuite/expect/globals
@@ -39,7 +39,8 @@ global sacct sbcast scancel scontrol sinfo smap squeue srun
# Conditional set. Only set variable if variable does not yet exist.
proc cset {name value} {
if {![uplevel 1 info exists $name]} {
- uplevel 1 "set $name \"$value\""
+ upvar $name tmp
+ set tmp $value
}
}
@@ -78,7 +79,7 @@ cset mpirun "mpirun"
cset totalviewcli "/usr/local/bin/totalviewcli"
# Pattern to match your shell prompt
-cset prompt "(%|#|\\\$) *$"
+cset prompt {(%|#|\$) *$}
#
# Specify locations of other executable files used
--
GitLab