From 9d9a2e7e937e7767d2bffe10d74bd3ae3450bfdc Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Thu, 29 Nov 2012 15:05:09 +0000
Subject: just use ->fullname directly when sure

---
 Rpmdrake/pkg.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'Rpmdrake')

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 };
       }
-- 
cgit v1.2.1