/* 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);
}
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