Peppermint
/
debian-cd-clone
mirror of https://salsa.debian.org/images-team/debian-cd.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
tools/make_disc_trees.pl
View File

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