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

---
 gendep.macros |  6 ++++--
 perl.spec     | 28 ++++++++++++++++++++++++++++
 2 files changed, 32 insertions(+), 2 deletions(-)

diff --git a/gendep.macros b/gendep.macros
index 78a64b2..2e3f0cf 100644
--- a/gendep.macros
+++ b/gendep.macros
@@ -388,6 +388,10 @@ Provides: perl(DirHandle) = 1.05 \
 Requires: perl(:VERSION) >= 5.6.0 \
 Provides: perl(Dumpvalue) = 1.19 \
 %{nil}
+%global gendep_perl_DynaLoader \
+Requires: perl(Config) \
+Provides: perl(DynaLoader) = 1.45 \
+%{nil}
 %global gendep_perl_Encode \
 Requires: perl(:VERSION) >= 5.8.0 \
 Requires: perl(:VERSION) >= 5.8.1 \
@@ -2194,14 +2198,12 @@ Provides: perl(experimental) = 0.020 \
 Requires: perl(:VERSION) >= 5.0.0 \
 Requires: perl(:VERSION) >= 5.6.0 \
 Requires: perl(Carp) \
-Requires: perl(Config) \
 Requires: perl(Exporter) \
 Requires: perl(I18N::LangTags) \
 Requires: perl(strict) \
 Requires: perl(warnings) \
 Requires: perl(warnings::register) \
 Provides: perl(DB) = 1.08 \
-Provides: perl(DynaLoader) = 1.45 \
 Provides: perl(EVERY::LAST) \
 Provides: perl(Pod::Functions) = 1.13 \
 Provides: perl(dumpvar.pl) \
diff --git a/perl.spec b/perl.spec
index c6811df..d5fa1e4 100644
--- a/perl.spec
+++ b/perl.spec
@@ -381,6 +381,7 @@ 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-DynaLoader,
 Requires:       perl-Encode, perl-Encode-devel, perl-encoding,
 Requires:       perl-encoding-warnings, perl-English,
 Requires:       perl-Env, perl-Errno, perl-experimental, perl-Exporter,
@@ -1420,6 +1421,24 @@ Conflicts:      perl < 4:5.30.1-451
 Dumpvalue module enables you to print a content of variables and other Perl
 data structures.
 
+%package DynaLoader
+Summary:        Dynamically load C libraries into Perl code
+License:        GPL+ or Artistic
+Epoch:          0
+Version:        1.45
+Requires:       %perl_compat
+Requires:       perl(Carp)
+%if %{defined perl_bootstrap}
+%gendep_perl_DynaLoader
+%endif
+Conflicts:      perl < 4:5.30.1-451
+
+%description DynaLoader
+The DynaLoader module defines a standard generic interface to the dynamic
+linking mechanisms available on many platforms. Its primary purpose is to
+implement automatic dynamic loading of Perl modules. For a simpler interface,
+see XSLoader module.
+
 %if %{dual_life} || %{rebuild_from_scratch}
 %package Encode
 Summary:        Character encodings in Perl
@@ -4797,6 +4816,10 @@ popd
 %exclude %{privlib}/Dumpvalue.pm
 %exclude %{_mandir}/man3/Dumpvalue.3*
 
+# DynaLoader
+%exclude %{archlib}/DynaLoader.pm
+%exclude %{_mandir}/man3/DynaLoader.3*
+
 # Encode
 %exclude %{_bindir}/encguess
 %exclude %{_bindir}/piconv
@@ -6089,6 +6112,10 @@ popd
 %{privlib}/Dumpvalue.pm
 %{_mandir}/man3/Dumpvalue.3*
 
+%files DynaLoader
+%{archlib}/DynaLoader.pm
+%{_mandir}/man3/DynaLoader.3*
+
 %if %{dual_life} || %{rebuild_from_scratch}
 %files Encode
 %{_bindir}/encguess
@@ -7262,6 +7289,7 @@ popd
 - Subpackage Symbol
 - Subpackage SelectSaver
 - Move UNIVERSAL to perl-libs
+- Subpackage DynaLoader
 
 * 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