From c05f5f4c1ee0562d43e1eb47c8a4ade941c80db2 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= <ppisar@redhat.com>
Date: Fri, 13 Dec 2019 14:49:45 +0100
Subject: [PATCH] Subpackage File-stat

---
 gendep.macros  | 17 +++++++++++++----
 perl.rpmlintrc |  2 +-
 perl.spec      | 32 ++++++++++++++++++++++++++++++--
 3 files changed, 44 insertions(+), 7 deletions(-)

diff --git a/gendep.macros b/gendep.macros
index 48f8c80..1ae4987 100644
--- a/gendep.macros
+++ b/gendep.macros
@@ -700,6 +700,19 @@ Requires: perl(strict) \
 Requires: perl(vars) \
 Provides: perl(File::Path) = 2.16 \
 %{nil}
+%global gendep_perl_File_stat \
+Requires: perl(:VERSION) >= 5.6.0 \
+Requires: perl(Carp) \
+Requires: perl(Class::Struct) \
+Requires: perl(Exporter) \
+Requires: perl(Fcntl) \
+Requires: perl(constant) \
+Requires: perl(overload) \
+Requires: perl(strict) \
+Requires: perl(warnings) \
+Requires: perl(warnings::register) \
+Provides: perl(File::stat) = 1.08 \
+%{nil}
 %global gendep_perl_File_Temp \
 Requires: perl(:VERSION) >= 5.6.0 \
 Requires: perl(Carp) \
@@ -2027,7 +2040,6 @@ Requires: perl(Class::Struct) \
 Requires: perl(Config) \
 Requires: perl(Cwd) \
 Requires: perl(Exporter) \
-Requires: perl(Fcntl) \
 Requires: perl(File::Basename) \
 Requires: perl(File::Spec) \
 Requires: perl(I18N::LangTags) \
@@ -2039,11 +2051,9 @@ Requires: perl(Tie::StdHandle) \
 Requires: perl(Time::tm) \
 Requires: perl(Unicode::Normalize) \
 Requires: perl(charnames) \
-Requires: perl(constant) \
 Requires: perl(feature) \
 Requires: perl(if) \
 Requires: perl(integer) \
-Requires: perl(overload) \
 Requires: perl(strict) \
 Requires: perl(threads) \
 Requires: perl(threads::shared) \
@@ -2067,7 +2077,6 @@ Provides: perl(English) = 1.10 \
 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(FileHandle) = 2.03 \
 Provides: perl(FindBin) = 1.51 \
 Provides: perl(Getopt::Std) = 1.12 \
diff --git a/perl.rpmlintrc b/perl.rpmlintrc
index d68aed3..81fe412 100644
--- a/perl.rpmlintrc
+++ b/perl.rpmlintrc
@@ -1,5 +1,5 @@
 from Config import *
-addFilter("spelling-error .* (autoloaded|awk|cacheout|decrement|exe|gdbm|globbing|gmtime|groff|libnet|localtime|Memoizing|metapackage|ndbm|Nestable|odbm|opcodes|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|lstat|Memoizing|metapackage|ndbm|Nestable|odbm|opcodes|perlbug|perldoc|perlfunc|perlglob|perllocale|perlmain|perlpod|perlsub|reachability|redispatch|rpmbuild|sdbm|sed|splain|truncations|usr|writemain)");
 addFilter("unexpanded-macro %description .* %INC");
 # POSIX module provides wrappers for libc functions
 addFilter("missing-call-to-setgroups-before-setuid .*/auto/POSIX/POSIX.so");
diff --git a/perl.spec b/perl.spec
index 3a07a7f..3267a05 100644
--- a/perl.spec
+++ b/perl.spec
@@ -387,8 +387,8 @@ 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, perl-FileCache,
-Requires:       perl-Filter, perl-Filter-Simple,
+Requires:       perl-File-Find, perl-File-Path, perl-File-stat, perl-File-Temp,
+Requires:       perl-FileCache, perl-Filter, perl-Filter-Simple,
 %if %{with gdbm}
 Requires:       perl-GDBM_File,
 %endif
@@ -1806,6 +1806,24 @@ This module provides a convenient way to create directories of arbitrary
 depth and to delete an entire directory subtree from the file system.
 %endif
 
+%package File-stat
+Summary:        By-name interface to Perl built-in stat functions
+License:        GPL+ or Artistic
+Epoch:          0
+Version:        1.08
+BuildArch:      noarch
+Requires:       %perl_compat
+Requires:       perl(Symbol)
+%if %{defined perl_bootstrap}
+%gendep_perl_File_stat
+%endif
+Conflicts:      perl < 4:5.30.1-451
+
+%description File-stat
+This module overrides the core stat() and lstat() functions, replacing them
+with versions that return File::stat objects. This object has methods that
+return the similarly named structure field name from the stat(2) function.
+
 %if %{dual_life} || %{rebuild_from_scratch}
 %package File-Temp
 Summary:        Return name and handle of a temporary file safely
@@ -4484,6 +4502,10 @@ popd
 %exclude %{privlib}/File/Path.pm
 %exclude %{_mandir}/man3/File::Path.3*
 
+# File-stat
+%exclude %{privlib}/File/stat.pm
+%exclude %{_mandir}/man3/File::stat.3*
+
 # File-Temp
 %exclude %{privlib}/File/Temp.pm
 %exclude %{_mandir}/man3/File::Temp.3*
@@ -5676,6 +5698,11 @@ popd
 %{_mandir}/man3/File::Path.3*
 %endif
 
+%files File-stat
+%dir %{privlib}/File
+%{privlib}/File/stat.pm
+%{_mandir}/man3/File::stat.3*
+
 %if %{dual_life} || %{rebuild_from_scratch}
 %files File-Temp
 %dir %{privlib}/File
@@ -6520,6 +6547,7 @@ popd
 - Subpackage Benchmark
 - Subpackage blib
 - Move charnames to perl-libs
+- Subpackage File-stat
 
 * 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