diff options
Diffstat (limited to 'ds9/library/catmatch.tcl')
-rw-r--r-- | ds9/library/catmatch.tcl | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/ds9/library/catmatch.tcl b/ds9/library/catmatch.tcl index 8382a48..ed63d78 100644 --- a/ds9/library/catmatch.tcl +++ b/ds9/library/catmatch.tcl @@ -228,14 +228,26 @@ proc CATMatch {frame varname1 varname2} { puts stderr "CATMatch $frame $varname1 $varname2" } + if {$varname1 == {} || $varname2 == {}} { + return + } + upvar #0 $varname1 var1 global $varname1 + if {![info exists var1(tbldb)]} { + # error + return + } global $var1(tbldb) set t1 $var1(tbldb) upvar #0 $t1 T1 upvar #0 $varname2 var2 global $varname2 + if {![info exists var2(tbldb)]} { + # error + return + } global $var2(tbldb) set t2 $var2(tbldb) upvar #0 $t2 T2 |