Include packages with priority important or higher.

Packages with Priority required, standard and important are now included
in the first set of packages to visit. That doesn't increase too much in
relation to the total set when considering only Essential and
build-essential.

diff --git a/debsort.pl b/debsort.pl
index 969f6f7..5f48263 100644 (file)
--- a/debsort.pl
+++ b/debsort.pl
@@ -128,6 +128,12 @@ my @vsource = ();
 for my $i (keys %essential) {
        push @visit, $i;
 }
+for my $i (@packages) {
+       if (defined($priority{$i}) and ($priority{$i} eq "required" ||
+           $priority{$i} eq "standard" || $priority{$i} eq "important")) {
+               push @visit, $i;
+       }
+}
 push @visit, "build-essential";
 
 while (@visit) {