diff options
| -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 }; } |