Commit ed3f8c58 authored by Mike Hibler's avatar Mike Hibler

Avoid a gruesome TCL error.

This doesn't fit the real problem, but the failure is a lot less ugly!
parent b941416b
......@@ -313,7 +313,8 @@ Node instproc updatedb {DB} {
if { [regexp {:} $parent_osid] } {
set pos [lindex [split $parent_osid {:}] 0]
}
if {[lsearch -exact $subosids($os) $pos] == -1} {
if {![info exists subosids($os)] ||
[lsearch -exact $subosids($os) $pos] == -1} {
perror "subOSID $osid does not run on parent OSID $parent_osid!"
return
}
......
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