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