From 1102a67d6cd36b154100320975b141b8acf7f9dc Mon Sep 17 00:00:00 2001
From: Jitka Plesnikova <jplesnik@redhat.com>
Date: Mar 22 2023 08:17:31 +0000
Subject: Perl: Remove require of perl(MODULE_COMPAT)


---

diff --git a/plugins/perl.py b/plugins/perl.py
index ec6bd19..436339e 100644
--- a/plugins/perl.py
+++ b/plugins/perl.py
@@ -39,7 +39,7 @@ class PerlCheckBuildRequires(PerlCheckBase):
 
     def run_on_applicable(self):
         """
-        Check that we don't have BR:perl-devel and do have the
+        Check that we don't have BR:perl-devel and don't have the
         Requires: perl_compat thin.
         """
 
@@ -55,8 +55,8 @@ class PerlCheckBuildRequires(PerlCheckBase):
         compat = rpm.expandMacro(perl_compat)
         for r in self.spec.get_requires():
             if r == compat:
-                break
-        else:
-            self.set_passed(self.PENDING, "Requires: " + perl_compat + " missing?")
-            return
+                self.set_passed(
+                    self.FAIL, "Requires: " + perl_compat + " has to be removed"
+                )
+                return
         self.set_passed(self.PENDING)