Petr Šabata 3afb15b
diff --git a/cpanspec b/cpanspec
Petr Šabata 3afb15b
index a15765a..0af4e85 100755
Petr Šabata 3afb15b
--- a/cpanspec
Petr Šabata 3afb15b
+++ b/cpanspec
Petr Šabata 3afb15b
@@ -490,11 +490,17 @@ sub check_rpm($) {
Petr Šabata 3afb15b
 sub check_repo($) {
Petr Šabata 3afb15b
     my $dep=shift;
Petr Šabata 3afb15b
 
Petr Šabata 3afb15b
-    my $repoquery="/usr/bin/repoquery";
Petr Šabata 3afb15b
-    return undef if (!-x $repoquery);
Petr Šabata 3afb15b
+    my ($repoquery, $repoqueryopts);
Petr Šabata 3afb15b
+    if (-x ($repoquery = '/usr/bin/dnf')) {
Petr Šabata 3afb15b
+        $repoqueryopts = "whatprovides '${dep}'"
Petr Šabata 3afb15b
+    } elsif (-x ($repoquery = '/usr/bin/repoquery')) {
Petr Šabata 3afb15b
+        $repoqueryopts = "--whatprovides '${dep}'"
Petr Šabata 3afb15b
+    } else {
Petr Šabata 3afb15b
+        return undef
Petr Šabata 3afb15b
+    }
Petr Šabata 3afb15b
 
Petr Šabata 3afb15b
     verbose("Running $repoquery to check for $dep.  This may take a while...");
Petr Šabata 3afb15b
-    my @out=`$repoquery --whatprovides "$dep"`;
Petr Šabata 3afb15b
+    my @out=`$repoquery $repoqueryopts 2>/dev/null`;
Petr Šabata 3afb15b
 
Petr Šabata 3afb15b
     if ($? != 0) {
Petr Šabata 3afb15b
         #warn "backtick (repoquery) failed with return value $?";