$line =~ /^(Build-)?Depends: \s*(.+)\s*$/ and do {
$pkg{$name}->{depends} ||= [];
foreach my $v (split /\s+/, $2) {
- next if $v =~ /^@/;
+ next if $v =~ /^[\+]?@/;
$v =~ s/^\+//;
push @{$pkg{$name}->{depends}}, $v;
}
my $depline = "";
foreach my $dep (@{$pkg{$name}->{depends}}) {
my $idx;
- if (defined $pkg{$dep}->{src} && $pkg{$name}->{src} ne $pkg{$dep}->{src}) {
- $idx = $pkg{$dep}->{src};
+ if (defined $pkg{$dep}->{src}) {
+ ($pkg{$name}->{src} ne $pkg{$dep}->{src}) and $idx = $pkg{$dep}->{src};
} elsif (defined $pkg{$dep}) {
$idx = $dep;
}