Peppermint
/
debian-cd-clone
mirror of https://salsa.debian.org/images-team/debian-cd.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Make the dump of dependencies more verbose at parse time

This commit is contained in:
Steve McIntyre 2012-09-27 16:52:00 +00:00
parent 6230392432
commit b435f7b341
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
tools/sort_deps
View File

@ -426,13 +426,13 @@ sub read_depends {
if ($or eq '|') { if ($or eq '|') {
my $elt = read_ordepends ($i, $lines); my $elt = read_ordepends ($i, $lines);
foreach my $t (@$elt) { foreach my $t (@$elt) {
msg(1, " " . dump_depend($t) . " (OR)\n"); msg(1, " $out_type: " . dump_depend($t) . " (OR)\n");
} }
push @{$packages{$pkg}{$out_type}}, $elt; push @{$packages{$pkg}{$out_type}}, $elt;
} elsif ($lines->[$$i] =~ m/^\s\s$type: <([^>]+)>/) { } elsif ($lines->[$$i] =~ m/^\s\s$type: <([^>]+)>/) {
my $elt = read_virtualdepends ($i, $lines); my $elt = read_virtualdepends ($i, $lines);
foreach my $t (@$elt) { foreach my $t (@$elt) {
msg(1, " " . dump_depend($t) . " <virt>\n"); msg(1, " $out_type: " . dump_depend($t) . " <virt>\n");
} }
push @{$packages{$pkg}{$out_type}}, $elt; push @{$packages{$pkg}{$out_type}}, $elt;
} elsif ($lines->[$$i] =~ m/^\s\s$type: (\S+)( \((\S+) (\S+)\))*/) { } elsif ($lines->[$$i] =~ m/^\s\s$type: (\S+)( \((\S+) (\S+)\))*/) {
@ -445,7 +445,7 @@ sub read_depends {
$elt{"CmpOp"} = ""; $elt{"CmpOp"} = "";
$elt{"Version"} = ""; $elt{"Version"} = "";
} }
msg(1, " " . dump_depend(\%elt) . "\n"); msg(1, " $out_type: " . dump_depend(\%elt) . "\n");
push @{$packages{$pkg}{$out_type}}, \%elt; push @{$packages{$pkg}{$out_type}}, \%elt;
$$i++; $$i++;
@ -462,7 +462,7 @@ sub read_depends {
$elt1{"CmpOp"} = ""; $elt1{"CmpOp"} = "";
$elt1{"Version"} = ""; $elt1{"Version"} = "";
} }
msg(1, " " . dump_depend(\%elt1) . "\n"); msg(1, " $out_type: " . dump_depend(\%elt1) . "\n");
push @{$packages{$pkg}{$out_type}}, \%elt1; push @{$packages{$pkg}{$out_type}}, \%elt1;
$$i++; $$i++;
} }