summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2012-03-27 17:15:17 +0000
committerThierry Vignaud <tv@mageia.org>2012-03-27 17:15:17 +0000
commita441548be2953fd682ab72dc3a644ef1567a26a4 (patch)
treea8296b6e22b7ccee8ebe2c372cd53472114e7d53
parent0885712b66919403aab9ccd95d27b095deee34c1 (diff)
downloadurpmi-a441548be2953fd682ab72dc3a644ef1567a26a4.tar
urpmi-a441548be2953fd682ab72dc3a644ef1567a26a4.tar.gz
urpmi-a441548be2953fd682ab72dc3a644ef1567a26a4.tar.bz2
urpmi-a441548be2953fd682ab72dc3a644ef1567a26a4.tar.xz
urpmi-a441548be2953fd682ab72dc3a644ef1567a26a4.zip
(urpmq --not-available) do not reinvent (slower) ->fullname
introduced by cfergeau in 262492 on Oct 21 2009: add --not-available option to urpmq Patch from Pascal Terjan, fixes bug #51418
-rwxr-xr-xurpmq8
1 files changed, 2 insertions, 6 deletions
diff --git a/urpmq b/urpmq
index d69d6f3f..bc6abe7e 100755
--- a/urpmq
+++ b/urpmq
@@ -253,17 +253,13 @@ if ($options{list_aliases}) {
}
} elsif ($options{not_available}) {
my %available;
- my $to_string = sub {
- my ($p) = @_;
- $p->name . '-' . $p->version . '-' . $p->release . '.' . $p->arch
- };
foreach my $p (@{$urpm->{depslist}}) {
- $available{$to_string->($p)} = 1;
+ $available{$p->fullname} = 1;
}
my $db = urpm::db_open_or_die_($urpm);
$db->traverse(sub {
my ($p) = @_;
- my $s = $to_string->($p);
+ my $s = $p->fullname;
# FIXME Use $pkg_to_string if some options are set but default to this format ?
# Magical packages like gpg-pubkey do not have arch and we do not want them
$available{$s} || !$p->arch || print "$s\n";