Commit 02dfe8bb authored by Christopher Alfeld's avatar Christopher Alfeld

Fixed so that tarfiles show up as dira tara:dirb tarb:...

parent b0051bd1
......@@ -137,7 +137,12 @@ proc tb-set-node-tarfiles {node args} {
perror "\[tb-set-node-tarfiles] Arguments should be node and series of pairs."
return
}
$node set tarfiles [join $args :]
set tarfiles {}
while {$args != {}} {
lappend tarfiles [join [lrange $args 0 1]]
set args [lrange $args 2 end]
}
$node set tarfiles [join $tarfiles :]
}
proc tb-set-node-deltas {node args} {
if {$args == {}} {
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment