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

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

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