From: Thadeu Lima de Souza Cascardo <cascardo@cascardo.eti.br>
Date: Fri, 24 Apr 2015 10:03:19 +0000 (-0300)
Subject: Include packages with priority important or higher.
X-Git-Url: http://git.cascardo.eti.br/?p=cascardo%2Fdebsrc.git;a=commitdiff_plain;h=HEAD

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