242 |
if ( $track{repo} eq $cmp->{repo} ) { |
if ( $track{repo} eq $cmp->{repo} ) { |
243 |
if ( verrel($cmp, $cmp->{repo}, \%counts) ) { |
if ( verrel($cmp, $cmp->{repo}, \%counts) ) { |
244 |
$cmp->{delete}++ unless $repos->{$cmp->{repo}}->{base}; |
$cmp->{delete}++ unless $repos->{$cmp->{repo}}->{base}; |
245 |
|
} elsif ( $cmp->{src} ) { |
246 |
|
$cmp->{delete}++ unless $repos->{$cmp->{repo}}->{base}; |
247 |
} else { |
} else { |
248 |
$track{svr} = $cmp->{svr}; |
$track{svr} = $cmp->{svr}; |
249 |
} |
} |
273 |
} |
} |
274 |
} |
} |
275 |
} elsif ( scalar keys %pkgs && $opts{s} ) { |
} elsif ( scalar keys %pkgs && $opts{s} ) { |
276 |
print "\n * missing source (", $pkg->{repo}, ", ", $pkg->{svr}, ")\n"; |
print "\n * missing source (sme$smever, ", $pkg->{repo}, ", ", $pkg->{svr}, ")\n"; |
277 |
} |
} |
278 |
print "\n * missing originals (", $pkg->{repo}, ", ", $pkg->{svr}, ")\n" if $opts{o} && scalar keys %orig != scalar keys %pkgs; |
print "\n * missing originals (sme$smever, ", $pkg->{repo}, ", ", $pkg->{svr}, ")\n" if $opts{o} && scalar keys %orig != scalar keys %pkgs; |
279 |
} |
} |
280 |
|
|
281 |
foreach my $r ( keys %$acnt ) { |
foreach my $r ( keys %$acnt ) { |