aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2012-11-29 15:05:09 +0000
committerThierry Vignaud <tv@mageia.org>2012-11-29 15:05:09 +0000
commit9d9a2e7e937e7767d2bffe10d74bd3ae3450bfdc (patch)
tree2033f0d41c090efbb83f48ff2127bb123e8075fa
parent489a99166ad77c0b367c24cb59f1ca2a92ea650d (diff)
downloadrpmdrake-9d9a2e7e937e7767d2bffe10d74bd3ae3450bfdc.tar
rpmdrake-9d9a2e7e937e7767d2bffe10d74bd3ae3450bfdc.tar.gz
rpmdrake-9d9a2e7e937e7767d2bffe10d74bd3ae3450bfdc.tar.bz2
rpmdrake-9d9a2e7e937e7767d2bffe10d74bd3ae3450bfdc.tar.xz
rpmdrake-9d9a2e7e937e7767d2bffe10d74bd3ae3450bfdc.zip
just use ->fullname directly when sure
-rw-r--r--Rpmdrake/pkg.pm6
1 files changed, 3 insertions, 3 deletions
diff --git a/Rpmdrake/pkg.pm b/Rpmdrake/pkg.pm
index 6b3e5503..a4027865 100644
--- a/Rpmdrake/pkg.pm
+++ b/Rpmdrake/pkg.pm
@@ -105,7 +105,7 @@ sub extract_header {
return;
}
- my $name = urpm_name($p);
+ my $name = $p->fullname;
# fix extracting info for SRPMS and RPM GPG keys:
$name =~ s!\.src!!;
@@ -331,7 +331,7 @@ sub get_installed_packages {
exists $basepackages{$_} and next;
$db->traverse_tag(m|^/| ? 'path' : 'whatprovides', [ $_ ], sub {
update_pbar($gurpm);
- my $name = urpm_name($_[0]);
+ my $name = $_[0]->fullname;
# workaround looping in URPM:
return if member($name, @processed_base);
push @processed_base, $name;
@@ -550,7 +550,7 @@ sub get_pkgs {
next if !$pkg_id;
my $pkg = $urpm->{depslist}[$pkg_id];
$pkg->flag_upgrade or next;
- my $name = urpm_name($pkg);
+ my $name = $pkg->fullname;
push @$backports, $name;
$all_pkgs{$name} = { pkg => $pkg, is_backport => 1 };
}