compatibility version check

[ypp-sc-tools.db-test.git] / pctb / show-thing.tcl

diff --git a/pctb/show-thing.tcl b/pctb/show-thing.tcl
index be07d2d50fa3f0b5c063430a26826df94238ca87..0d2ec0c94ba202998858e3e539dc3673c3020bbf 100755 (executable)
--- a/pctb/show-thing.tcl
+++ b/pctb/show-thing.tcl
@@ -465,9 +465,10 @@ proc done/automatic {} {
 }
 
 switch -exact -- $argv {
-    {}           { set mainkind test }
-    --automatic  { set mainkind automatic }
-    default      { error "huh $argv ?" }
+    {}               { set mainkind test }
+    {--automatic 1}  { set mainkind automatic }
+    {--automatic*}   { error "incompatible versions - install problem" }
+    default          { error "huh $argv ?" }
 }
 
 read_database