]> git.deb.at Git - deb/packages.git/commitdiff
Merge branch 'master' into ubuntu-master
authorGerfried Fuchs <rhonda@debian.org>
Tue, 28 Jun 2011 06:06:42 +0000 (08:06 +0200)
committerGerfried Fuchs <rhonda@debian.org>
Tue, 28 Jun 2011 06:06:42 +0000 (08:06 +0200)
1  2 
bin/parse-contents

diff --combined bin/parse-contents
index 22a72e8b507a5ae9adfd8219da3be4b1cf0e2c88,16bc7e497f7e9bf25daf0b5c5337415279fd7cff..959b6101b8e8e9478a11dd3222e886ecf1904f62
@@@ -47,7 -47,7 +47,7 @@@ my @archives = @ARCHIVES
  my @suites = @SUITES;
  my @archs = @ARCHITECTURES;
  my %deborts_hash;
- @deborts_hash{qw( avr32 m68k powerpcspe sh4 sparc64 )} = ();
+ @deborts_hash{qw( alpha avr32 hppa m68k powerpcspe sh4 sparc64 )} = ();
  
  $DBDIR .= "/contents";
  mkdirp( $DBDIR );
@@@ -87,11 -87,9 +87,11 @@@ for my $suite (@suites) 
  
                open CONT, "zcat $filename|$what"
                    or die $!;
 -              while (<CONT>) { last if /^FILE/mo; }
 -              if (eof(CONT)) { # no header found
 +              my $header_found = 0;
 +              while (<CONT>) { /^FILE/mo && do { $header_found = 1; last };}
 +              if (eof(CONT)) { # no header found or only header found
                    close CONT; # explicit close to reset $.
 +                  next if $header_found;
                    open CONT, "zcat $filename|$what";
                }
                while (<CONT>) {