fix a test on Fedora where perl main package is perl-interpreter

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";