From fb6252c546655f2bd4932d3c982b8fc72c696f91 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= <ppisar@redhat.com>
Date: Wed, 8 Jan 2020 16:16:38 +0100
Subject: [PATCH] Subpackage DirHandle

---
 gendep.macros  |  7 ++++++-
 perl.rpmlintrc |  2 +-
 perl.spec      | 29 +++++++++++++++++++++++++++++
 3 files changed, 36 insertions(+), 2 deletions(-)

diff --git a/gendep.macros b/gendep.macros
index 3cb0ca0..99495b9 100644
--- a/gendep.macros
+++ b/gendep.macros
@@ -378,6 +378,12 @@ Provides: perl(Digest::SHA) = 6.02 \
 %{nil}
 %global gendep_perl_Digest_SHA_debuginfo \
 %{nil}
+%global gendep_perl_DirHandle \
+Requires: perl(:VERSION) >= 5.0.0 \
+Requires: perl(Carp) \
+Requires: perl(Symbol) \
+Provides: perl(DirHandle) = 1.05 \
+%{nil}
 %global gendep_perl_Dumpvalue \
 Requires: perl(:VERSION) >= 5.6.0 \
 Provides: perl(Dumpvalue) = 1.19 \
@@ -2186,7 +2192,6 @@ Requires: perl(strict) \
 Requires: perl(warnings) \
 Requires: perl(warnings::register) \
 Provides: perl(DB) = 1.08 \
-Provides: perl(DirHandle) = 1.05 \
 Provides: perl(DynaLoader) = 1.45 \
 Provides: perl(EVERY::LAST) \
 Provides: perl(Pod::Functions) = 1.13 \
diff --git a/perl.rpmlintrc b/perl.rpmlintrc
index 520bcc6..c8b51c9 100644
--- a/perl.rpmlintrc
+++ b/perl.rpmlintrc
@@ -1,5 +1,5 @@
 from Config import *
-addFilter("spelling-error .* (autoloaded|awk|cacheout|decrement|exe|explicative|gdbm|getgr|gethost|getnet|getproto|getpw|getserv|globbing|gmtime|groff|ithreads|lexically|libnet|localtime|lstat|Memoizing|metapackage|ndbm|Nestable|odbm|opcodes|perlbug|perldoc|perlfunc|perlglob|perllocale|perldiag|perlmain|perlpod|perlsub|Pragma|reachability|redispatch|rpmbuild|sdbm|sed|splain|truncations|usr|writemain)");
+addFilter("spelling-error .* (autoloaded|awk|cacheout|closedir|decrement|exe|explicative|gdbm|getgr|gethost|getnet|getproto|getpw|getserv|globbing|gmtime|groff|ithreads|lexically|libnet|localtime|lstat|Memoizing|metapackage|ndbm|Nestable|odbm|opcodes|opendir|perlbug|perldoc|perlfunc|perlglob|perllocale|perldiag|perlmain|perlpod|perlsub|Pragma|reachability|readdir|redispatch|rewinddir|rpmbuild|sdbm|sed|splain|truncations|usr|writemain)");
 addFilter("unexpanded-macro %description .* %(Extensions|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 7539dbc..b4ce1ae 100644
--- a/perl.spec
+++ b/perl.spec
@@ -379,6 +379,7 @@ Requires:       perl-Data-Dumper, perl-DB_File, perl-DBM_Filter,
 Requires:       perl-deprecate,
 Requires:       perl-Devel-Peek, perl-Devel-PPPort, perl-Devel-SelfStubber,
 Requires:       perl-diagnostics, perl-Digest, perl-Digest-MD5, perl-Digest-SHA,
+Requires:       perl-DirHandle,
 Requires:       perl-Dumpvalue,
 Requires:       perl-Encode, perl-Encode-devel, perl-encoding,
 Requires:       perl-encoding-warnings, perl-English,
@@ -1383,6 +1384,25 @@ SHA-1, SHA-224, SHA-256, SHA-384, and SHA-512 message digests.  The
 module can handle all types of input, including partial-byte data.
 %endif
 
+%package DirHandle
+Summary:        Supply object methods for directory handles
+License:        GPL+ or Artistic
+Epoch:          0
+Version:        1.05
+BuildArch:      noarch
+Requires:       %perl_compat
+Requires:       perl(warnings)
+%if %{defined perl_bootstrap}
+%gendep_perl_DirHandle
+%endif
+Conflicts:      perl < 4:5.30.1-451
+
+%description DirHandle
+There is no reason to use this module nowadays. The DirHandle module provides
+an alternative interface to the opendir(), closedir(), readdir(), and
+rewinddir() functions. Since Perl 5.6, opendir() alone has been all you need
+for lexical handles.
+
 %package Dumpvalue
 Summary:        Screen dump of Perl data
 License:        GPL+ or Artistic
@@ -4735,6 +4755,10 @@ popd
 %exclude %{_mandir}/man1/shasum.1*
 %exclude %{_mandir}/man3/Digest::SHA.3*
 
+# DirHandle
+%exclude %{privlib}/DirHandle.pm
+%exclude %{_mandir}/man3/DirHandle.3*
+
 # Dumpvalue
 %exclude %{privlib}/Dumpvalue.pm
 %exclude %{_mandir}/man3/Dumpvalue.3*
@@ -6013,6 +6037,10 @@ popd
 %{_mandir}/man3/Digest::SHA.3*
 %endif
 
+%files DirHandle
+%{privlib}/DirHandle.pm
+%{_mandir}/man3/DirHandle.3*
+
 %files Dumpvalue
 %{privlib}/Dumpvalue.pm
 %{_mandir}/man3/Dumpvalue.3*
@@ -7178,6 +7206,7 @@ popd
 - Subpackage locale
 - Subpackage deprecate
 - Move AnyDBM_File, SDBM_File, Tie::Hash to perl-libs because of dbmopen function
+- Subpackage DirHandle
 
 * 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