diff options
| author | Thierry Vignaud <tv@mageia.org> | 2012-11-29 15:05:09 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mageia.org> | 2012-11-29 15:05:09 +0000 |
| commit | 9d9a2e7e937e7767d2bffe10d74bd3ae3450bfdc (patch) | |
| tree | 2033f0d41c090efbb83f48ff2127bb123e8075fa | |
| parent | 489a99166ad77c0b367c24cb59f1ca2a92ea650d (diff) | |
| download | rpmdrake-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.pm | 6 |
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 }; } |