|
|
@ -22,7 +22,7 @@ while ($line = <>) { |
|
|
|
$line =~ /^(Build-)?Depends: \s*(.+)\s*$/ and do { |
|
|
|
$line =~ /^(Build-)?Depends: \s*(.+)\s*$/ and do { |
|
|
|
$pkg{$name}->{depends} ||= []; |
|
|
|
$pkg{$name}->{depends} ||= []; |
|
|
|
foreach my $v (split /\s+/, $2) { |
|
|
|
foreach my $v (split /\s+/, $2) { |
|
|
|
next if $v =~ /^@/; |
|
|
|
next if $v =~ /^[\+]?@/; |
|
|
|
$v =~ s/^\+//; |
|
|
|
$v =~ s/^\+//; |
|
|
|
push @{$pkg{$name}->{depends}}, $v; |
|
|
|
push @{$pkg{$name}->{depends}}, $v; |
|
|
|
} |
|
|
|
} |
|
|
|