From 7ce28b949d10e78a4c1f2d419b9b313958da7df4 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Wed, 29 Apr 2020 05:43:26 +0200
Subject: fix testing on pre UsrMove Linuxes (eg: mga2)

---
 NEWS      | 2 ++
 t/rpmdb.t | 2 +-
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/NEWS b/NEWS
index 3fdf052..bd2ce8a 100644
--- a/NEWS
+++ b/NEWS
@@ -1,3 +1,5 @@
+- fix testing on pre UsrMove Linuxes (eg: mga2)
+
 Version 5.26 - 21 April 2020
 
 - restore support for building on mga4 (broken in 5.24)
diff --git a/t/rpmdb.t b/t/rpmdb.t
index fd99220..79f823c 100644
--- a/t/rpmdb.t
+++ b/t/rpmdb.t
@@ -19,7 +19,7 @@ my ($pkg_perl, $count_perl, $pkg_perl_extern);
     @all_pkgs_extern = sort { $a cmp $b } split /\n/ => qx(rpm -qa --nosignature --qf '%{name}-%{version}-%{release}\n');
     ok(@all_pkgs_extern > 0, 'There are RPMs');
 
-    my $perl = -e '/etc/redhat-release' || -e '/etc/mageia-release' ? qx(rpm -qf /bin/perl --qf '%{name}') : 'perl';
+    my $perl = -e '/etc/redhat-release' || -e '/etc/mageia-release' ? qx(rpm -qf /usr/bin/perl --qf '%{name}') : 'perl';
     $count = $db->traverse(sub {
 	    my ($pkg) = @_;
 	    my ($name, $version, $release, $arch) = $pkg->fullname;
-- 
cgit v1.2.1