my %depends = ();
my %priority = ();
my %essential = ();
+my %size = ();
sub add_depends {
my ($package, $depends) = @_;
if (/^Essential: yes/) {
$essential{$package} = "yes";
}
+ if (/^Size: (.*)/) {
+ $size{$package} = $1;
+ }
}
close(PACKAGES);
}
}
+my $tsize = 0;
for my $i (@pp) {
- print "$i\n";
+ $size{$i} = 0 if (!defined($size{$i}));
+ print "$size{$i} $i\n";
+ $tsize += $size{$i};
}
+
+print "$tsize Total\n";