my %binaries = ();
my %csource = ();
my %bdeps = ();
+my %ssize = ();
sub add_binaries {
my ($package, $binaries) = @_;
$bdeps{$package} = $bd;
}
+my $files_start = 0;
while (<SOURCES>) {
if (/^Package: ([0-9a-z-+.]+)/) {
if (/^Build-Depends: (.*)/) {
add_bdeps($package, $1);
}
+ if ($files_start) {
+ if (/^ [a-f0-9]+ ([0-9]+)/) {
+ $ssize{$package} += $1;
+ } else {
+ $files_start = 0;
+ }
+ }
+ if (/^Files:/) {
+ $files_start = 1;
+ $ssize{$package} = 0;
+ }
}
close(SOURCES);
}
my $tsize = 0;
+
for my $i (@pp) {
$size{$i} = 0 if (!defined($size{$i}));
print "$size{$i} $i\n";
$tsize += $size{$i};
}
+for my $i (@vsource) {
+ $ssize{$i} = 0 if (!defined($ssize{$i}));
+ print "$ssize{$i} S:$i\n";
+ $tsize += $ssize{$i};
+}
+
print "$tsize Total\n";