Avoid unitialised Priority value.

git-svn-id: http://emdebian.org/svn/current@7316 563faec7-e20c-0410-992a-a66f704d0ccd
This commit is contained in:
codehelp 2010-06-29 12:57:03 +00:00
parent c7b40d3423
commit ea8a5a5f37
2 changed files with 7 additions and 1 deletions

3
debian/changelog vendored
View file

@ -2,8 +2,9 @@ multistrap (2.1.6) unstable; urgency=low
* [INTL:fr] French manpage translation update (Closes: #584679) * [INTL:fr] French manpage translation update (Closes: #584679)
* Allow check-deps.sh to proceed when detecting errors. * Allow check-deps.sh to proceed when detecting errors.
* Avoid unitialised Priority value.
-- Neil Williams <codehelp@debian.org> Sun, 20 Jun 2010 17:39:51 +0100 -- Neil Williams <codehelp@debian.org> Tue, 29 Jun 2010 13:47:53 +0100
multistrap (2.1.5) unstable; urgency=low multistrap (2.1.5) unstable; urgency=low

View file

@ -765,6 +765,11 @@ sub get_required_debs
my $parser = Parse::Debian::Packages->new( $fh ); my $parser = Parse::Debian::Packages->new( $fh );
while (my %package = $parser->next) while (my %package = $parser->next)
{ {
if (not defined $package{'Priority'} and (defined $package{'Essential'})) {
$required{$package{'Package'}}++;
continue;
}
next if (not defined $package{'Priority'});
next unless $package{'Priority'} eq "required"; next unless $package{'Priority'} eq "required";
$required{$package{'Package'}}++; $required{$package{'Package'}}++;
} }