Fix tab damage from last checkin

This commit is contained in:
Steve McIntyre 2008-11-26 23:42:05 +00:00
parent eabbd6d948
commit eb58e46871
1 changed files with 6 additions and 6 deletions

View File

@ -306,7 +306,7 @@ sub load_packages_cache {
my $arch = shift;
my @pkglist;
my ($p);
my $num_pkgs = 0;
my $num_pkgs = 0;
$ENV{'LC_ALL'} = 'C'; # Required since apt is now translated
$ENV{'ARCH'} = $arch;
@ -321,7 +321,7 @@ sub load_packages_cache {
}
close INLIST;
print "Reading in package information for $arch:\n";
print "Reading in package information for $arch:\n";
$/ = ''; # Browse by paragraph
while (@pkglist) {
@ -336,13 +336,13 @@ sub load_packages_cache {
while (defined($_ = <LIST>)) {
m/^Package: (\S+)/m and $p = $1;
$pkginfo{$arch}{$p} = $_;
$num_pkgs++;
$num_pkgs++;
}
close LIST;
print LOG "load_packages_cache: Read details of $num_pkgs packages for $arch\n";
close LIST;
print LOG "load_packages_cache: Read details of $num_pkgs packages for $arch\n";
}
$/ = $old_split; # Browse by line again
print " Done: Read details of $num_pkgs packages for $arch\n";
print " Done: Read details of $num_pkgs packages for $arch\n";
}
sub should_start_extra_nonfree {