tools/generate_firmware_task: silly fixes

This commit is contained in:
Steve McIntyre 2012-03-05 16:13:17 +00:00
parent 4a852eaac6
commit 55f8fdac36
1 changed files with 4 additions and 4 deletions

View File

@ -16,10 +16,10 @@
use strict;
my ($mirror, $codename, $archlist, $outfile);
my ($mirror, $codename, $archlist, $outfile, $localdebs);
my $date;
my $pkgfiles = "";
my ($pkg, $filename);
my ($pkg, $filename, $arch);
my %seen;
$codename = $ENV{'CODENAME'};
@ -33,12 +33,12 @@ if (!defined($codename) || !defined($mirror) ||
die "Error in arguments\n";
}
foreach my $arch (split(' ', $archlist)) {
foreach $arch (split(' ', $archlist)) {
$pkgfiles = "$pkgfiles $mirror/dists/$codename/*/binary-$arch/Packages.gz";
}
if defined($localdebs) {
foreach my $arch (split(' ', $archlist)) {
foreach $arch (split(' ', $archlist)) {
$pkgfiles = "$pkgfiles $localdebs/dists/$codename/*/binary-$arch/Packages.gz";
}
}