diff --git a/gendep.macros b/gendep.macros index a3aa121..a8ca6d1 100644 --- a/gendep.macros +++ b/gendep.macros @@ -1021,6 +1021,16 @@ Requires: perl(constant) \ Requires: perl(strict) \ Provides: perl(Net::Ping) = 2.71 \ %{nil} +%global gendep_perl_NEXT \ +Provides: perl(NEXT) = 0.67 \ +Provides: perl(NEXT::ACTUAL) \ +Provides: perl(NEXT::ACTUAL::DISTINCT) \ +Provides: perl(NEXT::ACTUAL::UNSEEN) \ +Provides: perl(NEXT::DISTINCT) \ +Provides: perl(NEXT::DISTINCT::ACTUAL) \ +Provides: perl(NEXT::UNSEEN) \ +Provides: perl(NEXT::UNSEEN::ACTUAL) \ +%{nil} %global gendep_perl_Params_Check \ Requires: perl(Carp) \ Requires: perl(Exporter) \ @@ -1834,14 +1844,6 @@ Provides: perl(I18N::Langinfo) = 0.18 \ Provides: perl(IPC::Open2) = 1.04 \ Provides: perl(IPC::Open3) = 1.20 \ Provides: perl(NDBM_File) = 1.15 \ -Provides: perl(NEXT) = 0.67 \ -Provides: perl(NEXT::ACTUAL) \ -Provides: perl(NEXT::ACTUAL::DISTINCT) \ -Provides: perl(NEXT::ACTUAL::UNSEEN) \ -Provides: perl(NEXT::DISTINCT) \ -Provides: perl(NEXT::DISTINCT::ACTUAL) \ -Provides: perl(NEXT::UNSEEN) \ -Provides: perl(NEXT::UNSEEN::ACTUAL) \ Provides: perl(Net::hostent) = 1.02 \ Provides: perl(Net::netent) = 1.01 \ Provides: perl(Net::protoent) = 1.01 \ diff --git a/perl.rpmlintrc b/perl.rpmlintrc index df3bfce..9b449e2 100644 --- a/perl.rpmlintrc +++ b/perl.rpmlintrc @@ -1,5 +1,5 @@ from Config import * -addFilter("spelling-error .* (autoloaded|awk|gmtime|groff|libnet|localtime|Memoizing|metapackage|perlbug|perldoc|perlfunc|perlmain|perlpod|perlsub|reachability|rpmbuild|sed|splain|usr|writemain)"); +addFilter("spelling-error .* (autoloaded|awk|gmtime|groff|libnet|localtime|Memoizing|metapackage|perlbug|perldoc|perlfunc|perlmain|perlpod|perlsub|reachability|redispatch|rpmbuild|sed|splain|usr|writemain)"); addFilter("unexpanded-macro %description .* %INC"); # Applied with "git am" addFilter("patch-not-applied Patch58: perl-5.30.0-PATCH-perl-134329-Use-after-free-in-regcomp.c.patch"); diff --git a/perl.spec b/perl.spec index 1028a32..39acd8c 100644 --- a/perl.spec +++ b/perl.spec @@ -398,7 +398,7 @@ Requires: perl-Math-Complex, perl-Memoize, perl-MIME-Base64, Requires: perl-Module-CoreList, perl-Module-CoreList-tools, Requires: perl-Module-Load, perl-Module-Load-Conditional, Requires: perl-Module-Loaded, perl-Module-Metadata, -Requires: perl-Net-Ping, +Requires: perl-Net-Ping, perl-NEXT, Requires: perl-open, Requires: perl-parent, perl-PathTools, perl-Params-Check, perl-perlfaq, Requires: perl-PerlIO-via-QuotedPrint, perl-Perl-OSType, @@ -2140,6 +2140,23 @@ Conflicts: perl < 4:5.22.0-350 Net::Ping module contains methods to test the reachability of remote hosts on a network. +%package NEXT +Summary: Pseudo-class that allows method redispatch +License: GPL+ or Artistic +Epoch: 0 +Version: 0.67 +Requires: %perl_compat +%if %{defined perl_bootstrap} +%gendep_perl_NEXT +%endif +BuildArch: noarch +Conflicts: perl-interpreter < 4:5.30.1-451 + +%description NEXT +The NEXT module adds a pseudo-class named "NEXT" to any program that uses it. +If a method "m" calls "$self->NEXT::m()", the call to "m" is redispatched as +if the calling method had not originally been found. + %package open Summary: Perl pragma to set default PerlIO layers for input and output License: GPL+ or Artistic @@ -3947,6 +3964,10 @@ popd %exclude %{privlib}/Net/Ping.pm %exclude %{_mandir}/man3/Net::Ping.* +# NEXT +%exclude %{privlib}/NEXT.pm +%exclude %{_mandir}/man3/NEXT.* + # PathTools %exclude %{archlib}/Cwd.pm %exclude %{archlib}/File/Spec* @@ -4953,6 +4974,10 @@ popd %{privlib}/Net/Ping.pm %{_mandir}/man3/Net::Ping.* +%files NEXT +%{privlib}/NEXT.pm +%{_mandir}/man3/NEXT.* + %if %{dual_life} || %{rebuild_from_scratch} %files PathTools %{archlib}/Cwd.pm @@ -5292,6 +5317,7 @@ popd * Mon Feb 03 2020 Petr Pisar - 4:5.30.1-451 - Subpackage AutoLoader and AutoSplit - Subpackage ExtUtils-Constant +- Subpackage NEXT * Wed Jan 29 2020 Fedora Release Engineering - 4:5.30.1-450 - Rebuilt for https://fedoraproject.org/wiki/Fedora_32_Mass_Rebuild