Commit 41d903c1 authored by Leigh B. Stoller's avatar Leigh B. Stoller

Fix up some TCL I broke (code fix from Shashi!).

parent 21a1e07a
......@@ -140,12 +140,12 @@ Node instproc updatedb {DB} {
}
} else {
# Do not allow user to set os for virt nodes at this time.
if {$isvirt} {
if {0 && $isvirt} {
perror "You may not specify an OS for virtual nodes ($self)!"
return
}
# Do not allow user to set os for host running virt nodes.
if {$virthost} {
if {0 && $virthost} {
perror "You may not specify an OS for hosting virtnodes ($self)!"
return
}
......@@ -284,10 +284,11 @@ Node instproc set_hwtype {hwtype isrem isv} {
#
Node instproc set_fixed {pnode} {
$self instvar fixed
if {[$pnode info class] == "Node"} {
if { [Node info instances $pnode] != {} } {
# $pnode is an object instance of class Node
$pnode set virthost 1
}
}
set fixed $pnode
}
......
......@@ -104,7 +104,7 @@ proc punsup {msg} {
# perror which does the right thing
#
proc unknown {args} {
perror "$args"
perror "Unknown: $args"
}
# Parse Arguments
......
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