if ($verbose) {
my $version = '$Revision: db181a534e9d $ $Date: 2008/03/26 06:20:22 $ $Author: rmurray $';
$version =~ s/(^\$| \$ .*$)//g;
- print "wanna-build $version for $distribution on $arch\n";
+ print "wanna-build $version for ".($distribution//"sid")." on $arch\n";
}
if (!@ARGV && !isin( $op_mode, qw(list merge-quinn merge-partial-quinn import export
sub lock_table {
return if $simulate;
- $dbh->do('LOCK TABLE ' . table_name() .
- ' IN EXCLUSIVE MODE', undef) or die $dbh->errstr;
+ $dbh->do('SELECT 1 FROM ' . table_name() .
+ ' WHERE distribution = ? FOR UPDATE', undef, $distribution) or die $dbh->errstr;
}
sub parse_argv {