From 15c5c7daa4411c612ada1265e6bae1decf49ff67 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= <ppisar@redhat.com>
Date: Wed, 11 Dec 2019 16:25:03 +0100
Subject: [PATCH] Subpackage FileCache

---
 gendep.macros  | 10 ++++++++--
 perl.rpmlintrc |  2 +-
 perl.spec      | 29 ++++++++++++++++++++++++++++-
 3 files changed, 37 insertions(+), 4 deletions(-)

diff --git a/gendep.macros b/gendep.macros
index 876831e..8dca9cf 100644
--- a/gendep.macros
+++ b/gendep.macros
@@ -702,6 +702,14 @@ Requires: perl(parent) >= 0.221 \
 Requires: perl(strict) \
 Provides: perl(File::Temp) = 0.2309 \
 %{nil}
+%global gendep_perl_FileCache \
+Requires: perl(:VERSION) >= 5.6.0 \
+Requires: perl(Carp) \
+Requires: perl(Exporter) \
+Requires: perl(parent) \
+Requires: perl(strict) \
+Provides: perl(FileCache) = 1.10 \
+%{nil}
 %global gendep_perl_Filter \
 Requires: perl(:VERSION) >= 5.6.0 \
 Requires: perl(Exporter) \
@@ -1959,7 +1967,6 @@ Requires: perl(feature) \
 Requires: perl(if) \
 Requires: perl(integer) \
 Requires: perl(overload) \
-Requires: perl(parent) \
 Requires: perl(re) \
 Requires: perl(strict) \
 Requires: perl(subs) \
@@ -1989,7 +1996,6 @@ Provides: perl(File::Basename) = 2.85 \
 Provides: perl(File::Compare) = 1.1006 \
 Provides: perl(File::Copy) = 2.34 \
 Provides: perl(File::stat) = 1.08 \
-Provides: perl(FileCache) = 1.10 \
 Provides: perl(FileHandle) = 2.03 \
 Provides: perl(FindBin) = 1.51 \
 Provides: perl(Getopt::Std) = 1.12 \
diff --git a/perl.rpmlintrc b/perl.rpmlintrc
index 4b55046..4812384 100644
--- a/perl.rpmlintrc
+++ b/perl.rpmlintrc
@@ -1,5 +1,5 @@
 from Config import *
-addFilter("spelling-error .* (autoloaded|awk|decrement|exe|gdbm|globbing|gmtime|groff|libnet|localtime|Memoizing|metapackage|ndbm|Nestable|odbm|perlbug|perldoc|perlfunc|perlglob|perllocale|perlmain|perlpod|perlsub|reachability|redispatch|rpmbuild|sdbm|sed|splain|truncations|usr|writemain)");
+addFilter("spelling-error .* (autoloaded|awk|cacheout|decrement|exe|gdbm|globbing|gmtime|groff|libnet|localtime|Memoizing|metapackage|ndbm|Nestable|odbm|perlbug|perldoc|perlfunc|perlglob|perllocale|perlmain|perlpod|perlsub|reachability|redispatch|rpmbuild|sdbm|sed|splain|truncations|usr|writemain)");
 addFilter("unexpanded-macro %description .* %INC");
 # Applied with "git am"
 addFilter("patch-not-applied Patch58: perl-5.30.0-PATCH-perl-134329-Use-after-free-in-regcomp.c.patch");
diff --git a/perl.spec b/perl.spec
index d3b5ab3..fe339bc 100644
--- a/perl.spec
+++ b/perl.spec
@@ -386,7 +386,7 @@ Requires:       perl-ExtUtils-Embed, perl-ExtUtils-Install,
 Requires:       perl-ExtUtils-MakeMaker, perl-ExtUtils-Manifest,
 Requires:       perl-ExtUtils-Miniperl, perl-ExtUtils-ParseXS,
 Requires:       perl-Fcntl, perl-fields, perl-File-DosGlob, perl-File-Fetch,
-Requires:       perl-File-Find, perl-File-Path, perl-File-Temp,
+Requires:       perl-File-Find, perl-File-Path, perl-File-Temp, perl-FileCache,
 Requires:       perl-Filter, perl-Filter-Simple,
 %if %{with gdbm}
 Requires:       perl-GDBM_File,
@@ -1762,6 +1762,24 @@ name and the open file handle of a temporary file. The tempdir() function
 can be used to create a temporary directory.
 %endif
 
+%package FileCache
+Summary:        Keep more files open than the system permits
+License:        GPL+ or Artistic
+Epoch:          0
+Version:        1.10
+BuildArch:      noarch
+Requires:       %perl_compat
+%if %{defined perl_bootstrap}
+%gendep_perl_FileCache
+%endif
+Conflicts:      perl-interpreter < 4:5.30.1-451
+
+%description FileCache
+The "cacheout" function will make sure that there's a file handle open
+for reading or writing available as the path name you give it. It
+automatically closes and re-opens files if you exceed your system
+maximum number of file descriptors, or the suggested maximum.
+
 %if %{dual_life} || %{rebuild_from_scratch}
 # FIXME Filter-Simple? version?
 %package Filter
@@ -4238,6 +4256,10 @@ popd
 %exclude %{privlib}/File/Temp.pm
 %exclude %{_mandir}/man3/File::Temp.3*
 
+# FileCache
+%exclude %{privlib}/FileCache.pm
+%exclude %{_mandir}/man3/FileCache.3*
+
 # Filter
 %exclude %dir %{archlib}/auto/Filter
 %exclude %{archlib}/auto/Filter/Util
@@ -5349,6 +5371,10 @@ popd
 %{_mandir}/man3/File::Temp.3*
 %endif
 
+%files FileCache
+%{privlib}/FileCache.pm
+%{_mandir}/man3/FileCache.3*
+
 %if %{dual_life} || %{rebuild_from_scratch}
 %files Filter
 %dir %{archlib}/auto/Filter
@@ -6116,6 +6142,7 @@ popd
 - Subpackage IPC-Open3
 - Subpackage B
 - Subpackage Fcntl
+- Subpackage FileCache
 
 * Wed Jan 29 2020 Fedora Release Engineering <releng@fedoraproject.org> - 4:5.30.1-450
 - Rebuilt for https://fedoraproject.org/wiki/Fedora_32_Mass_Rebuild