aboutsummaryrefslogtreecommitdiffstats
path: root/t/rpmdb.t
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2008-02-25 21:13:21 +0000
committerPascal Rigaux <pixel@mandriva.com>2008-02-25 21:13:21 +0000
commit1be9a83c49f1a2650fd9fc896f39c6d4d9c9c93d (patch)
treef6ea9d5db25d2595510d26d689a34a7744f86740 /t/rpmdb.t
parent5e00bc2ec4aa5397f1ae62bcb22d7a816a08cda3 (diff)
downloadperl-URPM-1be9a83c49f1a2650fd9fc896f39c6d4d9c9c93d.tar
perl-URPM-1be9a83c49f1a2650fd9fc896f39c6d4d9c9c93d.tar.gz
perl-URPM-1be9a83c49f1a2650fd9fc896f39c6d4d9c9c93d.tar.bz2
perl-URPM-1be9a83c49f1a2650fd9fc896f39c6d4d9c9c93d.tar.xz
perl-URPM-1be9a83c49f1a2650fd9fc896f39c6d4d9c9c93d.zip
do not do "uniq" on "fullname" since gpg-pubkey-xxxxxxxx-xxxxxxxx can be installed twice
Diffstat (limited to 't/rpmdb.t')
-rw-r--r--t/rpmdb.t5
1 files changed, 2 insertions, 3 deletions
diff --git a/t/rpmdb.t b/t/rpmdb.t
index 512ce10..b263013 100644
--- a/t/rpmdb.t
+++ b/t/rpmdb.t
@@ -5,7 +5,7 @@ use warnings ;
use Test::More tests => 7;
use URPM;
-my ($count, @all_pkgs_extern, %all_pkgs, @all_pkgs);
+my ($count, @all_pkgs_extern, @all_pkgs);
my ($pkg_perl, $count_perl, $pkg_perl_extern);
{
my $db;
@@ -19,10 +19,9 @@ my ($pkg_perl, $count_perl, $pkg_perl_extern);
my ($name, $version, $release, $arch) = $pkg->fullname;
#- arch is void for -pubkey- package.
my $fullname = "$name-$version-$release";
- $all_pkgs{$fullname}++;
+ push @all_pkgs, $fullname;
if ($name eq 'perl') { $pkg_perl_extern = $fullname }
});
- @all_pkgs = keys %all_pkgs;
$count_perl = $db->traverse_tag('name', ['perl'], sub {
my ($pkg) = @_;