Blame cpanspec-1.78-Prefer-dnf-over-repoquery.patch
|
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 $?";
|