SOURCES/File-Find-Rule-0.34-Fix-for-CVE-2011-10007-Use-3-arg-open-in-grep.patch

@@ -1,25 +0,0 @@
-From df58128bcee4c1da78c34d7f3fe1357e575ad56f Mon Sep 17 00:00:00 2001
-From: Stig Palmquist <git@stig.io>
-Date: Thu, 5 Jun 2025 12:58:45 +0200
-Subject: [PATCH] Fix for CVE-2011-10007: Use 3 arg open in grep()`
-
----
- lib/File/Find/Rule.pm | 2 +-
- 1 file changed, 1 insertion(+), 1 deletion(-)
-
-diff --git a/lib/File/Find/Rule.pm b/lib/File/Find/Rule.pm
-index feccc76..d4dc475 100644
---- a/lib/File/Find/Rule.pm
-+++ b/lib/File/Find/Rule.pm
-@@ -420,7 +420,7 @@ sub grep {
- 
-     $self->exec( sub {
-         local *FILE;
--        open FILE, $_ or return;
-+        open FILE, '<', $_ or return;
-         local ($_, $.);
-         while (<FILE>) {
-             for my $p (@pattern) {
--- 
-2.49.0
-

SPECS/perl-File-Find-Rule.spec

@@ -1,59 +1,30 @@
-Name:           perl-File-Find-Rule
+Name: 		perl-File-Find-Rule
-Version:        0.34
+Version: 	0.34
-Release:        9%{?dist}
+Release: 	8%{?dist}
-Summary:        Perl module implementing an alternative interface to File::Find
+Summary: 	Perl module implementing an alternative interface to File::Find
-License:        GPL+ or Artistic
+License: 	GPL+ or Artistic
-Group:          Development/Libraries
+Group: 		Development/Libraries
-URL:            http://search.cpan.org/dist/File-Find-Rule/
+URL: 		http://search.cpan.org/dist/File-Find-Rule/
-Source0:        http://www.cpan.org/authors/id/R/RC/RCLAMP/File-Find-Rule-%{version}.tar.gz
+Source0: 	http://www.cpan.org/authors/id/R/RC/RCLAMP/File-Find-Rule-%{version}.tar.gz
-Patch0:         File-Find-Rule-0.34-Fix-for-CVE-2011-10007-Use-3-arg-open-in-grep.patch
 
-BuildArch:      noarch
+BuildArch: 	noarch
-BuildRequires:  coreutils
+BuildRequires:	perl-interpreter
-BuildRequires:  make
+BuildRequires:	perl-generators
-BuildRequires:  perl-generators
-BuildRequires:  perl-interpreter
-BuildRequires:  perl(Carp)
 BuildRequires:  perl(ExtUtils::MakeMaker)
 BuildRequires:  perl(File::Find)
 BuildRequires:  perl(File::Spec)
-BuildRequires:  perl(File::Spec::Functions)
+BuildRequires: 	perl(Number::Compare)
-BuildRequires:  perl(lib)
+BuildRequires: 	perl(Text::Glob)
-BuildRequires:  perl(Number::Compare)
-BuildRequires:  perl(strict)
 BuildRequires:  perl(Test::More) >= 0.07
-BuildRequires:  perl(Text::Glob)
-BuildRequires:  perl(vars)
-BuildRequires:  perl(warnings)
-# Optional tests
-BuildRequires:  perl(Test::Differences)
 
-Requires:       perl(:MODULE_COMPAT_%(eval "`%{__perl} -V:version`"; echo $version))
+Requires:  	perl(:MODULE_COMPAT_%(eval "`%{__perl} -V:version`"; echo $version))
-
-%global __provides_exclude_from %{?__provides_exclude_from:%__provides_exclude_from|}^%{_libexecdir}
 
 %description
 File::Find::Rule is a friendlier interface to File::Find.  It allows
 you to build rules which specify the desired files and directories.
 
-%package tests
-Summary:        Tests for %{name}
-Requires:       %{name} = %{?epoch:%{epoch}:}%{version}-%{release}
-Requires:       perl(Test::Differences)
-Requires:       perl-Test-Harness
-
-%description tests
-Tests from %{name}. Execute them
-with "%{_libexecdir}/%{name}/test".
-
 %prep
 %setup -q -n File-Find-Rule-%{version}
-%patch -P0 -p1
-# Help generators to recognize Perl scripts
-for F in t/*.t; do
-    perl -i -MConfig -ple 'print $Config{startperl} if $. == 1 && !s{\A#!.*perl\b}{$Config{startperl}}' "$F"
-    chmod +x "$F"
-done
 
 %build
 %{__perl} Makefile.PL INSTALLDIRS=vendor NO_PACKLIST=1
@@ -61,17 +32,7 @@ make %{?_smp_mflags}
 
 %install
 make pure_install PERL_INSTALL_ROOT=$RPM_BUILD_ROOT
-%{_fixperms} $RPM_BUILD_ROOT/*
+chmod -R u+w $RPM_BUILD_ROOT/*
-
-# Install tests
-mkdir -p $RPM_BUILD_ROOT/%{_libexecdir}/%{name}
-cp -a t testdir $RPM_BUILD_ROOT/%{_libexecdir}/%{name}
-ln -s %{_bindir}/findrule %{buildroot}%{_libexecdir}/%{name}/
-cat > $RPM_BUILD_ROOT/%{_libexecdir}/%{name}/test << 'EOF'
-#!/bin/sh
-cd %{_libexecdir}/%{name} && exec prove -I . -j "$(getconf _NPROCESSORS_ONLN)"
-EOF
-chmod +x $RPM_BUILD_ROOT/%{_libexecdir}/%{name}/test
 
 %check
 make test
@@ -79,18 +40,11 @@ make test
 %files
 %doc Changes
 %{_bindir}/findrule
-%{_mandir}/man1/findrule*
+%{_mandir}/man1/*
 %{perl_vendorlib}/File
-%{_mandir}/man3/File::Find::Rule*
+%{_mandir}/man3/*
-
-%files tests
-%{_libexecdir}/%{name}
 
 %changelog
-* Fri Jun 06 2025 Jitka Plesnikova <jplesnik@redhat.com> - 0.34-9
-- Use 3 arg open in grep() (CVE-2011-10007)
-- Package tests
-
 * Thu Feb 08 2018 Fedora Release Engineering <releng@fedoraproject.org> - 0.34-8
 - Rebuilt for https://fedoraproject.org/wiki/Fedora_28_Mass_Rebuild