aboutsummaryrefslogtreecommitdiffstats
path: root/t
diff options
context:
space:
mode:
Diffstat (limited to 't')
-rw-r--r--t/rpmdb.t5
1 files changed, 3 insertions, 2 deletions
diff --git a/t/rpmdb.t b/t/rpmdb.t
index fd4db8f..6587f7d 100644
--- a/t/rpmdb.t
+++ b/t/rpmdb.t
@@ -25,10 +25,11 @@ my ($pkg_perl, $count_perl, $pkg_perl_extern);
#- arch is void for -pubkey- package.
my $fullname = "$name-$version-$release";
push @all_pkgs, $fullname;
- if ($name eq 'perl') { $pkg_perl_extern = $fullname }
+ $pkg_perl_extern = $fullname if $name eq 'perl' || $name eq 'perl-interpreter';
});
- $count_perl = $db->traverse_tag('name', ['perl'], sub {
+ my $perl = -e "/etc/redhat-release" ? qx(rpm -qf /bin/perl --qf '%{name}') : 'perl';
+ $count_perl = $db->traverse_tag('name', [$perl], sub {
my ($pkg) = @_;
my ($name, $version, $release) = $pkg->fullname;
$pkg_perl = "$name-$version-$release";