Include packages with priority important or higher.

[cascardo/debsrc.git] / debsort.pl

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) {