# a proper error.
if ($verbose) {
- my $version = '$Revision: db181a534e9d $ $Date: 2008/03/26 06:20:22 $ $Author: rmurray $';
- $version =~ s/(^\$| \$ .*$)//g;
+ my $version = '$Id$';
+ $version =~ s/^.* ([a-f0-9]+) .*$/$1/g;
print "wanna-build $version for ".($distribution//"sid")." on $arch\n";
}
sub lock_table {
return if $simulate;
$dbh->do('SELECT 1 FROM ' . table_name() .
- ' FOR UPDATE', undef) or die $dbh->errstr;
+ ' WHERE distribution = ? FOR UPDATE', undef, $distribution) or die $dbh->errstr;
}
sub parse_argv {