From a5ad5405f83bb0ef181e846fff6833f2cde2b48b Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= <ppisar@redhat.com>
Date: Tue, 7 Jan 2020 16:15:54 +0100
Subject: [PATCH] Subpackage deprecate

---
 gendep.macros |  6 +++++-
 perl.spec     | 32 ++++++++++++++++++++++++++++++++
 2 files changed, 37 insertions(+), 1 deletion(-)

diff --git a/gendep.macros b/gendep.macros
index 11e773d..f3a79a1 100644
--- a/gendep.macros
+++ b/gendep.macros
@@ -335,6 +335,11 @@ Requires: perl(strict) \
 Requires: perl(vars) \
 Provides: perl(Devel::PPPort) = 3.52 \
 %{nil}
+%global gendep_perl_deprecate \
+Requires: perl(strict) \
+Requires: perl(warnings) \
+Provides: perl(deprecate) = 0.04 \
+%{nil}
 %global gendep_perl_Devel_Peek \
 Requires: perl(Exporter) \
 Requires: perl(XSLoader) \
@@ -2205,7 +2210,6 @@ Provides: perl(Pod::Functions) = 1.13 \
 Provides: perl(SelectSaver) = 1.02 \
 Provides: perl(Symbol) = 1.08 \
 Provides: perl(UNIVERSAL) = 1.13 \
-Provides: perl(deprecate) = 0.04 \
 Provides: perl(dumpvar.pl) \
 Provides: perl(feature) = 1.54 \
 Provides: perl(filetest) = 1.03 \
diff --git a/perl.spec b/perl.spec
index 226eff5..602ebab 100644
--- a/perl.spec
+++ b/perl.spec
@@ -377,6 +377,7 @@ Requires:       perl-Config-Extensions, 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, 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-Dumpvalue,
@@ -1235,6 +1236,28 @@ Conflicts:      perl-interpreter < 4:5.30.1-451
 This module provides an interface that allows filters to be applied to tied
 hashes associated with DBM files.
 
+%package deprecate
+Summary:        Perl pragma for deprecating the inclusion of a module in core
+License:        GPL+ or Artistic
+Epoch:          0
+Version:        0.04
+Requires:       %perl_compat
+Requires:       perl(Carp)
+Requires:       perl(Config)
+%if %{defined perl_bootstrap}
+%gendep_perl_deprecate
+%endif
+BuildArch:      noarch
+Conflicts:      perl-interpreter < 4:5.30.1-451
+
+%description deprecate
+"deprecate" pragma simplifies the maintenance of dual-life modules that will no
+longer be included in the Perl core in a future Perl release, but are
+still included currently. The purpose of the pragma is to alert users to the
+status of such a module by issuing a warning that encourages them to install
+the module from CPAN, so that a future upgrade to a perl which omits the
+module will not break their code.
+
 %package Devel-Peek
 Summary:        A data debugging tool for the XS programmer
 License:        GPL+ or Artistic
@@ -4693,6 +4716,10 @@ popd
 %exclude %{_mandir}/man3/DBM_Filter.*
 %exclude %{_mandir}/man3/DBM_Filter::*
 
+# deprecate
+%exclude %{privlib}/deprecate.pm
+%exclude %{_mandir}/man3/deprecate.*
+
 # Devel-Peek
 %dir %exclude %{archlib}/Devel
 %exclude %{archlib}/Devel/Peek.pm
@@ -5960,6 +5987,10 @@ popd
 %{_mandir}/man3/DBM_Filter.*
 %{_mandir}/man3/DBM_Filter::*
 
+%files deprecate
+%{privlib}/deprecate.pm
+%{_mandir}/man3/deprecate.*
+
 %files Devel-Peek
 %dir %{archlib}/Devel
 %{archlib}/Devel/Peek.pm
@@ -7191,6 +7222,7 @@ popd
 - Subpackage English
 - Subpackage Getopt::Std
 - Subpackage locale
+- Subpackage deprecate
 
 * 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