summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-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";