From 308b1980906732dfa0cbf201e6586339ed7c1f2e 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 15:22:28 +0100
Subject: [PATCH] Subpackage Getopt::Std

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

diff --git a/gendep.macros b/gendep.macros
index 9f8a909..53dc6f9 100644
--- a/gendep.macros
+++ b/gendep.macros
@@ -845,6 +845,11 @@ Provides: perl(Getopt::Long) = 2.50 \
 Provides: perl(Getopt::Long::CallBack) \
 Provides: perl(Getopt::Long::Parser) \
 %{nil}
+%global gendep_perl_Getopt_Std \
+Requires: perl(:VERSION) >= 5.0.0 \
+Requires: perl(Exporter) \
+Provides: perl(Getopt::Std) = 1.12 \
+%{nil}
 %global gendep_perl_Hash_Util \
 Requires: perl(:VERSION) >= 5.7.3 \
 Requires: perl(Carp) \
@@ -2192,7 +2197,6 @@ Provides: perl(DB) = 1.08 \
 Provides: perl(DirHandle) = 1.05 \
 Provides: perl(DynaLoader) = 1.45 \
 Provides: perl(EVERY::LAST) \
-Provides: perl(Getopt::Std) = 1.12 \
 Provides: perl(Pod::Functions) = 1.13 \
 Provides: perl(SelectSaver) = 1.02 \
 Provides: perl(Symbol) = 1.08 \
diff --git a/perl.spec b/perl.spec
index ad97302..efa1b0c 100644
--- a/perl.spec
+++ b/perl.spec
@@ -398,7 +398,7 @@ Requires:       perl-FindBin,
 %if %{with gdbm}
 Requires:       perl-GDBM_File,
 %endif
-Requires:       perl-Getopt-Long,
+Requires:       perl-Getopt-Long, perl-Getopt-Std,
 Requires:       perl-Hash-Util, perl-Hash-Util-FieldHash, perl-HTTP-Tiny,
 Requires:       perl-if, perl-IO, perl-IO-Compress, perl-IO-Socket-IP,
 Requires:       perl-IO-Zlib, perl-IPC-Cmd, perl-IPC-Open3, perl-IPC-SysV,
@@ -2139,6 +2139,23 @@ case with the more traditional single-letter approach, is provided but not
 enabled by default.
 %endif
 
+%package Getopt-Std
+Summary:        Process single-character switches with switch clustering
+License:        GPL+ or Artistic
+Epoch:          0
+Version:        1.12
+Requires:       %perl_compat
+%if %{defined perl_bootstrap}
+%gendep_perl_Getopt_Std
+%endif
+BuildArch:      noarch
+Conflicts:      perl-interpreter < 4:5.30.1-451
+
+%description Getopt-Std
+The Getopt::Std module provides functions for processing single-character
+switches with switch clustering. Pass one argument which is a string
+containing all switches to be recognized.
+
 %package Hash-Util
 Summary:        General-utility hash subroutines
 License:        GPL+ or Artistic
@@ -4930,6 +4947,11 @@ popd
 %exclude %{privlib}/Getopt/Long.pm
 %exclude %{_mandir}/man3/Getopt::Long.3*
 
+# Getopt-Std
+%exclude %dir %{privlib}/Getopt
+%exclude %{privlib}/Getopt/Std.pm
+%exclude %{_mandir}/man3/Getopt::Std.3*
+
 # Hash-Util
 %exclude %{archlib}/Hash/Util.pm
 %exclude %{archlib}/auto/Hash/Util/Util.so
@@ -6253,6 +6275,11 @@ popd
 %{_mandir}/man3/Getopt::Long.3*
 %endif
 
+%files Getopt-Std
+%dir %{privlib}/Getopt
+%{privlib}/Getopt/Std.pm
+%{_mandir}/man3/Getopt::Std.3*
+
 %files Hash-Util
 %dir %{archlib}/Hash
 %{archlib}/Hash/Util.pm
@@ -7133,6 +7160,7 @@ popd
 - Subpackage overloading
 - Subpackage Config::Extensions
 - Subpackage English
+- Subpackage Getopt::Std
 
 * 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