From 4a44c86621a4c1a90d8a091c9ab79d8d3cf6f787 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= <ppisar@redhat.com>
Date: Fri, 3 Jan 2020 12:58:33 +0100
Subject: [PATCH] Subpackage DBM_Filter modules

---
 gendep.macros | 17 +++++++++++------
 perl.spec     | 41 ++++++++++++++++++++++++++++++++++++-----
 2 files changed, 47 insertions(+), 11 deletions(-)

diff --git a/gendep.macros b/gendep.macros
index bcc9b3e..5055b32 100644
--- a/gendep.macros
+++ b/gendep.macros
@@ -304,6 +304,17 @@ Provides: perl(DB_File::RECNOINFO) \
 %{nil}
 %global gendep_perl_DB_File_debuginfo \
 %{nil}
+%global gendep_perl_DBM_Filter \
+Requires: perl(Carp) \
+Requires: perl(strict) \
+Requires: perl(warnings) \
+Provides: perl(DBM_Filter) = 0.06 \
+Provides: perl(DBM_Filter::compress) = 0.03 \
+Provides: perl(DBM_Filter::encode) = 0.03 \
+Provides: perl(DBM_Filter::int32) = 0.03 \
+Provides: perl(DBM_Filter::null) = 0.03 \
+Provides: perl(DBM_Filter::utf8) = 0.03 \
+%{nil}
 %global gendep_perl_Data_Dumper \
 Requires: perl(:VERSION) >= 5.6.0 \
 Requires: perl(Carp) \
@@ -2115,12 +2126,6 @@ Requires: perl(warnings) \
 Requires: perl(warnings::register) \
 Provides: perl(Config::Extensions) = 0.03 \
 Provides: perl(DB) = 1.08 \
-Provides: perl(DBM_Filter) = 0.06 \
-Provides: perl(DBM_Filter::compress) = 0.03 \
-Provides: perl(DBM_Filter::encode) = 0.03 \
-Provides: perl(DBM_Filter::int32) = 0.03 \
-Provides: perl(DBM_Filter::null) = 0.03 \
-Provides: perl(DBM_Filter::utf8) = 0.03 \
 Provides: perl(DirHandle) = 1.05 \
 Provides: perl(DynaLoader) = 1.45 \
 Provides: perl(EVERY::LAST) \
diff --git a/perl.spec b/perl.spec
index 22a6470..60b8e0b 100644
--- a/perl.spec
+++ b/perl.spec
@@ -376,7 +376,7 @@ Requires:       perl-Compress-Raw-Bzip2, perl-Compress-Raw-Zlib,
 Requires:       perl-Config-Perl-V, perl-constant,
 Requires:       perl-CPAN, perl-CPAN-Meta, perl-CPAN-Meta-Requirements,
 Requires:       perl-CPAN-Meta-YAML,
-Requires:       perl-Data-Dumper, perl-DB_File,
+Requires:       perl-Data-Dumper, perl-DB_File, perl-DBM_Filter,
 Requires:       perl-Devel-Peek, perl-Devel-PPPort, perl-Devel-SelfStubber,
 Requires:       perl-Digest, perl-Digest-MD5, perl-Digest-SHA, perl-Dumpvalue,
 Requires:       perl-Encode, perl-Encode-devel, perl-encoding,
@@ -496,10 +496,6 @@ Obsoletes:      perl-suidperl <= 4:5.12.2
 # bug #1464903.
 Obsoletes:      perl < 4:5.26.0-395
 
-# Remove private redefinitions
-# DBM_Filter redefines Tie::Hash, but does load it.
-%global __provides_exclude %{?__provides_exclude:%__provides_exclude|}^perl\\(Tie::Hash\\)$
-
 %description interpreter
 This is a Perl interpreter as a standalone executable %{_bindir}/perl
 required for handling Perl scripts. It does not provide all the other Perl
@@ -1195,6 +1191,28 @@ will be limited to functionality provided by interface of version 1.x). The
 interface defined here mirrors the Berkeley DB interface closely.
 %endif
 
+%package DBM_Filter
+Summary:        Filter DBM keys and values
+License:        GPL+ or Artistic
+Epoch:          0
+Version:        0.06
+Requires:       %perl_compat
+Requires:       perl(Compress::Zlib)
+Requires:       perl(Encode)
+%if %{defined perl_bootstrap}
+%gendep_perl_DBM_Filter
+%endif
+BuildArch:      noarch
+Conflicts:      perl-interpreter < 4:5.30.1-451
+
+# Remove private redefinitions
+# DBM_Filter redefines Tie::Hash, but does not load it.
+%global __provides_exclude %{?__provides_exclude:%__provides_exclude|}^perl\\(Tie::Hash\\)$
+
+%description DBM_Filter
+This module provides an interface that allows filters to be applied to tied
+hashes associated with DBM files.
+
 %package Devel-Peek
 Summary:        A data debugging tool for the XS programmer
 License:        GPL+ or Artistic
@@ -4399,6 +4417,12 @@ popd
 %exclude %{archlib}/auto/DB_File/DB_File.so
 %exclude %{_mandir}/man3/DB_File*
 
+# DBM_Filter
+%exclude %{privlib}/DBM_Filter
+%exclude %{privlib}/DBM_Filter.pm
+%exclude %{_mandir}/man3/DBM_Filter.*
+%exclude %{_mandir}/man3/DBM_Filter::*
+
 # Devel-Peek
 %dir %exclude %{archlib}/Devel
 %exclude %{archlib}/Devel/Peek.pm
@@ -5595,6 +5619,12 @@ popd
 %{_mandir}/man3/DB_File*
 %endif
 
+%files DBM_Filter
+%{privlib}/DBM_Filter
+%{privlib}/DBM_Filter.pm
+%{_mandir}/man3/DBM_Filter.*
+%{_mandir}/man3/DBM_Filter::*
+
 %files Devel-Peek
 %dir %{archlib}/Devel
 %{archlib}/Devel/Peek.pm
@@ -6747,6 +6777,7 @@ popd
 - Subpackage base Tie::* modules into perl-Tie
 - Move Config to perl-libs
 - Move warnings::register to perl-libs
+- Subpackage DBM_Filter modules
 
 * 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