}
sub genwrapper () {
- my $check_args=<<"EOF";
+ return <<EOF;
{
int j;
for (j = 1; j < argc; j++)
exit(0);
}
EOF
- return $check_args;
}
sub checkconfig () {
system("env TZ=UTC cvsps -q --cvs-direct -z 30 -x >$tmpfile");
if ($? == -1) {
error "couldn't run cvsps: $!\n";
- } elsif (($? >> 8) != 0) {
+ }
+ elsif (($? >> 8) != 0) {
error "cvsps exited " . ($? >> 8) . ": $!\n";
}