Changeset 5984 for branches/1.4/lang/tcl

Timestamp:

Feb 9, 2016, 11:51:17 AM (9 years ago)

Author:

gah

Message:

add -appname switch for testing

File:

• branches/1.4/lang/tcl/scripts/task.tcl (modified) (2 diffs)

branches/1.4/lang/tcl/scripts/task.tcl

@@ -219 +219 @@
 
     # write out the driver.xml file for the tool
-    global _rapptureCwd
-    set file [file join $_rapptureCwd "driver[pid].xml"]
+    global rapptureInfo
+    set file [file join $rapptureInfo(cwd) "driver[pid].xml"]
     set status [catch {
         set fid [open $file w]
@@ -580 +580 @@
                 set rdir $_resources(-resultdir)
             } else {
-                global _rapptureCwd
-                set rdir $_rapptureCwd
+                global rapptureInfo
+                set rdir $rapptureInfo(cwd)
             }
         } elseif {$resultdir ne ""} {