From f362c99a4729d67938654365af081a2fbc4ea98c 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 17:06:43 +0100
Subject: [PATCH] Subpackage less

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

diff --git a/gendep.macros b/gendep.macros
index 5c26bf8..06919d9 100644
--- a/gendep.macros
+++ b/gendep.macros
@@ -2213,7 +2213,6 @@ Provides: perl(DB) = 1.08 \
 Provides: perl(EVERY::LAST) \
 Provides: perl(Pod::Functions) = 1.13 \
 Provides: perl(dumpvar.pl) \
-Provides: perl(less) = 0.03 \
 Provides: perl(perl5db.pl) \
 Provides: perl(sigtrap) = 1.09 \
 Provides: perl(sort) = 2.04 \
@@ -2223,6 +2222,11 @@ Provides: perl(vmsish) = 1.04 \
 %{nil}
 %global gendep_perl_interpreter_debuginfo \
 %{nil}
+%global gendep_perl_less \
+Requires: perl(strict) \
+Requires: perl(warnings) \
+Provides: perl(less) = 0.03 \
+%{nil}
 %global gendep_perl_lib \
 Requires: perl(Config) \
 Requires: perl(strict) \
diff --git a/perl.spec b/perl.spec
index 6139ad6..a093b0f 100644
--- a/perl.spec
+++ b/perl.spec
@@ -406,6 +406,7 @@ 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,
 Requires:       perl-I18N-Collate, perl-I18N-Langinfo, perl-I18N-LangTags,
 Requires:       perl-JSON-PP,
+Requires:       perl-less,
 Requires:       perl-lib, perl-libnet, perl-libnetcfg,
 Requires:       perl-locale, perl-Locale-Maketext, perl-Locale-Maketext-Simple,
 Requires:       perl-Math-BigInt, perl-Math-BigInt-FastCalc, perl-Math-BigRat,
@@ -2520,6 +2521,23 @@ Marc Lehmann in C, so must be compiled and installed in the used environment.
 JSON::PP is a pure-Perl module and is compatible with JSON::XS.
 %endif
 
+%package less
+Summary:        Perl pragma to request less of something
+License:        GPL+ or Artistic
+Epoch:          0
+Version:        0.03
+BuildArch:      noarch
+Requires:       %perl_compat
+%if %{defined perl_bootstrap}
+%gendep_perl_less
+%endif
+Conflicts:      perl < 4:5.30.1-451
+
+%description less
+"use less ...;" is a Perl user-pragma. If you're very lucky some code you're
+using will know that you asked for less CPU usage or RAM or fat or... we just
+can't know.
+
 %package lib
 Summary:        Manipulate @INC at compile time
 License:        GPL+ or Artistic
@@ -5260,6 +5278,10 @@ popd
 %exclude %{_mandir}/man3/JSON::PP.3*
 %exclude %{_mandir}/man3/JSON::PP::Boolean.3pm*
 
+# less
+%exclude %{privlib}/less.pm
+%exclude %{_mandir}/man3/less.*
+
 # lib
 %exclude %{archlib}/lib.pm
 %exclude %{_mandir}/man3/lib.*
@@ -6639,6 +6661,10 @@ popd
 %{_mandir}/man3/JSON::PP::Boolean.3pm*
 %endif
 
+%files less
+%{privlib}/less.pm
+%{_mandir}/man3/less.*
+
 %files lib
 %{archlib}/lib.pm
 %{_mandir}/man3/lib.*
@@ -7348,6 +7374,7 @@ popd
 - Subpackage DynaLoader
 - Subpackage feature
 - Subpackage filetest
+- Subpackage less
 
 * 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