Use the new "vimage -lr" form to traverse the entire vimage

hierarchy bellow the current position, given that from now on
"vimage -l" will list only direct children of current vimage.

Bug found by:
Submitted by:
Reviewed by:
Approved by:
Obtained from:

diff --git a/exec.tcl b/exec.tcl
index 580d1e4ce7230a0688fe1816c26045716e8ad98c..1675c3a94e093ef65ee54ea0c5010d73bcb893c7 100755 (executable)
--- a/exec.tcl
+++ b/exec.tcl
@@ -1,4 +1,4 @@
-# $Id: exec.tcl,v 1.62 2007/11/01 11:11:06 marko Exp $
+# $Id: exec.tcl,v 1.63 2007/11/01 21:51:48 marko Exp $
 
 # Copyright 2004, 2005 University of Zagreb, Croatia.  All rights reserved.
 #
@@ -641,7 +641,7 @@ proc vimageCleanup { eid } {
     global .c
 
     set t_start [clock seconds]
-    if { [catch {nexec vimage $eid vimage -l | fgrep -v "    " | cut -d: -f 1} res] != 0 } {
+    if { [catch {nexec vimage $eid vimage -lr | fgrep -v "    " | cut -d: -f 1} res] != 0 } {
        return
     }
     set vimages [join $res]