From d1468a76ddd371aa83d861b1c348ed8444614d67 Mon Sep 17 00:00:00 2001 From: Jitka Plesnikova Date: Fri, 21 May 2021 08:20:04 +0200 Subject: [PATCH] 5.34.0 bump --- .gitignore | 1 + gendep.macros | 862 +++++++++--------- perl-5.14.1-offtest.patch | 16 +- ...-MM-methods-as-standalone-ExtUtils-M.patch | 4 +- perl-5.32.0-Add-av_count.patch | 175 ---- ...xt-in-New-Unicode-properties-section.patch | 49 - ...TCHSTACK-in-ary-split-.-optimisation.patch | 196 ---- ...5.32.1-DynaLoader-use-PerlEnv_getenv.patch | 34 - ...2.1-Perl_do_sv_dump-handle-PL_strtab.patch | 44 - ...-clause-to-prevent-the-number-of-buc.patch | 53 -- ...MANIFEST-entry-from-fix-for-debugger.patch | 30 - ...n-action-in-the-debugger-turn-it-off.patch | 90 -- ...ction-at-the-end-is-no-longer-needed.patch | 33 - perl-5.33.0-Fix-leak-GH-18054.patch | 31 - ...spurious-error-reported-for-regular-.patch | 74 -- ...the-error-on-both-input-and-output-s.patch | 80 -- ...ynchronize-behavior-with-module-docu.patch | 61 -- ...-MUTABLE_PTR-Rmv-non-standard-syntax.patch | 32 - ...vTRUE-to-indicate-single-param-evalu.patch | 33 - ...and-items-variables-inside-BOOT-XSUB.patch | 45 - ...-utf8_warn_base.pl-Fix-a-couple-test.patch | 38 - ...0-fix-C-i-obj-where-obj-is-a-lexical.patch | 193 ---- ...ign-in-list-context-honour-LHS-undef.patch | 71 -- ...-in-list-context-was-over-optimising.patch | 76 -- ...port-errors-from-both-input-and-outp.patch | 87 -- ...-update-SvCUR-until-after-we-ve-done.patch | 72 -- ...sizes-for-asctime_r-ctime_r-are-smal.patch | 58 -- ....0-reentr.c-Prevent-infinite-looping.patch | 46 - ...-5.33.0-sv.h-Wanted-UOK-but-said-IOK.patch | 31 - ...flow-in-regex-bracket-group-whitespa.patch | 88 -- ...5.33.1-die_unwind-global-destruction.patch | 55 -- perl-5.33.1-sort-return-foo.patch | 77 -- perl-5.33.2-Remove-Perl_av_top_index.patch | 77 -- ...orst-case-for-GOSUBs-we-don-t-analys.patch | 56 -- perl-5.33.2-mro.xs-Fix-compiler-warning.patch | 31 - ...d-missing-braces-in-Perl_sv_inc_nomg.patch | 32 - ...v.h-sv_collxfrm-didn-t-work-properly.patch | 36 - ..._op_get_field-remove-undef-behaviour.patch | 76 -- ...he-first-stacked-filetest-not-the-la.patch | 57 -- ...yC-s-stack-not-refcounted-suggestion.patch | 54 -- ...hexfp.t-t-op-sprintf2.t-Add-missing-.patch | 71 -- perl-5.33.4-locale.c-Fix-typo-in-ifdef.patch | 32 - ....33.5-Fix-buggy-fc-in-Turkish-locale.patch | 140 --- ...ersions-of-PERL_UNUSED_foo-in-XSUB.h.patch | 43 - ...k-on-my-_-when-use-utf8-is-in-effect.patch | 78 -- ...missing-entries-to-perldiag-GH-18276.patch | 100 -- ...cale.t-Rmv-LANGUAGE-from-environment.patch | 32 - ...-5.33.7-regcomp.c-Remove-memory-leak.patch | 74 -- ...ft-shift-of-IV_MIN-under-use-integer.patch | 62 -- ...M-ODBM-SDBM-_File-objects-only-from-.patch | 67 +- perl.spec | 395 +++----- sources | 2 +- 52 files changed, 594 insertions(+), 3756 deletions(-) delete mode 100644 perl-5.32.0-Add-av_count.patch delete mode 100644 perl-5.32.0-Fix-404-and-text-in-New-Unicode-properties-section.patch delete mode 100644 perl-5.32.0-pp_split-no-SWITCHSTACK-in-ary-split-.-optimisation.patch delete mode 100644 perl-5.32.1-DynaLoader-use-PerlEnv_getenv.patch delete mode 100644 perl-5.32.1-Perl_do_sv_dump-handle-PL_strtab.patch delete mode 100644 perl-5.32.1-hv.c-add-a-guard-clause-to-prevent-the-number-of-buc.patch delete mode 100644 perl-5.33.0-Add-missing-MANIFEST-entry-from-fix-for-debugger.patch delete mode 100644 perl-5.33.0-After-running-an-action-in-the-debugger-turn-it-off.patch delete mode 100644 perl-5.33.0-Clearing-DB-action-at-the-end-is-no-longer-needed.patch delete mode 100644 perl-5.33.0-Fix-leak-GH-18054.patch delete mode 100644 perl-5.33.0-IO-Handle-Fix-a-spurious-error-reported-for-regular-.patch delete mode 100644 perl-5.33.0-IO-Handle-clear-the-error-on-both-input-and-output-s.patch delete mode 100644 perl-5.33.0-IO-Socket-UNIX-synchronize-behavior-with-module-docu.patch delete mode 100644 perl-5.33.0-MUTABLE_PTR-Rmv-non-standard-syntax.patch delete mode 100644 perl-5.33.0-Update-pod-for-SvTRUE-to-indicate-single-param-evalu.patch delete mode 100644 perl-5.33.0-XSUB.h-fix-MARK-and-items-variables-inside-BOOT-XSUB.patch delete mode 100644 perl-5.33.0-ext-XS-APItest-t-utf8_warn_base.pl-Fix-a-couple-test.patch delete mode 100644 perl-5.33.0-fix-C-i-obj-where-obj-is-a-lexical.patch delete mode 100644 perl-5.33.0-list-assign-in-list-context-honour-LHS-undef.patch delete mode 100644 perl-5.33.0-list-assign-in-list-context-was-over-optimising.patch delete mode 100644 perl-5.33.0-make-fh-error-report-errors-from-both-input-and-outp.patch delete mode 100644 perl-5.33.0-perl-17844-don-t-update-SvCUR-until-after-we-ve-done.patch delete mode 100644 perl-5.33.0-reentr.c-Buffer-sizes-for-asctime_r-ctime_r-are-smal.patch delete mode 100644 perl-5.33.0-reentr.c-Prevent-infinite-looping.patch delete mode 100644 perl-5.33.0-sv.h-Wanted-UOK-but-said-IOK.patch delete mode 100644 perl-5.33.1-Heap-buffer-overflow-in-regex-bracket-group-whitespa.patch delete mode 100644 perl-5.33.1-die_unwind-global-destruction.patch delete mode 100644 perl-5.33.1-sort-return-foo.patch delete mode 100644 perl-5.33.2-Remove-Perl_av_top_index.patch delete mode 100644 perl-5.33.2-gh18096-assume-worst-case-for-GOSUBs-we-don-t-analys.patch delete mode 100644 perl-5.33.2-mro.xs-Fix-compiler-warning.patch delete mode 100644 perl-5.33.2-sv.c-Added-missing-braces-in-Perl_sv_inc_nomg.patch delete mode 100644 perl-5.33.2-sv.h-sv_collxfrm-didn-t-work-properly.patch delete mode 100644 perl-5.33.3-Perl_custom_op_get_field-remove-undef-behaviour.patch delete mode 100644 perl-5.33.3-fetch-magic-on-the-first-stacked-filetest-not-the-la.patch delete mode 100644 perl-5.33.3-pp_split-add-TonyC-s-stack-not-refcounted-suggestion.patch delete mode 100644 perl-5.33.3-t-op-inc.t-t-op-hexfp.t-t-op-sprintf2.t-Add-missing-.patch delete mode 100644 perl-5.33.4-locale.c-Fix-typo-in-ifdef.patch delete mode 100644 perl-5.33.5-Fix-buggy-fc-in-Turkish-locale.patch delete mode 100644 perl-5.33.5-Use-perl.h-versions-of-PERL_UNUSED_foo-in-XSUB.h.patch delete mode 100644 perl-5.33.5-op.c-croak-on-my-_-when-use-utf8-is-in-effect.patch delete mode 100644 perl-5.33.6-Add-missing-entries-to-perldiag-GH-18276.patch delete mode 100644 perl-5.33.6-t-run-locale.t-Rmv-LANGUAGE-from-environment.patch delete mode 100644 perl-5.33.7-regcomp.c-Remove-memory-leak.patch delete mode 100644 perl-5.33.8-Fix-broken-left-shift-of-IV_MIN-under-use-integer.patch rename perl-5.18.2-Destroy-GDBM-NDBM-ODBM-SDBM-_File-objects-only-from-.patch => perl-5.34.0-Destroy-GDBM-NDBM-ODBM-SDBM-_File-objects-only-from-.patch (81%) diff --git a/.gitignore b/.gitignore index 84163ae..db6c057 100644 --- a/.gitignore +++ b/.gitignore @@ -36,3 +36,4 @@ perl-5.12.1.tar.gz /perl-5.30.3.tar.xz /perl-5.32.0.tar.xz /perl-5.32.1.tar.xz +/perl-5.34.0.tar.xz diff --git a/gendep.macros b/gendep.macros index cb2cdc0..93700aa 100644 --- a/gendep.macros +++ b/gendep.macros @@ -25,9 +25,9 @@ Requires: perl(constant) \ Requires: perl(strict) \ Requires: perl(vars) \ Requires: perl(warnings) \ -Provides: perl(Archive::Tar) = 2.36 \ -Provides: perl(Archive::Tar::Constant) = 2.36 \ -Provides: perl(Archive::Tar::File) = 2.36 \ +Provides: perl(Archive::Tar) = 2.38 \ +Provides: perl(Archive::Tar::Constant) = 2.38 \ +Provides: perl(Archive::Tar::File) = 2.38 \ %{nil} %global gendep_perl_Attribute_Handlers \ Requires: perl(:VERSION) >= 5.6.0 \ @@ -59,14 +59,15 @@ Requires: perl(Carp) \ Requires: perl(Config) \ Requires: perl(Exporter) \ Requires: perl(feature) \ +Requires: perl(if) \ Requires: perl(re) \ Requires: perl(strict) \ Requires: perl(warnings) \ -Provides: perl(B) = 1.80 \ +Provides: perl(B) = 1.82 \ Provides: perl(B::Concise) = 1.004 \ -Provides: perl(B::Deparse) = 1.54 \ +Provides: perl(B::Deparse) = 1.56 \ Provides: perl(B::OBJECT) \ -Provides: perl(B::Op_private) = 5.032000 \ +Provides: perl(B::Op_private) = 5.034000 \ Provides: perl(B::Showlex) = 1.05 \ Provides: perl(B::Terse) = 1.09 \ Provides: perl(B::Xref) = 1.07 \ @@ -141,8 +142,8 @@ Requires: perl(overload) \ Requires: perl(strict) \ Requires: perl(vars) \ Requires: perl(warnings) \ -Provides: perl(App::Cpan) = 1.675 \ -Provides: perl(CPAN) = 2.27 \ +Provides: perl(App::Cpan) = 1.676 \ +Provides: perl(CPAN) = 2.28 \ Provides: perl(CPAN::Author) = 5.5002 \ Provides: perl(CPAN::Bundle) = 5.5005 \ Provides: perl(CPAN::CacheMgr) = 5.5002 \ @@ -165,9 +166,9 @@ Provides: perl(CPAN::Exception::RecursiveDependency::na) \ Provides: perl(CPAN::Exception::blocked_urllist) = 1.001 \ Provides: perl(CPAN::Exception::yaml_not_installed) = 5.5 \ Provides: perl(CPAN::Exception::yaml_process_error) = 5.5 \ -Provides: perl(CPAN::FTP) = 5.5012 \ +Provides: perl(CPAN::FTP) = 5.5013 \ Provides: perl(CPAN::FTP::netrc) = 1.01 \ -Provides: perl(CPAN::FirstTime) = 5.5314 \ +Provides: perl(CPAN::FirstTime) = 5.5315 \ Provides: perl(CPAN::HTTP::Client) = 1.9601 \ Provides: perl(CPAN::HTTP::Credentials) = 1.9601 \ Provides: perl(CPAN::HandleConfig) = 5.5011 \ @@ -235,9 +236,9 @@ Requires: perl(Carp) \ Requires: perl(Exporter) \ Requires: perl(strict) \ Requires: perl(warnings) \ -Provides: perl(Carp) = 1.50 \ -Provides: perl(Carp::Heavy) = 1.50 \ -Provides: perl(Carp::Heavy) = 1.50 \ +Provides: perl(Carp) = 1.52 \ +Provides: perl(Carp::Heavy) = 1.52 \ +Provides: perl(Carp::Heavy) = 1.52 \ %{nil} %global gendep_perl_Class_Struct \ Requires: perl(:VERSION) >= 5.6.0 \ @@ -256,7 +257,7 @@ Requires: perl(bytes) \ Requires: perl(constant) \ Requires: perl(strict) \ Requires: perl(warnings) \ -Provides: perl(Compress::Raw::Bzip2) = 2.093 \ +Provides: perl(Compress::Raw::Bzip2) = 2.101 \ %{nil} %global gendep_perl_Compress_Raw_Bzip2_debuginfo \ %{nil} @@ -268,7 +269,7 @@ Requires: perl(bytes) \ Requires: perl(constant) \ Requires: perl(strict) \ Requires: perl(warnings) \ -Provides: perl(Compress::Raw::Zlib) = 2.093 \ +Provides: perl(Compress::Raw::Zlib) = 2.101 \ %{nil} %global gendep_perl_Compress_Raw_Zlib_debuginfo \ %{nil} @@ -284,7 +285,7 @@ Requires: perl(Exporter) \ Requires: perl(strict) \ Requires: perl(vars) \ Requires: perl(warnings) \ -Provides: perl(Config::Perl::V) = 0.32 \ +Provides: perl(Config::Perl::V) = 0.33 \ %{nil} %global gendep_perl_DBM_Filter \ Requires: perl(Carp) \ @@ -305,7 +306,7 @@ Requires: perl(File::Spec) \ Requires: perl(Tie::Hash) \ Requires: perl(strict) \ Requires: perl(warnings) \ -Provides: perl(DB_File) = 1.853 \ +Provides: perl(DB_File) = 1.855 \ Provides: perl(DB_File::BTREEINFO) \ Provides: perl(DB_File::HASHINFO) \ Provides: perl(DB_File::RECNOINFO) \ @@ -317,19 +318,21 @@ Requires: perl(:VERSION) >= 5.6.0 \ Requires: perl(Carp) \ Requires: perl(Exporter) \ Requires: perl(constant) \ -Provides: perl(Data::Dumper) = 2.174 \ +Requires: perl(strict) \ +Requires: perl(warnings) \ +Provides: perl(Data::Dumper) = 2.179 \ %{nil} %global gendep_perl_Data_Dumper_debuginfo \ %{nil} %global gendep_perl_Devel_PPPort \ Requires: perl(strict) \ Requires: perl(vars) \ -Provides: perl(Devel::PPPort) = 3.57 \ +Provides: perl(Devel::PPPort) = 3.62 \ %{nil} %global gendep_perl_Devel_Peek \ Requires: perl(Exporter) \ Requires: perl(XSLoader) \ -Provides: perl(Devel::Peek) = 1.28 \ +Provides: perl(Devel::Peek) = 1.30 \ %{nil} %global gendep_perl_Devel_Peek_debuginfo \ %{nil} @@ -343,16 +346,16 @@ Requires: perl(Carp) \ Requires: perl(Digest) \ Requires: perl(Exporter) \ Requires: perl(strict) \ -Requires: perl(vars) \ -Provides: perl(Digest) = 1.17 \ -Provides: perl(Digest::base) = 1.16 \ -Provides: perl(Digest::file) = 1.16 \ +Requires: perl(warnings) \ +Provides: perl(Digest) = 1.19 \ +Provides: perl(Digest::base) = 1.19 \ +Provides: perl(Digest::file) = 1.19 \ %{nil} %global gendep_perl_Digest_MD5 \ Requires: perl(Exporter) \ Requires: perl(strict) \ -Requires: perl(vars) \ -Provides: perl(Digest::MD5) = 2.55 \ +Requires: perl(warnings) \ +Provides: perl(Digest::MD5) = 2.58 \ %{nil} %global gendep_perl_Digest_MD5_debuginfo \ %{nil} @@ -384,7 +387,7 @@ Provides: perl(Dumpvalue) = 1.21 \ %{nil} %global gendep_perl_DynaLoader \ Requires: perl(Config) \ -Provides: perl(DynaLoader) = 1.47 \ +Provides: perl(DynaLoader) = 1.50 \ %{nil} %global gendep_perl_Encode \ Requires: perl(:VERSION) >= 5.8.0 \ @@ -418,7 +421,7 @@ Requires: perl(strict) \ Requires: perl(utf8) \ Requires: perl(vars) \ Requires: perl(warnings) \ -Provides: perl(Encode) = 3.06 \ +Provides: perl(Encode) = 3.08 \ Provides: perl(Encode::Alias) = 2.24 \ Provides: perl(Encode::Byte) = 2.4 \ Provides: perl(Encode::CJKConstants) = 2.2 \ @@ -428,7 +431,7 @@ Provides: perl(Encode::Config) = 2.5 \ Provides: perl(Encode::EBCDIC) = 2.2 \ Provides: perl(Encode::Encoder) = 2.3 \ Provides: perl(Encode::Encoding) = 2.8 \ -Provides: perl(Encode::GSM0338) = 2.7 \ +Provides: perl(Encode::GSM0338) = 2.9 \ Provides: perl(Encode::Guess) = 2.8 \ Provides: perl(Encode::Internal) \ Provides: perl(Encode::JP) = 2.4 \ @@ -465,7 +468,7 @@ Provides: perl(English) = 1.11 \ %global gendep_perl_Env \ Requires: perl(Config) \ Requires: perl(Tie::Array) \ -Provides: perl(Env) = 1.04 \ +Provides: perl(Env) = 1.05 \ Provides: perl(Env::Array) \ Provides: perl(Env::Array::VMS) \ %{nil} @@ -473,14 +476,12 @@ Provides: perl(Env::Array::VMS) \ Requires: perl(Config) \ Requires: perl(Exporter) \ Requires: perl(strict) \ -Provides: perl(Errno) = 1.30 \ +Provides: perl(Errno) = 1.33 \ %{nil} %global gendep_perl_Exporter \ -Requires: perl(:VERSION) >= 5.6.0 \ -Requires: perl(Exporter) \ Requires: perl(strict) \ -Provides: perl(Exporter) = 5.74 \ -Provides: perl(Exporter::Heavy) \ +Provides: perl(Exporter) = 5.76 \ +Provides: perl(Exporter::Heavy) = 5.76 \ %{nil} %global gendep_perl_ExtUtils_CBuilder \ Requires: perl(Config) \ @@ -499,28 +500,29 @@ Requires: perl(Text::ParseWords) \ Requires: perl(strict) \ Requires: perl(vars) \ Requires: perl(warnings) \ -Provides: perl(ExtUtils::CBuilder) = 0.280234 \ -Provides: perl(ExtUtils::CBuilder::Base) = 0.280234 \ -Provides: perl(ExtUtils::CBuilder::Platform::Unix) = 0.280234 \ -Provides: perl(ExtUtils::CBuilder::Platform::VMS) = 0.280234 \ -Provides: perl(ExtUtils::CBuilder::Platform::Windows) = 0.280234 \ -Provides: perl(ExtUtils::CBuilder::Platform::Windows::BCC) = 0.280234 \ -Provides: perl(ExtUtils::CBuilder::Platform::Windows::GCC) = 0.280234 \ -Provides: perl(ExtUtils::CBuilder::Platform::Windows::MSVC) = 0.280234 \ -Provides: perl(ExtUtils::CBuilder::Platform::aix) = 0.280234 \ -Provides: perl(ExtUtils::CBuilder::Platform::android) = 0.280234 \ -Provides: perl(ExtUtils::CBuilder::Platform::cygwin) = 0.280234 \ -Provides: perl(ExtUtils::CBuilder::Platform::darwin) = 0.280234 \ -Provides: perl(ExtUtils::CBuilder::Platform::dec_osf) = 0.280234 \ +Provides: perl(ExtUtils::CBuilder) = 0.280236 \ +Provides: perl(ExtUtils::CBuilder::Base) = 0.280236 \ +Provides: perl(ExtUtils::CBuilder::Platform::Unix) = 0.280236 \ +Provides: perl(ExtUtils::CBuilder::Platform::VMS) = 0.280236 \ +Provides: perl(ExtUtils::CBuilder::Platform::Windows) = 0.280236 \ +Provides: perl(ExtUtils::CBuilder::Platform::Windows::BCC) = 0.280236 \ +Provides: perl(ExtUtils::CBuilder::Platform::Windows::GCC) = 0.280236 \ +Provides: perl(ExtUtils::CBuilder::Platform::Windows::MSVC) = 0.280236 \ +Provides: perl(ExtUtils::CBuilder::Platform::aix) = 0.280236 \ +Provides: perl(ExtUtils::CBuilder::Platform::android) = 0.280236 \ +Provides: perl(ExtUtils::CBuilder::Platform::cygwin) = 0.280236 \ +Provides: perl(ExtUtils::CBuilder::Platform::darwin) = 0.280236 \ +Provides: perl(ExtUtils::CBuilder::Platform::dec_osf) = 0.280236 \ Provides: perl(ExtUtils::CBuilder::Platform::linux) = 0.280206 \ -Provides: perl(ExtUtils::CBuilder::Platform::os2) = 0.280234 \ +Provides: perl(ExtUtils::CBuilder::Platform::os2) = 0.280236 \ %{nil} %global gendep_perl_ExtUtils_Command \ Requires: perl(:VERSION) >= 5.5.30 \ Requires: perl(Exporter) \ Requires: perl(strict) \ Requires: perl(vars) \ -Provides: perl(ExtUtils::Command) = 7.44 \ +Requires: perl(warnings) \ +Provides: perl(ExtUtils::Command) = 7.62 \ %{nil} %global gendep_perl_ExtUtils_Constant \ Requires: perl(Carp) \ @@ -546,7 +548,6 @@ Requires: perl(strict) \ Provides: perl(ExtUtils::Embed) = 1.35 \ %{nil} %global gendep_perl_ExtUtils_Install \ -Requires: perl(:VERSION) >= 5.5.30 \ Requires: perl(Carp) \ Requires: perl(Config) \ Requires: perl(Cwd) \ @@ -559,11 +560,10 @@ Requires: perl(File::Find) \ Requires: perl(File::Path) \ Requires: perl(File::Spec) \ Requires: perl(strict) \ -Requires: perl(vars) \ -Provides: perl(ExtUtils::Install) = 2.14 \ +Provides: perl(ExtUtils::Install) = 2.20 \ Provides: perl(ExtUtils::Install::Warn) \ -Provides: perl(ExtUtils::Installed) = 2.14 \ -Provides: perl(ExtUtils::Packlist) = 2.14 \ +Provides: perl(ExtUtils::Installed) = 2.20 \ +Provides: perl(ExtUtils::Packlist) = 2.20 \ %{nil} %global gendep_perl_ExtUtils_MM_Utils \ Requires: perl(:VERSION) >= 5.6.0 \ @@ -601,34 +601,35 @@ Requires: perl(lib) \ Requires: perl(strict) \ Requires: perl(vars) \ Requires: perl(warnings) \ -Provides: perl(ExtUtils::Command::MM) = 7.44 \ -Provides: perl(ExtUtils::Liblist) = 7.44 \ -Provides: perl(ExtUtils::Liblist::Kid) = 7.44 \ -Provides: perl(ExtUtils::MM) = 7.44 \ -Provides: perl(ExtUtils::MM_AIX) = 7.44 \ -Provides: perl(ExtUtils::MM_Any) = 7.44 \ -Provides: perl(ExtUtils::MM_BeOS) = 7.44 \ -Provides: perl(ExtUtils::MM_Cygwin) = 7.44 \ -Provides: perl(ExtUtils::MM_DOS) = 7.44 \ -Provides: perl(ExtUtils::MM_Darwin) = 7.44 \ -Provides: perl(ExtUtils::MM_MacOS) = 7.44 \ -Provides: perl(ExtUtils::MM_NW5) = 7.44 \ -Provides: perl(ExtUtils::MM_OS2) = 7.44 \ -Provides: perl(ExtUtils::MM_QNX) = 7.44 \ -Provides: perl(ExtUtils::MM_UWIN) = 7.44 \ -Provides: perl(ExtUtils::MM_Unix) = 7.44 \ -Provides: perl(ExtUtils::MM_VMS) = 7.44 \ -Provides: perl(ExtUtils::MM_VOS) = 7.44 \ -Provides: perl(ExtUtils::MM_Win32) = 7.44 \ -Provides: perl(ExtUtils::MM_Win95) = 7.44 \ -Provides: perl(ExtUtils::MY) = 7.44 \ -Provides: perl(ExtUtils::MakeMaker) = 7.44 \ -Provides: perl(ExtUtils::MakeMaker::Config) = 7.44 \ -Provides: perl(ExtUtils::MakeMaker::Locale) = 7.44 \ -Provides: perl(ExtUtils::MakeMaker::version) = 7.44 \ -Provides: perl(ExtUtils::Mkbootstrap) = 7.44 \ -Provides: perl(ExtUtils::Mksymlists) = 7.44 \ -Provides: perl(ExtUtils::testlib) = 7.44 \ +Provides: perl(ExtUtils::Command::MM) = 7.62 \ +Provides: perl(ExtUtils::Liblist) = 7.62 \ +Provides: perl(ExtUtils::Liblist::Kid) = 7.62 \ +Provides: perl(ExtUtils::MM) = 7.62 \ +Provides: perl(ExtUtils::MM_AIX) = 7.62 \ +Provides: perl(ExtUtils::MM_Any) = 7.62 \ +Provides: perl(ExtUtils::MM_BeOS) = 7.62 \ +Provides: perl(ExtUtils::MM_Cygwin) = 7.62 \ +Provides: perl(ExtUtils::MM_DOS) = 7.62 \ +Provides: perl(ExtUtils::MM_Darwin) = 7.62 \ +Provides: perl(ExtUtils::MM_MacOS) = 7.62 \ +Provides: perl(ExtUtils::MM_NW5) = 7.62 \ +Provides: perl(ExtUtils::MM_OS2) = 7.62 \ +Provides: perl(ExtUtils::MM_OS390) = 7.62 \ +Provides: perl(ExtUtils::MM_QNX) = 7.62 \ +Provides: perl(ExtUtils::MM_UWIN) = 7.62 \ +Provides: perl(ExtUtils::MM_Unix) = 7.62 \ +Provides: perl(ExtUtils::MM_VMS) = 7.62 \ +Provides: perl(ExtUtils::MM_VOS) = 7.62 \ +Provides: perl(ExtUtils::MM_Win32) = 7.62 \ +Provides: perl(ExtUtils::MM_Win95) = 7.62 \ +Provides: perl(ExtUtils::MY) = 7.62 \ +Provides: perl(ExtUtils::MakeMaker) = 7.62 \ +Provides: perl(ExtUtils::MakeMaker::Config) = 7.62 \ +Provides: perl(ExtUtils::MakeMaker::Locale) = 7.62 \ +Provides: perl(ExtUtils::MakeMaker::version) = 7.62 \ +Provides: perl(ExtUtils::Mkbootstrap) = 7.62 \ +Provides: perl(ExtUtils::Mksymlists) = 7.62 \ +Provides: perl(ExtUtils::testlib) = 7.62 \ Provides: perl(MM) \ Provides: perl(MY) \ %{nil} @@ -642,13 +643,13 @@ Requires: perl(File::Find) \ Requires: perl(File::Spec) >= 0.8 \ Requires: perl(strict) \ Requires: perl(warnings) \ -Provides: perl(ExtUtils::Manifest) = 1.72 \ +Provides: perl(ExtUtils::Manifest) = 1.73 \ %{nil} %global gendep_perl_ExtUtils_Miniperl \ Requires: perl(Exporter) \ Requires: perl(ExtUtils::Embed) >= 1.31 \ Requires: perl(strict) \ -Provides: perl(ExtUtils::Miniperl) = 1.09 \ +Provides: perl(ExtUtils::Miniperl) = 1.10 \ %{nil} %global gendep_perl_ExtUtils_ParseXS \ Requires: perl(:VERSION) >= 5.6.0 \ @@ -670,22 +671,22 @@ Requires: perl(Symbol) \ Requires: perl(re) \ Requires: perl(strict) \ Requires: perl(warnings) \ -Provides: perl(ExtUtils::ParseXS) = 3.40 \ -Provides: perl(ExtUtils::ParseXS::Constants) = 3.40 \ -Provides: perl(ExtUtils::ParseXS::CountLines) = 3.40 \ -Provides: perl(ExtUtils::ParseXS::Eval) = 3.40 \ -Provides: perl(ExtUtils::ParseXS::Utilities) = 3.40 \ -Provides: perl(ExtUtils::Typemaps) = 3.38 \ -Provides: perl(ExtUtils::Typemaps::Cmd) = 3.38 \ -Provides: perl(ExtUtils::Typemaps::InputMap) = 3.38 \ -Provides: perl(ExtUtils::Typemaps::OutputMap) = 3.38 \ -Provides: perl(ExtUtils::Typemaps::Type) = 3.38 \ +Provides: perl(ExtUtils::ParseXS) = 3.43 \ +Provides: perl(ExtUtils::ParseXS::Constants) = 3.43 \ +Provides: perl(ExtUtils::ParseXS::CountLines) = 3.43 \ +Provides: perl(ExtUtils::ParseXS::Eval) = 3.43 \ +Provides: perl(ExtUtils::ParseXS::Utilities) = 3.43 \ +Provides: perl(ExtUtils::Typemaps) = 3.43 \ +Provides: perl(ExtUtils::Typemaps::Cmd) = 3.43 \ +Provides: perl(ExtUtils::Typemaps::InputMap) = 3.43 \ +Provides: perl(ExtUtils::Typemaps::OutputMap) = 3.43 \ +Provides: perl(ExtUtils::Typemaps::Type) = 3.43 \ %{nil} %global gendep_perl_Fcntl \ Requires: perl(Exporter) \ Requires: perl(XSLoader) \ Requires: perl(strict) \ -Provides: perl(Fcntl) = 1.13 \ +Provides: perl(Fcntl) = 1.14 \ %{nil} %global gendep_perl_Fcntl_debuginfo \ %{nil} @@ -710,7 +711,7 @@ Requires: perl(Exporter) \ Requires: perl(File::Spec) \ Requires: perl(strict) \ Requires: perl(warnings) \ -Provides: perl(File::Copy) = 2.34 \ +Provides: perl(File::Copy) = 2.35 \ %{nil} %global gendep_perl_File_DosGlob \ Requires: perl(XSLoader) \ @@ -737,7 +738,7 @@ Requires: perl(Params::Check) \ Requires: perl(constant) \ Requires: perl(strict) \ Requires: perl(vars) \ -Provides: perl(File::Fetch) = 0.56 \ +Provides: perl(File::Fetch) = 1.00 \ %{nil} %global gendep_perl_File_Find \ Requires: perl(:VERSION) >= 5.6.0 \ @@ -748,7 +749,7 @@ Requires: perl(File::Spec) \ Requires: perl(strict) \ Requires: perl(warnings) \ Requires: perl(warnings::register) \ -Provides: perl(File::Find) = 1.37 \ +Provides: perl(File::Find) = 1.39 \ %{nil} %global gendep_perl_File_Path \ Requires: perl(:VERSION) >= 5.5.0 \ @@ -758,7 +759,7 @@ Requires: perl(File::Basename) \ Requires: perl(File::Spec) \ Requires: perl(strict) \ Requires: perl(vars) \ -Provides: perl(File::Path) = 2.16 \ +Provides: perl(File::Path) = 2.18 \ %{nil} %global gendep_perl_File_Temp \ Requires: perl(:VERSION) >= 5.6.0 \ @@ -777,7 +778,7 @@ Requires: perl(constant) \ Requires: perl(overload) \ Requires: perl(parent) >= 0.221 \ Requires: perl(strict) \ -Provides: perl(File::Temp) = 0.2309 \ +Provides: perl(File::Temp) = 0.2311 \ %{nil} %global gendep_perl_File_stat \ Requires: perl(:VERSION) >= 5.6.0 \ @@ -812,7 +813,7 @@ Requires: perl(Exporter) \ Requires: perl(XSLoader) \ Requires: perl(strict) \ Requires: perl(warnings) \ -Provides: perl(Filter::Util::Call) = 1.59 \ +Provides: perl(Filter::Util::Call) = 1.60 \ %{nil} %global gendep_perl_Filter_Simple \ Requires: perl(Carp) \ @@ -823,13 +824,14 @@ Provides: perl(Filter::Simple) = 0.96 \ %global gendep_perl_Filter_debuginfo \ %{nil} %global gendep_perl_FindBin \ -Requires: perl(:VERSION) >= 5.0.0 \ Requires: perl(Carp) \ Requires: perl(Cwd) \ Requires: perl(Exporter) \ Requires: perl(File::Basename) \ Requires: perl(File::Spec) \ -Provides: perl(FindBin) = 1.51 \ +Requires: perl(strict) \ +Requires: perl(warnings) \ +Provides: perl(FindBin) = 1.52 \ %{nil} %global gendep_perl_GDBM_File \ Requires: perl(Carp) \ @@ -838,7 +840,7 @@ Requires: perl(Tie::Hash) \ Requires: perl(XSLoader) \ Requires: perl(strict) \ Requires: perl(warnings) \ -Provides: perl(GDBM_File) = 1.18 \ +Provides: perl(GDBM_File) = 1.19 \ %{nil} %global gendep_perl_GDBM_File_debuginfo \ %{nil} @@ -850,14 +852,15 @@ Requires: perl(overload) \ Requires: perl(strict) \ Requires: perl(vars) \ Requires: perl(warnings) \ -Provides: perl(Getopt::Long) = 2.51 \ +Provides: perl(Getopt::Long) = 2.52 \ 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 \ +Requires: perl(strict) \ +Requires: perl(warnings) \ +Provides: perl(Getopt::Std) = 1.13 \ %{nil} %global gendep_perl_HTTP_Tiny \ Requires: perl(Errno) \ @@ -875,7 +878,7 @@ Requires: perl(Scalar::Util) \ Requires: perl(strict) \ Requires: perl(warnings) \ Requires: perl(warnings::register) \ -Provides: perl(Hash::Util) = 0.23 \ +Provides: perl(Hash::Util) = 0.25 \ %{nil} %global gendep_perl_Hash_Util_FieldHash \ Requires: perl(:VERSION) >= 5.9.4 \ @@ -883,7 +886,7 @@ Requires: perl(Exporter) \ Requires: perl(Scalar::Util) \ Requires: perl(strict) \ Requires: perl(warnings) \ -Provides: perl(Hash::Util::FieldHash) = 1.20 \ +Provides: perl(Hash::Util::FieldHash) = 1.21 \ %{nil} %global gendep_perl_Hash_Util_FieldHash_debuginfo \ %{nil} @@ -902,7 +905,7 @@ Requires: perl(:VERSION) >= 5.0.0 \ Requires: perl(Exporter) \ Requires: perl(I18N::LangTags) \ Requires: perl(strict) \ -Provides: perl(I18N::LangTags) = 0.44 \ +Provides: perl(I18N::LangTags) = 0.45 \ Provides: perl(I18N::LangTags::Detect) = 1.08 \ Provides: perl(I18N::LangTags::List) = 0.40 \ %{nil} @@ -940,24 +943,24 @@ Requires: perl(XSLoader) \ Requires: perl(strict) \ Requires: perl(warnings) \ Requires: perl(warnings::register) \ -Provides: perl(IO) = 1.43 \ -Provides: perl(IO::Dir) = 1.41 \ -Provides: perl(IO::File) = 1.41 \ -Provides: perl(IO::Handle) = 1.42 \ -Provides: perl(IO::Pipe) = 1.41 \ +Provides: perl(IO) = 1.46 \ +Provides: perl(IO::Dir) = 1.46 \ +Provides: perl(IO::File) = 1.46 \ +Provides: perl(IO::Handle) = 1.46 \ +Provides: perl(IO::Pipe) = 1.46 \ Provides: perl(IO::Pipe::End) \ -Provides: perl(IO::Poll) = 1.41 \ -Provides: perl(IO::Seekable) = 1.41 \ -Provides: perl(IO::Select) = 1.42 \ -Provides: perl(IO::Socket) = 1.43 \ -Provides: perl(IO::Socket::INET) = 1.41 \ -Provides: perl(IO::Socket::UNIX) = 1.41 \ +Provides: perl(IO::Poll) = 1.46 \ +Provides: perl(IO::Seekable) = 1.46 \ +Provides: perl(IO::Select) = 1.46 \ +Provides: perl(IO::Socket) = 1.46 \ +Provides: perl(IO::Socket::INET) = 1.46 \ +Provides: perl(IO::Socket::UNIX) = 1.46 \ %{nil} %global gendep_perl_IO_Compress \ Requires: perl(:VERSION) >= 5.6.0 \ Requires: perl(Carp) \ -Requires: perl(Compress::Raw::Bzip2) >= 2.093 \ -Requires: perl(Compress::Raw::Zlib) >= 2.093 \ +Requires: perl(Compress::Raw::Bzip2) >= 2.101 \ +Requires: perl(Compress::Raw::Zlib) >= 2.101 \ Requires: perl(Config) \ Requires: perl(Encode) \ Requires: perl(Exporter) \ @@ -965,28 +968,28 @@ Requires: perl(Fcntl) \ Requires: perl(File::GlobMapper) \ Requires: perl(File::Spec) \ Requires: perl(Getopt::Long) \ -Requires: perl(IO::Compress::Adapter::Bzip2) >= 2.093 \ -Requires: perl(IO::Compress::Adapter::Deflate) >= 2.093 \ -Requires: perl(IO::Compress::Adapter::Identity) >= 2.093 \ -Requires: perl(IO::Compress::Base) >= 2.093 \ -Requires: perl(IO::Compress::Base::Common) >= 2.093 \ -Requires: perl(IO::Compress::Gzip) >= 2.093 \ -Requires: perl(IO::Compress::Gzip::Constants) >= 2.093 \ -Requires: perl(IO::Compress::RawDeflate) >= 2.093 \ +Requires: perl(IO::Compress::Adapter::Bzip2) >= 2.101 \ +Requires: perl(IO::Compress::Adapter::Deflate) >= 2.101 \ +Requires: perl(IO::Compress::Adapter::Identity) >= 2.101 \ +Requires: perl(IO::Compress::Base) >= 2.101 \ +Requires: perl(IO::Compress::Base::Common) >= 2.101 \ +Requires: perl(IO::Compress::Gzip) >= 2.101 \ +Requires: perl(IO::Compress::Gzip::Constants) >= 2.101 \ +Requires: perl(IO::Compress::RawDeflate) >= 2.101 \ Requires: perl(IO::Compress::Zip) \ -Requires: perl(IO::Compress::Zip::Constants) >= 2.093 \ -Requires: perl(IO::Compress::Zlib::Constants) >= 2.093 \ -Requires: perl(IO::Compress::Zlib::Extra) >= 2.093 \ +Requires: perl(IO::Compress::Zip::Constants) >= 2.101 \ +Requires: perl(IO::Compress::Zlib::Constants) >= 2.101 \ +Requires: perl(IO::Compress::Zlib::Extra) >= 2.101 \ Requires: perl(IO::File) \ Requires: perl(IO::Handle) \ -Requires: perl(IO::Uncompress::Adapter::Bunzip2) >= 2.093 \ -Requires: perl(IO::Uncompress::Adapter::Identity) >= 2.093 \ -Requires: perl(IO::Uncompress::Adapter::Inflate) >= 2.093 \ -Requires: perl(IO::Uncompress::Base) >= 2.093 \ -Requires: perl(IO::Uncompress::Gunzip) >= 2.093 \ -Requires: perl(IO::Uncompress::Inflate) >= 2.093 \ -Requires: perl(IO::Uncompress::RawInflate) >= 2.093 \ -Requires: perl(IO::Uncompress::Unzip) >= 2.093 \ +Requires: perl(IO::Uncompress::Adapter::Bunzip2) >= 2.101 \ +Requires: perl(IO::Uncompress::Adapter::Identity) >= 2.101 \ +Requires: perl(IO::Uncompress::Adapter::Inflate) >= 2.101 \ +Requires: perl(IO::Uncompress::Base) >= 2.101 \ +Requires: perl(IO::Uncompress::Gunzip) >= 2.101 \ +Requires: perl(IO::Uncompress::Inflate) >= 2.101 \ +Requires: perl(IO::Uncompress::RawInflate) >= 2.101 \ +Requires: perl(IO::Uncompress::Unzip) >= 2.101 \ Requires: perl(List::Util) \ Requires: perl(POSIX) \ Requires: perl(Scalar::Util) \ @@ -996,39 +999,40 @@ Requires: perl(constant) \ Requires: perl(strict) \ Requires: perl(utf8) \ Requires: perl(warnings) \ -Provides: perl(Compress::Zlib) = 2.093 \ +Provides: perl(Compress::Zlib) = 2.102 \ Provides: perl(File::GlobMapper) = 1.001 \ -Provides: perl(IO::Compress::Adapter::Bzip2) = 2.093 \ -Provides: perl(IO::Compress::Adapter::Deflate) = 2.093 \ -Provides: perl(IO::Compress::Adapter::Identity) = 2.093 \ -Provides: perl(IO::Compress::Base) = 2.093 \ -Provides: perl(IO::Compress::Base::Common) = 2.093 \ -Provides: perl(IO::Compress::Bzip2) = 2.093 \ -Provides: perl(IO::Compress::Deflate) = 2.093 \ -Provides: perl(IO::Compress::Gzip) = 2.093 \ -Provides: perl(IO::Compress::Gzip::Constants) = 2.093 \ -Provides: perl(IO::Compress::RawDeflate) = 2.093 \ -Provides: perl(IO::Compress::Zip) = 2.093 \ -Provides: perl(IO::Compress::Zip::Constants) = 2.093 \ -Provides: perl(IO::Compress::Zlib::Constants) = 2.093 \ -Provides: perl(IO::Compress::Zlib::Extra) = 2.093 \ -Provides: perl(IO::Uncompress::Adapter::Bunzip2) = 2.093 \ -Provides: perl(IO::Uncompress::Adapter::Identity) = 2.093 \ -Provides: perl(IO::Uncompress::Adapter::Inflate) = 2.093 \ -Provides: perl(IO::Uncompress::AnyInflate) = 2.093 \ -Provides: perl(IO::Uncompress::AnyUncompress) = 2.093 \ -Provides: perl(IO::Uncompress::Base) = 2.093 \ +Provides: perl(IO::Compress::Adapter::Bzip2) = 2.102 \ +Provides: perl(IO::Compress::Adapter::Deflate) = 2.102 \ +Provides: perl(IO::Compress::Adapter::Identity) = 2.102 \ +Provides: perl(IO::Compress::Base) = 2.102 \ +Provides: perl(IO::Compress::Base::Common) = 2.102 \ +Provides: perl(IO::Compress::Bzip2) = 2.102 \ +Provides: perl(IO::Compress::Deflate) = 2.102 \ +Provides: perl(IO::Compress::Gzip) = 2.102 \ +Provides: perl(IO::Compress::Gzip::Constants) = 2.102 \ +Provides: perl(IO::Compress::RawDeflate) = 2.102 \ +Provides: perl(IO::Compress::Zip) = 2.102 \ +Provides: perl(IO::Compress::Zip::Constants) = 2.102 \ +Provides: perl(IO::Compress::Zlib::Constants) = 2.102 \ +Provides: perl(IO::Compress::Zlib::Extra) = 2.102 \ +Provides: perl(IO::Uncompress::Adapter::Bunzip2) = 2.102 \ +Provides: perl(IO::Uncompress::Adapter::Identity) = 2.102 \ +Provides: perl(IO::Uncompress::Adapter::Inflate) = 2.102 \ +Provides: perl(IO::Uncompress::AnyInflate) = 2.102 \ +Provides: perl(IO::Uncompress::AnyUncompress) = 2.102 \ +Provides: perl(IO::Uncompress::Base) = 2.102 \ Provides: perl(IO::Uncompress::Bunzip2) \ -Provides: perl(IO::Uncompress::Bunzip2) = 2.093 \ -Provides: perl(IO::Uncompress::Gunzip) = 2.093 \ -Provides: perl(IO::Uncompress::Inflate) = 2.093 \ -Provides: perl(IO::Uncompress::RawInflate) = 2.093 \ -Provides: perl(IO::Uncompress::Unzip) = 2.093 \ +Provides: perl(IO::Uncompress::Bunzip2) = 2.102 \ +Provides: perl(IO::Uncompress::Gunzip) = 2.102 \ +Provides: perl(IO::Uncompress::Inflate) = 2.102 \ +Provides: perl(IO::Uncompress::RawInflate) = 2.102 \ +Provides: perl(IO::Uncompress::Unzip) = 2.102 \ Provides: perl(U64) \ Provides: perl(Zlib::OldDeflate) \ Provides: perl(Zlib::OldInflate) \ %{nil} %global gendep_perl_IO_Socket_IP \ +Requires: perl(:VERSION) >= 5.0.0 \ Requires: perl(Carp) \ Requires: perl(Errno) \ Requires: perl(IO::Socket) \ @@ -1038,7 +1042,7 @@ Requires: perl(base) \ Requires: perl(constant) \ Requires: perl(strict) \ Requires: perl(warnings) \ -Provides: perl(IO::Socket::IP) = 0.39 \ +Provides: perl(IO::Socket::IP) = 0.41 \ %{nil} %global gendep_perl_IO_Zlib \ Requires: perl(:VERSION) >= 5.6.0 \ @@ -1047,8 +1051,8 @@ Requires: perl(Fcntl) \ Requires: perl(Symbol) \ Requires: perl(Tie::Handle) \ Requires: perl(strict) \ -Requires: perl(vars) \ -Provides: perl(IO::Zlib) = 1.10 \ +Requires: perl(warnings) \ +Provides: perl(IO::Zlib) = 1.11 \ %{nil} %global gendep_perl_IO_debuginfo \ %{nil} @@ -1083,15 +1087,16 @@ Requires: perl(Class::Struct) \ Requires: perl(Config) \ Requires: perl(Exporter) \ Requires: perl(IPC::SysV) \ +Requires: perl(XSLoader) \ Requires: perl(strict) \ Requires: perl(vars) \ -Provides: perl(IPC::Msg) = 2.07 \ +Provides: perl(IPC::Msg) = 2.09 \ Provides: perl(IPC::Msg::stat) \ -Provides: perl(IPC::Semaphore) = 2.07 \ +Provides: perl(IPC::Semaphore) = 2.09 \ Provides: perl(IPC::Semaphore::stat) \ -Provides: perl(IPC::SharedMem) = 2.07 \ +Provides: perl(IPC::SharedMem) = 2.09 \ Provides: perl(IPC::SharedMem::stat) \ -Provides: perl(IPC::SysV) = 2.07 \ +Provides: perl(IPC::SysV) = 2.09 \ %{nil} %global gendep_perl_IPC_SysV_debuginfo \ %{nil} @@ -1107,8 +1112,8 @@ Requires: perl(bytes) \ Requires: perl(constant) \ Requires: perl(overload) \ Requires: perl(strict) \ -Provides: perl(JSON::PP) = 4.04 \ -Provides: perl(JSON::PP::Boolean) = 4.04 \ +Provides: perl(JSON::PP) = 4.06 \ +Provides: perl(JSON::PP::Boolean) = 4.06 \ Provides: perl(JSON::PP::IncrParser) = 1.01 \ %{nil} %global gendep_perl_Locale_Maketext \ @@ -1134,9 +1139,9 @@ Requires: perl(Exporter) \ Requires: perl(MIME::Base64) \ Requires: perl(XSLoader) \ Requires: perl(strict) \ -Requires: perl(vars) \ -Provides: perl(MIME::Base64) = 3.15 \ -Provides: perl(MIME::QuotedPrint) = 3.13 \ +Requires: perl(warnings) \ +Provides: perl(MIME::Base64) = 3.16 \ +Provides: perl(MIME::QuotedPrint) = 3.16 \ %{nil} %global gendep_perl_MIME_Base64_debuginfo \ %{nil} @@ -1209,8 +1214,8 @@ Requires: perl(Module::CoreList) \ Requires: perl(strict) \ Requires: perl(version) \ Requires: perl(warnings) \ -Provides: perl(Module::CoreList) = 5.20200620 \ -Provides: perl(Module::CoreList::Utils) = 5.20200620 \ +Provides: perl(Module::CoreList) = 5.20210520 \ +Provides: perl(Module::CoreList::Utils) = 5.20210520 \ %{nil} %global gendep_perl_Module_CoreList_tools \ Requires: perl(Getopt::Long) \ @@ -1224,7 +1229,7 @@ Requires: perl(warnings) \ Requires: perl(File::Spec) \ Requires: perl(strict) \ Requires: perl(warnings) \ -Provides: perl(Module::Load) = 0.34 \ +Provides: perl(Module::Load) = 0.36 \ %{nil} %global gendep_perl_Module_Load_Conditional \ Requires: perl(Carp) \ @@ -1239,7 +1244,7 @@ Requires: perl(constant) \ Requires: perl(strict) \ Requires: perl(vars) \ Requires: perl(version) \ -Provides: perl(Module::Load::Conditional) = 0.70 \ +Provides: perl(Module::Load::Conditional) = 0.74 \ %{nil} %global gendep_perl_Module_Loaded \ Requires: perl(Carp) \ @@ -1271,7 +1276,7 @@ Requires: perl(overload) \ Requires: perl(strict) \ Requires: perl(warnings) \ Provides: perl(EVERY::LAST) \ -Provides: perl(NEXT) = 0.67 \ +Provides: perl(NEXT) = 0.68 \ Provides: perl(NEXT::ACTUAL) \ Provides: perl(NEXT::ACTUAL::DISTINCT) \ Provides: perl(NEXT::ACTUAL::UNSEEN) \ @@ -1297,18 +1302,19 @@ Requires: perl(Exporter) \ Requires: perl(Fcntl) \ Requires: perl(FileHandle) \ Requires: perl(POSIX) \ -Requires: perl(Socket) \ +Requires: perl(Socket) >= 2.007 \ Requires: perl(Time::HiRes) \ Requires: perl(constant) \ Requires: perl(strict) \ -Provides: perl(Net::Ping) = 2.72 \ +Requires: perl(vars) \ +Provides: perl(Net::Ping) = 2.74 \ %{nil} %global gendep_perl_ODBM_File \ Requires: perl(Tie::Hash) \ Requires: perl(XSLoader) \ Requires: perl(strict) \ Requires: perl(warnings) \ -Provides: perl(ODBM_File) = 1.16 \ +Provides: perl(ODBM_File) = 1.17 \ %{nil} %global gendep_perl_ODBM_File_debuginfo \ %{nil} @@ -1320,7 +1326,7 @@ Requires: perl(Opcode) \ Requires: perl(XSLoader) \ Requires: perl(strict) \ Requires: perl(subs) \ -Provides: perl(Opcode) = 1.47 \ +Provides: perl(Opcode) = 1.50 \ Provides: perl(ops) = 1.02 \ %{nil} %global gendep_perl_Opcode_debuginfo \ @@ -1332,7 +1338,7 @@ Requires: perl(Tie::Hash) \ Requires: perl(XSLoader) \ Requires: perl(strict) \ Requires: perl(warnings) \ -Provides: perl(POSIX) = 1.94 \ +Provides: perl(POSIX) = 1.97 \ Provides: perl(POSIX::SigAction) \ Provides: perl(POSIX::SigRt) \ Provides: perl(POSIX::SigSet) \ @@ -1354,16 +1360,16 @@ Requires: perl(File::Spec) \ Requires: perl(File::Spec::Unix) \ Requires: perl(constant) \ Requires: perl(strict) \ -Provides: perl(Cwd) = 3.78 \ -Provides: perl(File::Spec) = 3.78 \ -Provides: perl(File::Spec::AmigaOS) = 3.78 \ -Provides: perl(File::Spec::Cygwin) = 3.78 \ -Provides: perl(File::Spec::Epoc) = 3.78 \ -Provides: perl(File::Spec::Functions) = 3.78 \ -Provides: perl(File::Spec::Mac) = 3.78 \ -Provides: perl(File::Spec::OS2) = 3.78 \ -Provides: perl(File::Spec::Unix) = 3.78 \ -Provides: perl(File::Spec::Win32) = 3.79 \ +Provides: perl(Cwd) = 3.80 \ +Provides: perl(File::Spec) = 3.80 \ +Provides: perl(File::Spec::AmigaOS) = 3.80 \ +Provides: perl(File::Spec::Cygwin) = 3.80 \ +Provides: perl(File::Spec::Epoc) = 3.80 \ +Provides: perl(File::Spec::Functions) = 3.80 \ +Provides: perl(File::Spec::Mac) = 3.80 \ +Provides: perl(File::Spec::OS2) = 3.80 \ +Provides: perl(File::Spec::Unix) = 3.80 \ +Provides: perl(File::Spec::Win32) = 3.80 \ %{nil} %global gendep_perl_PathTools_debuginfo \ %{nil} @@ -1374,9 +1380,10 @@ Requires: perl(warnings) \ Provides: perl(Perl::OSType) = 1.010 \ %{nil} %global gendep_perl_PerlIO_via_QuotedPrint \ +Requires: perl(:VERSION) >= 5.8.1 \ Requires: perl(MIME::QuotedPrint) \ Requires: perl(strict) \ -Provides: perl(PerlIO::via::QuotedPrint) = 0.08 \ +Provides: perl(PerlIO::via::QuotedPrint) = 0.09 \ %{nil} %global gendep_perl_Pod_Checker \ Requires: perl(Carp) \ @@ -1388,7 +1395,7 @@ Requires: perl(Pod::Usage) \ Requires: perl(base) \ Requires: perl(strict) \ Requires: perl(warnings) \ -Provides: perl(Pod::Checker) = 1.73 \ +Provides: perl(Pod::Checker) = 1.74 \ %{nil} %global gendep_perl_Pod_Escapes \ Requires: perl(:VERSION) >= 5.6.0 \ @@ -1416,11 +1423,12 @@ Requires: perl(Pod::Html) \ Requires: perl(Pod::Simple::Search) \ Requires: perl(Pod::Simple::SimpleTree) \ Requires: perl(Pod::Simple::XHTML) \ +Requires: perl(Text::Tabs) \ Requires: perl(locale) \ Requires: perl(parent) \ Requires: perl(strict) \ Requires: perl(warnings) \ -Provides: perl(Pod::Html) = 1.25 \ +Provides: perl(Pod::Html) = 1.27 \ Provides: perl(Pod::Simple::XHTML::LocalPodLinks) \ %{nil} %global gendep_perl_Pod_Perldoc \ @@ -1491,35 +1499,35 @@ Requires: perl(overload) \ Requires: perl(strict) \ Requires: perl(vars) \ Requires: perl(warnings) \ -Provides: perl(Pod::Simple) = 3.40 \ -Provides: perl(Pod::Simple::BlackBox) = 3.40 \ -Provides: perl(Pod::Simple::Checker) = 3.40 \ -Provides: perl(Pod::Simple::Debug) = 3.40 \ -Provides: perl(Pod::Simple::DumpAsText) = 3.40 \ -Provides: perl(Pod::Simple::DumpAsXML) = 3.40 \ -Provides: perl(Pod::Simple::HTML) = 3.40 \ -Provides: perl(Pod::Simple::HTMLBatch) = 3.40 \ +Provides: perl(Pod::Simple) = 3.42 \ +Provides: perl(Pod::Simple::BlackBox) = 3.42 \ +Provides: perl(Pod::Simple::Checker) = 3.42 \ +Provides: perl(Pod::Simple::Debug) = 3.42 \ +Provides: perl(Pod::Simple::DumpAsText) = 3.42 \ +Provides: perl(Pod::Simple::DumpAsXML) = 3.42 \ +Provides: perl(Pod::Simple::HTML) = 3.42 \ +Provides: perl(Pod::Simple::HTMLBatch) = 3.42 \ Provides: perl(Pod::Simple::HTMLLegacy) = 5.01 \ Provides: perl(Pod::Simple::JustPod) \ -Provides: perl(Pod::Simple::LinkSection) = 3.40 \ -Provides: perl(Pod::Simple::Methody) = 3.40 \ -Provides: perl(Pod::Simple::Progress) = 3.40 \ -Provides: perl(Pod::Simple::PullParser) = 3.40 \ -Provides: perl(Pod::Simple::PullParserEndToken) = 3.40 \ -Provides: perl(Pod::Simple::PullParserStartToken) = 3.40 \ -Provides: perl(Pod::Simple::PullParserTextToken) = 3.40 \ -Provides: perl(Pod::Simple::PullParserToken) = 3.40 \ -Provides: perl(Pod::Simple::RTF) = 3.40 \ -Provides: perl(Pod::Simple::Search) = 3.40 \ -Provides: perl(Pod::Simple::SimpleTree) = 3.40 \ -Provides: perl(Pod::Simple::Text) = 3.40 \ -Provides: perl(Pod::Simple::TextContent) = 3.40 \ -Provides: perl(Pod::Simple::TiedOutFH) = 3.40 \ -Provides: perl(Pod::Simple::Transcode) = 3.40 \ -Provides: perl(Pod::Simple::TranscodeDumb) = 3.40 \ -Provides: perl(Pod::Simple::TranscodeSmart) = 3.40 \ -Provides: perl(Pod::Simple::XHTML) = 3.40 \ -Provides: perl(Pod::Simple::XMLOutStream) = 3.40 \ +Provides: perl(Pod::Simple::LinkSection) = 3.42 \ +Provides: perl(Pod::Simple::Methody) = 3.42 \ +Provides: perl(Pod::Simple::Progress) = 3.42 \ +Provides: perl(Pod::Simple::PullParser) = 3.42 \ +Provides: perl(Pod::Simple::PullParserEndToken) = 3.42 \ +Provides: perl(Pod::Simple::PullParserStartToken) = 3.42 \ +Provides: perl(Pod::Simple::PullParserTextToken) = 3.42 \ +Provides: perl(Pod::Simple::PullParserToken) = 3.42 \ +Provides: perl(Pod::Simple::RTF) = 3.42 \ +Provides: perl(Pod::Simple::Search) = 3.42 \ +Provides: perl(Pod::Simple::SimpleTree) = 3.42 \ +Provides: perl(Pod::Simple::Text) = 3.42 \ +Provides: perl(Pod::Simple::TextContent) = 3.42 \ +Provides: perl(Pod::Simple::TiedOutFH) = 3.42 \ +Provides: perl(Pod::Simple::Transcode) = 3.42 \ +Provides: perl(Pod::Simple::TranscodeDumb) = 3.42 \ +Provides: perl(Pod::Simple::TranscodeSmart) = 3.42 \ +Provides: perl(Pod::Simple::XHTML) = 3.42 \ +Provides: perl(Pod::Simple::XMLOutStream) = 3.42 \ %{nil} %global gendep_perl_Pod_Usage \ Requires: perl(:VERSION) >= 5.6.0 \ @@ -1530,8 +1538,7 @@ Requires: perl(File::Spec) \ Requires: perl(Getopt::Long) \ Requires: perl(Pod::Usage) \ Requires: perl(strict) \ -Requires: perl(vars) \ -Provides: perl(Pod::Usage) = 1.69 \ +Provides: perl(Pod::Usage) = 2.01 \ %{nil} %global gendep_perl_Safe \ Requires: perl(:VERSION) >= 5.3.0 \ @@ -1541,7 +1548,7 @@ Requires: perl(Opcode) >= 1.01 \ Requires: perl(Scalar::Util) \ Requires: perl(strict) \ Requires: perl(utf8) \ -Provides: perl(Safe) = 2.41 \ +Provides: perl(Safe) = 2.43 \ %{nil} %global gendep_perl_Scalar_List_Utils \ Requires: perl(Exporter) \ @@ -1581,20 +1588,22 @@ Requires: perl(Exporter) \ Requires: perl(XSLoader) \ Requires: perl(strict) \ Requires: perl(warnings::register) \ -Provides: perl(Socket) = 2.029 \ +Provides: perl(Socket) = 2.031 \ %{nil} %global gendep_perl_Socket_debuginfo \ %{nil} %global gendep_perl_Storable \ Requires: perl(Carp) \ Requires: perl(Exporter) \ -Provides: perl(Storable) = 3.21 \ +Provides: perl(Storable) = 3.23 \ %{nil} %global gendep_perl_Storable_debuginfo \ %{nil} %global gendep_perl_Symbol \ Requires: perl(Exporter) \ -Provides: perl(Symbol) = 1.08 \ +Requires: perl(strict) \ +Requires: perl(warnings) \ +Provides: perl(Symbol) = 1.09 \ %{nil} %global gendep_perl_Sys_Hostname \ Requires: perl(Carp) \ @@ -1713,54 +1722,54 @@ Requires: perl(base) \ Requires: perl(constant) \ Requires: perl(strict) \ Requires: perl(warnings) \ -Provides: perl(App::Prove) = 3.42 \ -Provides: perl(App::Prove::State) = 3.42 \ -Provides: perl(App::Prove::State::Result) = 3.42 \ -Provides: perl(App::Prove::State::Result::Test) = 3.42 \ -Provides: perl(TAP::Base) = 3.42 \ -Provides: perl(TAP::Formatter::Base) = 3.42 \ -Provides: perl(TAP::Formatter::Color) = 3.42 \ -Provides: perl(TAP::Formatter::Console) = 3.42 \ -Provides: perl(TAP::Formatter::Console::ParallelSession) = 3.42 \ -Provides: perl(TAP::Formatter::Console::Session) = 3.42 \ -Provides: perl(TAP::Formatter::File) = 3.42 \ -Provides: perl(TAP::Formatter::File::Session) = 3.42 \ -Provides: perl(TAP::Formatter::Session) = 3.42 \ -Provides: perl(TAP::Harness) = 3.42 \ -Provides: perl(TAP::Harness::Env) = 3.42 \ -Provides: perl(TAP::Object) = 3.42 \ -Provides: perl(TAP::Parser) = 3.42 \ -Provides: perl(TAP::Parser::Aggregator) = 3.42 \ -Provides: perl(TAP::Parser::Grammar) = 3.42 \ -Provides: perl(TAP::Parser::Iterator) = 3.42 \ -Provides: perl(TAP::Parser::Iterator::Array) = 3.42 \ -Provides: perl(TAP::Parser::Iterator::Process) = 3.42 \ -Provides: perl(TAP::Parser::Iterator::Stream) = 3.42 \ -Provides: perl(TAP::Parser::IteratorFactory) = 3.42 \ -Provides: perl(TAP::Parser::Multiplexer) = 3.42 \ -Provides: perl(TAP::Parser::Result) = 3.42 \ -Provides: perl(TAP::Parser::Result::Bailout) = 3.42 \ -Provides: perl(TAP::Parser::Result::Comment) = 3.42 \ -Provides: perl(TAP::Parser::Result::Plan) = 3.42 \ -Provides: perl(TAP::Parser::Result::Pragma) = 3.42 \ -Provides: perl(TAP::Parser::Result::Test) = 3.42 \ -Provides: perl(TAP::Parser::Result::Unknown) = 3.42 \ -Provides: perl(TAP::Parser::Result::Version) = 3.42 \ -Provides: perl(TAP::Parser::Result::YAML) = 3.42 \ -Provides: perl(TAP::Parser::ResultFactory) = 3.42 \ -Provides: perl(TAP::Parser::Scheduler) = 3.42 \ -Provides: perl(TAP::Parser::Scheduler::Job) = 3.42 \ -Provides: perl(TAP::Parser::Scheduler::Spinner) = 3.42 \ -Provides: perl(TAP::Parser::Source) = 3.42 \ -Provides: perl(TAP::Parser::SourceHandler) = 3.42 \ -Provides: perl(TAP::Parser::SourceHandler::Executable) = 3.42 \ -Provides: perl(TAP::Parser::SourceHandler::File) = 3.42 \ -Provides: perl(TAP::Parser::SourceHandler::Handle) = 3.42 \ -Provides: perl(TAP::Parser::SourceHandler::Perl) = 3.42 \ -Provides: perl(TAP::Parser::SourceHandler::RawTAP) = 3.42 \ -Provides: perl(TAP::Parser::YAMLish::Reader) = 3.42 \ -Provides: perl(TAP::Parser::YAMLish::Writer) = 3.42 \ -Provides: perl(Test::Harness) = 3.42 \ +Provides: perl(App::Prove) = 3.43 \ +Provides: perl(App::Prove::State) = 3.43 \ +Provides: perl(App::Prove::State::Result) = 3.43 \ +Provides: perl(App::Prove::State::Result::Test) = 3.43 \ +Provides: perl(TAP::Base) = 3.43 \ +Provides: perl(TAP::Formatter::Base) = 3.43 \ +Provides: perl(TAP::Formatter::Color) = 3.43 \ +Provides: perl(TAP::Formatter::Console) = 3.43 \ +Provides: perl(TAP::Formatter::Console::ParallelSession) = 3.43 \ +Provides: perl(TAP::Formatter::Console::Session) = 3.43 \ +Provides: perl(TAP::Formatter::File) = 3.43 \ +Provides: perl(TAP::Formatter::File::Session) = 3.43 \ +Provides: perl(TAP::Formatter::Session) = 3.43 \ +Provides: perl(TAP::Harness) = 3.43 \ +Provides: perl(TAP::Harness::Env) = 3.43 \ +Provides: perl(TAP::Object) = 3.43 \ +Provides: perl(TAP::Parser) = 3.43 \ +Provides: perl(TAP::Parser::Aggregator) = 3.43 \ +Provides: perl(TAP::Parser::Grammar) = 3.43 \ +Provides: perl(TAP::Parser::Iterator) = 3.43 \ +Provides: perl(TAP::Parser::Iterator::Array) = 3.43 \ +Provides: perl(TAP::Parser::Iterator::Process) = 3.43 \ +Provides: perl(TAP::Parser::Iterator::Stream) = 3.43 \ +Provides: perl(TAP::Parser::IteratorFactory) = 3.43 \ +Provides: perl(TAP::Parser::Multiplexer) = 3.43 \ +Provides: perl(TAP::Parser::Result) = 3.43 \ +Provides: perl(TAP::Parser::Result::Bailout) = 3.43 \ +Provides: perl(TAP::Parser::Result::Comment) = 3.43 \ +Provides: perl(TAP::Parser::Result::Plan) = 3.43 \ +Provides: perl(TAP::Parser::Result::Pragma) = 3.43 \ +Provides: perl(TAP::Parser::Result::Test) = 3.43 \ +Provides: perl(TAP::Parser::Result::Unknown) = 3.43 \ +Provides: perl(TAP::Parser::Result::Version) = 3.43 \ +Provides: perl(TAP::Parser::Result::YAML) = 3.43 \ +Provides: perl(TAP::Parser::ResultFactory) = 3.43 \ +Provides: perl(TAP::Parser::Scheduler) = 3.43 \ +Provides: perl(TAP::Parser::Scheduler::Job) = 3.43 \ +Provides: perl(TAP::Parser::Scheduler::Spinner) = 3.43 \ +Provides: perl(TAP::Parser::Source) = 3.43 \ +Provides: perl(TAP::Parser::SourceHandler) = 3.43 \ +Provides: perl(TAP::Parser::SourceHandler::Executable) = 3.43 \ +Provides: perl(TAP::Parser::SourceHandler::File) = 3.43 \ +Provides: perl(TAP::Parser::SourceHandler::Handle) = 3.43 \ +Provides: perl(TAP::Parser::SourceHandler::Perl) = 3.43 \ +Provides: perl(TAP::Parser::SourceHandler::RawTAP) = 3.43 \ +Provides: perl(TAP::Parser::YAMLish::Reader) = 3.43 \ +Provides: perl(TAP::Parser::YAMLish::Writer) = 3.43 \ +Provides: perl(Test::Harness) = 3.43 \ %{nil} %global gendep_perl_Test_Simple \ Requires: perl(:VERSION) >= 5.5.0 \ @@ -1779,6 +1788,10 @@ Requires: perl(Symbol) \ Requires: perl(Test2::API) \ Requires: perl(Test2::API::Context) \ Requires: perl(Test2::API::Instance) \ +Requires: perl(Test2::API::InterceptResult::Event) \ +Requires: perl(Test2::API::InterceptResult::Facet) \ +Requires: perl(Test2::API::InterceptResult::Hub) \ +Requires: perl(Test2::API::InterceptResult::Squasher) \ Requires: perl(Test2::API::Stack) \ Requires: perl(Test2::Event::Bail) \ Requires: perl(Test2::Event::Diag) \ @@ -1822,73 +1835,78 @@ Requires: perl(base) \ Requires: perl(strict) \ Requires: perl(vars) \ Requires: perl(warnings) \ -Provides: perl(Test2) = 1.302175 \ -Provides: perl(Test2::API) = 1.302175 \ -Provides: perl(Test2::API::Breakage) = 1.302175 \ -Provides: perl(Test2::API::Context) = 1.302175 \ -Provides: perl(Test2::API::Instance) = 1.302175 \ -Provides: perl(Test2::API::Stack) = 1.302175 \ -Provides: perl(Test2::Event) = 1.302175 \ -Provides: perl(Test2::Event::Bail) = 1.302175 \ -Provides: perl(Test2::Event::Diag) = 1.302175 \ -Provides: perl(Test2::Event::Encoding) = 1.302175 \ -Provides: perl(Test2::Event::Exception) = 1.302175 \ -Provides: perl(Test2::Event::Fail) = 1.302175 \ -Provides: perl(Test2::Event::Generic) = 1.302175 \ -Provides: perl(Test2::Event::Note) = 1.302175 \ -Provides: perl(Test2::Event::Ok) = 1.302175 \ -Provides: perl(Test2::Event::Pass) = 1.302175 \ -Provides: perl(Test2::Event::Plan) = 1.302175 \ -Provides: perl(Test2::Event::Skip) = 1.302175 \ -Provides: perl(Test2::Event::Subtest) = 1.302175 \ -Provides: perl(Test2::Event::TAP::Version) = 1.302175 \ -Provides: perl(Test2::Event::V2) = 1.302175 \ -Provides: perl(Test2::Event::Waiting) = 1.302175 \ -Provides: perl(Test2::EventFacet) = 1.302175 \ -Provides: perl(Test2::EventFacet::About) = 1.302175 \ -Provides: perl(Test2::EventFacet::Amnesty) = 1.302175 \ -Provides: perl(Test2::EventFacet::Assert) = 1.302175 \ -Provides: perl(Test2::EventFacet::Control) = 1.302175 \ -Provides: perl(Test2::EventFacet::Error) = 1.302175 \ -Provides: perl(Test2::EventFacet::Hub) = 1.302175 \ -Provides: perl(Test2::EventFacet::Info) = 1.302175 \ -Provides: perl(Test2::EventFacet::Info::Table) = 1.302175 \ -Provides: perl(Test2::EventFacet::Meta) = 1.302175 \ -Provides: perl(Test2::EventFacet::Parent) = 1.302175 \ -Provides: perl(Test2::EventFacet::Plan) = 1.302175 \ -Provides: perl(Test2::EventFacet::Render) = 1.302175 \ -Provides: perl(Test2::EventFacet::Trace) = 1.302175 \ -Provides: perl(Test2::Formatter) = 1.302175 \ -Provides: perl(Test2::Formatter::TAP) = 1.302175 \ -Provides: perl(Test2::Hub) = 1.302175 \ -Provides: perl(Test2::Hub::Interceptor) = 1.302175 \ -Provides: perl(Test2::Hub::Interceptor::Terminator) = 1.302175 \ -Provides: perl(Test2::Hub::Subtest) = 1.302175 \ -Provides: perl(Test2::IPC) = 1.302175 \ -Provides: perl(Test2::IPC::Driver) = 1.302175 \ -Provides: perl(Test2::IPC::Driver::Files) = 1.302175 \ -Provides: perl(Test2::Tools::Tiny) = 1.302175 \ -Provides: perl(Test2::Util) = 1.302175 \ -Provides: perl(Test2::Util::ExternalMeta) = 1.302175 \ -Provides: perl(Test2::Util::Facets2Legacy) = 1.302175 \ -Provides: perl(Test2::Util::HashBase) = 1.302175 \ -Provides: perl(Test2::Util::Trace) = 1.302175 \ -Provides: perl(Test::Builder) = 1.302175 \ -Provides: perl(Test::Builder::Formatter) = 1.302175 \ +Provides: perl(Test2) = 1.302183 \ +Provides: perl(Test2::API) = 1.302183 \ +Provides: perl(Test2::API::Breakage) = 1.302183 \ +Provides: perl(Test2::API::Context) = 1.302183 \ +Provides: perl(Test2::API::Instance) = 1.302183 \ +Provides: perl(Test2::API::InterceptResult) = 1.302183 \ +Provides: perl(Test2::API::InterceptResult::Event) = 1.302183 \ +Provides: perl(Test2::API::InterceptResult::Facet) = 1.302183 \ +Provides: perl(Test2::API::InterceptResult::Hub) = 1.302183 \ +Provides: perl(Test2::API::InterceptResult::Squasher) = 1.302183 \ +Provides: perl(Test2::API::Stack) = 1.302183 \ +Provides: perl(Test2::Event) = 1.302183 \ +Provides: perl(Test2::Event::Bail) = 1.302183 \ +Provides: perl(Test2::Event::Diag) = 1.302183 \ +Provides: perl(Test2::Event::Encoding) = 1.302183 \ +Provides: perl(Test2::Event::Exception) = 1.302183 \ +Provides: perl(Test2::Event::Fail) = 1.302183 \ +Provides: perl(Test2::Event::Generic) = 1.302183 \ +Provides: perl(Test2::Event::Note) = 1.302183 \ +Provides: perl(Test2::Event::Ok) = 1.302183 \ +Provides: perl(Test2::Event::Pass) = 1.302183 \ +Provides: perl(Test2::Event::Plan) = 1.302183 \ +Provides: perl(Test2::Event::Skip) = 1.302183 \ +Provides: perl(Test2::Event::Subtest) = 1.302183 \ +Provides: perl(Test2::Event::TAP::Version) = 1.302183 \ +Provides: perl(Test2::Event::V2) = 1.302183 \ +Provides: perl(Test2::Event::Waiting) = 1.302183 \ +Provides: perl(Test2::EventFacet) = 1.302183 \ +Provides: perl(Test2::EventFacet::About) = 1.302183 \ +Provides: perl(Test2::EventFacet::Amnesty) = 1.302183 \ +Provides: perl(Test2::EventFacet::Assert) = 1.302183 \ +Provides: perl(Test2::EventFacet::Control) = 1.302183 \ +Provides: perl(Test2::EventFacet::Error) = 1.302183 \ +Provides: perl(Test2::EventFacet::Hub) = 1.302183 \ +Provides: perl(Test2::EventFacet::Info) = 1.302183 \ +Provides: perl(Test2::EventFacet::Info::Table) = 1.302183 \ +Provides: perl(Test2::EventFacet::Meta) = 1.302183 \ +Provides: perl(Test2::EventFacet::Parent) = 1.302183 \ +Provides: perl(Test2::EventFacet::Plan) = 1.302183 \ +Provides: perl(Test2::EventFacet::Render) = 1.302183 \ +Provides: perl(Test2::EventFacet::Trace) = 1.302183 \ +Provides: perl(Test2::Formatter) = 1.302183 \ +Provides: perl(Test2::Formatter::TAP) = 1.302183 \ +Provides: perl(Test2::Hub) = 1.302183 \ +Provides: perl(Test2::Hub::Interceptor) = 1.302183 \ +Provides: perl(Test2::Hub::Interceptor::Terminator) = 1.302183 \ +Provides: perl(Test2::Hub::Subtest) = 1.302183 \ +Provides: perl(Test2::IPC) = 1.302183 \ +Provides: perl(Test2::IPC::Driver) = 1.302183 \ +Provides: perl(Test2::IPC::Driver::Files) = 1.302183 \ +Provides: perl(Test2::Tools::Tiny) = 1.302183 \ +Provides: perl(Test2::Util) = 1.302183 \ +Provides: perl(Test2::Util::ExternalMeta) = 1.302183 \ +Provides: perl(Test2::Util::Facets2Legacy) = 1.302183 \ +Provides: perl(Test2::Util::HashBase) = 1.302183 \ +Provides: perl(Test2::Util::Trace) = 1.302183 \ +Provides: perl(Test::Builder) = 1.302183 \ +Provides: perl(Test::Builder::Formatter) = 1.302183 \ Provides: perl(Test::Builder::IO::Scalar) = 2.114 \ -Provides: perl(Test::Builder::Module) = 1.302175 \ -Provides: perl(Test::Builder::Tester) = 1.302175 \ -Provides: perl(Test::Builder::Tester::Color) = 1.302175 \ +Provides: perl(Test::Builder::Module) = 1.302183 \ +Provides: perl(Test::Builder::Tester) = 1.302183 \ +Provides: perl(Test::Builder::Tester::Color) = 1.302183 \ Provides: perl(Test::Builder::Tester::Tie) \ -Provides: perl(Test::Builder::TodoDiag) = 1.302175 \ -Provides: perl(Test::More) = 1.302175 \ -Provides: perl(Test::Simple) = 1.302175 \ -Provides: perl(Test::Tester) = 1.302175 \ -Provides: perl(Test::Tester::Capture) = 1.302175 \ -Provides: perl(Test::Tester::CaptureRunner) = 1.302175 \ -Provides: perl(Test::Tester::Delegate) = 1.302175 \ -Provides: perl(Test::use::ok) = 1.302175 \ -Provides: perl(ok) = 1.302175 \ +Provides: perl(Test::Builder::TodoDiag) = 1.302183 \ +Provides: perl(Test::More) = 1.302183 \ +Provides: perl(Test::Simple) = 1.302183 \ +Provides: perl(Test::Tester) = 1.302183 \ +Provides: perl(Test::Tester::Capture) = 1.302183 \ +Provides: perl(Test::Tester::CaptureRunner) = 1.302183 \ +Provides: perl(Test::Tester::Delegate) = 1.302183 \ +Provides: perl(Test::use::ok) = 1.302183 \ +Provides: perl(ok) = 1.302183 \ %{nil} %global gendep_perl_Text_Abbrev \ Requires: perl(:VERSION) >= 5.5.0 \ @@ -1896,14 +1914,13 @@ Requires: perl(Exporter) \ Provides: perl(Text::Abbrev) = 1.02 \ %{nil} %global gendep_perl_Text_Balanced \ -Requires: perl(:VERSION) >= 5.5.0 \ +Requires: perl(:VERSION) >= 5.8.1 \ Requires: perl(Carp) \ Requires: perl(Exporter) \ -Requires: perl(SelfLoader) \ Requires: perl(overload) \ Requires: perl(strict) \ Requires: perl(vars) \ -Provides: perl(Text::Balanced) = 2.03 \ +Provides: perl(Text::Balanced) = 2.04 \ Provides: perl(Text::Balanced::ErrorMsg) \ Provides: perl(Text::Balanced::Extractor) \ %{nil} @@ -1980,14 +1997,11 @@ Requires: perl(strict) \ Provides: perl(Tie::Memoize) = 1.1 \ %{nil} %global gendep_perl_Tie_RefHash \ -Requires: perl(:VERSION) >= 5.5.0 \ Requires: perl(Carp) \ Requires: perl(Config) \ Requires: perl(Tie::Hash) \ Requires: perl(strict) \ -Requires: perl(vars) \ -Provides: perl(Tie::RefHash) = 1.39 \ -Provides: perl(Tie::RefHash::Nestable) \ +Provides: perl(Tie::RefHash) = 1.40 \ %{nil} %global gendep_perl_Time \ Requires: perl(:VERSION) >= 5.6.0 \ @@ -2003,7 +2017,7 @@ Provides: perl(Time::tm) = 1.00 \ Requires: perl(Exporter) \ Requires: perl(XSLoader) \ Requires: perl(strict) \ -Provides: perl(Time::HiRes) = 1.9764 \ +Provides: perl(Time::HiRes) = 1.9767 \ %{nil} %global gendep_perl_Time_HiRes_debuginfo \ %{nil} @@ -2013,7 +2027,7 @@ Requires: perl(Exporter) \ Requires: perl(constant) \ Requires: perl(parent) \ Requires: perl(strict) \ -Provides: perl(Time::Local) = 1.28 \ +Provides: perl(Time::Local) = 1.30 \ %{nil} %global gendep_perl_Time_Piece \ Requires: perl(Carp) \ @@ -2041,15 +2055,15 @@ Requires: perl(base) \ Requires: perl(constant) \ Requires: perl(strict) \ Requires: perl(warnings) \ -Provides: perl(Unicode::Collate) = 1.27 \ -Provides: perl(Unicode::Collate::CJK::Big5) = 1.27 \ -Provides: perl(Unicode::Collate::CJK::GB2312) = 1.27 \ -Provides: perl(Unicode::Collate::CJK::JISX0208) = 1.27 \ -Provides: perl(Unicode::Collate::CJK::Korean) = 1.27 \ -Provides: perl(Unicode::Collate::CJK::Pinyin) = 1.27 \ -Provides: perl(Unicode::Collate::CJK::Stroke) = 1.27 \ -Provides: perl(Unicode::Collate::CJK::Zhuyin) = 1.27 \ -Provides: perl(Unicode::Collate::Locale) = 1.27 \ +Provides: perl(Unicode::Collate) = 1.29 \ +Provides: perl(Unicode::Collate::CJK::Big5) = 1.29 \ +Provides: perl(Unicode::Collate::CJK::GB2312) = 1.29 \ +Provides: perl(Unicode::Collate::CJK::JISX0208) = 1.29 \ +Provides: perl(Unicode::Collate::CJK::Korean) = 1.29 \ +Provides: perl(Unicode::Collate::CJK::Pinyin) = 1.29 \ +Provides: perl(Unicode::Collate::CJK::Stroke) = 1.29 \ +Provides: perl(Unicode::Collate::CJK::Zhuyin) = 1.29 \ +Provides: perl(Unicode::Collate::Locale) = 1.29 \ %{nil} %global gendep_perl_Unicode_Collate_debuginfo \ %{nil} @@ -2060,7 +2074,7 @@ Requires: perl(Exporter) \ Requires: perl(XSLoader) \ Requires: perl(strict) \ Requires: perl(warnings) \ -Provides: perl(Unicode::Normalize) = 1.27 \ +Provides: perl(Unicode::Normalize) = 1.28 \ %{nil} %global gendep_perl_Unicode_Normalize_debuginfo \ %{nil} @@ -2107,15 +2121,15 @@ Requires: perl(overload) \ Requires: perl(parent) \ Requires: perl(strict) \ Requires: perl(warnings) \ -Provides: perl(Fatal) = 2.32 \ -Provides: perl(autodie) = 2.32 \ -Provides: perl(autodie::Scope::Guard) = 2.32 \ -Provides: perl(autodie::Scope::GuardStack) = 2.32 \ -Provides: perl(autodie::Util) = 2.32 \ -Provides: perl(autodie::exception) = 2.32 \ -Provides: perl(autodie::exception::system) = 2.32 \ -Provides: perl(autodie::hints) = 2.32 \ -Provides: perl(autodie::skip) = 2.32 \ +Provides: perl(Fatal) = 2.34 \ +Provides: perl(autodie) = 2.34 \ +Provides: perl(autodie::Scope::Guard) = 2.34 \ +Provides: perl(autodie::Scope::GuardStack) = 2.34 \ +Provides: perl(autodie::Util) = 2.34 \ +Provides: perl(autodie::exception) = 2.34 \ +Provides: perl(autodie::exception::system) = 2.34 \ +Provides: perl(autodie::hints) = 2.34 \ +Provides: perl(autodie::skip) = 2.34 \ %{nil} %global gendep_perl_autouse \ Requires: perl(:VERSION) >= 5.6.0 \ @@ -2156,7 +2170,7 @@ Provides: perl(constant) = 1.33 \ %global gendep_perl_debugger \ Requires: perl(strict) \ Provides: perl(DB) = 1.08 \ -Provides: perl(dumpvar.pl) = 5.32.0 \ +Provides: perl(dumpvar.pl) = 5.34.0 \ Provides: perl(perl5db.pl) = 1.56 \ %{nil} %global gendep_perl_debuginfo \ @@ -2210,7 +2224,7 @@ Requires: perl(Carp) \ Requires: perl(strict) \ Requires: perl(version) \ Requires: perl(warnings) \ -Provides: perl(experimental) = 0.020 \ +Provides: perl(experimental) = 0.024 \ %{nil} %global gendep_perl_fields \ Requires: perl(:VERSION) >= 5.8.0 \ @@ -2221,7 +2235,8 @@ Provides: perl(fields) = 2.24 \ Provides: perl(filetest) = 1.03 \ %{nil} %global gendep_perl_if \ -Provides: perl(if) = 0.0608 \ +Requires: perl(strict) \ +Provides: perl(if) = 0.0609 \ %{nil} %global gendep_perl_interpreter \ %{nil} @@ -2256,24 +2271,23 @@ Requires: perl(Time::Local) \ Requires: perl(constant) \ Requires: perl(strict) \ Requires: perl(warnings) \ -Provides: perl(Net::Cmd) = 3.11 \ -Provides: perl(Net::Config) = 3.11 \ -Provides: perl(Net::Domain) = 3.11 \ -Provides: perl(Net::FTP) = 3.11 \ -Provides: perl(Net::FTP::A) = 3.11 \ -Provides: perl(Net::FTP::E) = 3.11 \ -Provides: perl(Net::FTP::I) = 3.11 \ -Provides: perl(Net::FTP::L) = 3.11 \ -Provides: perl(Net::FTP::_SSL_SingleSessionCache) \ -Provides: perl(Net::FTP::dataconn) = 3.11 \ -Provides: perl(Net::NNTP) = 3.11 \ +Provides: perl(Net::Cmd) = 3.13 \ +Provides: perl(Net::Config) = 3.13 \ +Provides: perl(Net::Domain) = 3.13 \ +Provides: perl(Net::FTP) = 3.13 \ +Provides: perl(Net::FTP::A) = 3.13 \ +Provides: perl(Net::FTP::E) = 3.13 \ +Provides: perl(Net::FTP::I) = 3.13 \ +Provides: perl(Net::FTP::L) = 3.13 \ +Provides: perl(Net::FTP::dataconn) = 3.13 \ +Provides: perl(Net::NNTP) = 3.13 \ Provides: perl(Net::NNTP::_SSL) \ -Provides: perl(Net::Netrc) = 3.11 \ -Provides: perl(Net::POP3) = 3.11 \ +Provides: perl(Net::Netrc) = 3.13 \ +Provides: perl(Net::POP3) = 3.13 \ Provides: perl(Net::POP3::_SSL) \ -Provides: perl(Net::SMTP) = 3.11 \ +Provides: perl(Net::SMTP) = 3.13 \ Provides: perl(Net::SMTP::_SSL) \ -Provides: perl(Net::Time) = 3.11 \ +Provides: perl(Net::Time) = 3.13 \ %{nil} %global gendep_perl_libnetcfg \ Requires: perl(ExtUtils::MakeMaker) \ @@ -2297,20 +2311,20 @@ Requires: perl(strict) \ Requires: perl(unicore::Name) \ Requires: perl(warnings) \ Requires: perl(warnings::register) \ -Provides: perl(:MODULE_COMPAT_5.32.0) \ -Provides: perl(:VERSION) = 5.32.0 \ +Provides: perl(:MODULE_COMPAT_5.34.0) \ +Provides: perl(:VERSION) = 5.34.0 \ Provides: perl(:WITH_64BIT) \ Provides: perl(:WITH_ITHREADS) \ Provides: perl(:WITH_LARGEFILES) \ Provides: perl(:WITH_PERLIO) \ Provides: perl(:WITH_THREADS) \ Provides: perl(AnyDBM_File) = 1.01 \ -Provides: perl(Config) = 5.032000 \ +Provides: perl(Config) = 5.034000 \ Provides: perl(File::Glob) = 1.33 \ Provides: perl(PerlIO) = 1.11 \ -Provides: perl(PerlIO::encoding) = 0.28 \ -Provides: perl(PerlIO::mmap) = 0.016 \ -Provides: perl(PerlIO::scalar) = 0.30 \ +Provides: perl(PerlIO::encoding) = 0.30 \ +Provides: perl(PerlIO::mmap) = 0.017 \ +Provides: perl(PerlIO::scalar) = 0.31 \ Provides: perl(PerlIO::via) = 0.18 \ Provides: perl(SDBM_File) = 1.15 \ Provides: perl(Tie::ExtraHash) \ @@ -2321,37 +2335,39 @@ Provides: perl(UNIVERSAL) = 1.13 \ Provides: perl(XSLoader) = 0.30 \ Provides: perl(_charnames) = 1.48 \ Provides: perl(attributes) = 0.33 \ -Provides: perl(bytes) = 1.07 \ +Provides: perl(bytes) = 1.08 \ Provides: perl(bytes_heavy.pl) \ Provides: perl(charnames) = 1.48 \ -Provides: perl(feature) = 1.58 \ +Provides: perl(feature) = 1.64 \ Provides: perl(integer) = 1.01 \ -Provides: perl(re) = 0.40 \ -Provides: perl(strict) = 1.11 \ +Provides: perl(re) = 0.41 \ +Provides: perl(strict) = 1.12 \ Provides: perl(unicore::Name) \ -Provides: perl(utf8) = 1.22 \ +Provides: perl(utf8) = 1.24 \ Provides: perl(utf8_heavy.pl) \ -Provides: perl(warnings) = 1.47 \ +Provides: perl(warnings) = 1.51 \ Provides: perl(warnings::register) = 1.04 \ %{nil} %global gendep_perl_libs_debuginfo \ %{nil} %global gendep_perl_locale \ Requires: perl(Config) \ -Provides: perl(locale) = 1.09 \ +Requires: perl(strict) \ +Requires: perl(warnings) \ +Provides: perl(locale) = 1.10 \ %{nil} %global gendep_perl_macros \ %{nil} %global gendep_perl_meta_notation \ Requires: perl(strict) \ Requires: perl(warnings) \ -Provides: perl(meta_notation) = 5.32.0 \ +Provides: perl(meta_notation) = 5.34.0 \ %{nil} %global gendep_perl_mro \ Requires: perl(XSLoader) \ Requires: perl(strict) \ Requires: perl(warnings) \ -Provides: perl(mro) = 1.23 \ +Provides: perl(mro) = 1.25 \ %{nil} %global gendep_perl_mro_debuginfo \ %{nil} @@ -2361,8 +2377,9 @@ Requires: perl(warnings) \ Provides: perl(open) = 1.12 \ %{nil} %global gendep_perl_overload \ +Requires: perl(strict) \ Requires: perl(warnings::register) \ -Provides: perl(overload) = 1.31 \ +Provides: perl(overload) = 1.33 \ %{nil} %global gendep_perl_overloading \ Requires: perl(:VERSION) >= 5.10.1 \ @@ -2377,12 +2394,12 @@ Provides: perl(parent) = 0.238 \ %global gendep_perl_perlfaq \ Requires: perl(strict) \ Requires: perl(warnings) \ -Provides: perl(perlfaq) = 5.20200523 \ +Provides: perl(perlfaq) = 5.20210411 \ %{nil} %global gendep_perl_ph \ -Provides: perl(sys/ioctl.ph) = 5.32.0 \ -Provides: perl(sys/syscall.ph) = 5.32.0 \ -Provides: perl(syscall.ph) = 5.32.0 \ +Provides: perl(sys/ioctl.ph) = 5.34.0 \ +Provides: perl(sys/syscall.ph) = 5.34.0 \ +Provides: perl(syscall.ph) = 5.34.0 \ %{nil} %global gendep_perl_podlators \ Requires: perl(:VERSION) >= 5.6.0 \ @@ -2418,8 +2435,9 @@ Requires: perl(strict) \ Provides: perl(sort) = 2.04 \ %{nil} %global gendep_perl_subs \ -Requires: perl(:VERSION) >= 5.0.0 \ -Provides: perl(subs) = 1.03 \ +Requires: perl(strict) \ +Requires: perl(warnings) \ +Provides: perl(subs) = 1.04 \ %{nil} %global gendep_perl_tests \ %{nil} @@ -2430,7 +2448,7 @@ Requires: perl(XSLoader) \ Requires: perl(overload) \ Requires: perl(strict) \ Requires: perl(warnings) \ -Provides: perl(threads) = 2.25 \ +Provides: perl(threads) = 2.26 \ %{nil} %global gendep_perl_threads_debuginfo \ %{nil} @@ -2440,7 +2458,7 @@ Requires: perl(Config) \ Requires: perl(Scalar::Util) \ Requires: perl(strict) \ Requires: perl(warnings) \ -Provides: perl(threads::shared) = 1.61 \ +Provides: perl(threads::shared) = 1.62 \ %{nil} %global gendep_perl_threads_shared_debuginfo \ %{nil} @@ -2466,8 +2484,8 @@ Requires: perl(:VERSION) >= 5.6.2 \ Requires: perl(strict) \ Requires: perl(version::regex) \ Requires: perl(warnings::register) \ -Provides: perl(version) = 0.9924 \ -Provides: perl(version::regex) = 0.9924 \ +Provides: perl(version) = 0.9928 \ +Provides: perl(version::regex) = 0.9928 \ %{nil} %global gendep_perl_vmsish \ Provides: perl(vmsish) = 1.04 \ diff --git a/perl-5.14.1-offtest.patch b/perl-5.14.1-offtest.patch index 45294c8..ecdbd07 100644 --- a/perl-5.14.1-offtest.patch +++ b/perl-5.14.1-offtest.patch @@ -1,14 +1,18 @@ -diff -up perl-5.14.1/cpan/File-Temp/t/fork.t.off perl-5.14.1/cpan/File-Temp/t/fork.t ---- perl-5.14.1/cpan/File-Temp/t/fork.t.off 2011-04-13 13:36:34.000000000 +0200 -+++ perl-5.14.1/cpan/File-Temp/t/fork.t 2011-06-20 10:29:31.536282611 +0200 -@@ -12,12 +12,8 @@ BEGIN { +diff -up perl-5.33.9/cpan/File-Temp/t/fork.t.orig perl-5.33.9/cpan/File-Temp/t/fork.t +--- perl-5.33.9/cpan/File-Temp/t/fork.t.orig 2021-04-22 16:24:11.736220616 +0200 ++++ perl-5.33.9/cpan/File-Temp/t/fork.t 2021-04-22 16:26:31.466593123 +0200 +@@ -12,16 +12,8 @@ BEGIN { $Config::Config{useithreads} and $Config::Config{ccflags} =~ /-DPERL_IMPLICIT_SYS/ ); -- if ( $can_fork ) { +- if ( $can_fork && !(($^O eq 'MSWin32') && $Devel::Cover::VERSION) ) { - print "1..8\n"; - } else { -- print "1..0 # Skip No fork available\n"; +- if ( ($^O eq 'MSWin32') && $Devel::Cover::VERSION ) { +- print "1..0 # Skip Devel::Cover coverage testing is incompatible with fork under 'MSWin32'\n"; +- } else { +- print "1..0 # Skip No fork available\n"; +- } + print "1..0 # Skip Koji doesn't work with Perl fork tests\n"; exit; - } diff --git a/perl-5.22.1-Provide-ExtUtils-MM-methods-as-standalone-ExtUtils-M.patch b/perl-5.22.1-Provide-ExtUtils-MM-methods-as-standalone-ExtUtils-M.patch index 0a9e69d..c80f2a4 100644 --- a/perl-5.22.1-Provide-ExtUtils-MM-methods-as-standalone-ExtUtils-M.patch +++ b/perl-5.22.1-Provide-ExtUtils-MM-methods-as-standalone-ExtUtils-M.patch @@ -23,8 +23,8 @@ diff --git a/MANIFEST b/MANIFEST index 6af238c..d4f0c56 100644 --- a/MANIFEST +++ b/MANIFEST -@@ -784,6 +784,7 @@ cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_OS2.pm MakeMaker methods for OS/2 - cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_OS2.pm MakeMaker methods for OS/2 +@@ -784,6 +784,7 @@ cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_OS390.pm + cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_OS390.pm cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_QNX.pm MakeMaker methods for QNX cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm MakeMaker methods for Unix +cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM/Utils.pm Independed MM methods diff --git a/perl-5.32.0-Add-av_count.patch b/perl-5.32.0-Add-av_count.patch deleted file mode 100644 index fccdd9c..0000000 --- a/perl-5.32.0-Add-av_count.patch +++ /dev/null @@ -1,175 +0,0 @@ -From bafffe7f2ca587960177ed03216e2d5692fe6143 Mon Sep 17 00:00:00 2001 -From: Karl Williamson -Date: Wed, 19 Aug 2020 11:57:17 -0600 -Subject: [PATCH] Add av_count() -MIME-Version: 1.0 -Content-Type: text/plain; charset=UTF-8 -Content-Transfer-Encoding: 8bit - -This returns the number of elements in an array in a clearly named -function. - -av_top_index(), av_tindex() are clearly named, but are less than ideal, -and came about because no one back then thought of this one, until now -Paul Evans did. - -Petr Písař: Port 87306e0674dfe3af29804b4641347cd5ac9b0521 to 5.32.0. - -Signed-off-by: Petr Písař ---- - av.c | 17 ++++++++++++++--- - av.h | 3 ++- - embed.fnc | 3 ++- - embed.h | 2 +- - inline.h | 16 ++++++++++++---- - proto.h | 11 ++++++++--- - 6 files changed, 39 insertions(+), 13 deletions(-) - -diff --git a/av.c b/av.c -index 27b2f12..b5ddaca 100644 ---- a/av.c -+++ b/av.c -@@ -814,9 +814,10 @@ The Perl equivalent for this is C<$#myarray>. - =for apidoc av_len - - Same as L. Note that, unlike what the name implies, it returns --the highest index in the array, so to get the size of the array you need to use --S>. This is unlike L, which returns what you would --expect. -+the highest index in the array. This is unlike L, which returns what -+you would expect. -+ -+B>>. - - =cut - */ -@@ -1089,6 +1090,16 @@ Perl_av_nonelem(pTHX_ AV *av, SSize_t ix) { - return sv; - } - -+SSize_t -+Perl_av_top_index(pTHX_ AV *av) -+{ -+ PERL_ARGS_ASSERT_AV_TOP_INDEX; -+ assert(SvTYPE(av) == SVt_PVAV); -+ -+ return AvFILL(av); -+} -+ -+ - /* - * ex: set ts=8 sts=4 sw=4 et: - */ -diff --git a/av.h b/av.h -index 5e39c42..90ebfff 100644 ---- a/av.h -+++ b/av.h -@@ -81,7 +81,8 @@ Same as C. - - #define AvFILL(av) ((SvRMAGICAL((const SV *) (av))) \ - ? mg_size(MUTABLE_SV(av)) : AvFILLp(av)) --#define av_tindex(av) av_top_index(av) -+#define av_top_index(av) AvFILL(av) -+#define av_tindex(av) av_top_index(av) - - /* Note that it doesn't make sense to do this: - * SvGETMAGIC(av); IV x = av_tindex_nomg(av); -diff --git a/embed.fnc b/embed.fnc -index 589ab1a..789cd3c 100644 ---- a/embed.fnc -+++ b/embed.fnc -@@ -541,7 +541,8 @@ Apd |void |av_push |NN AV *av|NN SV *val - EXp |void |av_reify |NN AV *av - ApdR |SV* |av_shift |NN AV *av - Apd |SV** |av_store |NN AV *av|SSize_t key|NULLOK SV *val --AidRp |SSize_t|av_top_index |NN AV *av -+AMdRp |SSize_t|av_top_index |NN AV *av -+AidRp |Size_t |av_count |NN AV *av - AmdR |SSize_t|av_tindex |NN AV *av - Apd |void |av_undef |NN AV *av - Apdoex |SV** |av_create_and_unshift_one|NN AV **const avp|NN SV *const val -diff --git a/embed.h b/embed.h -index 182b12a..329ac40 100644 ---- a/embed.h -+++ b/embed.h -@@ -48,6 +48,7 @@ - #define atfork_lock Perl_atfork_lock - #define atfork_unlock Perl_atfork_unlock - #define av_clear(a) Perl_av_clear(aTHX_ a) -+#define av_count(a) Perl_av_count(aTHX_ a) - #define av_delete(a,b,c) Perl_av_delete(aTHX_ a,b,c) - #define av_exists(a,b) Perl_av_exists(aTHX_ a,b) - #define av_extend(a,b) Perl_av_extend(aTHX_ a,b) -@@ -59,7 +60,6 @@ - #define av_push(a,b) Perl_av_push(aTHX_ a,b) - #define av_shift(a) Perl_av_shift(aTHX_ a) - #define av_store(a,b,c) Perl_av_store(aTHX_ a,b,c) --#define av_top_index(a) Perl_av_top_index(aTHX_ a) - #define av_undef(a) Perl_av_undef(aTHX_ a) - #define av_unshift(a,b) Perl_av_unshift(aTHX_ a,b) - #define block_end(a,b) Perl_block_end(aTHX_ a,b) -diff --git a/inline.h b/inline.h -index 27005d2..35af18a 100644 ---- a/inline.h -+++ b/inline.h -@@ -39,13 +39,21 @@ SOFTWARE. - - /* ------------------------------- av.h ------------------------------- */ - --PERL_STATIC_INLINE SSize_t --Perl_av_top_index(pTHX_ AV *av) -+/* -+=for apidoc av_count -+Returns the number of elements in the array C. This is the true length of -+the array, including any undefined elements. It is always the same as -+S>. -+ -+=cut -+*/ -+PERL_STATIC_INLINE Size_t -+Perl_av_count(pTHX_ AV *av) - { -- PERL_ARGS_ASSERT_AV_TOP_INDEX; -+ PERL_ARGS_ASSERT_AV_COUNT; - assert(SvTYPE(av) == SVt_PVAV); - -- return AvFILL(av); -+ return AvFILL(av) + 1; - } - - /* ------------------------------- cv.h ------------------------------- */ -diff --git a/proto.h b/proto.h -index 02ef4ed..83ba098 100644 ---- a/proto.h -+++ b/proto.h -@@ -219,6 +219,13 @@ PERL_CALLCONV SV** Perl_av_arylen_p(pTHX_ AV *av); - PERL_CALLCONV void Perl_av_clear(pTHX_ AV *av); - #define PERL_ARGS_ASSERT_AV_CLEAR \ - assert(av) -+#ifndef PERL_NO_INLINE_FUNCTIONS -+PERL_STATIC_INLINE Size_t Perl_av_count(pTHX_ AV *av) -+ __attribute__warn_unused_result__; -+#define PERL_ARGS_ASSERT_AV_COUNT \ -+ assert(av) -+#endif -+ - PERL_CALLCONV void Perl_av_create_and_push(pTHX_ AV **const avp, SV *const val); - #define PERL_ARGS_ASSERT_AV_CREATE_AND_PUSH \ - assert(avp); assert(val) -@@ -284,12 +291,10 @@ PERL_CALLCONV SV** Perl_av_store(pTHX_ AV *av, SSize_t key, SV *val); - __attribute__warn_unused_result__; */ - #define PERL_ARGS_ASSERT_AV_TINDEX - --#ifndef PERL_NO_INLINE_FUNCTIONS --PERL_STATIC_INLINE SSize_t Perl_av_top_index(pTHX_ AV *av) -+PERL_CALLCONV SSize_t Perl_av_top_index(pTHX_ AV *av) - __attribute__warn_unused_result__; - #define PERL_ARGS_ASSERT_AV_TOP_INDEX \ - assert(av) --#endif - - PERL_CALLCONV void Perl_av_undef(pTHX_ AV *av); - #define PERL_ARGS_ASSERT_AV_UNDEF \ --- -2.25.4 - diff --git a/perl-5.32.0-Fix-404-and-text-in-New-Unicode-properties-section.patch b/perl-5.32.0-Fix-404-and-text-in-New-Unicode-properties-section.patch deleted file mode 100644 index aec15b8..0000000 --- a/perl-5.32.0-Fix-404-and-text-in-New-Unicode-properties-section.patch +++ /dev/null @@ -1,49 +0,0 @@ -From b0d826f28ae47d22229949e754709e68afe5d83d Mon Sep 17 00:00:00 2001 -From: raiph -Date: Thu, 2 Jul 2020 17:30:07 +0100 -Subject: [PATCH] Fix 404 and text in New Unicode properties section -MIME-Version: 1.0 -Content-Type: text/plain; charset=UTF-8 -Content-Transfer-Encoding: 8bit - -See https://github.com/Perl/perl5/issues/17881 - -I found a 404, and an "old" link. I investigated. - -My conclusion was UC have landed new TR18 and TR39 since text in section - New Unicode properties Identifier_Status and Identifier_Type supported -was written. - -I've guessed at a suitable update. - -Petr Písař: Ported from e02f7c069a8e7dd98b0ec010e9b3c6619b46baf3 -upstream commmit. - -Signed-off-by: Petr Písař ---- - pod/perldelta.pod | 6 +++--- - 1 file changed, 3 insertions(+), 3 deletions(-) - -diff --git a/pod/perldelta.pod b/pod/perldelta.pod -index b92ea53..bb3d1ef 100644 ---- a/pod/perldelta.pod -+++ b/pod/perldelta.pod -@@ -48,12 +48,12 @@ L. - - =head2 New Unicode properties C and C supported - --Unicode is in the process of revising its regular expression --requirements: L. -+Unicode has revised its regular expression requirements: -+L. - As part of that they are wanting more properties to be exposed, ones - that aren't part of the strict UCD (Unicode character database). These - two are used for examining inputs for security purposes. Details on --their usage is at L. -+their usage is at L. - - =head2 It is now possible to write C, or - C --- -2.25.4 - diff --git a/perl-5.32.0-pp_split-no-SWITCHSTACK-in-ary-split-.-optimisation.patch b/perl-5.32.0-pp_split-no-SWITCHSTACK-in-ary-split-.-optimisation.patch deleted file mode 100644 index d4ee4bb..0000000 --- a/perl-5.32.0-pp_split-no-SWITCHSTACK-in-ary-split-.-optimisation.patch +++ /dev/null @@ -1,196 +0,0 @@ -From d7504df2a5d8985f2a8b04f17acff5e324572c39 Mon Sep 17 00:00:00 2001 -From: Richard Leach -Date: Sun, 11 Oct 2020 12:26:27 +0100 -Subject: [PATCH] pp_split: no SWITCHSTACK in @ary = split(...) optimisation -MIME-Version: 1.0 -Content-Type: text/plain; charset=UTF-8 -Content-Transfer-Encoding: 8bit - -Petr Písař: 607eaf26a99ff76ab48877e68f1d7b005dc51575 ported to 5.32.0. - -Signed-off-by: Petr Písař ---- - pp.c | 89 +++++++++++++++++++++++++++++----------------------- - t/op/split.t | 23 +++++++++++++- - 2 files changed, 72 insertions(+), 40 deletions(-) - -diff --git a/pp.c b/pp.c -index df80830..e4863d3 100644 ---- a/pp.c -+++ b/pp.c -@@ -5985,6 +5985,7 @@ PP(pp_split) - - /* handle @ary = split(...) optimisation */ - if (PL_op->op_private & OPpSPLIT_ASSIGN) { -+ realarray = 1; - if (!(PL_op->op_flags & OPf_STACKED)) { - if (PL_op->op_private & OPpSPLIT_LEX) { - if (PL_op->op_private & OPpLVAL_INTRO) -@@ -6007,26 +6008,10 @@ PP(pp_split) - oldsave = PL_savestack_ix; - } - -- realarray = 1; -- PUTBACK; -- av_extend(ary,0); -- (void)sv_2mortal(SvREFCNT_inc_simple_NN(sv)); -- av_clear(ary); -- SPAGAIN; - if ((mg = SvTIED_mg((const SV *)ary, PERL_MAGIC_tied))) { - PUSHMARK(SP); - XPUSHs(SvTIED_obj(MUTABLE_SV(ary), mg)); -- } -- else { -- if (!AvREAL(ary)) { -- I32 i; -- AvREAL_on(ary); -- AvREIFY_off(ary); -- for (i = AvFILLp(ary); i >= 0; i--) -- AvARRAY(ary)[i] = &PL_sv_undef; /* don't free mere refs */ -- } -- /* temporarily switch stacks */ -- SAVESWITCHSTACK(PL_curstack, ary); -+ } else { - make_mortal = 0; - } - } -@@ -6358,29 +6343,56 @@ PP(pp_split) - LEAVE_SCOPE(oldsave); /* may undo an earlier SWITCHSTACK */ - SPAGAIN; - if (realarray) { -- if (!mg) { -- if (SvSMAGICAL(ary)) { -- PUTBACK; -+ if (!mg) { -+ PUTBACK; -+ if(AvREAL(ary)) { -+ if (av_count(ary) > 0) -+ av_clear(ary); -+ } else { -+ AvREAL_on(ary); -+ AvREIFY_off(ary); -+ -+ if (AvMAX(ary) > -1) { -+ /* don't free mere refs */ -+ Zero(AvARRAY(ary), AvMAX(ary), SV*); -+ } -+ } -+ if(AvMAX(ary) < iters) -+ av_extend(ary,iters); -+ SPAGAIN; -+ -+ /* Need to copy the SV*s from the stack into ary */ -+ Copy(SP + 1 - iters, AvARRAY(ary), iters, SV*); -+ AvFILLp(ary) = iters - 1; -+ -+ if (SvSMAGICAL(ary)) { -+ PUTBACK; - mg_set(MUTABLE_SV(ary)); - SPAGAIN; -- } -- if (gimme == G_ARRAY) { -- EXTEND(SP, iters); -- Copy(AvARRAY(ary), SP + 1, iters, SV*); -- SP += iters; -- RETURN; -- } -+ } -+ -+ if (gimme != G_ARRAY) { -+ /* SP points to the final SV* pushed to the stack. But the SV* */ -+ /* are not going to be used from the stack. Point SP to below */ -+ /* the first of these SV*. */ -+ SP -= iters; -+ PUTBACK; -+ } - } - else { -- PUTBACK; -- ENTER_with_name("call_PUSH"); -- call_sv(SV_CONST(PUSH),G_SCALAR|G_DISCARD|G_METHOD_NAMED); -- LEAVE_with_name("call_PUSH"); -- SPAGAIN; -+ PUTBACK; -+ av_extend(ary,iters); -+ av_clear(ary); -+ -+ ENTER_with_name("call_PUSH"); -+ call_sv(SV_CONST(PUSH),G_SCALAR|G_DISCARD|G_METHOD_NAMED); -+ LEAVE_with_name("call_PUSH"); -+ SPAGAIN; -+ - if (gimme == G_ARRAY) { - SSize_t i; - /* EXTEND should not be needed - we just popped them */ -- EXTEND(SP, iters); -+ EXTEND_SKIP(SP, iters); - for (i=0; i < iters; i++) { - SV **svp = av_fetch(ary, i, FALSE); - PUSHs((svp) ? *svp : &PL_sv_undef); -@@ -6389,13 +6401,12 @@ PP(pp_split) - } - } - } -- else { -- if (gimme == G_ARRAY) -- RETURN; -- } - -- GETTARGET; -- XPUSHi(iters); -+ if (gimme != G_ARRAY) { -+ GETTARGET; -+ XPUSHi(iters); -+ } -+ - RETURN; - } - -diff --git a/t/op/split.t b/t/op/split.t -index 14f9158..7f37512 100644 ---- a/t/op/split.t -+++ b/t/op/split.t -@@ -7,7 +7,7 @@ BEGIN { - set_up_inc('../lib'); - } - --plan tests => 176; -+plan tests => 182; - - $FS = ':'; - -@@ -648,6 +648,19 @@ is "@a", '1 2 3', 'assignment to split-to-array (stacked)'; - is (+@a, 0, "empty utf8 string"); - } - -+# correct stack adjustments (gh#18232) -+{ -+ sub foo { return @_ } -+ my @a = foo(1, scalar split " ", "a b"); -+ is(join('', @a), "12", "Scalar split to a sub parameter"); -+} -+ -+{ -+ sub foo { return @_ } -+ my @a = foo(1, scalar(@x = split " ", "a b")); -+ is(join('', @a), "12", "Split to @x then use scalar result as a sub parameter"); -+} -+ - fresh_perl_is(<<'CODE', '', {}, "scalar split stack overflow"); - map{int"";split//.0>60for"0000000000000000"}split// for"00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000" - CODE -@@ -667,3 +680,11 @@ CODE - ok(eq_array(\@result,['a','b']), "Resulting in ('a','b')"); - } - } -+ -+# check that the (@ary = split) optimisation survives @ary being modified -+ -+fresh_perl_is('my @ary; @ary = split(/\w(?{ @ary[1000] = 1 })/, "abc");', -+ '',{},'(@ary = split ...) survives @ary being Renew()ed'); -+fresh_perl_is('my @ary; @ary = split(/\w(?{ undef @ary })/, "abc");', -+ '',{},'(@ary = split ...) survives an (undef @ary)'); -+ --- -2.25.4 - diff --git a/perl-5.32.1-DynaLoader-use-PerlEnv_getenv.patch b/perl-5.32.1-DynaLoader-use-PerlEnv_getenv.patch deleted file mode 100644 index c07fab9..0000000 --- a/perl-5.32.1-DynaLoader-use-PerlEnv_getenv.patch +++ /dev/null @@ -1,34 +0,0 @@ -From ab72b7bd043df0f0ad6090a4c95f378624fad9fc Mon Sep 17 00:00:00 2001 -From: Karl Williamson -Date: Sat, 7 Mar 2020 12:54:19 -0700 -Subject: [PATCH] DynaLoader: use PerlEnv_getenv() -MIME-Version: 1.0 -Content-Type: text/plain; charset=UTF-8 -Content-Transfer-Encoding: 8bit - -Doing so invokes thread-safe guards - -Petr Písař: Ported from b0312014d6c1804920d2b687a5fa5645b445ce9f to -5.32.1. - -Signed-off-by: Petr Písař ---- - ext/DynaLoader/dlutils.c | 2 +- - 1 file changed, 1 insertion(+), 1 deletion(-) - -diff --git a/ext/DynaLoader/dlutils.c b/ext/DynaLoader/dlutils.c -index 8584f89..1a27fbd 100644 ---- a/ext/DynaLoader/dlutils.c -+++ b/ext/DynaLoader/dlutils.c -@@ -115,7 +115,7 @@ dl_generic_private_init(pTHX) /* called by dl_*.xs dl_private_init() */ - #endif - - #if defined(PERL_IN_DL_HPUX_XS) || defined(PERL_IN_DL_DLOPEN_XS) -- if ( (perl_dl_nonlazy = getenv("PERL_DL_NONLAZY")) != NULL -+ if ( (perl_dl_nonlazy = PerlEnv_getenv("PERL_DL_NONLAZY")) != NULL - && grok_atoUV(perl_dl_nonlazy, &uv, NULL) - && uv <= INT_MAX - ) { --- -2.26.2 - diff --git a/perl-5.32.1-Perl_do_sv_dump-handle-PL_strtab.patch b/perl-5.32.1-Perl_do_sv_dump-handle-PL_strtab.patch deleted file mode 100644 index 9e04761..0000000 --- a/perl-5.32.1-Perl_do_sv_dump-handle-PL_strtab.patch +++ /dev/null @@ -1,44 +0,0 @@ -From 2ce7bf1ad5fd7aee21975b3dd1c8dceef3aab7e4 Mon Sep 17 00:00:00 2001 -From: David Mitchell -Date: Tue, 9 Mar 2021 16:42:11 +0000 -Subject: [PATCH] Perl_do_sv_dump(): handle PL_strtab -MIME-Version: 1.0 -Content-Type: text/plain; charset=UTF-8 -Content-Transfer-Encoding: 8bit - -When dumping this special hash, the values in the HE entry are refcounts -rather than SV pointers. sv_dump() used to crash here. - -Petr Písař: Ported to 5.32.1 from upstream -a9bb6a62ae45bb372a5cca98a76d1a79edd89ccb. - -Signed-off-by: Petr Písař ---- - dump.c | 11 +++++++++-- - 1 file changed, 9 insertions(+), 2 deletions(-) - -diff --git a/dump.c b/dump.c -index f03c3f6..0f15d77 100644 ---- a/dump.c -+++ b/dump.c -@@ -2224,8 +2224,15 @@ Perl_do_sv_dump(pTHX_ I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, bo - PerlIO_printf(file, "[UTF8 \"%s\"] ", sv_uni_display(d, keysv, 6 * SvCUR(keysv), UNI_DISPLAY_QQ)); - if (HvEITER_get(hv) == he) - PerlIO_printf(file, "[CURRENT] "); -- PerlIO_printf(file, "HASH = 0x%" UVxf "\n", (UV) hash); -- do_sv_dump(level+1, file, elt, nest+1, maxnest, dumpops, pvlim); -+ PerlIO_printf(file, "HASH = 0x%" UVxf, (UV) hash); -+ -+ if (sv == (SV*)PL_strtab) -+ PerlIO_printf(file, " REFCNT = 0x%" UVxf "\n", -+ (UV)he->he_valu.hent_refcount ); -+ else { -+ (void)PerlIO_putc(file, '\n'); -+ do_sv_dump(level+1, file, elt, nest+1, maxnest, dumpops, pvlim); -+ } - } - } - DONEHV:; --- -2.26.3 - diff --git a/perl-5.32.1-hv.c-add-a-guard-clause-to-prevent-the-number-of-buc.patch b/perl-5.32.1-hv.c-add-a-guard-clause-to-prevent-the-number-of-buc.patch deleted file mode 100644 index de7652e..0000000 --- a/perl-5.32.1-hv.c-add-a-guard-clause-to-prevent-the-number-of-buc.patch +++ /dev/null @@ -1,53 +0,0 @@ -From c5eed6e541fe27d9e9dfd31f42c43f4dfa1f486b Mon Sep 17 00:00:00 2001 -From: Yves Orton -Date: Sat, 11 Jul 2020 09:26:21 +0200 -Subject: [PATCH] hv.c: add a guard clause to prevent the number of buckets in - a hash from getting too large -MIME-Version: 1.0 -Content-Type: text/plain; charset=UTF-8 -Content-Transfer-Encoding: 8bit - -This caps it at 1<<28 buckets, eg, ~268M. In theory without a guard clause like -this we could grow to the point of possibly wrapping around in terms of size, -not to mention being ridiculously wasteful of memory at larger sizes. -Even this cap is probably too high. It should probably be something like 1<<24. - -Petr Písař: Ported to 5.32.1 from -aae087f7cec022be14a17deb95cb2208e16b7891. - -Signed-off-by: Petr Písař ---- - hv.c | 10 +++++++++- - 1 file changed, 9 insertions(+), 1 deletion(-) - -diff --git a/hv.c b/hv.c -index eccae62..32dbd19 100644 ---- a/hv.c -+++ b/hv.c -@@ -38,7 +38,13 @@ holds the key and hash value. - * NOTE if you change this formula so we split earlier than previously - * you MUST change the logic in hv_ksplit() - */ --#define DO_HSPLIT(xhv) ( ((xhv)->xhv_keys + ((xhv)->xhv_keys >> 1)) > (xhv)->xhv_max ) -+ -+/* MAX_BUCKET_MAX is the maximum max bucket index, at which point we stop growing the -+ * number of buckets, -+ */ -+#define MAX_BUCKET_MAX ((1<<26)-1) -+#define DO_HSPLIT(xhv) ( ( ((xhv)->xhv_keys + ((xhv)->xhv_keys >> 1)) > (xhv)->xhv_max ) && \ -+ ((xhv)->xhv_max < MAX_BUCKET_MAX) ) - #define HV_FILL_THRESHOLD 31 - - static const char S_strtab_error[] -@@ -1426,6 +1432,8 @@ S_hsplit(pTHX_ HV *hv, STRLEN const oldsize, STRLEN newsize) - ); - - PERL_ARGS_ASSERT_HSPLIT; -+ if (newsize > MAX_BUCKET_MAX+1) -+ return; - - PL_nomemok = TRUE; - Renew(a, PERL_HV_ARRAY_ALLOC_BYTES(newsize) --- -2.26.2 - diff --git a/perl-5.33.0-Add-missing-MANIFEST-entry-from-fix-for-debugger.patch b/perl-5.33.0-Add-missing-MANIFEST-entry-from-fix-for-debugger.patch deleted file mode 100644 index 13a082a..0000000 --- a/perl-5.33.0-Add-missing-MANIFEST-entry-from-fix-for-debugger.patch +++ /dev/null @@ -1,30 +0,0 @@ -From 3c53c6179afbdbef748c110abdb849cb463c2727 Mon Sep 17 00:00:00 2001 -From: Todd Rinaldo -Date: Thu, 30 Jul 2020 17:42:47 -0500 -Subject: [PATCH] Add missing MANIFEST entry from fix for debugger -MIME-Version: 1.0 -Content-Type: text/plain; charset=UTF-8 -Content-Transfer-Encoding: 8bit - -Add on fix to #17901 - -Signed-off-by: Petr Písař ---- - MANIFEST | 1 + - 1 file changed, 1 insertion(+) - -diff --git a/MANIFEST b/MANIFEST -index 990a75ad52..12601e46b4 100644 ---- a/MANIFEST -+++ b/MANIFEST -@@ -4826,6 +4826,7 @@ lib/perl5db/t/symbol-table-bug Tests for the Perl debugger - lib/perl5db/t/taint Tests for the Perl debugger - lib/perl5db/t/test-a-statement-1 Tests for the Perl debugger - lib/perl5db/t/test-a-statement-2 Tests for the Perl debugger -+lib/perl5db/t/test-a-statement-3 Tests for the Perl debugger - lib/perl5db/t/test-dieLevel-option-1 Tests for the Perl debugger - lib/perl5db/t/test-frame-option-1 Tests for the Perl debugger - lib/perl5db/t/test-l-statement-1 Tests for the Perl debugger --- -2.25.4 - diff --git a/perl-5.33.0-After-running-an-action-in-the-debugger-turn-it-off.patch b/perl-5.33.0-After-running-an-action-in-the-debugger-turn-it-off.patch deleted file mode 100644 index 9df2549..0000000 --- a/perl-5.33.0-After-running-an-action-in-the-debugger-turn-it-off.patch +++ /dev/null @@ -1,90 +0,0 @@ -From b248789b64d6bd277c52bfe608ed3192023af1bd Mon Sep 17 00:00:00 2001 -From: "E. Choroba" -Date: Fri, 26 Jun 2020 21:19:24 +0200 -Subject: [PATCH] After running an action in the debugger, turn it off -MIME-Version: 1.0 -Content-Type: text/plain; charset=UTF-8 -Content-Transfer-Encoding: 8bit - -When running with "c", there was no problem, but when running with "n" -or "s", once the action was executed, it kept executing on the -following lines, which wasn't expected. Clearing $action here prevents -this unwanted behaviour. - -Signed-off-by: Petr Písař ---- - lib/perl5db.pl | 3 ++- - lib/perl5db.t | 22 ++++++++++++++++++++++ - lib/perl5db/t/test-a-statement-3 | 6 ++++++ - 3 files changed, 30 insertions(+), 1 deletion(-) - create mode 100644 lib/perl5db/t/test-a-statement-3 - -diff --git a/lib/perl5db.pl b/lib/perl5db.pl -index 69a9bb6e64..e04a0e17fa 100644 ---- a/lib/perl5db.pl -+++ b/lib/perl5db.pl -@@ -529,7 +529,7 @@ BEGIN { - use vars qw($VERSION $header); - - # bump to X.XX in blead, only use X.XX_XX in maint --$VERSION = '1.57'; -+$VERSION = '1.58'; - - $header = "perl5db.pl version $VERSION"; - -@@ -2708,6 +2708,7 @@ If there are any preprompt actions, execute those as well. - # The &-call is here to ascertain the mutability of @_. - &DB::eval; - } -+ undef $action; - - # Are we nested another level (e.g., did we evaluate a function - # that had a breakpoint in it at the debugger prompt)? -diff --git a/lib/perl5db.t b/lib/perl5db.t -index 421229a54a..913a301d98 100644 ---- a/lib/perl5db.t -+++ b/lib/perl5db.t -@@ -2799,6 +2799,28 @@ SKIP: - ); - } - -+{ -+ # GitHub #17901 -+ my $wrapper = DebugWrap->new( -+ { -+ cmds => -+ [ -+ 'a 4 $s++', -+ ('s') x 5, -+ 'x $s', -+ 'q' -+ ], -+ prog => '../lib/perl5db/t/test-a-statement-3', -+ switches => [ '-d' ], -+ stderr => 0, -+ } -+ ); -+ $wrapper->contents_like( -+ qr/^0 +2$/m, -+ 'Test that the a command runs only on the given lines.', -+ ); -+} -+ - { - # perl 5 RT #126735 regression bug. - local $ENV{PERLDB_OPTS} = "NonStop=0 RemotePort=non-existent-host.tld:9001"; -diff --git a/lib/perl5db/t/test-a-statement-3 b/lib/perl5db/t/test-a-statement-3 -new file mode 100644 -index 0000000000..b188c1c5c5 ---- /dev/null -+++ b/lib/perl5db/t/test-a-statement-3 -@@ -0,0 +1,6 @@ -+use strict; use warnings; -+ -+for my $x (1 .. 2) { -+ my $y = $x + 1; -+ my $x = $x - 1; -+} --- -2.25.4 - diff --git a/perl-5.33.0-Clearing-DB-action-at-the-end-is-no-longer-needed.patch b/perl-5.33.0-Clearing-DB-action-at-the-end-is-no-longer-needed.patch deleted file mode 100644 index fe36ec4..0000000 --- a/perl-5.33.0-Clearing-DB-action-at-the-end-is-no-longer-needed.patch +++ /dev/null @@ -1,33 +0,0 @@ -From 589464a875768e4b4a609d972488e3b592103097 Mon Sep 17 00:00:00 2001 -From: "E. Choroba" -Date: Mon, 27 Jul 2020 11:32:51 +0200 -Subject: [PATCH] Clearing DB::action at the end is no longer needed -MIME-Version: 1.0 -Content-Type: text/plain; charset=UTF-8 -Content-Transfer-Encoding: 8bit - -as it's cleared right after it's been run. - -Signed-off-by: Petr Písař ---- - lib/perl5db.pl | 4 ---- - 1 file changed, 4 deletions(-) - -diff --git a/lib/perl5db.pl b/lib/perl5db.pl -index e04a0e17fa..af3b972da0 100644 ---- a/lib/perl5db.pl -+++ b/lib/perl5db.pl -@@ -3347,10 +3347,6 @@ use B I to avoid stopping after program termination, - B, B or B to get additional info. - EOP - -- # Set the DB::eval context appropriately. -- # At program termination disable any user actions. -- $DB::action = undef; -- - $DB::package = 'main'; - $DB::usercontext = DB::_calc_usercontext($DB::package); - } ## end elsif ($package eq 'DB::fake') --- -2.25.4 - diff --git a/perl-5.33.0-Fix-leak-GH-18054.patch b/perl-5.33.0-Fix-leak-GH-18054.patch deleted file mode 100644 index f678234..0000000 --- a/perl-5.33.0-Fix-leak-GH-18054.patch +++ /dev/null @@ -1,31 +0,0 @@ -From 6841cd5977c2d35ad75233734c66983a65613fce Mon Sep 17 00:00:00 2001 -From: Karl Williamson -Date: Wed, 12 Aug 2020 17:53:52 -0600 -Subject: [PATCH] Fix leak GH #18054 -MIME-Version: 1.0 -Content-Type: text/plain; charset=UTF-8 -Content-Transfer-Encoding: 8bit - -This was a simple matter of one path failing to free the memory. - -Signed-off-by: Petr Písař ---- - regcomp.c | 2 ++ - 1 file changed, 2 insertions(+) - -diff --git a/regcomp.c b/regcomp.c -index addf375450..01f297c299 100644 ---- a/regcomp.c -+++ b/regcomp.c -@@ -15191,6 +15191,8 @@ S_regatom(pTHX_ RExC_state_t *pRExC_state, I32 *flagp, U32 depth) - FAIL2("panic: loc_correspondence[%d] is 0", - (int) (s - s_start)); - } -+ Safefree(locfold_buf); -+ Safefree(loc_correspondence); - } - else { - upper_fill = s - s0; --- -2.25.4 - diff --git a/perl-5.33.0-IO-Handle-Fix-a-spurious-error-reported-for-regular-.patch b/perl-5.33.0-IO-Handle-Fix-a-spurious-error-reported-for-regular-.patch deleted file mode 100644 index f19fbce..0000000 --- a/perl-5.33.0-IO-Handle-Fix-a-spurious-error-reported-for-regular-.patch +++ /dev/null @@ -1,74 +0,0 @@ -From 8a2562bec7cd9f8eff6812f340f99dddd028bb33 Mon Sep 17 00:00:00 2001 -From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= -Date: Thu, 6 Aug 2020 10:51:56 +0200 -Subject: [PATCH] IO::Handle: Fix a spurious error reported for regular file - handles -MIME-Version: 1.0 -Content-Type: text/plain; charset=UTF-8 -Content-Transfer-Encoding: 8bit - -89341f87 fix for GH #6799 introduced a regression when calling error() -on an IO::Handle object that was opened for reading a regular file: - -$ perl -e 'open my $f, q{<}, q{/etc/hosts} or die; print qq{error\n} if $f->error' -error - -In case of a regular file opened for reading, IoOFP() returns NULL and -PerlIO_error(NULL) reports -1. Compare to the case of a file opened -for writing when both IoIFP() and IoOFP() return non-NULL, equaled -pointer. - -This patch fixes handling the case of the NULL output stream. - -GH #18019 - -Signed-off-by: Petr Písař ---- - dist/IO/IO.xs | 4 ++-- - dist/IO/t/io_xs.t | 10 +++++++++- - 2 files changed, 11 insertions(+), 3 deletions(-) - -diff --git a/dist/IO/IO.xs b/dist/IO/IO.xs -index 9158106416..fb009774c4 100644 ---- a/dist/IO/IO.xs -+++ b/dist/IO/IO.xs -@@ -397,9 +397,9 @@ ferror(handle) - CODE: - if (in) - #ifdef PerlIO -- RETVAL = PerlIO_error(in) || (in != out && PerlIO_error(out)); -+ RETVAL = PerlIO_error(in) || (out && in != out && PerlIO_error(out)); - #else -- RETVAL = ferror(in) || (in != out && ferror(out)); -+ RETVAL = ferror(in) || (out && in != out && ferror(out)); - #endif - else { - RETVAL = -1; -diff --git a/dist/IO/t/io_xs.t b/dist/IO/t/io_xs.t -index a8833b0651..4657088629 100644 ---- a/dist/IO/t/io_xs.t -+++ b/dist/IO/t/io_xs.t -@@ -11,7 +11,7 @@ BEGIN { - } - } - --use Test::More tests => 8; -+use Test::More tests => 10; - use IO::File; - use IO::Seekable; - -@@ -69,3 +69,11 @@ SKIP: { - ok(!$fh->error, "check clearerr removed the error"); - close $fh; # silently ignore the error - } -+ -+{ -+ # [GH #18019] IO::Handle->error misreported an error after successully -+ # opening a regular file for reading. It was a regression in GH #6799 fix. -+ ok(open(my $fh, '<', __FILE__), "a regular file opened for reading"); -+ ok(!$fh->error, "no spurious error reported by error()"); -+ close $fh; -+} --- -2.25.4 - diff --git a/perl-5.33.0-IO-Handle-clear-the-error-on-both-input-and-output-s.patch b/perl-5.33.0-IO-Handle-clear-the-error-on-both-input-and-output-s.patch deleted file mode 100644 index a1c2177..0000000 --- a/perl-5.33.0-IO-Handle-clear-the-error-on-both-input-and-output-s.patch +++ /dev/null @@ -1,80 +0,0 @@ -From fc5f3468dcbee38eb202cfd552a5b8dbff990c7b Mon Sep 17 00:00:00 2001 -From: Tony Cook -Date: Tue, 12 May 2020 10:59:08 +1000 -Subject: [PATCH 2/2] IO::Handle: clear the error on both input and output - streams -MIME-Version: 1.0 -Content-Type: text/plain; charset=UTF-8 -Content-Transfer-Encoding: 8bit - -Similarly to GH #6799 clearerr() only cleared the error status -of the input stream, so clear both. - -Signed-off-by: Petr Písař ---- - dist/IO/IO.xs | 14 +++++++++++--- - dist/IO/t/io_xs.t | 8 +++++--- - 2 files changed, 16 insertions(+), 6 deletions(-) - -diff --git a/dist/IO/IO.xs b/dist/IO/IO.xs -index 99d523d2c1..9158106416 100644 ---- a/dist/IO/IO.xs -+++ b/dist/IO/IO.xs -@@ -410,13 +410,21 @@ ferror(handle) - - int - clearerr(handle) -- InputStream handle -+ SV * handle -+ PREINIT: -+ IO *io = sv_2io(handle); -+ InputStream in = IoIFP(io); -+ OutputStream out = IoOFP(io); - CODE: - if (handle) { - #ifdef PerlIO -- PerlIO_clearerr(handle); -+ PerlIO_clearerr(in); -+ if (in != out) -+ PerlIO_clearerr(out); - #else -- clearerr(handle); -+ clearerr(in); -+ if (in != out) -+ clearerr(out); - #endif - RETVAL = 0; - } -diff --git a/dist/IO/t/io_xs.t b/dist/IO/t/io_xs.t -index f890e92558..a8833b0651 100644 ---- a/dist/IO/t/io_xs.t -+++ b/dist/IO/t/io_xs.t -@@ -11,7 +11,7 @@ BEGIN { - } - } - --use Test::More tests => 7; -+use Test::More tests => 8; - use IO::File; - use IO::Seekable; - -@@ -58,12 +58,14 @@ SKIP: { - # This isn't really a Linux/BSD specific test, but /dev/full is (I - # hope) reasonably well defined on these. Patches welcome if your platform - # also supports it (or something like it) -- skip "no /dev/full or not a /dev/full platform", 2 -+ skip "no /dev/full or not a /dev/full platform", 3 - unless $^O =~ /^(linux|netbsd|freebsd)$/ && -c "/dev/full"; - open my $fh, ">", "/dev/full" -- or skip "Could not open /dev/full: $!", 2; -+ or skip "Could not open /dev/full: $!", 3; - $fh->print("a" x 1024); - ok(!$fh->flush, "should fail to flush"); - ok($fh->error, "stream should be in error"); -+ $fh->clearerr; -+ ok(!$fh->error, "check clearerr removed the error"); - close $fh; # silently ignore the error - } --- -2.25.4 - diff --git a/perl-5.33.0-IO-Socket-UNIX-synchronize-behavior-with-module-docu.patch b/perl-5.33.0-IO-Socket-UNIX-synchronize-behavior-with-module-docu.patch deleted file mode 100644 index 75be229..0000000 --- a/perl-5.33.0-IO-Socket-UNIX-synchronize-behavior-with-module-docu.patch +++ /dev/null @@ -1,61 +0,0 @@ -From c6439962c995d4d7052af9fb3f92da93c1584b84 Mon Sep 17 00:00:00 2001 -From: vividsnow -Date: Fri, 31 Jul 2020 00:37:58 +0300 -Subject: [PATCH] IO::Socket::UNIX: synchronize behavior with module - documentation (#17787) -MIME-Version: 1.0 -Content-Type: text/plain; charset=UTF-8 -Content-Transfer-Encoding: 8bit - -* synchronize behavior with module documentation - -IO::Socket docs states that passing Blocking => 0 will be set socket to non-blocking mode - -* Update AUTHORS -* bump version - -Signed-off-by: Petr Písař ---- - AUTHORS | 1 + - dist/IO/lib/IO/Socket/UNIX.pm | 6 +++++- - 2 files changed, 6 insertions(+), 1 deletion(-) - -diff --git a/AUTHORS b/AUTHORS -index 577ba7d0ee..299fdec8a8 100644 ---- a/AUTHORS -+++ b/AUTHORS -@@ -1293,6 +1293,7 @@ Ville Skyttä - Vincent Pit - Vishal Bhatia - Vitali Peil -+vividsnow - Vlad Harchev - Vladimir Alexiev - Vladimir Marek -diff --git a/dist/IO/lib/IO/Socket/UNIX.pm b/dist/IO/lib/IO/Socket/UNIX.pm -index 04b36eaf74..14d0b27a8c 100644 ---- a/dist/IO/lib/IO/Socket/UNIX.pm -+++ b/dist/IO/lib/IO/Socket/UNIX.pm -@@ -11,7 +11,7 @@ use IO::Socket; - use Carp; - - our @ISA = qw(IO::Socket); --our $VERSION = "1.41"; -+our $VERSION = "1.42"; - - IO::Socket::UNIX->register_domain( AF_UNIX ); - -@@ -30,6 +30,10 @@ sub configure { - $sock->socket(AF_UNIX, $type, 0) or - return undef; - -+ if(exists $arg->{Blocking}) { -+ $sock->blocking($arg->{Blocking}) or -+ return undef; -+ } - if(exists $arg->{Local}) { - my $addr = sockaddr_un($arg->{Local}); - $sock->bind($addr) or --- -2.25.4 - diff --git a/perl-5.33.0-MUTABLE_PTR-Rmv-non-standard-syntax.patch b/perl-5.33.0-MUTABLE_PTR-Rmv-non-standard-syntax.patch deleted file mode 100644 index dd5986a..0000000 --- a/perl-5.33.0-MUTABLE_PTR-Rmv-non-standard-syntax.patch +++ /dev/null @@ -1,32 +0,0 @@ -From 6c2255e0e80e0dc00c7fd96e073f1f524bbaa3e0 Mon Sep 17 00:00:00 2001 -From: Karl Williamson -Date: Mon, 29 Jun 2020 09:21:24 -0600 -Subject: [PATCH] MUTABLE_PTR() Rmv non-standard syntax -MIME-Version: 1.0 -Content-Type: text/plain; charset=UTF-8 -Content-Transfer-Encoding: 8bit - -Variables in C are beginning with an underscore are reserved for use by -the C implementation. Change this non-conformant usage. - -Signed-off-by: Petr Písař ---- - handy.h | 2 +- - 1 file changed, 1 insertion(+), 1 deletion(-) - -diff --git a/handy.h b/handy.h -index 287e2e206d..890b2b11a2 100644 ---- a/handy.h -+++ b/handy.h -@@ -54,7 +54,7 @@ Null SV pointer. (No longer available when C is defined.) - */ - - #if defined(__GNUC__) && !defined(PERL_GCC_BRACE_GROUPS_FORBIDDEN) --# define MUTABLE_PTR(p) ({ void *_p = (p); _p; }) -+# define MUTABLE_PTR(p) ({ void *p_ = (p); p_; }) - #else - # define MUTABLE_PTR(p) ((void *) (p)) - #endif --- -2.25.4 - diff --git a/perl-5.33.0-Update-pod-for-SvTRUE-to-indicate-single-param-evalu.patch b/perl-5.33.0-Update-pod-for-SvTRUE-to-indicate-single-param-evalu.patch deleted file mode 100644 index 551b315..0000000 --- a/perl-5.33.0-Update-pod-for-SvTRUE-to-indicate-single-param-evalu.patch +++ /dev/null @@ -1,33 +0,0 @@ -From b26a606d84ae1a6da560c7cd71d1a33c0dc7178e Mon Sep 17 00:00:00 2001 -From: Karl Williamson -Date: Sun, 14 Jun 2020 12:26:02 -0600 -Subject: [PATCH] Update pod for SvTRUE, to indicate single param evaluation -MIME-Version: 1.0 -Content-Type: text/plain; charset=UTF-8 -Content-Transfer-Encoding: 8bit - -5.32 changed this macro into an inline function so that 'sv' only gets -evaluated once, but didn't update the documentation to reflect that. - -Signed-off-by: Petr Písař ---- - sv.h | 3 ++- - 1 file changed, 2 insertions(+), 1 deletion(-) - -diff --git a/sv.h b/sv.h -index 3721b2fb1b..ad8accbf1a 100644 ---- a/sv.h -+++ b/sv.h -@@ -1607,7 +1607,8 @@ false. See C> for a defined/undefined test. Handles 'get' magic - unless the scalar is already C, C or C (the public, not the - private flags). - --See C> for a version which guarantees to evaluate C only once. -+As of Perl 5.32, this is guaranteed to evaluate C only once. Prior to that -+release, use C> for single evaluation. - - =for apidoc Am|bool|SvTRUE_nomg|SV* sv - Returns a boolean indicating whether Perl would evaluate the SV as true or --- -2.25.4 - diff --git a/perl-5.33.0-XSUB.h-fix-MARK-and-items-variables-inside-BOOT-XSUB.patch b/perl-5.33.0-XSUB.h-fix-MARK-and-items-variables-inside-BOOT-XSUB.patch deleted file mode 100644 index fe4d653..0000000 --- a/perl-5.33.0-XSUB.h-fix-MARK-and-items-variables-inside-BOOT-XSUB.patch +++ /dev/null @@ -1,45 +0,0 @@ -From 313464947382fab07299af0061f419a55540356a Mon Sep 17 00:00:00 2001 -From: Tomasz Konojacki -Date: Mon, 27 Apr 2020 08:31:47 +0200 -Subject: [PATCH] XSUB.h: fix MARK and items variables inside BOOT XSUBs -MIME-Version: 1.0 -Content-Type: text/plain; charset=UTF-8 -Content-Transfer-Encoding: 8bit - -ax was incremented by Perl_xs_handshake() and because of that -MARK and items were off by one inside BOOT XSUBs. - -fixes #17755 - -Signed-off-by: Petr Písař ---- - XSUB.h | 6 +++--- - 1 file changed, 3 insertions(+), 3 deletions(-) - -diff --git a/XSUB.h b/XSUB.h -index e3147ce9fb..5f17a5acde 100644 ---- a/XSUB.h -+++ b/XSUB.h -@@ -160,16 +160,16 @@ is a lexical C<$_> in scope. - PL_xsubfilename. */ - #define dXSBOOTARGSXSAPIVERCHK \ - I32 ax = XS_BOTHVERSION_SETXSUBFN_POPMARK_BOOTCHECK; \ -- SV **mark = PL_stack_base + ax; dSP; dITEMS -+ SV **mark = PL_stack_base + ax - 1; dSP; dITEMS - #define dXSBOOTARGSAPIVERCHK \ - I32 ax = XS_APIVERSION_SETXSUBFN_POPMARK_BOOTCHECK; \ -- SV **mark = PL_stack_base + ax; dSP; dITEMS -+ SV **mark = PL_stack_base + ax - 1; dSP; dITEMS - /* dXSBOOTARGSNOVERCHK has no API in xsubpp to choose it so do - #undef dXSBOOTARGSXSAPIVERCHK - #define dXSBOOTARGSXSAPIVERCHK dXSBOOTARGSNOVERCHK */ - #define dXSBOOTARGSNOVERCHK \ - I32 ax = XS_SETXSUBFN_POPMARK; \ -- SV **mark = PL_stack_base + ax; dSP; dITEMS -+ SV **mark = PL_stack_base + ax - 1; dSP; dITEMS - - #define dXSTARG SV * const targ = ((PL_op->op_private & OPpENTERSUB_HASTARG) \ - ? PAD_SV(PL_op->op_targ) : sv_newmortal()) --- -2.25.4 - diff --git a/perl-5.33.0-ext-XS-APItest-t-utf8_warn_base.pl-Fix-a-couple-test.patch b/perl-5.33.0-ext-XS-APItest-t-utf8_warn_base.pl-Fix-a-couple-test.patch deleted file mode 100644 index 338f368..0000000 --- a/perl-5.33.0-ext-XS-APItest-t-utf8_warn_base.pl-Fix-a-couple-test.patch +++ /dev/null @@ -1,38 +0,0 @@ -From 73b535d23d98bd3bdc31a27da26222e2e56166ac Mon Sep 17 00:00:00 2001 -From: Karl Williamson -Date: Tue, 30 Jun 2020 13:58:50 -0600 -Subject: [PATCH] ext/XS-APItest/t/utf8_warn_base.pl: Fix a couple tests -MIME-Version: 1.0 -Content-Type: text/plain; charset=UTF-8 -Content-Transfer-Encoding: 8bit - -These had invalid values, which didn't show up execpt on EBCDIC - -Signed-off-by: Petr Písař ---- - ext/XS-APItest/t/utf8_warn_base.pl | 2 -- - 1 file changed, 2 deletions(-) - -diff --git a/ext/XS-APItest/t/utf8_warn_base.pl b/ext/XS-APItest/t/utf8_warn_base.pl -index d86871cd0f..a0f732282e 100644 ---- a/ext/XS-APItest/t/utf8_warn_base.pl -+++ b/ext/XS-APItest/t/utf8_warn_base.pl -@@ -486,7 +486,6 @@ my @tests; - : I8_to_native( - "\xff\xa7\xbf\xbf\xbf\xbf\xbf\xbf\xbf\xbf\xbf\xbf\xbf\xbf"), - 0x7FFFFFFFFFFFFFFF, -- (isASCII) ? 1 : 2, - ], - [ "first 64 bit code point", - (isASCII) -@@ -525,7 +524,6 @@ my @tests; - I8_to_native( - "\xff\xa0\xa0\xa0\xa0\xa0\xa1\xa0\xa0\xa0\xa0\xa0\xa0\xa0"), - 0x800000000, -- 40000000 - ], - [ "requires at least 32 bits", - I8_to_native( --- -2.25.4 - diff --git a/perl-5.33.0-fix-C-i-obj-where-obj-is-a-lexical.patch b/perl-5.33.0-fix-C-i-obj-where-obj-is-a-lexical.patch deleted file mode 100644 index f7acd14..0000000 --- a/perl-5.33.0-fix-C-i-obj-where-obj-is-a-lexical.patch +++ /dev/null @@ -1,193 +0,0 @@ -From b334474a337421c6643b872388245fb2c11bf995 Mon Sep 17 00:00:00 2001 -From: Tony Cook -Date: Mon, 30 Mar 2020 16:32:46 +1100 -Subject: [PATCH] fix C where $obj is a lexical -MIME-Version: 1.0 -Content-Type: text/plain; charset=UTF-8 -Content-Transfer-Encoding: 8bit - -the DB::eval function depends on the special behaviour of eval "" -within the DB package, which evaluates the string within the context -of the first non-DB sub or eval scope, working up the call stack. - -The debugger refactor moved handling for the 'i' command from the -DB package to the DB::Obj package, so the eval in DB::eval was -working in the context of the DB::Obj::cmd_i function, not in the -calling scope. - -Fixed by moving the handling for the i command back to DB. - -Fixes #17661. - -Signed-off-by: Petr Písař ---- - MANIFEST | 1 + - lib/perl5db.pl | 65 +++++++++++++++++++++--------------------- - lib/perl5db.t | 20 +++++++++++++ - lib/perl5db/t/gh-17661 | 14 +++++++++ - 4 files changed, 68 insertions(+), 32 deletions(-) - create mode 100644 lib/perl5db/t/gh-17661 - -diff --git a/MANIFEST b/MANIFEST -index 8c71995174..96af3618bd 100644 ---- a/MANIFEST -+++ b/MANIFEST -@@ -4808,6 +4808,7 @@ lib/perl5db/t/eval-line-bug Tests for the Perl debugger - lib/perl5db/t/fact Tests for the Perl debugger - lib/perl5db/t/filename-line-breakpoint Tests for the Perl debugger - lib/perl5db/t/gh-17660 Tests for the Perl debugger -+lib/perl5db/t/gh-17661 Tests for the Perl debugger - lib/perl5db/t/load-modules Tests for the Perl debugger - lib/perl5db/t/lsub-n Test script used by perl5db.t - lib/perl5db/t/lvalue-bug Tests for the Perl debugger -diff --git a/lib/perl5db.pl b/lib/perl5db.pl -index 96e56d559f..b647d24fb8 100644 ---- a/lib/perl5db.pl -+++ b/lib/perl5db.pl -@@ -2512,6 +2512,37 @@ EOP - return; - } - -+=head3 C<_DB__handle_i_command> - inheritance display -+ -+Display the (nested) parentage of the module or object given. -+ -+=cut -+ -+sub _DB__handle_i_command { -+ my $self = shift; -+ -+ my $line = $self->cmd_args; -+ require mro; -+ foreach my $isa ( split( /\s+/, $line ) ) { -+ $evalarg = "$isa"; -+ # The &-call is here to ascertain the mutability of @_. -+ ($isa) = &DB::eval; -+ no strict 'refs'; -+ print join( -+ ', ', -+ map { -+ "$_" -+ . ( -+ defined( ${"$_\::VERSION"} ) -+ ? ' ' . ${"$_\::VERSION"} -+ : undef ) -+ } @{mro::get_linear_isa(ref($isa) || $isa)} -+ ); -+ print "\n"; -+ } -+ next CMD; -+} -+ - # 't' is type. - # 'm' is method. - # 'v' is the value (i.e: method name or subroutine ref). -@@ -2531,6 +2562,7 @@ BEGIN - 'W' => { t => 'm', v => '_handle_W_command', }, - 'c' => { t => 's', v => \&_DB__handle_c_command, }, - 'f' => { t => 's', v => \&_DB__handle_f_command, }, -+ 'i' => { t => 's', v => \&_DB__handle_i_command, }, - 'm' => { t => 's', v => \&_DB__handle_m_command, }, - 'n' => { t => 'm', v => '_handle_n_command', }, - 'p' => { t => 'm', v => '_handle_p_command', }, -@@ -2551,7 +2583,7 @@ BEGIN - { t => 's', v => \&_DB__handle_restart_and_rerun_commands, }, - } qw(R rerun)), - (map { $_ => {t => 'm', v => '_handle_cmd_wrapper_commands' }, } -- qw(a A b B e E h i l L M o O v w W)), -+ qw(a A b B e E h l L M o O v w W)), - ); - }; - -@@ -5468,37 +5500,6 @@ sub cmd_h { - } - } ## end sub cmd_h - --=head3 C - inheritance display -- --Display the (nested) parentage of the module or object given. -- --=cut -- --sub cmd_i { -- my $cmd = shift; -- my $line = shift; -- -- require mro; -- -- foreach my $isa ( split( /\s+/, $line ) ) { -- $evalarg = $isa; -- # The &-call is here to ascertain the mutability of @_. -- ($isa) = &DB::eval; -- no strict 'refs'; -- print join( -- ', ', -- map { -- "$_" -- . ( -- defined( ${"$_\::VERSION"} ) -- ? ' ' . ${"$_\::VERSION"} -- : undef ) -- } @{mro::get_linear_isa(ref($isa) || $isa)} -- ); -- print "\n"; -- } --} ## end sub cmd_i -- - =head3 C - list lines (command) - - Most of the command is taken up with transforming all the different line -diff --git a/lib/perl5db.t b/lib/perl5db.t -index 913a301d98..ffa659a215 100644 ---- a/lib/perl5db.t -+++ b/lib/perl5db.t -@@ -2946,6 +2946,26 @@ SKIP: - ); - } - -+{ -+ # gh #17661 -+ my $wrapper = DebugWrap->new( -+ { -+ cmds => -+ [ -+ 'c', -+ 'i $obj', -+ 'q', -+ ], -+ prog => '../lib/perl5db/t/gh-17661', -+ } -+ ); -+ -+ $wrapper->output_like( -+ qr/C5, C1, C2, C3, C4/, -+ q/check for reasonable result/, -+ ); -+} -+ - SKIP: - { - $Config{usethreads} -diff --git a/lib/perl5db/t/gh-17661 b/lib/perl5db/t/gh-17661 -new file mode 100644 -index 0000000000..0d85977b35 ---- /dev/null -+++ b/lib/perl5db/t/gh-17661 -@@ -0,0 +1,14 @@ -+use v5.10.0; -+ -+{ package C1; sub c1 { } our @ISA = qw(C2) } -+{ package C2; sub c2 { } our @ISA = qw(C3) } -+{ package C3; sub c3 { } our @ISA = qw( ) } -+{ package C4; sub c4 { } our @ISA = qw( ) } -+{ package C5; sub c5 { } our @ISA = qw(C1 C4) } -+ -+my $obj = bless {}, 'C5'; -+$main::global = bless {}, 'C5'; -+ -+$DB::single = 1; -+ -+say "Done."; --- -2.25.4 - diff --git a/perl-5.33.0-list-assign-in-list-context-honour-LHS-undef.patch b/perl-5.33.0-list-assign-in-list-context-honour-LHS-undef.patch deleted file mode 100644 index e9f29f7..0000000 --- a/perl-5.33.0-list-assign-in-list-context-honour-LHS-undef.patch +++ /dev/null @@ -1,71 +0,0 @@ -From 282d9dfeb4cea3c2d0335ba78faa3a9db931f1ec Mon Sep 17 00:00:00 2001 -From: David Mitchell -Date: Tue, 11 Aug 2020 13:58:51 +0100 -Subject: [PATCH] list assign in list context: honour LHS undef -MIME-Version: 1.0 -Content-Type: text/plain; charset=UTF-8 -Content-Transfer-Encoding: 8bit - -GH #16685 - -In - - @a = ($x, undef, undef) = (1)) - -@a should have 3 elements. v5.25.6-79-gb09ed995ad broke this and was -returning one element. - -The fix is simple: that previous commit made it so that elements were -pushed back onto the stack only if they weren't immortal, so -&PL_sv_undef was getting skipped. Make it so they always are. - -Signed-off-by: Petr Písař ---- - pp_hot.c | 2 +- - t/op/aassign.t | 10 +++++++++- - 2 files changed, 10 insertions(+), 2 deletions(-) - -diff --git a/pp_hot.c b/pp_hot.c -index e9f1ffe7a4..3564dd7e12 100644 ---- a/pp_hot.c -+++ b/pp_hot.c -@@ -2743,8 +2743,8 @@ PP(pp_aassign) - if (!SvIMMORTAL(lsv)) { - sv_set_undef(lsv); - SvSETMAGIC(lsv); -- *relem++ = lsv; - } -+ *relem++ = lsv; - break; - } /* switch */ - } /* while */ -diff --git a/t/op/aassign.t b/t/op/aassign.t -index 9128f9fd98..aa1f2c722c 100644 ---- a/t/op/aassign.t -+++ b/t/op/aassign.t -@@ -595,7 +595,7 @@ SKIP: { - } - - { -- # GH #17816 -+ # GH #16685 - # don't use the "1-arg on LHS can't be common" optimisation - # when there are undef's there - my $x = 1; -@@ -603,5 +603,13 @@ SKIP: { - is("@a", "2 1", "GH #17816"); - } - -+{ -+ # GH #17816 -+ # honour trailing undef's in list context -+ my $x = 1; -+ my @a = (($x, undef, undef) = (1)); -+ is(scalar @a, 3, "GH #17816"); -+} -+ - - done_testing(); --- -2.25.4 - diff --git a/perl-5.33.0-list-assign-in-list-context-was-over-optimising.patch b/perl-5.33.0-list-assign-in-list-context-was-over-optimising.patch deleted file mode 100644 index e8a7c5f..0000000 --- a/perl-5.33.0-list-assign-in-list-context-was-over-optimising.patch +++ /dev/null @@ -1,76 +0,0 @@ -From 5b354d2a8a6fea46c62048464c6722560cb1c907 Mon Sep 17 00:00:00 2001 -From: David Mitchell -Date: Tue, 11 Aug 2020 11:55:46 +0100 -Subject: [PATCH] list assign in list context was over-optimising -MIME-Version: 1.0 -Content-Type: text/plain; charset=UTF-8 -Content-Transfer-Encoding: 8bit - -GH #17816 - -This code: - - my $x = 1; - print (($x, undef) = (2 => $x)); - -was printing "22" when it should have been printing "21". -An optimisation skips the 'common values on both sides' test -when the LHS of an assign only contains a single var; as the example -above shows, this is not sufficient. - -This was broken by v5.23.1-202-g808ce55782 - -This commit fixes it by counting undef's on the LHS towards the var -count if they don't appear first. - -Signed-off-by: Petr Písař ---- - op.c | 10 +++++++--- - t/op/aassign.t | 10 ++++++++++ - 2 files changed, 17 insertions(+), 3 deletions(-) - -diff --git a/op.c b/op.c -index 05f6d9d1a3..49aac853d4 100644 ---- a/op.c -+++ b/op.c -@@ -15679,11 +15679,15 @@ S_aassign_scan(pTHX_ OP* o, bool rhs, int *scalars_p) - goto do_next; - - case OP_UNDEF: -- /* undef counts as a scalar on the RHS: -- * (undef, $x) = ...; # only 1 scalar on LHS: always safe -+ /* undef on LHS following a var is significant, e.g. -+ * my $x = 1; -+ * @a = (($x, undef) = (2 => $x)); -+ * # @a shoul be (2,1) not (2,2) -+ * -+ * undef on RHS counts as a scalar: - * ($x, $y) = (undef, $x); # 2 scalars on RHS: unsafe - */ -- if (rhs) -+ if ((!rhs && *scalars_p) || rhs) - (*scalars_p)++; - flags = AAS_SAFE_SCALAR; - break; -diff --git a/t/op/aassign.t b/t/op/aassign.t -index ed904adc62..9128f9fd98 100644 ---- a/t/op/aassign.t -+++ b/t/op/aassign.t -@@ -594,4 +594,14 @@ SKIP: { - is ($fill, 2, "RT #130132 array 2"); - } - -+{ -+ # GH #17816 -+ # don't use the "1-arg on LHS can't be common" optimisation -+ # when there are undef's there -+ my $x = 1; -+ my @a = (($x, undef) = (2 => $x)); -+ is("@a", "2 1", "GH #17816"); -+} -+ -+ - done_testing(); --- -2.25.4 - diff --git a/perl-5.33.0-make-fh-error-report-errors-from-both-input-and-outp.patch b/perl-5.33.0-make-fh-error-report-errors-from-both-input-and-outp.patch deleted file mode 100644 index 8f52323..0000000 --- a/perl-5.33.0-make-fh-error-report-errors-from-both-input-and-outp.patch +++ /dev/null @@ -1,87 +0,0 @@ -From 89341f87f9fc65c4d7133e497bb04586e86b8052 Mon Sep 17 00:00:00 2001 -From: Tony Cook -Date: Tue, 12 May 2020 10:29:17 +1000 -Subject: [PATCH 1/2] make $fh->error report errors from both input and output -MIME-Version: 1.0 -Content-Type: text/plain; charset=UTF-8 -Content-Transfer-Encoding: 8bit - -For character devices and sockets perl uses separate PerlIO objects -for input and output so they can be buffered separately. - -The IO::Handle::error() method only checked the input stream, so -if a write error occurs error() would still returned false. - -Change this so both the input and output streams are checked. - -fixes #6799 - -Signed-off-by: Petr Písař ---- - dist/IO/IO.xs | 12 ++++++++---- - dist/IO/t/io_xs.t | 19 ++++++++++++++++++- - 2 files changed, 26 insertions(+), 5 deletions(-) - -diff --git a/dist/IO/IO.xs b/dist/IO/IO.xs -index 68b7352c38..99d523d2c1 100644 ---- a/dist/IO/IO.xs -+++ b/dist/IO/IO.xs -@@ -389,13 +389,17 @@ ungetc(handle, c) - - int - ferror(handle) -- InputStream handle -+ SV * handle -+ PREINIT: -+ IO *io = sv_2io(handle); -+ InputStream in = IoIFP(io); -+ OutputStream out = IoOFP(io); - CODE: -- if (handle) -+ if (in) - #ifdef PerlIO -- RETVAL = PerlIO_error(handle); -+ RETVAL = PerlIO_error(in) || (in != out && PerlIO_error(out)); - #else -- RETVAL = ferror(handle); -+ RETVAL = ferror(in) || (in != out && ferror(out)); - #endif - else { - RETVAL = -1; -diff --git a/dist/IO/t/io_xs.t b/dist/IO/t/io_xs.t -index 1e3c49a4a7..f890e92558 100644 ---- a/dist/IO/t/io_xs.t -+++ b/dist/IO/t/io_xs.t -@@ -11,7 +11,7 @@ BEGIN { - } - } - --use Test::More tests => 5; -+use Test::More tests => 7; - use IO::File; - use IO::Seekable; - -@@ -50,3 +50,20 @@ SKIP: - ok($fh->sync, "sync to a read only handle") - or diag "sync(): ", $!; - } -+ -+ -+SKIP: { -+ # gh 6799 -+ # -+ # This isn't really a Linux/BSD specific test, but /dev/full is (I -+ # hope) reasonably well defined on these. Patches welcome if your platform -+ # also supports it (or something like it) -+ skip "no /dev/full or not a /dev/full platform", 2 -+ unless $^O =~ /^(linux|netbsd|freebsd)$/ && -c "/dev/full"; -+ open my $fh, ">", "/dev/full" -+ or skip "Could not open /dev/full: $!", 2; -+ $fh->print("a" x 1024); -+ ok(!$fh->flush, "should fail to flush"); -+ ok($fh->error, "stream should be in error"); -+ close $fh; # silently ignore the error -+} --- -2.25.4 - diff --git a/perl-5.33.0-perl-17844-don-t-update-SvCUR-until-after-we-ve-done.patch b/perl-5.33.0-perl-17844-don-t-update-SvCUR-until-after-we-ve-done.patch deleted file mode 100644 index ce31651..0000000 --- a/perl-5.33.0-perl-17844-don-t-update-SvCUR-until-after-we-ve-done.patch +++ /dev/null @@ -1,72 +0,0 @@ -From 45f235c116d4deab95c576aff77fe46d609f8553 Mon Sep 17 00:00:00 2001 -From: Tony Cook -Date: Mon, 15 Apr 2019 15:23:32 +1000 -Subject: [PATCH] (perl #17844) don't update SvCUR until after we've done - moving -MIME-Version: 1.0 -Content-Type: text/plain; charset=UTF-8 -Content-Transfer-Encoding: 8bit - -SvCUR() before the SvGROW() calls could result in reading beyond the -end of a buffer. - -It wasn't a problem in the normal case, since sv_grow() just calls -realloc() which has its own notion of how big the memory block is, but -if the SV is SvOOK() sv_backoff() tries to move SvCUR()+1 bytes, which -might be larger than the currently allocated size of the PV. - -Signed-off-by: Petr Písař ---- - doop.c | 2 +- - t/op/bop.t | 11 ++++++++++- - 2 files changed, 11 insertions(+), 2 deletions(-) - -diff --git a/doop.c b/doop.c -index 88220092c3..c9c953212e 100644 ---- a/doop.c -+++ b/doop.c -@@ -1087,7 +1087,6 @@ Perl_do_vop(pTHX_ I32 optype, SV *sv, SV *left, SV *right) - lsave = lc; - rsave = rc; - -- SvCUR_set(sv, len); - (void)SvPOK_only(sv); - if (SvOK(sv) || SvTYPE(sv) > SVt_PVMG) { - dc = SvPV_force_nomg_nolen(sv); -@@ -1103,6 +1102,7 @@ Perl_do_vop(pTHX_ I32 optype, SV *sv, SV *left, SV *right) - sv_usepvn_flags(sv, dc, needlen, SV_HAS_TRAILING_NUL); - dc = SvPVX(sv); /* sv_usepvn() calls Renew() */ - } -+ SvCUR_set(sv, len); - - if (len >= sizeof(long)*4 && - !(PTR2nat(dc) % sizeof(long)) && -diff --git a/t/op/bop.t b/t/op/bop.t -index eecd90387f..07f057d0a9 100644 ---- a/t/op/bop.t -+++ b/t/op/bop.t -@@ -18,7 +18,7 @@ BEGIN { - # If you find tests are failing, please try adding names to tests to track - # down where the failure is, and supply your new names as a patch. - # (Just-in-time test naming) --plan tests => 501; -+plan tests => 502; - - # numerics - ok ((0xdead & 0xbeef) == 0x9ead); -@@ -669,3 +669,12 @@ foreach my $op_info ([and => "&"], [or => "|"], [xor => "^"]) { - like $@, $expected, $description; - } - } -+ -+{ -+ # perl #17844 - only visible with valgrind/ASAN -+ fresh_perl_is(<<'EOS', -+formline X000n^\\0,\\0^\\0for\0,0..10 -+EOS -+ '', -+ {}, "[perl #17844] access beyond end of block"); -+} --- -2.25.4 - diff --git a/perl-5.33.0-reentr.c-Buffer-sizes-for-asctime_r-ctime_r-are-smal.patch b/perl-5.33.0-reentr.c-Buffer-sizes-for-asctime_r-ctime_r-are-smal.patch deleted file mode 100644 index 7778210..0000000 --- a/perl-5.33.0-reentr.c-Buffer-sizes-for-asctime_r-ctime_r-are-smal.patch +++ /dev/null @@ -1,58 +0,0 @@ -From 81169c06a76f62ff987ed990ac910c2ae08b3f91 Mon Sep 17 00:00:00 2001 -From: Karl Williamson -Date: Tue, 10 Mar 2020 15:19:57 -0600 -Subject: [PATCH] reentr.c: Buffer sizes for asctime_r,ctime_r are small -MIME-Version: 1.0 -Content-Type: text/plain; charset=UTF-8 -Content-Transfer-Encoding: 8bit - -The needed sizes of these are stated in the man pages, and are much -smaller than were being allocated. - -Signed-off-by: Petr Písař ---- - reentr.c | 4 ++-- - regen/reentr.pl | 5 ++++- - 2 files changed, 6 insertions(+), 3 deletions(-) - -diff --git a/reentr.c b/reentr.c -index 8ddda7bfc0..8438c8f90f 100644 ---- a/reentr.c -+++ b/reentr.c -@@ -52,14 +52,14 @@ Perl_reentrant_size(pTHX) { - # define REENTRANTUSUALSIZE 4096 /* Make something up. */ - - # ifdef HAS_ASCTIME_R -- PL_reentrant_buffer->_asctime_size = REENTRANTSMALLSIZE; -+ PL_reentrant_buffer->_asctime_size = 26; - # endif /* HAS_ASCTIME_R */ - - # ifdef HAS_CRYPT_R - # endif /* HAS_CRYPT_R */ - - # ifdef HAS_CTIME_R -- PL_reentrant_buffer->_ctime_size = REENTRANTSMALLSIZE; -+ PL_reentrant_buffer->_ctime_size = 26; - # endif /* HAS_CTIME_R */ - - # ifdef HAS_GETGRNAM_R -diff --git a/regen/reentr.pl b/regen/reentr.pl -index f5788c7ad9..94721e9dec 100644 ---- a/regen/reentr.pl -+++ b/regen/reentr.pl -@@ -495,8 +495,11 @@ for my $func (@seenf) { - char* _${func}_buffer; - size_t _${func}_size; - EOF -+ my $size = ($func =~ /^(asctime|ctime)$/) -+ ? 26 -+ : "REENTRANTSMALLSIZE"; - push @size, <_${func}_size = REENTRANTSMALLSIZE; -+ PL_reentrant_buffer->_${func}_size = $size; - EOF - pushinitfree $func; - pushssif $endif; --- -2.25.4 - diff --git a/perl-5.33.0-reentr.c-Prevent-infinite-looping.patch b/perl-5.33.0-reentr.c-Prevent-infinite-looping.patch deleted file mode 100644 index a67c259..0000000 --- a/perl-5.33.0-reentr.c-Prevent-infinite-looping.patch +++ /dev/null @@ -1,46 +0,0 @@ -From 981fbfc16220a15e72457d8ece4e014988746946 Mon Sep 17 00:00:00 2001 -From: Karl Williamson -Date: Thu, 12 Mar 2020 12:48:47 -0600 -Subject: [PATCH] reentr.c: Prevent infinite looping -MIME-Version: 1.0 -Content-Type: text/plain; charset=UTF-8 -Content-Transfer-Encoding: 8bit - -This is an easy, though paranoid hedge to prevent something that should -never happen from causing an infinite loop if it were to happen. - -Signed-off-by: Petr Písař ---- - reentr.c | 2 +- - regen/reentr.pl | 2 +- - 2 files changed, 2 insertions(+), 2 deletions(-) - -diff --git a/reentr.c b/reentr.c -index 8438c8f90f..2429aa2f5d 100644 ---- a/reentr.c -+++ b/reentr.c -@@ -36,7 +36,7 @@ - - #define RenewDouble(data_pointer, size_pointer, type) \ - STMT_START { \ -- const size_t size = *(size_pointer) * 2; \ -+ const size_t size = MAX(*(size_pointer), 1) * 2; \ - Renew((data_pointer), (size), type); \ - *(size_pointer) = size; \ - } STMT_END -diff --git a/regen/reentr.pl b/regen/reentr.pl -index 94721e9dec..ba2e1c8fa6 100644 ---- a/regen/reentr.pl -+++ b/regen/reentr.pl -@@ -818,7 +818,7 @@ print $c <<"EOF"; - - #define RenewDouble(data_pointer, size_pointer, type) \\ - STMT_START { \\ -- const size_t size = *(size_pointer) * 2; \\ -+ const size_t size = MAX(*(size_pointer), 1) * 2; \\ - Renew((data_pointer), (size), type); \\ - *(size_pointer) = size; \\ - } STMT_END --- -2.25.4 - diff --git a/perl-5.33.0-sv.h-Wanted-UOK-but-said-IOK.patch b/perl-5.33.0-sv.h-Wanted-UOK-but-said-IOK.patch deleted file mode 100644 index 759ed92..0000000 --- a/perl-5.33.0-sv.h-Wanted-UOK-but-said-IOK.patch +++ /dev/null @@ -1,31 +0,0 @@ -From 530e9296a21b673d7e4c2b42f18d0d52d00f35c4 Mon Sep 17 00:00:00 2001 -From: Karl Williamson -Date: Sun, 28 Jun 2020 12:03:54 -0600 -Subject: [PATCH] sv.h: Wanted UOK, but said IOK -MIME-Version: 1.0 -Content-Type: text/plain; charset=UTF-8 -Content-Transfer-Encoding: 8bit - -I don't know the consequences of this bug - -Signed-off-by: Petr Písař ---- - sv.h | 2 +- - 1 file changed, 1 insertion(+), 1 deletion(-) - -diff --git a/sv.h b/sv.h -index 2f6431a826..3721b2fb1b 100644 ---- a/sv.h -+++ b/sv.h -@@ -1711,7 +1711,7 @@ Like C but doesn't process magic. - #define SvNV(sv) (SvNOK_nog(sv) ? SvNVX(sv) : sv_2nv(sv)) - - #define SvIV_nomg(sv) (SvIOK(sv) ? SvIVX(sv) : sv_2iv_flags(sv, 0)) --#define SvUV_nomg(sv) (SvIOK(sv) ? SvUVX(sv) : sv_2uv_flags(sv, 0)) -+#define SvUV_nomg(sv) (SvUOK(sv) ? SvUVX(sv) : sv_2uv_flags(sv, 0)) - #define SvNV_nomg(sv) (SvNOK(sv) ? SvNVX(sv) : sv_2nv_flags(sv, 0)) - - /* ----*/ --- -2.25.4 - diff --git a/perl-5.33.1-Heap-buffer-overflow-in-regex-bracket-group-whitespa.patch b/perl-5.33.1-Heap-buffer-overflow-in-regex-bracket-group-whitespa.patch deleted file mode 100644 index d64910b..0000000 --- a/perl-5.33.1-Heap-buffer-overflow-in-regex-bracket-group-whitespa.patch +++ /dev/null @@ -1,88 +0,0 @@ -From 90f66c42e4513ae5d907805fbf28b9967a90d6c5 Mon Sep 17 00:00:00 2001 -From: John Lightsey -Date: Fri, 28 Aug 2020 23:39:18 -0500 -Subject: [PATCH] Heap buffer overflow in regex bracket group whitespace - handling -MIME-Version: 1.0 -Content-Type: text/plain; charset=UTF-8 -Content-Transfer-Encoding: 8bit - -The code for skipping whitespace in regex bracket character groups -was walking past the end of the regex in some cases. - -Signed-off-by: Petr Písař ---- - regcomp.c | 16 ++++++++-------- - 1 file changed, 8 insertions(+), 8 deletions(-) - -diff --git a/regcomp.c b/regcomp.c -index db82c77b00..64488994fa 100644 ---- a/regcomp.c -+++ b/regcomp.c -@@ -17228,10 +17228,10 @@ S_add_multi_match(pTHX_ AV* multi_char_matches, SV* multi_string, const STRLEN c - * - * There is a line below that uses the same white space criteria but is outside - * this macro. Both here and there must use the same definition */ --#define SKIP_BRACKETED_WHITE_SPACE(do_skip, p) \ -+#define SKIP_BRACKETED_WHITE_SPACE(do_skip, p, stop_p) \ - STMT_START { \ - if (do_skip) { \ -- while (isBLANK_A(UCHARAT(p))) \ -+ while (p < stop_p && isBLANK_A(UCHARAT(p))) \ - { \ - p++; \ - } \ -@@ -17406,7 +17406,7 @@ S_regclass(pTHX_ RExC_state_t *pRExC_state, I32 *flagp, U32 depth, - initial_listsv_len = SvCUR(listsv); - SvTEMP_off(listsv); /* Grr, TEMPs and mortals are conflated. */ - -- SKIP_BRACKETED_WHITE_SPACE(skip_white, RExC_parse); -+ SKIP_BRACKETED_WHITE_SPACE(skip_white, RExC_parse, RExC_end); - - assert(RExC_parse <= RExC_end); - -@@ -17415,7 +17415,7 @@ S_regclass(pTHX_ RExC_state_t *pRExC_state, I32 *flagp, U32 depth, - invert = TRUE; - allow_mutiple_chars = FALSE; - MARK_NAUGHTY(1); -- SKIP_BRACKETED_WHITE_SPACE(skip_white, RExC_parse); -+ SKIP_BRACKETED_WHITE_SPACE(skip_white, RExC_parse, RExC_end); - } - - /* Check that they didn't say [:posix:] instead of [[:posix:]] */ -@@ -17462,12 +17462,12 @@ S_regclass(pTHX_ RExC_state_t *pRExC_state, I32 *flagp, U32 depth, - output_posix_warnings(pRExC_state, posix_warnings); - } - -+ SKIP_BRACKETED_WHITE_SPACE(skip_white, RExC_parse, RExC_end); -+ - if (RExC_parse >= stop_ptr) { - break; - } - -- SKIP_BRACKETED_WHITE_SPACE(skip_white, RExC_parse); -- - if (UCHARAT(RExC_parse) == ']') { - break; - } -@@ -18156,7 +18156,7 @@ S_regclass(pTHX_ RExC_state_t *pRExC_state, I32 *flagp, U32 depth, - } - } /* end of namedclass \blah */ - -- SKIP_BRACKETED_WHITE_SPACE(skip_white, RExC_parse); -+ SKIP_BRACKETED_WHITE_SPACE(skip_white, RExC_parse, RExC_end); - - /* If 'range' is set, 'value' is the ending of a range--check its - * validity. (If value isn't a single code point in the case of a -@@ -18199,7 +18199,7 @@ S_regclass(pTHX_ RExC_state_t *pRExC_state, I32 *flagp, U32 depth, - char* next_char_ptr = RExC_parse + 1; - - /* Get the next real char after the '-' */ -- SKIP_BRACKETED_WHITE_SPACE(skip_white, next_char_ptr); -+ SKIP_BRACKETED_WHITE_SPACE(skip_white, next_char_ptr, RExC_end); - - /* If the '-' is at the end of the class (just before the ']', - * it is a literal minus; otherwise it is a range */ --- -2.25.4 - diff --git a/perl-5.33.1-die_unwind-global-destruction.patch b/perl-5.33.1-die_unwind-global-destruction.patch deleted file mode 100644 index 441cdfe..0000000 --- a/perl-5.33.1-die_unwind-global-destruction.patch +++ /dev/null @@ -1,55 +0,0 @@ -From 042abef72d40ab7ff39127e2afae6e34dfc66404 Mon Sep 17 00:00:00 2001 -From: Nicolas R -Date: Fri, 14 Aug 2020 16:16:22 -0500 -Subject: [PATCH] die_unwind(): global destruction -MIME-Version: 1.0 -Content-Type: text/plain; charset=UTF-8 -Content-Transfer-Encoding: 8bit - -Fix #18063 - -During global destruction make sure we preserve -the string by using mortalcopy. - -This is an update on 8c86f0238ecb5f32c2e7fba36e3edfdb54069068 -change which avoided sv_mortalcopy in favor of sv_2mortal. - -Signed-off-by: Petr Písař ---- - pp_ctl.c | 6 +++++- - t/op/die_unwind.t | 4 ++++ - 2 files changed, 9 insertions(+), 1 deletion(-) - -diff --git a/pp_ctl.c b/pp_ctl.c -index b8cd869ee0..cc244d7ba7 100644 ---- a/pp_ctl.c -+++ b/pp_ctl.c -@@ -1716,7 +1716,11 @@ Perl_die_unwind(pTHX_ SV *msv) - * when unlocalising a tied var). So we do a dance with - * mortalising and SAVEFREEing. - */ -- sv_2mortal(SvREFCNT_inc_simple_NN(exceptsv)); -+ if (PL_phase == PERL_PHASE_DESTRUCT) { -+ exceptsv = sv_mortalcopy(exceptsv); -+ } else { -+ exceptsv = sv_2mortal(SvREFCNT_inc_simple_NN(exceptsv)); -+ } - - /* - * Historically, perl used to set ERRSV ($@) early in the die -diff --git a/t/op/die_unwind.t b/t/op/die_unwind.t -index eee1ce534b..4b83ee6fac 100644 ---- a/t/op/die_unwind.t -+++ b/t/op/die_unwind.t -@@ -69,4 +69,8 @@ is($uerr, "t3\n"); - is($val, undef, "undefined return value from 'eval' block with 'die'"); - is($err, "t3\n"); - -+fresh_perl_like(<<'EOS', qr/Custom Message During Global Destruction/, { switches => ['-w'], stderr => 1 } ); -+package Foo; sub DESTROY { die "Custom Message During Global Destruction" }; package main; our $wut = bless [], "Foo" -+EOS -+ - done_testing(); --- -2.25.4 - diff --git a/perl-5.33.1-sort-return-foo.patch b/perl-5.33.1-sort-return-foo.patch deleted file mode 100644 index 8dbd121..0000000 --- a/perl-5.33.1-sort-return-foo.patch +++ /dev/null @@ -1,77 +0,0 @@ -From 390fe0c0d09aadc66f644e9eee4aa1245221188c Mon Sep 17 00:00:00 2001 -From: David Mitchell -Date: Tue, 25 Aug 2020 13:15:25 +0100 -Subject: [PATCH] sort { return foo() } ... -MIME-Version: 1.0 -Content-Type: text/plain; charset=UTF-8 -Content-Transfer-Encoding: 8bit - -GH #18081 - -A sub call via return in a sort block was called in void rather than -scalar context, causing the comparison result to be discarded. - -This because when a sort block is called it is not a real function -call, even though a sort block can be returned from. Instead, a -CXt_NULL is pushed on the context stack. Because this isn't a sub-ish -context type (unlike CXt_SUB, CXt_EVAL etc) there is no 'caller sub' -on the context stack to be found to retrieve the caller's context -(i.e. cx->cx_gimme). - -This commit fixes it by special-casing Perl_gimme_V(). - -Ideally at some future point, a new context type, CXt_SORT, should be -added. This would be used instead of CXt_NULL when a sort BLOCK is -called. Like other sub-ish context types, it would have an old_cxsubix -field and PL_curstackinfo->si_cxsubix would point to it. This would -eliminate needing special-case handling in places like Perl_gimme_V(). - -Signed-off-by: Petr Písař ---- - inline.h | 2 +- - t/op/sort.t | 12 +++++++++++- - 2 files changed, 12 insertions(+), 2 deletions(-) - -diff --git a/inline.h b/inline.h -index a8240efb9c..6fbd5abfea 100644 ---- a/inline.h -+++ b/inline.h -@@ -2086,7 +2086,7 @@ Perl_gimme_V(pTHX) - return gimme; - cxix = PL_curstackinfo->si_cxsubix; - if (cxix < 0) -- return G_VOID; -+ return PL_curstackinfo->si_type == PERLSI_SORT ? G_SCALAR: G_VOID; - assert(cxstack[cxix].blk_gimme & G_WANT); - return (cxstack[cxix].blk_gimme & G_WANT); - } -diff --git a/t/op/sort.t b/t/op/sort.t -index f2e139dff0..8e387fb90d 100644 ---- a/t/op/sort.t -+++ b/t/op/sort.t -@@ -7,7 +7,7 @@ BEGIN { - set_up_inc('../lib'); - } - use warnings; --plan(tests => 203); -+plan(tests => 204); - use Tie::Array; # we need to test sorting tied arrays - - # these shouldn't hang -@@ -1202,3 +1202,13 @@ SKIP: - $fillb = undef; - is $act, "01[sortb]2[fillb]"; - } -+ -+# GH #18081 -+# sub call via return in sort block was called in void rather than scalar -+# context -+ -+{ -+ sub sort18081 { $a + 1 <=> $b + 1 } -+ my @a = sort { return &sort18081 } 6,1,2; -+ is "@a", "1 2 6", "GH #18081"; -+} --- -2.25.4 - diff --git a/perl-5.33.2-Remove-Perl_av_top_index.patch b/perl-5.33.2-Remove-Perl_av_top_index.patch deleted file mode 100644 index 06f6ce4..0000000 --- a/perl-5.33.2-Remove-Perl_av_top_index.patch +++ /dev/null @@ -1,77 +0,0 @@ -From bd5fa06648085e8c17efd55abeb6424aeeb1018e Mon Sep 17 00:00:00 2001 -From: Karl Williamson -Date: Tue, 29 Sep 2020 00:48:19 -0600 -Subject: [PATCH] Remove Perl_av_top_index -MIME-Version: 1.0 -Content-Type: text/plain; charset=UTF-8 -Content-Transfer-Encoding: 8bit - -I created this in 87306e0674dfe3af29804b4641347cd5ac9b0521, thinking it -was needed to preserve backward compatibility if someone were using this -instead of the macro. But it turned out that there never was such a -function, it was inlined, and the name was S_av_top_index, so there is -no reason to create a new function that no one has ever been able to -call. So just remove it, and let all accesses go through the macro - -Signed-off-by: Petr Písař ---- - av.c | 10 ---------- - embed.fnc | 2 +- - proto.h | 7 +++---- - 3 files changed, 4 insertions(+), 15 deletions(-) - -diff --git a/av.c b/av.c -index ada09cde9a..ad2429f90d 100644 ---- a/av.c -+++ b/av.c -@@ -1095,16 +1095,6 @@ Perl_av_nonelem(pTHX_ AV *av, SSize_t ix) { - return sv; - } - --SSize_t --Perl_av_top_index(pTHX_ AV *av) --{ -- PERL_ARGS_ASSERT_AV_TOP_INDEX; -- assert(SvTYPE(av) == SVt_PVAV); -- -- return AvFILL(av); --} -- -- - /* - * ex: set ts=8 sts=4 sw=4 et: - */ -diff --git a/embed.fnc b/embed.fnc -index a6b4d0350f..f5c5b29c2d 100644 ---- a/embed.fnc -+++ b/embed.fnc -@@ -637,7 +637,7 @@ Apd |void |av_push |NN AV *av|NN SV *val - EXp |void |av_reify |NN AV *av - ApdR |SV* |av_shift |NN AV *av - Apd |SV** |av_store |NN AV *av|SSize_t key|NULLOK SV *val --AMdRp |SSize_t|av_top_index |NN AV *av -+AmdR |SSize_t|av_top_index |NN AV *av - AidRp |Size_t |av_count |NN AV *av - AmdR |SSize_t|av_tindex |NN AV *av - Apd |void |av_undef |NN AV *av -diff --git a/proto.h b/proto.h -index c4490fc46e..2da1a07761 100644 ---- a/proto.h -+++ b/proto.h -@@ -291,10 +291,9 @@ PERL_CALLCONV SV** Perl_av_store(pTHX_ AV *av, SSize_t key, SV *val); - __attribute__warn_unused_result__; */ - #define PERL_ARGS_ASSERT_AV_TINDEX - --PERL_CALLCONV SSize_t Perl_av_top_index(pTHX_ AV *av) -- __attribute__warn_unused_result__; --#define PERL_ARGS_ASSERT_AV_TOP_INDEX \ -- assert(av) -+/* PERL_CALLCONV SSize_t av_top_index(pTHX_ AV *av) -+ __attribute__warn_unused_result__; */ -+#define PERL_ARGS_ASSERT_AV_TOP_INDEX - - PERL_CALLCONV void Perl_av_undef(pTHX_ AV *av); - #define PERL_ARGS_ASSERT_AV_UNDEF \ --- -2.25.4 - diff --git a/perl-5.33.2-gh18096-assume-worst-case-for-GOSUBs-we-don-t-analys.patch b/perl-5.33.2-gh18096-assume-worst-case-for-GOSUBs-we-don-t-analys.patch deleted file mode 100644 index 8763972..0000000 --- a/perl-5.33.2-gh18096-assume-worst-case-for-GOSUBs-we-don-t-analys.patch +++ /dev/null @@ -1,56 +0,0 @@ -From f4cd5e29bc15621f2ab8fc5d7de0e68e62d43999 Mon Sep 17 00:00:00 2001 -From: Hugo van der Sanden -Date: Tue, 15 Sep 2020 14:02:54 +0100 -Subject: [PATCH] [gh18096] assume worst-case for GOSUBs we don't analyse -MIME-Version: 1.0 -Content-Type: text/plain; charset=UTF-8 -Content-Transfer-Encoding: 8bit - -During study_chunk, under various conditions we avoid recursing into -a GOSUB. But we must avoid giving the enclosing scope the idea that -this GOSUB would match only an empty string, since that could trigger -wrong optimizations (eg CURLYX => CURLYM in the ticket). - -So we mark the construct as infinite, as in the code branch where we -_do_ recurse into it. - -Signed-off-by: Petr Písař ---- - regcomp.c | 7 ++++++- - t/re/re_tests | 2 ++ - 2 files changed, 8 insertions(+), 1 deletion(-) - -diff --git a/regcomp.c b/regcomp.c -index 124ea5b90b..fae3f8079d 100644 ---- a/regcomp.c -+++ b/regcomp.c -@@ -5212,7 +5212,12 @@ S_study_chunk(pTHX_ RExC_state_t *pRExC_state, regnode **scanp, - * might result in a minlen of 1 and not of 4, - * but this doesn't make us mismatch, just try a bit - * harder than we should. -- * */ -+ * -+ * However we must assume this GOSUB is infinite, to -+ * avoid wrongly applying other optimizations in the -+ * enclosing scope - see GH 18096, for example. -+ */ -+ is_inf = is_inf_internal = 1; - scan= regnext(scan); - continue; - } -diff --git a/t/re/re_tests b/t/re/re_tests -index 554a7004a2..ab5a0d8012 100644 ---- a/t/re/re_tests -+++ b/t/re/re_tests -@@ -2023,6 +2023,8 @@ AB\s+\x{100} AB \x{100}X y - - - /(?iaax:A? \K +)/ African_Feh c - \\K + is forbidden - matches null string many times in regex - /(?iaa:A?\K+)/ African_Feh c - \\K+ is forbidden - matches null string many times in regex - /(?iaa:A?\K*)/ African_Feh c - \\K* is forbidden - matches null string many times in regex -+^((\w|<(\s)*(?1)(?3)*>)(?:(?3)*\+(?3)*(?2))*)(?3)*\+ a + b + y $1 a + b # [GH #18096] -+^((\w|<(\s)*(?1)(?3)*>)(?:(?3)*\+(?3)*(?2))*)(?3)*\+ a + + c y $1 a + # [GH #18096] - # Keep these lines at the end of the file - # pat string y/n/etc expr expected-expr skip-reason comment - # vim: softtabstop=0 noexpandtab --- -2.25.4 - diff --git a/perl-5.33.2-mro.xs-Fix-compiler-warning.patch b/perl-5.33.2-mro.xs-Fix-compiler-warning.patch deleted file mode 100644 index 38438ea..0000000 --- a/perl-5.33.2-mro.xs-Fix-compiler-warning.patch +++ /dev/null @@ -1,31 +0,0 @@ -From fa353c3d2833fc326233e0eb583753b4d7887a63 Mon Sep 17 00:00:00 2001 -From: Karl Williamson -Date: Sun, 4 Oct 2020 11:07:19 -0600 -Subject: [PATCH] mro.xs: Fix compiler warning -MIME-Version: 1.0 -Content-Type: text/plain; charset=UTF-8 -Content-Transfer-Encoding: 8bit - -Fixes GH #18155 - -Signed-off-by: Petr Písař ---- - ext/mro/mro.xs | 2 +- - 1 file changed, 1 insertion(+), 1 deletion(-) - -diff --git a/ext/mro/mro.xs b/ext/mro/mro.xs -index f21216af6e..8ce5844904 100644 ---- a/ext/mro/mro.xs -+++ b/ext/mro/mro.xs -@@ -253,7 +253,7 @@ S_mro_get_linear_isa_c3(pTHX_ HV* stash, U32 level) - hierarchy is not C3-incompatible */ - if(!winner) { - SV *errmsg; -- I32 i; -+ Size_t i; - - errmsg = newSVpvf( - "Inconsistent hierarchy during C3 merge of class '%" HEKf "':\n\t" --- -2.25.4 - diff --git a/perl-5.33.2-sv.c-Added-missing-braces-in-Perl_sv_inc_nomg.patch b/perl-5.33.2-sv.c-Added-missing-braces-in-Perl_sv_inc_nomg.patch deleted file mode 100644 index 2351b3e..0000000 --- a/perl-5.33.2-sv.c-Added-missing-braces-in-Perl_sv_inc_nomg.patch +++ /dev/null @@ -1,32 +0,0 @@ -From 5777cf812c2812ea45eeb45e48979bab544d71af Mon Sep 17 00:00:00 2001 -From: TAKAI Kousuke <62541129+t-a-k@users.noreply.github.com> -Date: Thu, 8 Oct 2020 19:02:10 +0900 -Subject: [PATCH] sv.c: Added missing braces in Perl_sv_inc_nomg(). -MIME-Version: 1.0 -Content-Type: text/plain; charset=UTF-8 -Content-Transfer-Encoding: 8bit - -Signed-off-by: Petr Písař ---- - sv.c | 3 ++- - 1 file changed, 2 insertions(+), 1 deletion(-) - -diff --git a/sv.c b/sv.c -index 82248e3b1f..57fd65a5b8 100644 ---- a/sv.c -+++ b/sv.c -@@ -8944,9 +8944,10 @@ Perl_sv_inc_nomg(pTHX_ SV *const sv) - if (SvIsUV(sv)) { - if (SvUVX(sv) == UV_MAX) - sv_setnv(sv, UV_MAX_P1); -- else -+ else { - (void)SvIOK_only_UV(sv); - SvUV_set(sv, SvUVX(sv) + 1); -+ } - } else { - if (SvIVX(sv) == IV_MAX) - sv_setuv(sv, (UV)IV_MAX + 1); --- -2.25.4 - diff --git a/perl-5.33.2-sv.h-sv_collxfrm-didn-t-work-properly.patch b/perl-5.33.2-sv.h-sv_collxfrm-didn-t-work-properly.patch deleted file mode 100644 index efa0632..0000000 --- a/perl-5.33.2-sv.h-sv_collxfrm-didn-t-work-properly.patch +++ /dev/null @@ -1,36 +0,0 @@ -From e17dadf36f7b4348e59076240c880d0c78b33fa9 Mon Sep 17 00:00:00 2001 -From: Karl Williamson -Date: Tue, 22 Sep 2020 08:47:52 -0600 -Subject: [PATCH] sv.h: sv_collxfrm didn't work properly -MIME-Version: 1.0 -Content-Type: text/plain; charset=UTF-8 -Content-Transfer-Encoding: 8bit - -It is supposed to be a wrapper for sv_collxfrm_flags, but it was just -calling sv_cmp_flags instead. The consequences are none except under -'use locale' in which case you always got the C locale. I did not add -tests, because it is really a pain to write portable locale tests, and -this doesn't seem to be much used. In core the '_flags' form was always -used. - -Signed-off-by: Petr Písař ---- - sv.h | 2 +- - 1 file changed, 1 insertion(+), 1 deletion(-) - -diff --git a/sv.h b/sv.h -index 19ce718ac3..44414b35a9 100644 ---- a/sv.h -+++ b/sv.h -@@ -2045,7 +2045,7 @@ Like C but doesn't process magic. - #define sv_eq(sv1, sv2) sv_eq_flags(sv1, sv2, SV_GMAGIC) - #define sv_cmp(sv1, sv2) sv_cmp_flags(sv1, sv2, SV_GMAGIC) - #define sv_cmp_locale(sv1, sv2) sv_cmp_locale_flags(sv1, sv2, SV_GMAGIC) --#define sv_collxfrm(sv, nxp) sv_cmp_flags(sv, nxp, SV_GMAGIC) -+#define sv_collxfrm(sv, nxp) sv_collxfrm_flags(sv, nxp, SV_GMAGIC) - #define sv_2bool(sv) sv_2bool_flags(sv, SV_GMAGIC) - #define sv_2bool_nomg(sv) sv_2bool_flags(sv, 0) - #define sv_insert(bigstr, offset, len, little, littlelen) \ --- -2.25.4 - diff --git a/perl-5.33.3-Perl_custom_op_get_field-remove-undef-behaviour.patch b/perl-5.33.3-Perl_custom_op_get_field-remove-undef-behaviour.patch deleted file mode 100644 index 24528d3..0000000 --- a/perl-5.33.3-Perl_custom_op_get_field-remove-undef-behaviour.patch +++ /dev/null @@ -1,76 +0,0 @@ -From e050064b67c501e9fdc7bc3f513ba2b8b9e795f8 Mon Sep 17 00:00:00 2001 -From: David Mitchell -Date: Fri, 30 Oct 2020 20:50:58 +0000 -Subject: [PATCH] Perl_custom_op_get_field(): remove undef behaviour -MIME-Version: 1.0 -Content-Type: text/plain; charset=UTF-8 -Content-Transfer-Encoding: 8bit - -Thus function has a couple a switches with - - default: - NOT_REACHED; /* NOTREACHED */ - -but clang is complaining that the value returned by the function is -undefined if those default branches are taken, since the 'any' variable -doesn't get set in that path. - -Replace the NOTREACHED with a croak("panic: ..."). It's possible (albeit -not intended) for Perl_custom_op_get_field() to be called with a 'field' -arg which triggers the default case. So if this ever happens, make it -clear that something has gone wrong, rather than just silently -continuing on non-debugging builds. - -In any case, this shuts up clang. - -Signed-off-by: Petr Písař ---- - op.c | 14 ++++++-------- - 1 file changed, 6 insertions(+), 8 deletions(-) - -diff --git a/op.c b/op.c -index c30c6b7c8f..2933e2ed7d 100644 ---- a/op.c -+++ b/op.c -@@ -18100,6 +18100,7 @@ Perl_custom_op_get_field(pTHX_ const OP *o, const xop_flags_enum field) - else - xop = INT2PTR(XOP *, SvIV(HeVAL(he))); - } -+ - { - XOPRETANY any; - if(field == XOPe_xop_ptr) { -@@ -18121,7 +18122,10 @@ Perl_custom_op_get_field(pTHX_ const OP *o, const xop_flags_enum field) - any.xop_peep = xop->xop_peep; - break; - default: -- NOT_REACHED; /* NOTREACHED */ -+ field_panic: -+ Perl_croak(aTHX_ -+ "panic: custom_op_get_field(): invalid field %d\n", -+ (int)field); - break; - } - } else { -@@ -18139,17 +18143,11 @@ Perl_custom_op_get_field(pTHX_ const OP *o, const xop_flags_enum field) - any.xop_peep = XOPd_xop_peep; - break; - default: -- NOT_REACHED; /* NOTREACHED */ -+ goto field_panic; - break; - } - } - } -- /* On some platforms (HP-UX, IA64) gcc emits a warning for this function: -- * op.c: In function 'Perl_custom_op_get_field': -- * op.c:...: warning: 'any.xop_name' may be used uninitialized in this function [-Wmaybe-uninitialized] -- * This is because on those platforms (with -DEBUGGING) NOT_REACHED -- * expands to assert(0), which expands to ((0) ? (void)0 : -- * __assert(...)), and gcc doesn't know that __assert can never return. */ - return any; - } - } --- -2.25.4 - diff --git a/perl-5.33.3-fetch-magic-on-the-first-stacked-filetest-not-the-la.patch b/perl-5.33.3-fetch-magic-on-the-first-stacked-filetest-not-the-la.patch deleted file mode 100644 index 6b55c4a..0000000 --- a/perl-5.33.3-fetch-magic-on-the-first-stacked-filetest-not-the-la.patch +++ /dev/null @@ -1,57 +0,0 @@ -From f877e124a20d4f94c82c36e6b7a99b4e9663e204 Mon Sep 17 00:00:00 2001 -From: Tony Cook -Date: Tue, 10 Nov 2020 15:50:27 +1100 -Subject: [PATCH] fetch magic on the first stacked filetest, not the last -MIME-Version: 1.0 -Content-Type: text/plain; charset=UTF-8 -Content-Transfer-Encoding: 8bit - -fixes #18293 - -Signed-off-by: Petr Písař ---- - pp_sys.c | 2 +- - t/op/filetest.t | 10 +++++++++- - 2 files changed, 10 insertions(+), 2 deletions(-) - -diff --git a/pp_sys.c b/pp_sys.c -index 66c5d9aade..5c9f768eaf 100644 ---- a/pp_sys.c -+++ b/pp_sys.c -@@ -3067,7 +3067,7 @@ S_try_amagic_ftest(pTHX_ char chr) { - SV *const arg = *PL_stack_sp; - - assert(chr != '?'); -- if (!(PL_op->op_private & OPpFT_STACKING)) SvGETMAGIC(arg); -+ if (!(PL_op->op_private & OPpFT_STACKED)) SvGETMAGIC(arg); - - if (SvAMAGIC(arg)) - { -diff --git a/t/op/filetest.t b/t/op/filetest.t -index fe9724c59a..7c471c050c 100644 ---- a/t/op/filetest.t -+++ b/t/op/filetest.t -@@ -9,7 +9,7 @@ BEGIN { - set_up_inc(qw '../lib ../cpan/Perl-OSType/lib'); - } - --plan(tests => 57 + 27*14); -+plan(tests => 58 + 27*14); - - if ($^O =~ /MSWin32|cygwin|msys/ && !is_miniperl) { - require Win32; # for IsAdminUser() -@@ -385,3 +385,11 @@ SKIP: { - ok(!-f "TEST\0-", '-f on name with \0'); - ok(!-r "TEST\0-", '-r on name with \0'); - } -+ -+{ -+ # github #18293 -+ "" =~ /(.*)/; -+ my $x = $1; # call magic on $1, setting the pv to "" -+ "test.pl" =~ /(.*)/; -+ ok(-f -r $1, "stacked handles on a name with magic"); -+} --- -2.25.4 - diff --git a/perl-5.33.3-pp_split-add-TonyC-s-stack-not-refcounted-suggestion.patch b/perl-5.33.3-pp_split-add-TonyC-s-stack-not-refcounted-suggestion.patch deleted file mode 100644 index 1b3b825..0000000 --- a/perl-5.33.3-pp_split-add-TonyC-s-stack-not-refcounted-suggestion.patch +++ /dev/null @@ -1,54 +0,0 @@ -From ab307de390c3459badcc89b3d77542b5b871b2e8 Mon Sep 17 00:00:00 2001 -From: Richard Leach -Date: Tue, 20 Oct 2020 18:16:38 +0100 -Subject: [PATCH 2/2] pp_split: add TonyC's stack-not-refcounted-suggestion and - tests -MIME-Version: 1.0 -Content-Type: text/plain; charset=UTF-8 -Content-Transfer-Encoding: 8bit - -Signed-off-by: Petr Písař ---- - pp.c | 5 ++++- - t/op/split.t | 5 +++++ - 2 files changed, 9 insertions(+), 1 deletion(-) - -diff --git a/pp.c b/pp.c -index ce16c56e63..5b5e163011 100644 ---- a/pp.c -+++ b/pp.c -@@ -6034,6 +6034,9 @@ PP(pp_split) - oldsave = PL_savestack_ix; - } - -+ /* Some defence against stack-not-refcounted bugs */ -+ (void)sv_2mortal(SvREFCNT_inc_simple_NN(ary)); -+ - if ((mg = SvTIED_mg((const SV *)ary, PERL_MAGIC_tied))) { - PUSHMARK(SP); - XPUSHs(SvTIED_obj(MUTABLE_SV(ary), mg)); -@@ -6356,7 +6359,7 @@ PP(pp_split) - } - - PUTBACK; -- LEAVE_SCOPE(oldsave); /* may undo an earlier SWITCHSTACK */ -+ LEAVE_SCOPE(oldsave); - SPAGAIN; - if (realarray) { - if (!mg) { -diff --git a/t/op/split.t b/t/op/split.t -index 1d78a45bde..7a321645ac 100644 ---- a/t/op/split.t -+++ b/t/op/split.t -@@ -703,3 +703,8 @@ fresh_perl_is('my @ary; @ary = split(/\w(?{ @ary[1000] = 1 })/, "abc");', - fresh_perl_is('my @ary; @ary = split(/\w(?{ undef @ary })/, "abc");', - '',{},'(@ary = split ...) survives an (undef @ary)'); - -+# check the (@ary = split) optimisation survives stack-not-refcounted bugs -+fresh_perl_is('our @ary; @ary = split(/\w(?{ *ary = 0 })/, "abc");', -+ '',{},'(@ary = split ...) survives @ary destruction via typeglob'); -+fresh_perl_is('my $ary = []; @$ary = split(/\w(?{ $ary = [] })/, "abc");', -+ '',{},'(@ary = split ...) survives @ary destruction via reassignment'); --- -2.25.4 - diff --git a/perl-5.33.3-t-op-inc.t-t-op-hexfp.t-t-op-sprintf2.t-Add-missing-.patch b/perl-5.33.3-t-op-inc.t-t-op-hexfp.t-t-op-sprintf2.t-Add-missing-.patch deleted file mode 100644 index 253b340..0000000 --- a/perl-5.33.3-t-op-inc.t-t-op-hexfp.t-t-op-sprintf2.t-Add-missing-.patch +++ /dev/null @@ -1,71 +0,0 @@ -From b52b6c4029b51818442d64c6104d26e12e140f09 Mon Sep 17 00:00:00 2001 -From: TAKAI Kousuke <62541129+t-a-k@users.noreply.github.com> -Date: Thu, 5 Nov 2020 22:06:16 +0900 -Subject: [PATCH] t/op/inc.t, t/op/hexfp.t, t/op/sprintf2.t: Add missing d_ - prefixes for Config variable names. -MIME-Version: 1.0 -Content-Type: text/plain; charset=UTF-8 -Content-Transfer-Encoding: 8bit - -Signed-off-by: Petr Písař ---- - t/op/hexfp.t | 2 +- - t/op/inc.t | 4 ++-- - t/op/sprintf2.t | 4 ++-- - 3 files changed, 5 insertions(+), 5 deletions(-) - -diff --git a/t/op/hexfp.t b/t/op/hexfp.t -index b0c85cfdc6..5fb80d3d74 100644 ---- a/t/op/hexfp.t -+++ b/t/op/hexfp.t -@@ -246,7 +246,7 @@ SKIP: { - skip("non-80-bit-long-double", 4) - unless ($Config{uselongdouble} && - ($Config{nvsize} == 16 || $Config{nvsize} == 12) && -- ($Config{long_double_style_ieee_extended})); -+ ($Config{d_long_double_style_ieee_extended})); - is(0x1p-1074, 4.94065645841246544e-324); - is(0x1p-1075, 2.47032822920623272e-324, '[perl #128919]'); - is(0x1p-1076, 1.23516411460311636e-324); -diff --git a/t/op/inc.t b/t/op/inc.t -index 0bb8b85b13..3d5cc024d3 100644 ---- a/t/op/inc.t -+++ b/t/op/inc.t -@@ -188,10 +188,10 @@ cmp_ok($a, '==', 2147483647, "postdecrement properly downgrades from double"); - - SKIP: { - if ($Config{uselongdouble} && -- ($Config{long_double_style_ieee_doubledouble})) { -+ ($Config{d_long_double_style_ieee_doubledouble})) { - skip "the double-double format is weird", 1; - } -- unless ($Config{double_style_ieee}) { -+ unless ($Config{d_double_style_ieee}) { - skip "the doublekind $Config{doublekind} is not IEEE", 1; - } - -diff --git a/t/op/sprintf2.t b/t/op/sprintf2.t -index bbc12ccd0a..38a550c281 100644 ---- a/t/op/sprintf2.t -+++ b/t/op/sprintf2.t -@@ -701,7 +701,7 @@ SKIP: { - skip("uselongdouble=" . ($Config{uselongdouble} ? 'define' : 'undef') - . " longdblkind=$Config{longdblkind} os=$^O", 6) - unless ($Config{uselongdouble} && -- ($Config{long_double_style_ieee_doubledouble}) -+ ($Config{d_long_double_style_ieee_doubledouble}) - # Gating on 'linux' (ppc) here is due to the differing - # double-double implementations: other (also big-endian) - # double-double platforms (e.g. AIX on ppc or IRIX on mips) -@@ -892,7 +892,7 @@ SKIP: { - skip("non-80-bit-long-double", 17) - unless ($Config{uselongdouble} && - ($Config{nvsize} == 16 || $Config{nvsize} == 12) && -- ($Config{long_double_style_ieee_extended})); -+ ($Config{d_long_double_style_ieee_extended})); - - { - # The last normal for this format. --- -2.25.4 - diff --git a/perl-5.33.4-locale.c-Fix-typo-in-ifdef.patch b/perl-5.33.4-locale.c-Fix-typo-in-ifdef.patch deleted file mode 100644 index dfad1f2..0000000 --- a/perl-5.33.4-locale.c-Fix-typo-in-ifdef.patch +++ /dev/null @@ -1,32 +0,0 @@ -From 9289d4dc7a3d24b20c6e25045e687321ee3e8faf Mon Sep 17 00:00:00 2001 -From: Karl Williamson -Date: Mon, 30 Nov 2020 09:25:52 -0700 -Subject: [PATCH] locale.c: Fix typo in #ifdef -MIME-Version: 1.0 -Content-Type: text/plain; charset=UTF-8 -Content-Transfer-Encoding: 8bit - -This misspelling led to the code assuming that the platform didn't have -a feature that, if used, would result in faster execution. - -Signed-off-by: Petr Písař ---- - locale.c | 2 +- - 1 file changed, 1 insertion(+), 1 deletion(-) - -diff --git a/locale.c b/locale.c -index 9500ab7960..5970423404 100644 ---- a/locale.c -+++ b/locale.c -@@ -2621,7 +2621,7 @@ S_my_nl_langinfo(const int item, bool toggle) - #if defined(HAS_NL_LANGINFO) /* nl_langinfo() is available. */ - # if ! defined(HAS_THREAD_SAFE_NL_LANGINFO_L) \ - || ! defined(HAS_POSIX_2008_LOCALE) \ -- || ! defined(DUPLOCALE) -+ || ! defined(HAS_DUPLOCALE) - - /* Here, use plain nl_langinfo(), switching to the underlying LC_NUMERIC - * for those items dependent on it. This must be copied to a buffer before --- -2.26.2 - diff --git a/perl-5.33.5-Fix-buggy-fc-in-Turkish-locale.patch b/perl-5.33.5-Fix-buggy-fc-in-Turkish-locale.patch deleted file mode 100644 index b8e11fe..0000000 --- a/perl-5.33.5-Fix-buggy-fc-in-Turkish-locale.patch +++ /dev/null @@ -1,140 +0,0 @@ -From 4cfbe5474a5c5f852a6dbf0138dc796c2800be93 Mon Sep 17 00:00:00 2001 -From: Karl Williamson -Date: Wed, 30 Dec 2020 05:55:08 -0700 -Subject: [PATCH] Fix buggy fc() in Turkish locale -MIME-Version: 1.0 -Content-Type: text/plain; charset=UTF-8 -Content-Transfer-Encoding: 8bit - -When Turkish handling was added, fc() wasn't properly updated - -Signed-off-by: Petr Písař ---- - pp.c | 12 +++++++++--- - t/op/lc.t | 23 ++++++++++++++++------- - 2 files changed, 25 insertions(+), 10 deletions(-) - -diff --git a/pp.c b/pp.c -index 5e1706346d..23cc6c8adb 100644 ---- a/pp.c -+++ b/pp.c -@@ -4813,7 +4813,7 @@ PP(pp_fc) - do { - extra++; - -- s_peek = (U8 *) memchr(s_peek + 1, 'i', -+ s_peek = (U8 *) memchr(s_peek + 1, 'I', - send - (s_peek + 1)); - } while (s_peek != NULL); - } -@@ -4828,8 +4828,14 @@ PP(pp_fc) - + 1 /* Trailing NUL */ ); - d = (U8*)SvPVX(dest) + len; - -- *d++ = UTF8_TWO_BYTE_HI(GREEK_SMALL_LETTER_MU); -- *d++ = UTF8_TWO_BYTE_LO(GREEK_SMALL_LETTER_MU); -+ if (*s == 'I') { -+ *d++ = UTF8_TWO_BYTE_HI(LATIN_SMALL_LETTER_DOTLESS_I); -+ *d++ = UTF8_TWO_BYTE_LO(LATIN_SMALL_LETTER_DOTLESS_I); -+ } -+ else { -+ *d++ = UTF8_TWO_BYTE_HI(GREEK_SMALL_LETTER_MU); -+ *d++ = UTF8_TWO_BYTE_LO(GREEK_SMALL_LETTER_MU); -+ } - s++; - - for (; s < send; s++) { -diff --git a/t/op/lc.t b/t/op/lc.t -index fce77f3d34..812c41d6b6 100644 ---- a/t/op/lc.t -+++ b/t/op/lc.t -@@ -17,7 +17,7 @@ BEGIN { - - use feature qw( fc ); - --plan tests => 139 + 2 * (4 * 256) + 15; -+plan tests => 139 + 2 * (5 * 256) + 17; - - is(lc(undef), "", "lc(undef) is ''"); - is(lcfirst(undef), "", "lcfirst(undef) is ''"); -@@ -352,13 +352,14 @@ foreach my $turkic (0 .. 1) { - my $locale = ($turkic) ? $turkic_locale : $non_turkic_locale; - - SKIP: { -- skip "Can't find a $type UTF-8 locale", 4*256 unless defined $locale; -+ skip "Can't find a $type UTF-8 locale", 5*256 unless defined $locale; - - use feature qw( unicode_strings ); - - no locale; - - my @unicode_lc; -+ my @unicode_fc; - my @unicode_uc; - my @unicode_lcfirst; - my @unicode_ucfirst; -@@ -366,6 +367,7 @@ foreach my $turkic (0 .. 1) { - # Get all the values outside of 'locale' - for my $i (0 .. 255) { - push @unicode_lc, lc(chr $i); -+ push @unicode_fc, fc(chr $i); - push @unicode_uc, uc(chr $i); - push @unicode_lcfirst, lcfirst(chr $i); - push @unicode_ucfirst, ucfirst(chr $i); -@@ -373,6 +375,7 @@ foreach my $turkic (0 .. 1) { - - if ($turkic) { - $unicode_lc[ord 'I'] = chr 0x131; -+ $unicode_fc[ord 'I'] = chr 0x131; - $unicode_lcfirst[ord 'I'] = chr 0x131; - $unicode_uc[ord 'i'] = chr 0x130; - $unicode_ucfirst[ord 'i'] = chr 0x130; -@@ -384,6 +387,7 @@ foreach my $turkic (0 .. 1) { - for my $i (0 .. 255) { - is(lc(chr $i), $unicode_lc[$i], "In a $type UTF-8 locale, lc(chr $i) is the same as official Unicode"); - is(uc(chr $i), $unicode_uc[$i], "In a $type UTF-8 locale, uc(chr $i) is the same as official Unicode"); -+ is(fc(chr $i), $unicode_fc[$i], "In a $type UTF-8 locale, fc(chr $i) is the same as official Unicode"); - is(lcfirst(chr $i), $unicode_lcfirst[$i], "In a $type UTF-8 locale, lcfirst(chr $i) is the same as official Unicode"); - is(ucfirst(chr $i), $unicode_ucfirst[$i], "In a $type UTF-8 locale, ucfirst(chr $i) is the same as official Unicode"); - } -@@ -391,27 +395,32 @@ foreach my $turkic (0 .. 1) { - } - - SKIP: { -- skip "Can't find a turkic UTF-8 locale", 15 unless defined $turkic_locale; -+ skip "Can't find a turkic UTF-8 locale", 17 unless defined $turkic_locale; - - # These are designed to stress the calculation of space needed for the - # strings. $filler contains a variety of characters that have special - # handling in the casing functions, and some regular chars as well. -+ # (0x49 = 'I') - my $filler_length = 10000; -- my $filler = uni_to_native("\x{df}\x{b5}\x{e0}\x{c1}\x{b6}\x{ff}") x $filler_length; -+ my $filler = uni_to_native("\x{df}\x{49}\x{69}\x{b5}\x{e0}\x{c1}\x{b6}\x{ff}") x $filler_length; - - # These are the correct answers to what should happen when the given - # casing function is called on $filler; -- my $filler_lc = uni_to_native("\x{df}\x{b5}\x{e0}\x{e1}\x{b6}\x{ff}") x $filler_length; -- my $filler_fc = ("ss" . uni_to_native("\x{b5}\x{e0}\x{e1}\x{b6}\x{ff}")) x $filler_length; -- my $filler_uc = ("SS" . uni_to_native("\x{39c}\x{c0}\x{c1}\x{b6}\x{178}")) x $filler_length; -+ my $filler_lc = uni_to_native("\x{df}\x{131}\x{69}\x{b5}\x{e0}\x{e1}\x{b6}\x{ff}") x $filler_length; -+ my $filler_fc = ("ss" . uni_to_native("\x{131}\x{69}\x{3bc}\x{e0}\x{e1}\x{b6}\x{ff}")) x $filler_length; -+ my $filler_uc = ("SS" . uni_to_native("\x{49}\x{130}\x{39c}\x{c0}\x{c1}\x{b6}\x{178}")) x $filler_length; - - use locale; - setlocale(&POSIX::LC_CTYPE, $turkic_locale); - - is (lc "IIIIIII$filler", "\x{131}\x{131}\x{131}\x{131}\x{131}\x{131}\x{131}$filler_lc", - "lc non-UTF-8, in Turkic locale, beginning with a bunch of I's"); -+ is (fc "IIIIIII$filler", "\x{131}\x{131}\x{131}\x{131}\x{131}\x{131}\x{131}$filler_fc", -+ "fc non-UTF-8, in Turkic locale, beginning with a bunch of I's"); - is (lc "${filler}IIIIIII$filler", "$filler_lc\x{131}\x{131}\x{131}\x{131}\x{131}\x{131}\x{131}$filler_lc", - "lc non-UTF-8, in Turkic locale, a bunch of I's, but not at the beginning"); -+ is (fc "${filler}IIIIIII$filler", "$filler_fc\x{131}\x{131}\x{131}\x{131}\x{131}\x{131}\x{131}$filler_fc", -+ "fc non-UTF-8, in Turkic locale, a bunch of I's, but not at the beginning"); - is (lc "${filler}I\x{307}$filler", "${filler_lc}i$filler_lc", - "lc in Turkic locale with DOT ABOVE immediately following I"); - is (lc "${filler}I\x{307}IIIIII$filler", "${filler_lc}i\x{131}\x{131}\x{131}\x{131}\x{131}\x{131}$filler_lc", --- -2.26.2 - diff --git a/perl-5.33.5-Use-perl.h-versions-of-PERL_UNUSED_foo-in-XSUB.h.patch b/perl-5.33.5-Use-perl.h-versions-of-PERL_UNUSED_foo-in-XSUB.h.patch deleted file mode 100644 index 31d7bf4..0000000 --- a/perl-5.33.5-Use-perl.h-versions-of-PERL_UNUSED_foo-in-XSUB.h.patch +++ /dev/null @@ -1,43 +0,0 @@ -From 036189b0a003875df7bf09c7f7fd702267f549e5 Mon Sep 17 00:00:00 2001 -From: Karl Williamson -Date: Sat, 26 Dec 2020 08:44:08 -0700 -Subject: [PATCH] Use perl.h versions of PERL_UNUSED_foo in XSUB.h -MIME-Version: 1.0 -Content-Type: text/plain; charset=UTF-8 -Content-Transfer-Encoding: 8bit - -This commit was applied to perl.h, but not to XSUB.h: - -commit a730e3f230f364cffe49370f816f975ae7c9c403 -Author: Jarkko Hietaniemi -Date: Thu Sep 4 09:08:33 2014 -0400 - -Use sizeof() in UNUSED_ARG and UNUSED_VAR to avoid accessing the values. - -The values might even be uninitialized in the case of PERL_UNUSED_VAR. - -Signed-off-by: Petr Písař ---- - XSUB.h | 4 ++-- - 1 file changed, 2 insertions(+), 2 deletions(-) - -diff --git a/XSUB.h b/XSUB.h -index 616d813840..c1e3959885 100644 ---- a/XSUB.h -+++ b/XSUB.h -@@ -108,10 +108,10 @@ is a lexical C<$_> in scope. - */ - - #ifndef PERL_UNUSED_ARG --# define PERL_UNUSED_ARG(x) ((void)x) -+# define PERL_UNUSED_ARG(x) ((void)sizeof(x)) - #endif - #ifndef PERL_UNUSED_VAR --# define PERL_UNUSED_VAR(x) ((void)x) -+# define PERL_UNUSED_VAR(x) ((void)sizeof(x)) - #endif - - #define ST(off) PL_stack_base[ax + (off)] --- -2.26.2 - diff --git a/perl-5.33.5-op.c-croak-on-my-_-when-use-utf8-is-in-effect.patch b/perl-5.33.5-op.c-croak-on-my-_-when-use-utf8-is-in-effect.patch deleted file mode 100644 index 018dc6a..0000000 --- a/perl-5.33.5-op.c-croak-on-my-_-when-use-utf8-is-in-effect.patch +++ /dev/null @@ -1,78 +0,0 @@ -From 07319fdbb283f93cb655c3106b5237cbc7272038 Mon Sep 17 00:00:00 2001 -From: Tomasz Konojacki -Date: Wed, 30 Dec 2020 14:03:02 +0100 -Subject: [PATCH] op.c: croak on "my $_" when "use utf8" is in effect -MIME-Version: 1.0 -Content-Type: text/plain; charset=UTF-8 -Content-Transfer-Encoding: 8bit - -Fixes #18449 - -Signed-off-by: Petr Písař ---- - op.c | 16 +++++++++------- - t/op/mydef.t | 11 +++++++++-- - 2 files changed, 18 insertions(+), 9 deletions(-) - -diff --git a/op.c b/op.c -index b2e12dd0c0..dce844d297 100644 ---- a/op.c -+++ b/op.c -@@ -730,6 +730,7 @@ PADOFFSET - Perl_allocmy(pTHX_ const char *const name, const STRLEN len, const U32 flags) - { - PADOFFSET off; -+ bool is_idfirst, is_default; - const bool is_our = (PL_parser->in_my == KEY_our); - - PERL_ARGS_ASSERT_ALLOCMY; -@@ -738,14 +739,15 @@ Perl_allocmy(pTHX_ const char *const name, const STRLEN len, const U32 flags) - Perl_croak(aTHX_ "panic: allocmy illegal flag bits 0x%" UVxf, - (UV)flags); - -+ is_idfirst = flags & SVf_UTF8 -+ ? isIDFIRST_utf8_safe((U8*)name + 1, name + len) -+ : isIDFIRST_A(name[1]); -+ -+ /* $_, @_, etc. */ -+ is_default = len == 2 && name[1] == '_'; -+ - /* complain about "my $" etc etc */ -- if ( len -- && !( is_our -- || isALPHA(name[1]) -- || ( (flags & SVf_UTF8) -- && isIDFIRST_utf8_safe((U8 *)name+1, name + len)) -- || (name[1] == '_' && len > 2))) -- { -+ if (!is_our && (!is_idfirst || is_default)) { - const char * const type = - PL_parser->in_my == KEY_sigvar ? "subroutine signature" : - PL_parser->in_my == KEY_state ? "\"state\"" : "\"my\""; -diff --git a/t/op/mydef.t b/t/op/mydef.t -index 42a81d9ab0..225ce98e51 100644 ---- a/t/op/mydef.t -+++ b/t/op/mydef.t -@@ -6,10 +6,17 @@ BEGIN { - set_up_inc('../lib'); - } - --plan tests => 1; -- - use strict; - - eval 'my $_'; - like $@, qr/^Can't use global \$_ in "my" at /; - -+{ -+ # using utf8 allows $_ to be declared with 'my' -+ # GH #18449 -+ use utf8; -+ eval 'my $_;'; -+ like $@, qr/^Can't use global \$_ in "my" at /; -+} -+ -+done_testing; --- -2.26.2 - diff --git a/perl-5.33.6-Add-missing-entries-to-perldiag-GH-18276.patch b/perl-5.33.6-Add-missing-entries-to-perldiag-GH-18276.patch deleted file mode 100644 index f8e0e97..0000000 --- a/perl-5.33.6-Add-missing-entries-to-perldiag-GH-18276.patch +++ /dev/null @@ -1,100 +0,0 @@ -From cac138107138a9814b32c4de74426225628f1646 Mon Sep 17 00:00:00 2001 -From: Karl Williamson -Date: Sun, 17 Jan 2021 21:45:20 -0700 -Subject: [PATCH] Add missing entries to perldiag; GH #18276 -MIME-Version: 1.0 -Content-Type: text/plain; charset=UTF-8 -Content-Transfer-Encoding: 8bit - -The ticket mentions yet another message, not addressed in this -commit, "Insecure private-use override". That message is part of a -hook for a so-far unimplemented module, so it actually doesn't ever get -raised. - -Committer: One correction per Grinnz comment in -https://github.com/Perl/perl5/pull/18491 -Signed-off-by: Petr Písař ---- - pod/perldiag.pod | 45 +++++++++++++++++++++++++++++++++++++++++++++ - 1 file changed, 45 insertions(+) - -diff --git a/pod/perldiag.pod b/pod/perldiag.pod -index 9c91630d39..63f57f220e 100644 ---- a/pod/perldiag.pod -+++ b/pod/perldiag.pod -@@ -2195,6 +2195,20 @@ single form when it must operate on them directly. Either you've passed - an invalid file specification to Perl, or you've found a case the - conversion routines don't handle. Drat. - -+=item Error %s in expansion of %s -+ -+(F) An error was encountered in handling a user-defined property -+(L). These are -+programmer written subroutines, hence subject to errors that may -+prevent them from compiling or running. The calls to these subs are -+C'd, and if there is a failure, this message is raised, using the -+contents of C<$@> from the failed C. -+ -+Another possibility is that tainted data was encountered somewhere in -+the chain of expanding the property. If so, the message wording will -+indicate that this is the problem. See L. -+ - =item Eval-group in insecure regular expression - - (F) Perl detected tainted data when trying to compile a regular -@@ -2836,6 +2850,16 @@ not match 8 spaces. - text. You should check the pattern to ensure that recursive patterns - either consume text or fail. - -+=item Infinite recursion in user-defined property -+ -+(F) A user-defined property (L) can depend on the definitions of other user-defined -+properties. If the chain of dependencies leads back to this property, -+infinite recursion would occur, were it not for the check that raised -+this error. -+ -+Restructure your property definitions to avoid this. -+ - =item Infinite recursion via empty pattern - - (F) You tried to use the empty pattern inside of a regex code block, -@@ -6273,6 +6297,20 @@ lexicals that are initialized only once (see L): - This use of C in a false conditional was deprecated beginning in - Perl 5.10 and became a fatal error in Perl 5.30. - -+=item Timeout waiting for another thread to define \p{%s} -+ -+(F) The first time a user-defined property -+(L) is used, its -+definition is looked up and converted into an internal form for more -+efficient handling in subsequent uses. There could be a race if two or -+more threads tried to do this processing nearly simultaneously. -+Instead, a critical section is created around this task, locking out all -+but one thread from doing it. This message indicates that the thread -+that is doing the conversion is taking an unexpectedly long time. The -+timeout exists solely to prevent deadlock; it's long enough that the -+system was likely thrashing and about to crash. There is no real remedy but -+rebooting. -+ - =item times not implemented - - (F) Your version of the C library apparently doesn't do times(). I -@@ -6846,6 +6884,13 @@ for the list of known options. - Llist]> documentation of the C<-C> switch - for the list of known options. - -+=item Unknown user-defined property name \p{%s} -+ -+(F) You specified to use a property within the C<\p{...}> which was a -+syntactically valid user-defined property, but no definition was found -+for it by the time one was required to proceed. Check your spelling. -+See L. -+ - =item Unknown verb pattern '%s' in regex; marked by S<<-- HERE> in m/%s/ - - (F) You either made a typo or have incorrectly put a C<*> quantifier --- -2.26.2 - diff --git a/perl-5.33.6-t-run-locale.t-Rmv-LANGUAGE-from-environment.patch b/perl-5.33.6-t-run-locale.t-Rmv-LANGUAGE-from-environment.patch deleted file mode 100644 index bdc0c35..0000000 --- a/perl-5.33.6-t-run-locale.t-Rmv-LANGUAGE-from-environment.patch +++ /dev/null @@ -1,32 +0,0 @@ -From a2f57b06b018b254bee93e1a1265cfc09833366f Mon Sep 17 00:00:00 2001 -From: Karl Williamson -Date: Tue, 9 Feb 2021 11:32:15 -0700 -Subject: [PATCH] t/run/locale.t: Rmv LANGUAGE from environment -MIME-Version: 1.0 -Content-Type: text/plain; charset=UTF-8 -Content-Transfer-Encoding: 8bit - -This could cause interference with our tests on some platforms that have -this environment variable. - -Signed-off-by: Petr Písař ---- - t/run/locale.t | 2 +- - 1 file changed, 1 insertion(+), 1 deletion(-) - -diff --git a/t/run/locale.t b/t/run/locale.t -index 8a04d1aea6..0f2a2ba457 100644 ---- a/t/run/locale.t -+++ b/t/run/locale.t -@@ -38,7 +38,7 @@ if (defined $ARGV[0] && $ARGV[0] ne "") { - } - - # reset the locale environment --delete local @ENV{'LANG', (grep /^LC_[A-Z]+$/, keys %ENV)}; -+delete local @ENV{'LANGUAGE', 'LANG', (grep /^LC_[A-Z]+$/, keys %ENV)}; - - # If user wants this to happen, they set the environment variable AND use - # 'debug' --- -2.26.2 - diff --git a/perl-5.33.7-regcomp.c-Remove-memory-leak.patch b/perl-5.33.7-regcomp.c-Remove-memory-leak.patch deleted file mode 100644 index 44dc94e..0000000 --- a/perl-5.33.7-regcomp.c-Remove-memory-leak.patch +++ /dev/null @@ -1,74 +0,0 @@ -From 5f41fa466a67b5535aa8bcf4b814f242545ac7bd Mon Sep 17 00:00:00 2001 -From: Karl Williamson -Date: Sat, 27 Feb 2021 11:43:41 -0700 -Subject: [PATCH] regcomp.c: Remove memory leak -MIME-Version: 1.0 -Content-Type: text/plain; charset=UTF-8 -Content-Transfer-Encoding: 8bit - -This fixes GH #18604. There was a path through the code where a -particular SV did not get its reference count decremented. - -I did an audit of the function and came up with several other -possiblities that are included in this commit. - -Further, there would be leaks for some instances of finding syntax -errors in the input pattern, or when warnings are fatalized. Those -would require mortalizing some SVs, but that is beyond the scope of this -commit. - -Signed-off-by: Petr Písař ---- - regcomp.c | 7 +++++++ - t/op/svleak.t | 3 ++- - 2 files changed, 9 insertions(+), 1 deletion(-) - -diff --git a/regcomp.c b/regcomp.c -index e44c7a37e5..f5e5f581dc 100644 ---- a/regcomp.c -+++ b/regcomp.c -@@ -18765,6 +18765,12 @@ S_regclass(pTHX_ RExC_state_t *pRExC_state, I32 *flagp, U32 depth, - RExC_end = save_end; - RExC_in_multi_char_class = 0; - SvREFCNT_dec_NN(multi_char_matches); -+ SvREFCNT_dec(properties); -+ SvREFCNT_dec(cp_list); -+ SvREFCNT_dec(simple_posixes); -+ SvREFCNT_dec(posixes); -+ SvREFCNT_dec(nposixes); -+ SvREFCNT_dec(cp_foldable_list); - return ret; - } - -@@ -20122,6 +20128,7 @@ S_regclass(pTHX_ RExC_state_t *pRExC_state, I32 *flagp, U32 depth, - RExC_parse - orig_parse);; - SvREFCNT_dec(cp_list);; - SvREFCNT_dec(only_utf8_locale_list); -+ SvREFCNT_dec(upper_latin1_only_utf8_matches); - return ret; - } - -diff --git a/t/op/svleak.t b/t/op/svleak.t -index 6acc298c3d..3df4838be8 100644 ---- a/t/op/svleak.t -+++ b/t/op/svleak.t -@@ -15,7 +15,7 @@ BEGIN { - - use Config; - --plan tests => 150; -+plan tests => 151; - - # run some code N times. If the number of SVs at the end of loop N is - # greater than (N-1)*delta at the end of loop 1, we've got a leak -@@ -278,6 +278,7 @@ eleak(2,0,'/[[:ascii:]]/'); - eleak(2,0,'/[[.zog.]]/'); - eleak(2,0,'/[.zog.]/'); - eleak(2,0,'/|\W/', '/|\W/ [perl #123198]'); -+eleak(2,0,'/a\sb/', '/a\sb/ [GH #18604]'); - eleak(2,0,'no warnings; /(?[])/'); - eleak(2,0,'no warnings; /(?[[a]+[b]])/'); - eleak(2,0,'no warnings; /(?[[a]-[b]])/'); --- -2.26.2 - diff --git a/perl-5.33.8-Fix-broken-left-shift-of-IV_MIN-under-use-integer.patch b/perl-5.33.8-Fix-broken-left-shift-of-IV_MIN-under-use-integer.patch deleted file mode 100644 index 5ce6046..0000000 --- a/perl-5.33.8-Fix-broken-left-shift-of-IV_MIN-under-use-integer.patch +++ /dev/null @@ -1,62 +0,0 @@ -From 4e82c85b1c9c9b30253b8624470da6f20a6c0604 Mon Sep 17 00:00:00 2001 -From: Karl Williamson -Date: Mon, 15 Mar 2021 21:01:47 -0600 -Subject: [PATCH] Fix broken left shift of IV_MIN under 'use integer' -MIME-Version: 1.0 -Content-Type: text/plain; charset=UTF-8 -Content-Transfer-Encoding: 8bit - -This fixes GH 18639 - -When I wrote this code, I conflated casting and complementing. - -Signed-off-by: Petr Písař ---- - pp.c | 3 --- - t/op/bop.t | 9 ++++++++- - 2 files changed, 8 insertions(+), 4 deletions(-) - -diff --git a/pp.c b/pp.c -index d365afea4c..baf0777a47 100644 ---- a/pp.c -+++ b/pp.c -@@ -2007,9 +2007,6 @@ static IV S_iv_shift(IV iv, int shift, bool left) - * 18446744073709551552 - * */ - if (left) { -- if (iv == IV_MIN) { /* Casting this to a UV is undefined behavior */ -- return 0; -- } - return (IV) (((UV) iv) << shift); - } - -diff --git a/t/op/bop.t b/t/op/bop.t -index 07f057d0a9..31b6531a03 100644 ---- a/t/op/bop.t -+++ b/t/op/bop.t -@@ -18,7 +18,7 @@ BEGIN { - # If you find tests are failing, please try adding names to tests to track - # down where the failure is, and supply your new names as a patch. - # (Just-in-time test naming) --plan tests => 502; -+plan tests => 503; - - # numerics - ok ((0xdead & 0xbeef) == 0x9ead); -@@ -33,6 +33,13 @@ ok ((33023 >> 7) == 257); - # signed vs. unsigned - ok ((~0 > 0 && do { use integer; ~0 } == -1)); - -+{ # GH #18639 -+ my $iv_min = -(~0 >> 1) - 1; -+ my $shifted; -+ { use integer; $shifted = $iv_min << 0 }; -+ is($shifted, $iv_min, "IV_MIN << 0 yields IV_MIN under 'use integer'"); -+} -+ - my $bits = 0; - for (my $i = ~0; $i; $i >>= 1) { ++$bits; } - my $cusp = 1 << ($bits - 1); --- -2.26.3 - diff --git a/perl-5.18.2-Destroy-GDBM-NDBM-ODBM-SDBM-_File-objects-only-from-.patch b/perl-5.34.0-Destroy-GDBM-NDBM-ODBM-SDBM-_File-objects-only-from-.patch similarity index 81% rename from perl-5.18.2-Destroy-GDBM-NDBM-ODBM-SDBM-_File-objects-only-from-.patch rename to perl-5.34.0-Destroy-GDBM-NDBM-ODBM-SDBM-_File-objects-only-from-.patch index 04b333f..c059b5a 100644 --- a/perl-5.18.2-Destroy-GDBM-NDBM-ODBM-SDBM-_File-objects-only-from-.patch +++ b/perl-5.34.0-Destroy-GDBM-NDBM-ODBM-SDBM-_File-objects-only-from-.patch @@ -1,11 +1,7 @@ -From f793042f2bac2ace9a5c0030b47b41c4db561a5b Mon Sep 17 00:00:00 2001 -From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= -Date: Fri, 6 Jun 2014 14:31:59 +0200 +From 8067179e65a28d91f00df7d36778229a07514471 Mon Sep 17 00:00:00 2001 +From: Jitka Plesnikova +Date: Thu, 29 Apr 2021 12:21:18 +0200 Subject: [PATCH] Destroy {GDBM,NDBM,ODBM,SDBM}_File objects only from original - thread context -MIME-Version: 1.0 -Content-Type: text/plain; charset=UTF-8 -Content-Transfer-Encoding: 8bit This patch fixes a crash when destroing a hash tied to a *_File database after spawning a thread: @@ -20,17 +16,17 @@ This crashed or paniced depending on how perl was configured. Closes RT#61912. -Signed-off-by: Petr Písař +Updated original ppisar's patch for perl 5.18.2 --- - ext/GDBM_File/GDBM_File.xs | 16 ++++++++++------ + ext/GDBM_File/GDBM_File.xs | 20 ++++++++++++-------- ext/NDBM_File/NDBM_File.xs | 16 ++++++++++------ ext/ODBM_File/ODBM_File.xs | 18 +++++++++++------- ext/SDBM_File/SDBM_File.xs | 4 +++- t/lib/dbmt_common.pl | 35 +++++++++++++++++++++++++++++++++++ - 5 files changed, 69 insertions(+), 20 deletions(-) + 5 files changed, 71 insertions(+), 22 deletions(-) diff --git a/ext/GDBM_File/GDBM_File.xs b/ext/GDBM_File/GDBM_File.xs -index 33e08e2..7160f54 100644 +index cd0bb6f..0c395ac 100644 --- a/ext/GDBM_File/GDBM_File.xs +++ b/ext/GDBM_File/GDBM_File.xs @@ -13,6 +13,7 @@ @@ -41,7 +37,7 @@ index 33e08e2..7160f54 100644 GDBM_FILE dbp ; SV * filter[4]; int filtering ; -@@ -98,6 +99,7 @@ gdbm_TIEHASH(dbtype, name, read_write, m +@@ -276,6 +277,7 @@ gdbm_TIEHASH(dbtype, name, read_write, mode) } if (dbp) { RETVAL = (GDBM_File)safecalloc(1, sizeof(GDBM_File_type)); @@ -49,29 +45,34 @@ index 33e08e2..7160f54 100644 RETVAL->dbp = dbp; } else { RETVAL = NULL; -@@ -118,12 +120,14 @@ gdbm_DESTROY(db) +@@ -289,15 +291,17 @@ gdbm_DESTROY(db) PREINIT: int i = store_value; - CODE: -- gdbm_close(db); + CODE: +- if (gdbm_file_close(db)) { +- croak("gdbm_close: %s; %s", gdbm_strerror(gdbm_errno), +- strerror(errno)); ++ if (db && db->owner == aTHX) { ++ if (gdbm_file_close(db)) { ++ croak("gdbm_close: %s; %s", gdbm_strerror(gdbm_errno), ++ strerror(errno)); ++ } ++ do { ++ if (db->filter[i]) ++ SvREFCNT_dec(db->filter[i]); ++ } while (i-- > 0); ++ safefree(db); + } - do { - if (db->filter[i]) - SvREFCNT_dec(db->filter[i]); - } while (i-- > 0); - safefree(db); -+ if (db && db->owner == aTHX) { -+ gdbm_close(db); -+ do { -+ if (db->filter[i]) -+ SvREFCNT_dec(db->filter[i]); -+ } while (i-- > 0); -+ safefree(db); -+ } - #define gdbm_FETCH(db,key) gdbm_fetch(db->dbp,key) - datum_value + void + gdbm_UNTIE(db, count) diff --git a/ext/NDBM_File/NDBM_File.xs b/ext/NDBM_File/NDBM_File.xs -index 52e60fc..af223e5 100644 +index eed671a..651fe0f 100644 --- a/ext/NDBM_File/NDBM_File.xs +++ b/ext/NDBM_File/NDBM_File.xs @@ -33,6 +33,7 @@ END_EXTERN_C @@ -103,7 +104,7 @@ index 52e60fc..af223e5 100644 + if (db && db->owner == aTHX) { + dbm_close(db->dbp); + do { -+ if (db->filter[i]) ++ if (db->filter[i]) + SvREFCNT_dec(db->filter[i]); + } while (i-- > 0); + safefree(db); @@ -112,7 +113,7 @@ index 52e60fc..af223e5 100644 #define ndbm_FETCH(db,key) dbm_fetch(db->dbp,key) datum_value diff --git a/ext/ODBM_File/ODBM_File.xs b/ext/ODBM_File/ODBM_File.xs -index d1ece7f..f7e00a0 100644 +index 38e6dbf..4b15a42 100644 --- a/ext/ODBM_File/ODBM_File.xs +++ b/ext/ODBM_File/ODBM_File.xs @@ -49,6 +49,7 @@ datum nextkey(datum key); @@ -146,7 +147,7 @@ index d1ece7f..f7e00a0 100644 + dbmrefcnt--; + dbmclose(); + do { -+ if (db->filter[i]) ++ if (db->filter[i]) + SvREFCNT_dec(db->filter[i]); + } while (i-- > 0); + safefree(db); @@ -155,7 +156,7 @@ index d1ece7f..f7e00a0 100644 datum_value odbm_FETCH(db, key) diff --git a/ext/SDBM_File/SDBM_File.xs b/ext/SDBM_File/SDBM_File.xs -index 291e41b..0bdae9a 100644 +index 0df2855..0e2bd58 100644 --- a/ext/SDBM_File/SDBM_File.xs +++ b/ext/SDBM_File/SDBM_File.xs @@ -10,6 +10,7 @@ @@ -166,7 +167,7 @@ index 291e41b..0bdae9a 100644 DBM * dbp ; SV * filter[4]; int filtering ; -@@ -51,6 +52,7 @@ sdbm_TIEHASH(dbtype, filename, flags, mode) +@@ -51,6 +52,7 @@ sdbm_TIEHASH(dbtype, filename, flags, mode, pagname=NULL) } if (dbp) { RETVAL = (SDBM_File)safecalloc(1, sizeof(SDBM_File_type)); @@ -184,7 +185,7 @@ index 291e41b..0bdae9a 100644 sdbm_close(db->dbp); do { diff --git a/t/lib/dbmt_common.pl b/t/lib/dbmt_common.pl -index 5d4098c..a0a4d52 100644 +index 60c66ae..a7f81fe 100644 --- a/t/lib/dbmt_common.pl +++ b/t/lib/dbmt_common.pl @@ -510,5 +510,40 @@ unlink , $Dfile; @@ -229,5 +230,5 @@ index 5d4098c..a0a4d52 100644 done_testing(); 1; -- -1.9.3 +2.26.3 diff --git a/perl.spec b/perl.spec index 8fc7296..eb39fc3 100644 --- a/perl.spec +++ b/perl.spec @@ -1,4 +1,4 @@ -%global perl_version 5.32.1 +%global perl_version 5.34.0 %global perl_epoch 4 %global perl_arch_stem -thread-multi %global perl_archname %{_arch}-%{_os}%{perl_arch_stem} @@ -100,7 +100,7 @@ License: GPL+ or Artistic Epoch: %{perl_epoch} Version: %{perl_version} # release number must be even higher, because dual-lived modules will be broken otherwise -Release: 475%{?dist} +Release: 476%{?dist} Summary: Practical Extraction and Report Language Url: https://www.perl.org/ Source0: https://www.cpan.org/src/5.0/perl-%{perl_version}.tar.xz @@ -151,7 +151,7 @@ Patch8: perl-5.16.3-create_libperl_soname.patch Patch9: perl-5.22.0-Install-libperl.so-to-shrpdir-on-Linux.patch # Make *DBM_File desctructors thread-safe, bug #1107543, RT#61912 -Patch10: perl-5.18.2-Destroy-GDBM-NDBM-ODBM-SDBM-_File-objects-only-from-.patch +Patch10: perl-5.34.0-Destroy-GDBM-NDBM-ODBM-SDBM-_File-objects-only-from-.patch # Replace ExtUtils::MakeMaker dependency with ExtUtils::MM::Utils. # This allows not to require perl-devel. Bug #1129443 @@ -164,122 +164,6 @@ Patch12: perl-5.27.8-hints-linux-Add-lphtread-to-lddlflags.patch # Pass the correct CFLAGS to dtrace Patch13: perl-5.28.0-Pass-CFLAGS-to-dtrace.patch -# Do not use C compiler reserved identifiers, in upstream after 5.33.0 -Patch14: perl-5.33.0-MUTABLE_PTR-Rmv-non-standard-syntax.patch - -# Fix SvUV_nomg() macro definition, in upstream after 5.33.0 -Patch15: perl-5.33.0-sv.h-Wanted-UOK-but-said-IOK.patch - -# Fix SvTRUE() documentation, in upstream after 5.33.0 -Patch16: perl-5.33.0-Update-pod-for-SvTRUE-to-indicate-single-param-evalu.patch - -# Fix ext/XS-APItest/t/utf8_warn_base.pl tests, in upstream after 5.33.0 -Patch17: perl-5.33.0-ext-XS-APItest-t-utf8_warn_base.pl-Fix-a-couple-test.patch - -# Fix IO::Handle::error() to report write errors, GH#6799, in upstream after 5.33.0 -Patch18: perl-5.33.0-make-fh-error-report-errors-from-both-input-and-outp.patch -Patch19: perl-5.33.0-IO-Handle-clear-the-error-on-both-input-and-output-s.patch - -# Fix setting a non-blocking mode in IO::Socket::UNIX, GH#17787, -# in upstream after 5.33.0 -Patch21: perl-5.33.0-IO-Socket-UNIX-synchronize-behavior-with-module-docu.patch - -# Fix running actions after stepping in a debugger, GH#17901, -# in upstream after 5.33.0 -Patch22: perl-5.33.0-After-running-an-action-in-the-debugger-turn-it-off.patch -Patch23: perl-5.33.0-Clearing-DB-action-at-the-end-is-no-longer-needed.patch -Patch24: perl-5.33.0-Add-missing-MANIFEST-entry-from-fix-for-debugger.patch - -# Fix a buffer size for asctime_r() and ctime_r() functions, -# in upstream after 5.33.0 -Patch25: perl-5.33.0-reentr.c-Buffer-sizes-for-asctime_r-ctime_r-are-smal.patch - -# Prevent from an integer overflow in RenewDouble() macro, -# in upstream after 5.33.0 -Patch26: perl-5.33.0-reentr.c-Prevent-infinite-looping.patch - -# Fix a number of arguments passed to a BOOT XS subroutine, GH#17755, -# in upstream after 5.33.0 -Patch28: perl-5.33.0-XSUB.h-fix-MARK-and-items-variables-inside-BOOT-XSUB.patch - -# Fix an IO::Handle spurious error reported for regular file handles, -# GH#18019, in upstream after 5.33.0 -Patch29: perl-5.33.0-IO-Handle-Fix-a-spurious-error-reported-for-regular-.patch - -# Fix inheritance resolution of lexial objects in a debugger, GH#17661, -# in upstream after 5.33.0 -Patch30: perl-5.33.0-fix-C-i-obj-where-obj-is-a-lexical.patch - -# Fix sorting with a block that calls return, GH#18081, -# in upstream after 5.33.1 -Patch35: perl-5.33.1-sort-return-foo.patch - -# Fix sv_collxfrm macro to respect locale, in upstream after 5.33.2 -Patch38: perl-5.33.2-sv.h-sv_collxfrm-didn-t-work-properly.patch - -# Fix an iterator signedness in handling an mro exception, GH#18155, -# in upstream after 5.33.2 -Patch39: perl-5.33.2-mro.xs-Fix-compiler-warning.patch - -# Fix a code flow in Perl_sv_inc_nomg(), in upstream after 5.33.2 -Patch40: perl-5.33.2-sv.c-Added-missing-braces-in-Perl_sv_inc_nomg.patch - -# Fix an undefined behavior in Perl_custom_op_get_field(), -# in upstream after 5.33.3 -Patch41: perl-5.33.3-Perl_custom_op_get_field-remove-undef-behaviour.patch - -# Fix Config variable names in in t/op tests, in upstream after 5.33.3 -Patch42: perl-5.33.3-t-op-inc.t-t-op-hexfp.t-t-op-sprintf2.t-Add-missing-.patch - -# Fix fetching a magic on the stacked file test operators, -# in upstream after 5.33.3 -Patch43: perl-5.33.3-fetch-magic-on-the-first-stacked-filetest-not-the-la.patch - -# Fix a crash in optimizing split(), GH#18232, in upstream after 5.33.3 -Patch44: perl-5.32.0-Add-av_count.patch -Patch45: perl-5.33.2-Remove-Perl_av_top_index.patch -Patch46: perl-5.32.0-pp_split-no-SWITCHSTACK-in-ary-split-.-optimisation.patch -Patch47: perl-5.33.3-pp_split-add-TonyC-s-stack-not-refcounted-suggestion.patch - -# Make accessing environment by DynaLoader thread-safe, -# in upstream after 5.33.4 -Patch48: perl-5.32.1-DynaLoader-use-PerlEnv_getenv.patch - -# Use duplocale() if available, in upstream after 5.33.4 -Patch49: perl-5.33.4-locale.c-Fix-typo-in-ifdef.patch - -# Fix fc() in Turkish locale, in upstream after 5.33.5 -Patch50: perl-5.33.5-Fix-buggy-fc-in-Turkish-locale.patch - -# Fix croaking on "my $_" when "use utf8" is in effect, GH#18449, -# in upstream after 5.33.5 -Patch51: perl-5.33.5-op.c-croak-on-my-_-when-use-utf8-is-in-effect.patch - -# Fix PERL_UNUSED_ARG() definition in XSUB.h, in upstream after 5.33.5 -Patch52: perl-5.33.5-Use-perl.h-versions-of-PERL_UNUSED_foo-in-XSUB.h.patch - -# Add missing entries to perldiag, GH#18276, in upstream after 5.33.6 -Patch53: perl-5.33.6-Add-missing-entries-to-perldiag-GH-18276.patch - -# Protect locale tests from LANGUAGE environment variable, -# in upstream after 5.33.6 -Patch54: perl-5.33.6-t-run-locale.t-Rmv-LANGUAGE-from-environment.patch - -# Prevent the number of buckets in a hash from getting too large, -# in upstream after 5.33.6 -Patch55: perl-5.32.1-hv.c-add-a-guard-clause-to-prevent-the-number-of-buc.patch - -# Fix a memory leak when compiling a regular expression, GH#18604, -# in upstream after 5.33.7 -Patch56: perl-5.33.7-regcomp.c-Remove-memory-leak.patch - -# Fix dumping a hash entry of PL_strtab type, in upstream after 5.33.7 -Patch57: perl-5.32.1-Perl_do_sv_dump-handle-PL_strtab.patch - -# Fix an arithmetic left shift of a minimal integer value, GH#18639, -# in upstream after 5.33.8 -Patch58: perl-5.33.8-Fix-broken-left-shift-of-IV_MIN-under-use-integer.patch - # Link XS modules to libperl.so with EU::CBuilder on Linux, bug #960048 Patch200: perl-5.16.3-Link-XS-modules-to-libperl.so-with-EU-CBuilder-on-Li.patch @@ -337,7 +221,7 @@ BuildRequires: rsyslog # compat macro needed for rebuild -%global perl_compat perl(:MODULE_COMPAT_5.32.1) +%global perl_compat perl(:MODULE_COMPAT_5.34.0) Requires: %perl_compat Requires: perl-interpreter%{?_isa} = %{perl_epoch}:%{perl_version}-%{release} @@ -517,7 +401,6 @@ Summary: The libraries for the perl run-time License: (GPL+ or Artistic) and BSD and HSRL and MIT and UCD and Public domain # Compat provides Provides: %perl_compat -Provides: perl(:MODULE_COMPAT_5.32.0) # Interpreter version to fulfil required genersted from "require 5.006;" Provides: perl(:VERSION) = %{perl_version} # Integeres are 64-bit on all platforms @@ -654,7 +537,7 @@ packages like perldoc by perl-Pod-Perldoc and splain by perl-diagnostics. Summary: A module for Perl manipulation of .tar files License: GPL+ or Artistic Epoch: 0 -Version: 2.36 +Version: 2.38 BuildArch: noarch Requires: %perl_compat Requires: perl(IO::Zlib) >= 1.01 @@ -703,7 +586,7 @@ phases (i.e. in a "BEGIN", "CHECK", "INIT", or "END" block). Summary: Replace functions with ones that succeed or die License: GPL+ or Artistic Epoch: 0 -Version: 2.32 +Version: 2.34 Requires: %perl_compat BuildArch: noarch Requires: perl(B) @@ -784,7 +667,7 @@ and substitute themselves with the correct definitions. Summary: Perl compiler backend License: GPL+ or Artistic Epoch: 0 -Version: 1.80 +Version: 1.82 Requires: %perl_compat Requires: perl(Data::Dumper) Requires: perl(overloading) @@ -878,8 +761,8 @@ arbitrary scripts against an uninstalled version of a package. %package Carp Summary: Alternative warn and die for modules Epoch: 0 -# Real version 1.50 -Version: 1.50 +# Real version 1.52 +Version: 1.52 License: GPL+ or Artistic Requires: %perl_compat Provides: perl(Carp::Heavy) = %{version} @@ -923,7 +806,7 @@ Perl 5 class that implements a struct-like data structure. Summary: Low-Level Interface to bzip2 compression library License: GPL+ or Artistic Epoch: 0 -Version: 2.093 +Version: 2.101 Requires: perl(Exporter), perl(File::Temp) %if %{defined perl_bootstrap} %gendep_perl_Compress_Raw_Bzip2 @@ -937,7 +820,7 @@ It is used by IO::Compress::Bzip2. Summary: Low-Level Interface to the zlib compression library License: (GPL+ or Artistic) and zlib Epoch: 0 -Version: 2.093 +Version: 2.101 Requires: %perl_compat %if %{defined perl_bootstrap} %gendep_perl_Compress_Raw_Zlib @@ -969,7 +852,7 @@ core extensions that were enabled for this perl. Summary: Structured data retrieval of perl -V output License: GPL+ or Artistic Epoch: 0 -Version: 0.32 +Version: 0.33 Requires: %perl_compat %if %{defined perl_bootstrap} %gendep_perl_Config_Perl_V @@ -1021,7 +904,7 @@ away if the constant is false. Summary: Query, download and build perl modules from CPAN sites License: GPL+ or Artistic Epoch: 0 -Version: 2.27 +Version: 2.28 Requires: make Requires: %perl_compat # Some subpackaged modules are not dual-lived. E.g. "open". If a distribution @@ -1158,7 +1041,7 @@ used for any other general YAML parsing or generation task. Summary: Stringify perl data structures, suitable for printing and eval License: GPL+ or Artistic Epoch: 0 -Version: 2.174 +Version: 2.179 Requires: %perl_compat Requires: perl(B::Deparse) Requires: perl(bytes) @@ -1180,7 +1063,7 @@ structures correctly. Summary: Perl5 access to Berkeley DB version 1.x License: GPL+ or Artistic Epoch: 0 -Version: 1.853 +Version: 1.855 Requires: %perl_compat Requires: perl(Fcntl) Requires: perl(XSLoader) @@ -1285,7 +1168,7 @@ module will not break their code. Summary: A data debugging tool for the XS programmer License: GPL+ or Artistic Epoch: 0 -Version: 1.28 +Version: 1.30 Requires: %perl_compat %if %{defined perl_bootstrap} %gendep_perl_Devel_Peek @@ -1303,7 +1186,7 @@ should look. Summary: Perl Pollution Portability header generator License: GPL+ or Artistic Epoch: 0 -Version: 3.57 +Version: 3.62 Requires: %perl_compat %if %{defined perl_bootstrap} %gendep_perl_Devel_PPPort @@ -1366,7 +1249,7 @@ Summary: Modules that calculate message digests License: GPL+ or Artistic # Epoch bump for clean upgrade over old standalone package Epoch: 0 -Version: 1.17 +Version: 1.19 BuildArch: noarch Requires: %perl_compat Requires: perl(MIME::Base64) @@ -1388,8 +1271,8 @@ Summary: Perl interface to the MD5 Algorithm License: (GPL+ or Artistic) and BSD # Epoch bump for clean upgrade over old standalone package Epoch: 0 -# Real version 2.55_01 -Version: 2.55 +# Real version 2.58 +Version: 2.58 Requires: %perl_compat Requires: perl(XSLoader) # Recommended @@ -1483,7 +1366,7 @@ data structures. Summary: Dynamically load C libraries into Perl code License: GPL+ or Artistic Epoch: 0 -Version: 1.47 +Version: 1.50 Requires: %perl_compat Requires: perl(Carp) %if %{defined perl_bootstrap} @@ -1502,7 +1385,7 @@ see XSLoader module. Summary: Character encodings in Perl License: (GPL+ or Artistic) and Artistic 2.0 and UCD Epoch: 4 -Version: 3.06 +Version: 3.08 Requires: %perl_compat %if %{defined perl_bootstrap} %gendep_perl_Encode @@ -1548,7 +1431,7 @@ The easiest and the best alternative is to write your script in UTF-8. Summary: Character encodings in Perl License: (GPL+ or Artistic) and UCD Epoch: 4 -Version: 3.06 +Version: 3.08 Requires: %perl_compat Requires: %{name}-Encode = %{epoch}:%{version}-%{release} Recommends: perl-devel @@ -1605,7 +1488,7 @@ seems to like to read. Summary: Perl module that imports environment variables as scalars or arrays License: GPL+ or Artistic Epoch: 0 -Version: 1.04 +Version: 1.05 Requires: %perl_compat %if %{defined perl_bootstrap} %gendep_perl_Env @@ -1623,7 +1506,7 @@ variables to be treated as scalar or array variables. Summary: System errno constants License: GPL+ or Artistic Epoch: 0 -Version: 1.30 +Version: 1.33 Requires: %perl_compat # Errno.pm bakes in kernel version at build time and compares it against # $Config{osvers} at run time. Match exact interpreter build. Bug #1393421. @@ -1644,7 +1527,7 @@ which will export all POSIX defined error numbers. Summary: Experimental features made easy License: GPL+ or Artistic Epoch: 0 -Version: 0.020 +Version: 0.024 Requires: %perl_compat %if %{defined perl_bootstrap} %gendep_perl_experimental @@ -1662,7 +1545,7 @@ experimental features. Summary: Implements default import method for modules License: GPL+ or Artistic Epoch: 0 -Version: 5.74 +Version: 5.76 Requires: %perl_compat Requires: perl(Carp) >= 1.05 %if %{defined perl_bootstrap} @@ -1685,7 +1568,7 @@ Summary: Compile and link C code for Perl modules License: GPL+ or Artistic # Epoch bump for clean upgrade over old standalone package Epoch: 1 -Version: 0.280234 +Version: 0.280236 BuildArch: noarch # C and C++ compilers are highly recommended because compiling code is the # purpose of ExtUtils::CBuilder, bug #1547165 @@ -1732,7 +1615,7 @@ Perl modules to AUTOLOAD constants defined in C library header files. Summary: Perl routines to replace common UNIX commands in Makefiles License: GPL+ or Artistic Epoch: 2 -Version: 7.44 +Version: 7.62 BuildArch: noarch Requires: %perl_compat Conflicts: perl < 4:5.20.1-312 @@ -1768,7 +1651,7 @@ Utilities for embedding Perl in C/C++ applications. Summary: Install files from here to there License: GPL+ or Artistic Epoch: 0 -Version: 2.14 +Version: 2.20 BuildArch: noarch Requires: %perl_compat Requires: perl(AutoSplit) @@ -1789,7 +1672,7 @@ pages, etc. Summary: Create a module Makefile License: GPL+ or Artistic Epoch: 2 -Version: 7.44 +Version: 7.62 # These dependencies are weak in order to relieve building noarch # packages from perl-devel and gcc. See bug #1547165. # If an XS module is built, the generated Makefile executes gcc. @@ -1831,7 +1714,7 @@ Create a module Makefile. Summary: Utilities to write and check a MANIFEST file License: GPL+ or Artistic Epoch: 1 -Version: 1.72 +Version: 1.73 Requires: %perl_compat Requires: perl(File::Path) %if %{defined perl_bootstrap} @@ -1847,7 +1730,7 @@ BuildArch: noarch Summary: Write the C code for perlmain.c License: GPL+ or Artistic Epoch: 0 -Version: 1.09 +Version: 1.10 Requires: perl-devel Requires: %perl_compat %if %{defined perl_bootstrap} @@ -1891,7 +1774,7 @@ Summary: Module and a script for converting Perl XS code into C code License: GPL+ or Artistic # Epoch bump for clean upgrade over old standalone package Epoch: 1 -Version: 3.40 +Version: 3.43 Requires: %perl_compat %if %{defined perl_bootstrap} %gendep_perl_ExtUtils_ParseXS @@ -1909,7 +1792,7 @@ necessary to let Perl access those functions. Summary: File operation options License: GPL+ or Artistic Epoch: 0 -Version: 1.13 +Version: 1.14 Requires: %perl_compat %if %{defined perl_bootstrap} %gendep_perl_Fcntl @@ -1978,7 +1861,7 @@ files specified by a file name or a file handle. Summary: Copy files or file handles License: GPL+ or Artistic Epoch: 0 -Version: 2.34 +Version: 2.35 BuildArch: noarch Requires: %perl_compat Requires: perl(Carp) @@ -2014,7 +1897,7 @@ wild cards in directory components. Summary: Generic file fetching mechanism License: GPL+ or Artistic Epoch: 0 -Version: 0.56 +Version: 1.00 Requires: perl(IPC::Cmd) >= 0.36 Requires: perl(Module::Load::Conditional) >= 0.04 Requires: perl(Params::Check) >= 0.07 @@ -2032,7 +1915,7 @@ File::Fetch is a generic file fetching mechanism. Summary: Traverse a directory tree License: GPL+ or Artistic Epoch: 0 -Version: 1.37 +Version: 1.39 Requires: %perl_compat Recommends: perl(Scalar::Util) %if %{defined perl_bootstrap} @@ -2050,7 +1933,7 @@ file found similar to the Unix find command. Summary: Create or remove directory trees License: GPL+ or Artistic Epoch: 0 -Version: 2.16 +Version: 2.18 Requires: %perl_compat Requires: perl(Carp) %if %{defined perl_bootstrap} @@ -2088,7 +1971,7 @@ Summary: Return name and handle of a temporary file safely License: GPL+ or Artistic Epoch: 1 # Normalized version -Version: 0.230.900 +Version: 0.231.100 Requires: %perl_compat BuildArch: noarch Requires: perl(File::Path) >= 2.06 @@ -2204,7 +2087,7 @@ Filter::Util::Call; one that is sufficient for most common cases. Summary: Locate a directory of an original Perl script License: GPL+ or Artistic Epoch: 0 -Version: 1.51 +Version: 1.52 Requires: %perl_compat %if %{defined perl_bootstrap} %gendep_perl_FindBin @@ -2221,7 +2104,7 @@ relative to the bin directory. Summary: Perl5 access to the gdbm library License: GPL+ or Artistic Epoch: 0 -Version: 1.18 +Version: 1.19 Requires: %perl_compat %if %{defined perl_bootstrap} %gendep_perl_GDBM_File @@ -2238,7 +2121,7 @@ provided by the GNU gdbm library. Summary: Extended processing of command line options License: GPLv2+ or Artistic Epoch: 1 -Version: 2.51 +Version: 2.52 Requires: %perl_compat Requires: perl(overload) Requires: perl(Text::ParseWords) @@ -2265,7 +2148,7 @@ enabled by default. Summary: Process single-character switches with switch clustering License: GPL+ or Artistic Epoch: 0 -Version: 1.12 +Version: 1.13 Requires: %perl_compat %if %{defined perl_bootstrap} %gendep_perl_Getopt_Std @@ -2282,7 +2165,7 @@ containing all switches to be recognized. Summary: General-utility hash subroutines License: GPL+ or Artistic Epoch: 0 -Version: 0.23 +Version: 0.25 Requires: %perl_compat Requires: perl(Hash::Util::FieldHash) Requires: perl(XSLoader) @@ -2299,7 +2182,7 @@ really warrant a keyword. Summary: Support for inside-out classes License: GPL+ or Artistic Epoch: 0 -Version: 1.20 +Version: 1.21 Requires: %perl_compat Requires: perl(XSLoader) %if %{defined perl_bootstrap} @@ -2315,8 +2198,8 @@ inside-out technique of class construction. Summary: Use a Perl module if a condition holds License: GPL+ or Artistic Epoch: 0 -# Normalized 0.0608 -Version: 0.60.800 +# Normalized 0.0609 +Version: 0.60.900 Requires: %perl_compat %if %{defined perl_bootstrap} %gendep_perl_if @@ -2331,7 +2214,7 @@ The "if" module is used to conditionally load another module. Summary: Perl input/output modules License: GPL+ or Artistic Epoch: 0 -Version: 1.43 +Version: 1.46 Requires: %perl_compat %if %{defined perl_bootstrap} %gendep_perl_IO @@ -2346,7 +2229,7 @@ This is a collection of Perl input/output modules. Summary: IO::Compress wrapper for modules License: GPL+ or Artistic Epoch: 0 -Version: 2.093 +Version: 2.102 Requires: %perl_compat Obsoletes: perl-Compress-Zlib <= 2.020 Provides: perl(IO::Uncompress::Bunzip2) @@ -2366,7 +2249,7 @@ purpose is to to be sub-classed by IO::Compress modules. Summary: Drop-in replacement for IO::Socket::INET supporting both IPv4 and IPv6 License: GPL+ or Artistic Epoch: 0 -Version: 0.39 +Version: 0.41 Requires: %perl_compat %if %{defined perl_bootstrap} %gendep_perl_IO_Socket_IP @@ -2386,7 +2269,7 @@ Summary: Perl IO:: style interface to Compress::Zlib License: GPL+ or Artistic # Epoch bump for clean upgrade over old standalone package Epoch: 1 -Version: 1.10 +Version: 1.11 BuildRequires: gzip # The code defaults to Compress::Zlib, but a user can override it to gzip by # importing :gzip_external symbol @@ -2452,7 +2335,7 @@ error output for handling the errors. Summary: Object interface to System V IPC License: GPL+ or Artistic Epoch: 0 -Version: 2.07 +Version: 2.09 Requires: %perl_compat Requires: perl(DynaLoader) %if %{defined perl_bootstrap} @@ -2503,7 +2386,7 @@ locale". Summary: Functions for dealing with RFC 3066 language tags License: GPL+ or Artistic Epoch: 0 -Version: 0.44 +Version: 0.45 Requires: %perl_compat Requires: perl(integer) Requires: perl(warnings) @@ -2546,7 +2429,7 @@ resumes after EINTR. %package JSON-PP Summary: JSON::XS compatible pure-Perl module Epoch: 1 -Version: 4.04 +Version: 4.06 License: GPL+ or Artistic BuildArch: noarch Requires: %perl_compat @@ -2604,7 +2487,7 @@ This module simplifies the manipulation of @INC at compile time. Summary: Perl clients for various network protocols License: (GPL+ or Artistic) and Artistic Epoch: 0 -Version: 3.11 +Version: 3.13 Requires: %perl_compat Requires: perl(File::Basename) Requires: perl(IO::Socket) >= 1.05 @@ -2644,7 +2527,7 @@ The libnetcfg utility can be used to configure the libnet. Summary: Pragma to use or avoid POSIX locales for built-in operations License: GPL+ or Artistic Epoch: 0 -Version: 1.09 +Version: 1.10 Requires: %perl_compat Requires: perl(Carp) Requires: perl(POSIX) @@ -2820,7 +2703,7 @@ Summary: Encoding and decoding of Base64 and quoted-printable strings # Other files: GPL+ or Artistic License: (GPL+ or Artistic) and MIT Epoch: 0 -Version: 3.15 +Version: 3.16 Requires: %perl_compat %if %{defined perl_bootstrap} %gendep_perl_MIME_Base64 @@ -2838,7 +2721,7 @@ encoder/decoder. These encoding methods are specified in RFC 2045 - MIME Summary: What modules are shipped with versions of perl License: GPL+ or Artistic Epoch: 1 -Version: 5.20210123 +Version: 5.20210520 Requires: %perl_compat Requires: perl(List::Util) Requires: perl(version) >= 0.88 @@ -2856,7 +2739,7 @@ are shipped with each version of perl. Summary: Tool for listing modules shipped with perl License: GPL+ or Artistic Epoch: 1 -Version: 5.20210123 +Version: 5.20210520 Requires: %perl_compat Requires: perl(feature) Requires: perl(version) >= 0.88 @@ -2881,7 +2764,7 @@ Summary: Runtime require of both modules and files License: GPL+ or Artistic # Epoch bump for clean upgrade over old standalone package Epoch: 1 -Version: 0.34 +Version: 0.36 Requires: %perl_compat %if %{defined perl_bootstrap} %gendep_perl_Module_Load @@ -2899,7 +2782,7 @@ either a file or a module. Summary: Looking up module information / loading at runtime License: GPL+ or Artistic Epoch: 0 -Version: 0.70 +Version: 0.74 Requires: %perl_compat %if %{defined perl_bootstrap} %gendep_perl_Module_Load_Conditional @@ -2952,7 +2835,7 @@ Gather package and POD information from perl module files Summary: Method resolution order License: GPL+ or Artistic Epoch: 0 -Version: 1.23 +Version: 1.25 Requires: %perl_compat %if %{defined perl_bootstrap} %gendep_perl_mro @@ -3004,7 +2887,7 @@ getnet*(), getproto*(), and getserv*() functions. Summary: Check a remote host for reachability License: GPL+ or Artistic Epoch: 0 -Version: 2.72 +Version: 2.74 Requires: %perl_compat Requires: perl(IO::Socket::INET) # Keep Net::Ping::External optional @@ -3024,7 +2907,7 @@ a network. Summary: Pseudo-class that allows method redispatch License: GPL+ or Artistic Epoch: 0 -Version: 0.67 +Version: 0.68 Requires: %perl_compat %if %{defined perl_bootstrap} %gendep_perl_NEXT @@ -3042,7 +2925,7 @@ if the calling method had not originally been found. Summary: Tied access to odbm files License: GPL+ or Artistic Epoch: 0 -Version: 1.16 +Version: 1.17 Requires: %perl_compat %if %{defined perl_bootstrap} %gendep_perl_ODBM_File @@ -3060,7 +2943,7 @@ be used the next time your program runs. Summary: Disable named opcodes when compiling a perl code License: GPL+ or Artistic Epoch: 0 -Version: 1.48 +Version: 1.50 Requires: %perl_compat %if %{defined perl_bootstrap} %gendep_perl_Opcode @@ -3096,7 +2979,7 @@ The "open" pragma serves as one of the interfaces to declare default "layers" Summary: Overloading Perl operations License: GPL+ or Artistic Epoch: 0 -Version: 1.31 +Version: 1.33 BuildArch: noarch Requires: %perl_compat Requires: perl(mro) @@ -3177,7 +3060,7 @@ Params::Check is a generic input parsing/checking mechanism. Summary: PathTools Perl module (Cwd, File::Spec) License: (GPL+ or Artistic) and BSD Epoch: 0 -Version: 3.78 +Version: 3.80 Requires: %perl_compat Requires: perl(Carp) Requires: perl(Errno) @@ -3199,7 +3082,7 @@ Summary: Frequently asked questions about Perl # Code examples are Public Domain License: (GPL+ or Artistic) and Public Domain Epoch: 0 -Version: 5.20200523 +Version: 5.20210411 Requires: %perl_compat %if %{defined perl_bootstrap} %gendep_perl_perlfaq @@ -3217,7 +3100,7 @@ questions about Perl and Perl programming. Summary: PerlIO layer for quoted-printable strings License: GPL+ or Artistic Epoch: 0 -Version: 0.08 +Version: 0.09 Requires: %perl_compat %if %{defined perl_bootstrap} %gendep_perl_PerlIO_via_QuotedPrint @@ -3283,7 +3166,7 @@ package. %package Pod-Checker Summary: Check POD documents for syntax errors Epoch: 4 -Version: 1.73 +Version: 1.74 License: GPL+ or Artistic Requires: %perl_compat %if %{defined perl_bootstrap} @@ -3334,7 +3217,7 @@ This module enumerates the Perl functions that are documented in perlfunc POD. Summary: Convert POD files to HTML License: GPL+ or Artistic Epoch: 0 -Version: 1.25 +Version: 1.27 Requires: %perl_compat %if %{defined perl_bootstrap} %gendep_perl_Pod_Html @@ -3389,7 +3272,7 @@ Summary: Framework for parsing POD documentation License: GPL+ or Artistic # Epoch bump for clean upgrade over old standalone package Epoch: 1 -Version: 3.40 +Version: 3.42 Requires: %perl_compat %if %{defined perl_bootstrap} %gendep_perl_Pod_Simple @@ -3407,7 +3290,7 @@ documentation for Perl and for Perl modules. Summary: Print a usage message from embedded pod documentation License: GPL+ or Artistic Epoch: 4 -Version: 1.69 +Version: 2.01 Requires: %perl_compat # Pod::Usage executes perldoc from perl-Pod-Perldoc by default Requires: perl-Pod-Perldoc @@ -3453,7 +3336,7 @@ with various capabilities. Summary: Perl interface to IEEE Std 1003.1 License: GPL+ or Artistic Epoch: 0 -Version: 1.94 +Version: 1.97 Requires: %perl_compat Requires: perl(Carp) %if %{defined perl_bootstrap} @@ -3469,7 +3352,7 @@ The POSIX module permits you to access all (or nearly all) the standard POSIX Summary: Compile and execute code in restricted compartments License: GPL+ or Artistic Epoch: 0 -Version: 2.41 +Version: 2.43 Requires: %perl_compat %if %{defined perl_bootstrap} %gendep_perl_Safe @@ -3486,7 +3369,7 @@ security purposes. %package Scalar-List-Utils Summary: A selection of general-utility scalar and list subroutines License: GPL+ or Artistic -Epoch: 4 +Epoch: 5 Version: 1.55 Requires: %perl_compat %if %{defined perl_bootstrap} @@ -3574,7 +3457,7 @@ The sigtrap pragma is a simple interface for installing signal handlers. Summary: C socket.h defines and structure manipulators License: GPL+ or Artistic Epoch: 4 -Version: 2.029 +Version: 2.031 Requires: %perl_compat %if %{defined perl_bootstrap} %gendep_perl_Socket @@ -3611,7 +3494,7 @@ function. Summary: Persistence for Perl data structures License: GPL+ or Artistic Epoch: 1 -Version: 3.21 +Version: 3.23 Requires: %perl_compat # Carp substitutes missing Log::Agent Requires: perl(Carp) @@ -3634,7 +3517,7 @@ can be conveniently stored to disk and retrieved at a later time. Summary: Perl pragma to predeclare subroutine names License: GPL+ or Artistic Epoch: 0 -Version: 1.03 +Version: 1.04 BuildArch: noarch Requires: %perl_compat %if %{defined perl_bootstrap} @@ -3651,7 +3534,7 @@ before they're declared. Summary: Manipulate Perl symbols and their names License: GPL+ or Artistic Epoch: 0 -Version: 1.08 +Version: 1.09 BuildArch: noarch Requires: %perl_compat %if %{defined perl_bootstrap} @@ -3795,7 +3678,7 @@ such that their output is in the format that Test::Harness expects to see. Summary: Run Perl standard test scripts with statistics License: GPL+ or Artistic Epoch: 1 -Version: 3.42 +Version: 3.43 Requires: %perl_compat %if %{defined perl_bootstrap} %gendep_perl_Test_Harness @@ -3812,7 +3695,7 @@ Use TAP::Parser, Test::Harness package was whole rewritten. Summary: Basic utilities for writing tests License: (GPL+ or Artistic) and CC0 and Public Domain Epoch: 3 -Version: 1.302175 +Version: 1.302183 Requires: %perl_compat Requires: perl(Data::Dumper) %if %{defined perl_bootstrap} @@ -3845,7 +3728,7 @@ an associative array. The values are the original list elements. Summary: Extract delimited text sequences from strings License: GPL+ or Artistic Epoch: 0 -Version: 2.03 +Version: 2.04 Requires: %perl_compat %if %{defined perl_bootstrap} %gendep_perl_Text_Balanced @@ -4001,7 +3884,7 @@ access, and to use the cached value on the following accesses. Summary: Use references as hash keys License: GPL+ or Artistic Epoch: 0 -Version: 1.39 +Version: 1.40 Requires: %perl_compat # Scalar::Util || overload Requires: perl(overload) @@ -4041,7 +3924,7 @@ and localtime () functions. Summary: High resolution alarm, sleep, gettimeofday, interval timers License: GPL+ or Artistic Epoch: 4 -Version: 1.9764 +Version: 1.9767 Requires: %perl_compat Requires: perl(Carp) %if %{defined perl_bootstrap} @@ -4060,8 +3943,8 @@ high resolution time and timers. Summary: Efficiently compute time from local and GMT time License: GPL+ or Artistic Epoch: 2 -# Real version 1.28 -Version: 1.280 +# Real version 1.30 +Version: 1.300 Requires: %perl_compat %if %{defined perl_bootstrap} %gendep_perl_Time_Local @@ -4121,7 +4004,7 @@ multiple resources at once. Summary: Perl interpreter-based threads License: GPL+ or Artistic Epoch: 1 -Version: 2.25 +Version: 2.26 Requires: %perl_compat %if %{defined perl_bootstrap} %gendep_perl_threads @@ -4145,7 +4028,7 @@ variables, you need to also load threads::shared. Summary: Perl extension for sharing data structures between threads License: GPL+ or Artistic Epoch: 0 -Version: 1.61 +Version: 1.62 Requires: %perl_compat %if %{defined perl_bootstrap} %gendep_perl_threads_shared @@ -4165,7 +4048,7 @@ hashes and hash refs. Summary: Unicode Collation Algorithm License: (GPL+ or Artistic) and Unicode Epoch: 0 -Version: 1.27 +Version: 1.29 Requires: %perl_compat Requires: perl(Unicode::Normalize) %if %{defined perl_bootstrap} @@ -4183,7 +4066,7 @@ Collation Algorithm). Summary: Unicode Normalization Forms License: GPL+ or Artistic Epoch: 0 -Version: 1.27 +Version: 1.28 Requires: %perl_compat # unicore/CombiningClass.pl and unicore/Decomposition.pl from perl, perl is # auto-detected. @@ -4258,9 +4141,9 @@ discouraged. Summary: Perl extension for Version Objects License: GPL+ or Artistic # Epoch bump for clean upgrade over old standalone package -Epoch: 7 -# real version 0.9924 -Version: 0.99.24 +Epoch: 8 +# real version 0.9928 +Version: 0.99.28 Requires: %perl_compat %if %{defined perl_bootstrap} %gendep_perl_version @@ -4304,43 +4187,6 @@ you're not running VMS, this module does nothing. %patch11 -p1 %patch12 -p1 %patch13 -p1 -%patch14 -p1 -%patch15 -p1 -%patch16 -p1 -%patch17 -p1 -%patch18 -p1 -%patch19 -p1 -%patch21 -p1 -%patch22 -p1 -%patch23 -p1 -%patch24 -p1 -%patch25 -p1 -%patch26 -p1 -%patch28 -p1 -%patch29 -p1 -%patch30 -p1 -%patch35 -p1 -%patch38 -p1 -%patch39 -p1 -%patch40 -p1 -%patch41 -p1 -%patch42 -p1 -%patch43 -p1 -%patch44 -p1 -%patch45 -p1 -%patch46 -p1 -%patch47 -p1 -%patch48 -p1 -%patch49 -p1 -%patch50 -p1 -%patch51 -p1 -%patch52 -p1 -%patch53 -p1 -%patch54 -p1 -%patch55 -p1 -%patch56 -p1 -%patch57 -p1 -%patch58 -p1 %patch200 -p1 %patch201 -p1 @@ -4361,43 +4207,6 @@ perl -x patchlevel.h \ 'Fedora Patch11: Replace EU::MakeMaker dependency with EU::MM::Utils in IPC::Cmd (bug #1129443)' \ 'Fedora Patch12: Link XS modules to pthread library to fix linking with -z defs' \ 'Fedora Patch13: Pass the correct CFLAGS to dtrace' \ - 'Fedora Patch14: Do not use C compiler reserved identifiers' \ - 'Fedora Patch15: Fix SvUV_nomg() macro definition' \ - 'Fedora Patch16: Fix SvTRUE() documentation' \ - 'Fedora Patch17: Fix ext/XS-APItest/t/utf8_warn_base.pl tests' \ - 'Fedora Patch18: Fix IO::Handle::error() to report write errors (GH#6799)' \ - 'Fedora Patch19: Fix IO::Handle::error() to report write errors (GH#6799)' \ - 'Fedora Patch21: Fix setting a non-blocking mode in IO::Socket::UNIX (GH#17787)' \ - 'Fedora Patch22: Fix running actions after stepping in a debugger (GH#17901)' \ - 'Fedora Patch23: Fix running actions after stepping in a debugger (GH#17901)' \ - 'Fedora Patch24: Fix running actions after stepping in a debugger (GH#17901)' \ - 'Fedora Patch25: Fix a buffer size for asctime_r() and ctime_r() functions' \ - 'Fedora Patch26: Prevent from an integer overflow in RenewDouble() macro' \ - 'Fedora Patch28: Fix a number of arguments passed to a BOOT XS subroutine (GH#17755)' \ - 'Fedora Patch29: Fix an IO::Handle spurious error reported for regular file handles (GH#18019)' \ - 'Fedora Patch30: Fix inheritance resolution of lexial objects in a debugger (GH#17661)' \ - 'Fedora Patch35: Fix sorting with a block that calls return (GH#18081)' \ - 'Fedora Patch38: Fix sv_collxfrm macro to respect locale' \ - 'Fedora Patch39: Fix an iterator signedness in handling an mro exception (GH#18155)' \ - 'Fedora Patch40: Fix a code flow in Perl_sv_inc_nomg()' \ - 'Fedora Patch41: Fix an undefined behavior in Perl_custom_op_get_field()' \ - 'Fedora Patch42: Fix Config variable names in in t/op tests' \ - 'Fedora Patch43: Fix fetching a magic on the stacked file test operators' \ - 'Fedora Patch44: Fix a crash in optimizing split() (GH#18232)' \ - 'Fedora Patch45: Fix a crash in optimizing split() (GH#18232)' \ - 'Fedora Patch46: Fix a crash in optimizing split() (GH#18232)' \ - 'Fedora Patch47: Fix a crash in optimizing split() (GH#18232)' \ - 'Fedora Patch48: Make accessing environment by DynaLoader thread-safe' \ - 'Fedora Patch49: Use duplocale() if available' \ - 'Fedora Patch50: Fix fc() in Turkish locale' \ - 'Fedora Patch51: Fix croaking on "my $_" when "use utf8" is in effect (GH#18449)' \ - 'Fedora Patch52: Fix PERL_UNUSED_ARG() definition in XSUB.h' \ - 'Fedora Patch53: Add missing entries to perldiag (GH#18276)' \ - 'Fedora Patch54: Protect locale tests from LANGUAGE environment variable' \ - 'Fedora Patch55: Prevent the number of buckets in a hash from getting too large' \ - 'Fedora Patch56: Fix a memory leak when compiling a regular expression (GH#18604)' \ - 'Fedora Patch57: Fix dumping a hash entry of PL_strtab type' \ - 'Fedora Patch57: Fix an arithmetic left shift of a minimal integer value (GH#18639)' \ 'Fedora Patch200: Link XS modules to libperl.so with EU::CBuilder on Linux' \ 'Fedora Patch201: Link XS modules to libperl.so with EU::MM on Linux' \ %{nil} @@ -4620,6 +4429,10 @@ rm %{build_archlib}/.packlist rm %{build_archlib}/File/Spec/VMS.pm rm $RPM_BUILD_ROOT%{_mandir}/man3/File::Spec::VMS.3* +# Do not distribute ExtUtils-PL2Bat, it is used only for Windows +rm %{build_privlib}/ExtUtils/PL2Bat.pm +rm $RPM_BUILD_ROOT%{_mandir}/man3/ExtUtils::PL2Bat.3* + # Fix some manpages to be UTF-8 mkdir -p $RPM_BUILD_ROOT%{_mandir}/man1/ pushd $RPM_BUILD_ROOT%{_mandir}/man1/ @@ -5791,6 +5604,7 @@ popd %{privlib}/pod/perldebtut.pod %{privlib}/pod/perldelta.pod %{privlib}/pod/perldeprecation.pod +%{privlib}/pod/perldocstyle.pod %{privlib}/pod/perldos.pod %{privlib}/pod/perldsc.pod %{privlib}/pod/perldtrace.pod @@ -5869,7 +5683,6 @@ popd %{privlib}/pod/perlsource.pod %{privlib}/pod/perlstyle.pod %{privlib}/pod/perlsub.pod -%{privlib}/pod/perlsymbian.pod %{privlib}/pod/perlsyn.pod %{privlib}/pod/perlsynology.pod %{privlib}/pod/perlthrtut.pod @@ -5914,6 +5727,7 @@ popd %{_mandir}/man1/perldebtut.* %{_mandir}/man1/perldelta.* %{_mandir}/man1/perldeprecation.* +%{_mandir}/man1/perldocstyle.* %{_mandir}/man1/perldos.* %{_mandir}/man1/perldsc.* %{_mandir}/man1/perldtrace.* @@ -5992,7 +5806,6 @@ popd %{_mandir}/man1/perlsource.* %{_mandir}/man1/perlstyle.* %{_mandir}/man1/perlsub.* -%{_mandir}/man1/perlsymbian.* %{_mandir}/man1/perlsyn.* %{_mandir}/man1/perlsynology.* %{_mandir}/man1/perlthrtut.* @@ -7172,6 +6985,10 @@ popd # Old changelog entries are preserved in CVS. %changelog +* Thu May 20 2021 Jitka Plesnikova - 4:5.34.0-476 +- 5.34.0 bump (see + or release notes) + * Tue May 04 2021 Petr Pisar - 4:5.32.1-475 - XSLoader requires DynaLoader diff --git a/sources b/sources index 4ffa794..cca6124 100644 --- a/sources +++ b/sources @@ -1 +1 @@ -SHA512 (perl-5.32.1.tar.xz) = 3443c75aea91f0fe3712fee576239f1946d2301b8f7390b690e2f5d070fe71af8f9fa7769e42086c2d33d5f84370f80368fa9350b4f10cc0ac3e6c1f6209d8f9 +SHA512 (perl-5.34.0.tar.xz) = 691b4b31eacec357191fba777612b4e3eae59e946a22998a50766697c0d61db1d42a9b3bc1e41abf0d1ca1893e4a7c06d7bf3290480cf03d7f79befd7a8a3267