From 97363d6d84a843e48ad6f8ec8c6bd0ca02bfa92d Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= <ppisar@redhat.com>
Date: Fri, 6 Dec 2019 13:52:33 +0100
Subject: [PATCH] Subpackage GDBM_File

---
 gendep.macros  | 10 +++++++++-
 perl.rpmlintrc |  2 +-
 perl.spec      | 35 +++++++++++++++++++++++++++++++++++
 3 files changed, 45 insertions(+), 2 deletions(-)

diff --git a/gendep.macros b/gendep.macros
index 601093b..ea7b60b 100644
--- a/gendep.macros
+++ b/gendep.macros
@@ -680,6 +680,15 @@ Provides: perl(Filter::Simple) = 0.95 \
 %{nil}
 %global gendep_perl_Filter_debuginfo \
 %{nil}
+%global gendep_perl_GDBM_File \
+Requires: perl(Carp) \
+Requires: perl(Exporter) \
+Requires: perl(strict) \
+Requires: perl(Tie::Hash) \
+Requires: perl(warnings) \
+Requires: perl(XSLoader) \
+Provides: perl(GDBM_File) = 1.18 \
+%{nil}
 %global gendep_perl_Getopt_Long \
 Requires: perl(:VERSION) >= 5.4.0 \
 Requires: perl(Exporter) \
@@ -1929,7 +1938,6 @@ Provides: perl(File::stat) = 1.08 \
 Provides: perl(FileCache) = 1.10 \
 Provides: perl(FileHandle) = 2.03 \
 Provides: perl(FindBin) = 1.51 \
-Provides: perl(GDBM_File) = 1.18 \
 Provides: perl(Getopt::Std) = 1.12 \
 Provides: perl(Hash::Util) = 0.22 \
 Provides: perl(Hash::Util::FieldHash) = 1.20 \
diff --git a/perl.rpmlintrc b/perl.rpmlintrc
index 5b71ed3..5c6c569 100644
--- a/perl.rpmlintrc
+++ b/perl.rpmlintrc
@@ -1,5 +1,5 @@
 from Config import *
-addFilter("spelling-error .* (autoloaded|awk|decrement|gmtime|groff|libnet|localtime|Memoizing|metapackage|Nestable|perlbug|perldoc|perlfunc|perllocale|perlmain|perlpod|perlsub|reachability|redispatch|rpmbuild|sed|splain|truncations|usr|writemain)");
+addFilter("spelling-error .* (autoloaded|awk|decrement|gdbm|gmtime|groff|libnet|localtime|Memoizing|metapackage|Nestable|perlbug|perldoc|perlfunc|perllocale|perlmain|perlpod|perlsub|reachability|redispatch|rpmbuild|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 373f6b0..376cabc 100644
--- a/perl.spec
+++ b/perl.spec
@@ -387,6 +387,9 @@ Requires:       perl-ExtUtils-MakeMaker, perl-ExtUtils-Manifest,
 Requires:       perl-ExtUtils-Miniperl, perl-ExtUtils-ParseXS,
 Requires:       perl-fields, perl-File-Fetch, perl-File-Path, perl-File-Temp,
 Requires:       perl-Filter, perl-Filter-Simple,
+%if %{with gdbm}
+Requires:       perl-GDBM_File,
+%endif
 Requires:       perl-Getopt-Long,
 Requires:       perl-HTTP-Tiny,
 Requires:       perl-if, perl-IO, perl-IO-Compress, perl-IO-Socket-IP,
@@ -1722,6 +1725,23 @@ The Filter::Simple Perl module provides a simplified interface to
 Filter::Util::Call; one that is sufficient for most common cases.
 %endif
 
+%if %{with gdbm}
+%package GDBM_File
+Summary:        Perl5 access to the gdbm library
+License:        GPL+ or Artistic
+Epoch:          0
+Version:        1.18
+Requires:       %perl_compat
+%if %{defined perl_bootstrap}
+%gendep_perl_GDBM_File
+%endif
+Conflicts:      perl-interpreter < 4:5.30.1-451
+
+%description GDBM_File
+GDBM_File is a module which allows Perl programs to make use of the facilities
+provided by the GNU gdbm library.
+%endif
+
 %if %{dual_life} || %{rebuild_from_scratch}
 %package Getopt-Long
 Summary:        Extended processing of command line options
@@ -4051,6 +4071,13 @@ popd
 %exclude %{privlib}/Filter/Simple.pm
 %exclude %{_mandir}/man3/Filter::Simple.3*
 
+%if %{with gdbm}
+# GDBM_File
+%exclude %{archlib}/GDBM_File.pm
+%exclude %{archlib}/auto/GDBM_File
+%exclude %{_mandir}/man3/GDBM_File.3*
+%endif
+
 # Getopt-Long
 %exclude %{privlib}/Getopt/Long.pm
 %exclude %{_mandir}/man3/Getopt::Long.3*
@@ -5100,6 +5127,13 @@ popd
 %{_mandir}/man3/Filter::Simple.3*
 %endif
 
+%if %{with gdbm}
+%files GDBM_File
+%{archlib}/GDBM_File.pm
+%{archlib}/auto/GDBM_File
+%{_mandir}/man3/GDBM_File.3*
+%endif
+
 %if %{dual_life} || %{rebuild_from_scratch}
 %files Getopt-Long
 %dir %{privlib}/Getopt
@@ -5806,6 +5840,7 @@ popd
 - Subpackage Thread-Semaphore
 - Subpackage Tie-File
 - Move attributes module into perl-libs
+- Subpackage GDBM_File
 
 * 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