~fta/drobotik/drobotik.head

Viewing changes to sync-ppa.pl

* Add a workaround for the dput error

added added

removed removed

226

print "*LOG* dput successfully pushed all " . ($#$dput + 1) . " source packages (to $dput_dist)\n";

227

} || do {

228

print "*LOG* dput '$dput_dist' returned with error $?: $!\n";

229

# workaround LP regression. Only the 1st has been uploaded

230

for my $file (@$dput[1..$#$dput]) {

231

system("dput", $dput_dist, $file); # ignore errors, they are expected here :(

232

}

229

233

for my $file (@$dput) {

230

234

$file =~ s/(.*)\.changes$/$1\.$dput_dist.upload/;

231

235

printf "*LOG* dput: %s not uploaded\n", $1 unless -f $file;