From: marko <marko>
Date: Thu, 1 Nov 2007 21:51:48 +0000 (+0000)
Subject: Use the new "vimage -lr" form to traverse the entire vimage
X-Git-Url: https://git.entuzijast.net/?a=commitdiff_plain;h=534621a6c98a679f01f85d2d0ce8756b885ebdd6;p=imunes.git

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 580d1e4..1675c3a 100755
--- 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]