From a3d0595083d78f2a60561f4011ff1d785206f23d Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= <ppisar@redhat.com>
Date: Wed, 4 Dec 2019 17:27:32 +0100
Subject: [PATCH] Subpackage Safe

---
 gendep.macros | 16 ++++++++++++----
 perl.spec     | 30 ++++++++++++++++++++++++++++--
 2 files changed, 40 insertions(+), 6 deletions(-)

diff --git a/gendep.macros b/gendep.macros
index 281b002..eaf7f50 100644
--- a/gendep.macros
+++ b/gendep.macros
@@ -1284,6 +1284,17 @@ Requires: perl(strict) \
 Requires: perl(vars) \
 Provides: perl(Pod::Usage) = 1.69 \
 %{nil}
+%global gendep_perl_Safe \
+Requires: perl(:VERSION) >= 5.3.0 \
+Requires: perl(B) \
+Requires: perl(Carp) \
+Requires: perl(Opcode) >= 1.01 \
+Requires: perl(Scalar::Util) \
+Requires: perl(utf8) \
+Requires: perl(strict) \
+Requires: perl(utf8) \
+Provides: perl(Safe) = 2.40 \
+%{nil}
 %global gendep_perl_Scalar_List_Utils \
 Requires: perl(Exporter) \
 Requires: perl(List::Util) \
@@ -1795,7 +1806,6 @@ Provides: perl(experimental) = 0.020 \
 %global gendep_perl_interpreter \
 Requires: perl(:VERSION) >= 5.0.0 \
 Requires: perl(:VERSION) >= 5.10.1 \
-Requires: perl(:VERSION) >= 5.3.0 \
 Requires: perl(:VERSION) >= 5.5.0 \
 Requires: perl(:VERSION) >= 5.6.0 \
 Requires: perl(:VERSION) >= 5.7.3 \
@@ -1816,7 +1826,7 @@ Requires: perl(File::Spec) \
 Requires: perl(I18N::LangTags) \
 Requires: perl(IO::File) \
 Requires: perl(IPC::Open3) \
-Requires: perl(Opcode) >= 1.01 \
+Requires: perl(Opcode) \
 Requires: perl(POSIX) \
 Requires: perl(Scalar::Util) >= 1.10 \
 Requires: perl(Symbol) \
@@ -1842,7 +1852,6 @@ Requires: perl(subs) \
 Requires: perl(threads) \
 Requires: perl(threads::shared) \
 Requires: perl(unicore::Name) \
-Requires: perl(utf8) \
 Requires: perl(warnings) \
 Requires: perl(warnings::register) \
 Provides: perl(AnyDBM_File) = 1.01 \
@@ -1907,7 +1916,6 @@ Provides: perl(PerlIO::scalar) = 0.30 \
 Provides: perl(PerlIO::via) = 0.17 \
 Provides: perl(Pod::Functions) = 1.13 \
 Provides: perl(SDBM_File) = 1.15 \
-Provides: perl(Safe) = 2.40 \
 Provides: perl(Search::Dict) = 1.07 \
 Provides: perl(SelectSaver) = 1.02 \
 Provides: perl(Symbol) = 1.08 \
diff --git a/perl.spec b/perl.spec
index cbdbbb4..a003419 100644
--- a/perl.spec
+++ b/perl.spec
@@ -407,8 +407,8 @@ Requires:       perl-PerlIO-via-QuotedPrint, perl-Perl-OSType,
 Requires:       perl-Pod-Checker, perl-Pod-Escapes, perl-Pod-Html,
 Requires:       perl-Pod-Parser, perl-Pod-Perldoc, perl-Pod-Simple,
 Requires:       perl-Pod-Usage, perl-podlators,
-Requires:       perl-Scalar-List-Utils, perl-SelfLoader, perl-Socket,
-Requires:       perl-Storable, perl-Sys-Syslog,
+Requires:       perl-Safe, perl-Scalar-List-Utils, perl-SelfLoader,
+Requires:       perl-Socket, perl-Storable, perl-Sys-Syslog,
 Requires:       perl-Term-ANSIColor, perl-Term-Cap,
 Requires:       perl-Test, perl-Test-Harness, perl-Test-Simple,
 Requires:       perl-Text-Balanced, perl-Text-ParseWords, perl-Text-Tabs+Wrap,
@@ -2629,6 +2629,23 @@ includes several sub-classes of Pod::Text for formatted output to terminals
 with various capabilities.
 %endif
 
+%package Safe
+Summary:        Compile and execute code in restricted compartments
+License:        GPL+ or Artistic
+Epoch:          0
+Version:        2.40
+Requires:       %perl_compat
+%if %{defined perl_bootstrap}
+%gendep_perl_Safe
+%endif
+BuildArch:      noarch
+Conflicts:      perl-interpreter < 4:5.30.1-451
+
+%description Safe
+The Safe extension module allows the creation of compartments in which Perl
+code can be evaluated. Please note that the restriction is not suitable for
+security purposes.
+
 %if %{dual_life} || %{rebuild_from_scratch}
 %package Scalar-List-Utils
 Summary:        A selection of general-utility scalar and list subroutines
@@ -4293,6 +4310,10 @@ popd
 %exclude %{privlib}/Pod/Simple.pod
 %exclude %{_mandir}/man3/Pod::Simple*
 
+# Safe
+%exclude %{privlib}/Safe.pm
+%exclude %{_mandir}/man3/Safe.*
+
 # Scalar-List-Utils
 %exclude %{archlib}/List/
 %exclude %{archlib}/Scalar/
@@ -5385,6 +5406,10 @@ popd
 %{_mandir}/man3/Pod::Simple*
 %endif
 
+%files Safe
+%{privlib}/Safe.pm
+%{_mandir}/man3/Safe.*
+
 %if %{dual_life} || %{rebuild_from_scratch}
 %files Scalar-List-Utils
 %{archlib}/List
@@ -5600,6 +5625,7 @@ popd
 - Subpackage I18N-Collate
 - Subpackage I18N-LangTags
 - Subpackage lib
+- Subpackage Safe
 
 * 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