chiark / gitweb /
compatibility version check
authorIan Jackson <ian@liberator.relativity.greenend.org.uk>
Thu, 4 Jun 2009 19:16:15 +0000 (20:16 +0100)
committerIan Jackson <ian@liberator.relativity.greenend.org.uk>
Thu, 4 Jun 2009 19:16:15 +0000 (20:16 +0100)
pctb/ocr.c
pctb/show-thing.tcl

index 7f3be26..df4aacf 100644 (file)
@@ -110,7 +110,8 @@ static void callout_unknown(int w, int h, Pixcol cols[],
       /* we know donepipe[1] is >= 4 and we have dealt with all the others
        * so we aren't in any danger of overwriting some other fd 4: */
       r= dup2(donepipe[1],4); eassert(r==4);
-      execlp("./show-thing.tcl", "./show-thing.tcl","--automatic",(char*)0);
+      execlp("./show-thing.tcl", "./show-thing.tcl",
+            "--automatic","1",(char*)0);
       eassert(!"execlp failed");
     }
     r= close(jobpipe[0]); eassert(!r);
index be07d2d..0d2ec0c 100755 (executable)
@@ -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