From 2b10142afc5a7c230b662f0ce928d4a2f9618400 Mon Sep 17 00:00:00 2001 From: Jitka Plesnikova Date: Mon, 22 Jun 2020 11:32:52 +0200 Subject: [PATCH] 5.32.0 bump --- .gitignore | 1 + gendep.macros | 669 +++++++++--------- ...-undefined-behavior-from-IV-shifting.patch | 75 -- ...support-append-mode-for-open-.-undef.patch | 191 ----- ...-sure-is-writable-when-we-write-to-i.patch | 102 --- perl-5.30.0-pp.c-Add-two-UNLIKELY-s.patch | 42 -- ...ng-updated-without-len-being-updated.patch | 47 -- ...ectly-handle-overload-for-bin-oct-fl.patch | 116 --- ...w-threadsafe-avoiding-the-core-bug-r.patch | 272 ------- ...dimensional-array-heuristic-to-ignor.patch | 114 --- ...intended-to-be-an-alias-for-make-it-.patch | 85 --- ...-for-lossless-conversion-of-NV-to-IV.patch | 181 ----- ...ck-op_type-to-check-for-filetets-ops.patch | 87 --- ..._const-Properly-test-if-need-to-grow.patch | 49 -- ...mpler-fix-for-pclose-aborted-by-a-si.patch | 70 -- ...remove-some-interfering-debug-output.patch | 28 - ...t-for-signal-handler-death-in-pclose.patch | 54 -- ...it-numeric-format-results-to-INT_MAX.patch | 76 -- ...ment-differences-between-IO-Socket-a.patch | 78 -- ...ure-TO-is-honoured-for-UDP-sock-send.patch | 107 --- ....0-perl-133936-make-send-a-bit-saner.patch | 93 --- ...31.0-perl-134008-an-alternative-test.patch | 28 - ...134072-allow-foo-bar-to-work-in-main.patch | 84 --- ...w-CAPTURE-to-work-when-CAPTURE-comes.patch | 59 -- ...193-make-the-varname-match-the-names.patch | 36 - ...-with-uninit-warning-with-multideref.patch | 65 -- ...-sure-SIGPIPE-is-delivered-if-we-tes.patch | 39 - ...ort-O_APPEND-for-open-.-undef-on-VMS.patch | 128 ---- ...ort-append-mode-temp-files-on-Win32-.patch | 76 -- ...heck-arg-is-non-NULL-before-using-it.patch | 38 - ...n-tests-in-ext-File-Find-t-in-series.patch | 30 - ...-trailing-0-in-SVs-holding-trie-info.patch | 37 - ....31.2-locale.c-Stop-Coverity-warning.patch | 48 -- ...291-propagate-non-PVs-in-in-bare-die.patch | 54 -- ...-5.30-promise-not-met-change-to-5.32.patch | 118 --- ...p.c-Don-t-read-off-the-end-of-buffer.patch | 36 - ...re-Include-stdlib.h-in-futimes-check.patch | 30 - ...-Florian-Weimer-is-now-a-perl-author.patch | 28 - ...missing-right-brace-in-regex-example.patch | 31 - ...t-interpret-0x-0b-when-numifying-str.patch | 57 -- ....31.3-regcomp.c-Fix-wrong-limit-test.patch | 31 - ....4-Handle-undefined-values-correctly.patch | 237 ------- ...-clearer-about-taint-s-effect-on-INC.patch | 32 - ...1.5-Fix-taint-mode-INC-documentation.patch | 45 -- ...Handle-BINMODE-handle-layer-argument.patch | 77 -- ...etween-name-based-stat-and-an-open-m.patch | 48 -- ...-bug-tr-upgrading-to-UTF-8-in-middle.patch | 78 -- perl-5.31.5-toke.c-comment-changes.patch | 48 -- ...orkaround-glibc-bug-with-LC_MESSAGES.patch | 105 --- ...s-for-IO-Handle-getline-and-getlines.patch | 200 ------ ...31.7-POSIX.pod-Update-setlocale-docs.patch | 60 -- ...n-pragma-tests-for-no-utf8-under-PER.patch | 47 -- ...calls-to-sigaddset-in-POSIX-SigSet-n.patch | 86 --- ...ll-ExtUtils-XSSymSet-man-page-on-VMS.patch | 37 - ...ix-close-method-call-underlaying-lay.patch | 29 - ...rk-example-code-so-EXTEND-is-a-no-op.patch | 67 -- ...fencepost-error-in-call-to-av_extend.patch | 142 ---- ...uninitialized-error-in-deparsing-wei.patch | 66 -- perl-USE_MM_LD_RUN_PATH.patch | 2 +- perl.spec | 512 +++----------- sources | 2 +- 61 files changed, 418 insertions(+), 5092 deletions(-) delete mode 100644 perl-5.30.0-Remove-undefined-behavior-from-IV-shifting.patch delete mode 100644 perl-5.30.0-perl-134221-support-append-mode-for-open-.-undef.patch delete mode 100644 perl-5.30.0-perl-134266-make-sure-is-writable-when-we-write-to-i.patch delete mode 100644 perl-5.30.0-pp.c-Add-two-UNLIKELY-s.patch delete mode 100644 perl-5.30.1-handle-s-being-updated-without-len-being-updated.patch delete mode 100644 perl-5.30.1-perl-125557-correctly-handle-overload-for-bin-oct-fl.patch delete mode 100644 perl-5.30.2-Loading-IO-is-now-threadsafe-avoiding-the-core-bug-r.patch delete mode 100644 perl-5.30.2-toke.c-fix-Multidimensional-array-heuristic-to-ignor.patch delete mode 100644 perl-5.31.0-CAPTURE_ALL-was-intended-to-be-an-alias-for-make-it-.patch delete mode 100644 perl-5.31.0-Create-fcn-for-lossless-conversion-of-NV-to-IV.patch delete mode 100644 perl-5.31.0-Don-t-use-PL_check-op_type-to-check-for-filetets-ops.patch delete mode 100644 perl-5.31.0-S_scan_const-Properly-test-if-need-to-grow.patch delete mode 100644 perl-5.31.0-perl-122112-a-simpler-fix-for-pclose-aborted-by-a-si.patch delete mode 100644 perl-5.31.0-perl-122112-remove-some-interfering-debug-output.patch delete mode 100644 perl-5.31.0-perl-122112-test-for-signal-handler-death-in-pclose.patch delete mode 100644 perl-5.31.0-perl-133913-limit-numeric-format-results-to-INT_MAX.patch delete mode 100644 perl-5.31.0-perl-133936-document-differences-between-IO-Socket-a.patch delete mode 100644 perl-5.31.0-perl-133936-ensure-TO-is-honoured-for-UDP-sock-send.patch delete mode 100644 perl-5.31.0-perl-133936-make-send-a-bit-saner.patch delete mode 100644 perl-5.31.0-perl-134008-an-alternative-test.patch delete mode 100644 perl-5.31.0-perl-134072-allow-foo-bar-to-work-in-main.patch delete mode 100644 perl-5.31.0-perl-134193-allow-CAPTURE-to-work-when-CAPTURE-comes.patch delete mode 100644 perl-5.31.0-perl-134193-make-the-varname-match-the-names.patch delete mode 100644 perl-5.31.1-avoid-SEGV-with-uninit-warning-with-multideref.patch delete mode 100644 perl-5.31.1-perl-122112-make-sure-SIGPIPE-is-delivered-if-we-tes.patch delete mode 100644 perl-5.31.1-perl-134221-support-O_APPEND-for-open-.-undef-on-VMS.patch delete mode 100644 perl-5.31.1-perl-134221-support-append-mode-temp-files-on-Win32-.patch delete mode 100644 perl-5.31.2-PerlIO-Via-check-arg-is-non-NULL-before-using-it.patch delete mode 100644 perl-5.31.2-Run-tests-in-ext-File-Find-t-in-series.patch delete mode 100644 perl-5.31.2-include-a-trailing-0-in-SVs-holding-trie-info.patch delete mode 100644 perl-5.31.2-locale.c-Stop-Coverity-warning.patch delete mode 100644 perl-5.31.2-perl-134291-propagate-non-PVs-in-in-bare-die.patch delete mode 100644 perl-5.31.2-perlapi-5.30-promise-not-met-change-to-5.32.patch delete mode 100644 perl-5.31.2-regcomp.c-Don-t-read-off-the-end-of-buffer.patch delete mode 100644 perl-5.31.3-Configure-Include-stdlib.h-in-futimes-check.patch delete mode 100644 perl-5.31.3-Florian-Weimer-is-now-a-perl-author.patch delete mode 100644 perl-5.31.3-Supply-missing-right-brace-in-regex-example.patch delete mode 100644 perl-5.31.3-perl-134230-don-t-interpret-0x-0b-when-numifying-str.patch delete mode 100644 perl-5.31.3-regcomp.c-Fix-wrong-limit-test.patch delete mode 100644 perl-5.31.4-Handle-undefined-values-correctly.patch delete mode 100644 perl-5.31.5-Be-clearer-about-taint-s-effect-on-INC.patch delete mode 100644 perl-5.31.5-Fix-taint-mode-INC-documentation.patch delete mode 100644 perl-5.31.5-Tie-StdHandle-BINMODE-handle-layer-argument.patch delete mode 100644 perl-5.31.5-prevent-a-race-between-name-based-stat-and-an-open-m.patch delete mode 100644 perl-5.31.5-toke.c-Fix-bug-tr-upgrading-to-UTF-8-in-middle.patch delete mode 100644 perl-5.31.5-toke.c-comment-changes.patch delete mode 100644 perl-5.31.6-PATCH-GH-17081-Workaround-glibc-bug-with-LC_MESSAGES.patch delete mode 100644 perl-5.31.7-Add-tests-for-IO-Handle-getline-and-getlines.patch delete mode 100644 perl-5.31.7-POSIX.pod-Update-setlocale-docs.patch delete mode 100644 perl-5.31.7-Skip-the-new-open-pragma-tests-for-no-utf8-under-PER.patch delete mode 100644 perl-5.31.7-error-check-the-calls-to-sigaddset-in-POSIX-SigSet-n.patch delete mode 100644 perl-5.31.8-only-install-ExtUtils-XSSymSet-man-page-on-VMS.patch delete mode 100644 perl-5.31.8-perlio.c-make-unix-close-method-call-underlaying-lay.patch delete mode 100644 perl-5.31.8-perltie.pod-rework-example-code-so-EXTEND-is-a-no-op.patch delete mode 100644 perl-5.31.8-pp_sort.c-fix-fencepost-error-in-call-to-av_extend.patch delete mode 100644 perl-5.31.9-B-Deparse-fixup-uninitialized-error-in-deparsing-wei.patch diff --git a/.gitignore b/.gitignore index 893d364..b0f9ca0 100644 --- a/.gitignore +++ b/.gitignore @@ -34,3 +34,4 @@ perl-5.12.1.tar.gz /perl-5.30.1.tar.xz /perl-5.30.2.tar.xz /perl-5.30.3.tar.xz +/perl-5.32.0.tar.xz diff --git a/gendep.macros b/gendep.macros index f9d0f55..cb2cdc0 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.32 \ -Provides: perl(Archive::Tar::Constant) = 2.32 \ -Provides: perl(Archive::Tar::File) = 2.32 \ +Provides: perl(Archive::Tar) = 2.36 \ +Provides: perl(Archive::Tar::Constant) = 2.36 \ +Provides: perl(Archive::Tar::File) = 2.36 \ %{nil} %global gendep_perl_Attribute_Handlers \ Requires: perl(:VERSION) >= 5.6.0 \ @@ -62,11 +62,11 @@ Requires: perl(feature) \ Requires: perl(re) \ Requires: perl(strict) \ Requires: perl(warnings) \ -Provides: perl(B) = 1.76 \ +Provides: perl(B) = 1.80 \ Provides: perl(B::Concise) = 1.004 \ -Provides: perl(B::Deparse) = 1.49 \ +Provides: perl(B::Deparse) = 1.54 \ Provides: perl(B::OBJECT) \ -Provides: perl(B::Op_private) = 5.030002 \ +Provides: perl(B::Op_private) = 5.032000 \ Provides: perl(B::Showlex) = 1.05 \ Provides: perl(B::Terse) = 1.09 \ Provides: perl(B::Xref) = 1.07 \ @@ -78,7 +78,7 @@ Provides: perl(O) = 1.03 \ Requires: perl(Carp) \ Requires: perl(Exporter) \ Requires: perl(strict) \ -Provides: perl(Benchmark) = 1.22 \ +Provides: perl(Benchmark) = 1.23 \ %{nil} %global gendep_perl_CPAN \ Requires: perl(:VERSION) >= 5.6.0 \ @@ -129,6 +129,7 @@ Requires: perl(FileHandle) \ Requires: perl(Getopt::Std) \ Requires: perl(HTTP::Tiny) >= 0.005 \ Requires: perl(Net::Ping) \ +Requires: perl(POSIX) \ Requires: perl(Safe) \ Requires: perl(Sys::Hostname) \ Requires: perl(Text::ParseWords) \ @@ -140,15 +141,15 @@ Requires: perl(overload) \ Requires: perl(strict) \ Requires: perl(vars) \ Requires: perl(warnings) \ -Provides: perl(App::Cpan) = 1.672 \ -Provides: perl(CPAN) = 2.22 \ +Provides: perl(App::Cpan) = 1.675 \ +Provides: perl(CPAN) = 2.27 \ Provides: perl(CPAN::Author) = 5.5002 \ -Provides: perl(CPAN::Bundle) = 5.5003 \ +Provides: perl(CPAN::Bundle) = 5.5005 \ Provides: perl(CPAN::CacheMgr) = 5.5002 \ Provides: perl(CPAN::Complete) = 5.5001 \ Provides: perl(CPAN::Debug) = 5.5001 \ Provides: perl(CPAN::DeferredCode) = 5.50 \ -Provides: perl(CPAN::Distribution) = 2.22 \ +Provides: perl(CPAN::Distribution) = 2.27 \ Provides: perl(CPAN::Distroprefs) = 6.0001 \ Provides: perl(CPAN::Distroprefs::Iterator) \ Provides: perl(CPAN::Distroprefs::Pref) \ @@ -164,27 +165,27 @@ 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.5011 \ +Provides: perl(CPAN::FTP) = 5.5012 \ Provides: perl(CPAN::FTP::netrc) = 1.01 \ -Provides: perl(CPAN::FirstTime) = 5.5311 \ +Provides: perl(CPAN::FirstTime) = 5.5314 \ Provides: perl(CPAN::HTTP::Client) = 1.9601 \ Provides: perl(CPAN::HTTP::Credentials) = 1.9601 \ -Provides: perl(CPAN::HandleConfig) = 5.5008 \ +Provides: perl(CPAN::HandleConfig) = 5.5011 \ Provides: perl(CPAN::Index) = 2.12 \ Provides: perl(CPAN::InfoObj) = 5.5 \ Provides: perl(CPAN::Kwalify) = 5.50 \ Provides: perl(CPAN::LWP::UserAgent) = 1.9601 \ Provides: perl(CPAN::Mirrored::By) \ -Provides: perl(CPAN::Mirrors) = 2.21 \ +Provides: perl(CPAN::Mirrors) = 2.27 \ Provides: perl(CPAN::Module) = 5.5003 \ Provides: perl(CPAN::Nox) = 5.5001 \ Provides: perl(CPAN::Plugin) = 0.97 \ Provides: perl(CPAN::Plugin::Specfile) = 0.02 \ Provides: perl(CPAN::Prompt) = 5.5 \ -Provides: perl(CPAN::Queue) = 5.5002 \ +Provides: perl(CPAN::Queue) = 5.5003 \ Provides: perl(CPAN::Queue::Item) \ -Provides: perl(CPAN::Shell) = 5.5008 \ -Provides: perl(CPAN::Tarzip) = 5.5012 \ +Provides: perl(CPAN::Shell) = 5.5009 \ +Provides: perl(CPAN::Tarzip) = 5.5013 \ Provides: perl(CPAN::URL) = 5.5 \ Provides: perl(CPAN::Version) = 5.5003 \ %{nil} @@ -244,7 +245,7 @@ Requires: perl(Carp) \ Requires: perl(Exporter) \ Requires: perl(strict) \ Requires: perl(warnings::register) \ -Provides: perl(Class::Struct) = 0.65 \ +Provides: perl(Class::Struct) = 0.66 \ Provides: perl(Class::Struct::Tie_ISA) \ %{nil} %global gendep_perl_Compress_Raw_Bzip2 \ @@ -255,7 +256,7 @@ Requires: perl(bytes) \ Requires: perl(constant) \ Requires: perl(strict) \ Requires: perl(warnings) \ -Provides: perl(Compress::Raw::Bzip2) = 2.089 \ +Provides: perl(Compress::Raw::Bzip2) = 2.093 \ %{nil} %global gendep_perl_Compress_Raw_Bzip2_debuginfo \ %{nil} @@ -267,7 +268,7 @@ Requires: perl(bytes) \ Requires: perl(constant) \ Requires: perl(strict) \ Requires: perl(warnings) \ -Provides: perl(Compress::Raw::Zlib) = 2.084 \ +Provides: perl(Compress::Raw::Zlib) = 2.093 \ %{nil} %global gendep_perl_Compress_Raw_Zlib_debuginfo \ %{nil} @@ -304,7 +305,7 @@ Requires: perl(File::Spec) \ Requires: perl(Tie::Hash) \ Requires: perl(strict) \ Requires: perl(warnings) \ -Provides: perl(DB_File) = 1.843 \ +Provides: perl(DB_File) = 1.853 \ Provides: perl(DB_File::BTREEINFO) \ Provides: perl(DB_File::HASHINFO) \ Provides: perl(DB_File::RECNOINFO) \ @@ -323,7 +324,7 @@ Provides: perl(Data::Dumper) = 2.174 \ %global gendep_perl_Devel_PPPort \ Requires: perl(strict) \ Requires: perl(vars) \ -Provides: perl(Devel::PPPort) = 3.52 \ +Provides: perl(Devel::PPPort) = 3.57 \ %{nil} %global gendep_perl_Devel_Peek \ Requires: perl(Exporter) \ @@ -378,11 +379,12 @@ Provides: perl(DirHandle) = 1.05 \ %global gendep_perl_Dumpvalue \ Requires: perl(:VERSION) >= 5.6.0 \ Requires: perl(strict) \ -Provides: perl(Dumpvalue) = 1.19 \ +Requires: perl(warnings) \ +Provides: perl(Dumpvalue) = 1.21 \ %{nil} %global gendep_perl_DynaLoader \ Requires: perl(Config) \ -Provides: perl(DynaLoader) = 1.45 \ +Provides: perl(DynaLoader) = 1.47 \ %{nil} %global gendep_perl_Encode \ Requires: perl(:VERSION) >= 5.8.0 \ @@ -416,7 +418,7 @@ Requires: perl(strict) \ Requires: perl(utf8) \ Requires: perl(vars) \ Requires: perl(warnings) \ -Provides: perl(Encode) = 3.01 \ +Provides: perl(Encode) = 3.06 \ Provides: perl(Encode::Alias) = 2.24 \ Provides: perl(Encode::Byte) = 2.4 \ Provides: perl(Encode::CJKConstants) = 2.2 \ @@ -427,7 +429,7 @@ 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::Guess) = 2.7 \ +Provides: perl(Encode::Guess) = 2.8 \ Provides: perl(Encode::Internal) \ Provides: perl(Encode::JP) = 2.4 \ Provides: perl(Encode::JP::H2Z) = 2.2 \ @@ -458,7 +460,7 @@ Requires: perl(warnings) \ %{nil} %global gendep_perl_English \ Requires: perl(Exporter) \ -Provides: perl(English) = 1.10 \ +Provides: perl(English) = 1.11 \ %{nil} %global gendep_perl_Env \ Requires: perl(Config) \ @@ -477,7 +479,7 @@ Provides: perl(Errno) = 1.30 \ Requires: perl(:VERSION) >= 5.6.0 \ Requires: perl(Exporter) \ Requires: perl(strict) \ -Provides: perl(Exporter) = 5.73 \ +Provides: perl(Exporter) = 5.74 \ Provides: perl(Exporter::Heavy) \ %{nil} %global gendep_perl_ExtUtils_CBuilder \ @@ -497,28 +499,28 @@ Requires: perl(Text::ParseWords) \ Requires: perl(strict) \ Requires: perl(vars) \ Requires: perl(warnings) \ -Provides: perl(ExtUtils::CBuilder) = 0.280231 \ -Provides: perl(ExtUtils::CBuilder::Base) = 0.280231 \ -Provides: perl(ExtUtils::CBuilder::Platform::Unix) = 0.280231 \ -Provides: perl(ExtUtils::CBuilder::Platform::VMS) = 0.280231 \ -Provides: perl(ExtUtils::CBuilder::Platform::Windows) = 0.280231 \ -Provides: perl(ExtUtils::CBuilder::Platform::Windows::BCC) = 0.280231 \ -Provides: perl(ExtUtils::CBuilder::Platform::Windows::GCC) = 0.280231 \ -Provides: perl(ExtUtils::CBuilder::Platform::Windows::MSVC) = 0.280231 \ -Provides: perl(ExtUtils::CBuilder::Platform::aix) = 0.280231 \ -Provides: perl(ExtUtils::CBuilder::Platform::android) = 0.280231 \ -Provides: perl(ExtUtils::CBuilder::Platform::cygwin) = 0.280231 \ -Provides: perl(ExtUtils::CBuilder::Platform::darwin) = 0.280231 \ -Provides: perl(ExtUtils::CBuilder::Platform::dec_osf) = 0.280231 \ +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::Platform::linux) = 0.280206 \ -Provides: perl(ExtUtils::CBuilder::Platform::os2) = 0.280231 \ +Provides: perl(ExtUtils::CBuilder::Platform::os2) = 0.280234 \ %{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.34 \ +Provides: perl(ExtUtils::Command) = 7.44 \ %{nil} %global gendep_perl_ExtUtils_Constant \ Requires: perl(Carp) \ @@ -599,34 +601,34 @@ Requires: perl(lib) \ Requires: perl(strict) \ Requires: perl(vars) \ Requires: perl(warnings) \ -Provides: perl(ExtUtils::Command::MM) = 7.34 \ -Provides: perl(ExtUtils::Liblist) = 7.34 \ -Provides: perl(ExtUtils::Liblist::Kid) = 7.34 \ -Provides: perl(ExtUtils::MM) = 7.34 \ -Provides: perl(ExtUtils::MM_AIX) = 7.34 \ -Provides: perl(ExtUtils::MM_Any) = 7.34 \ -Provides: perl(ExtUtils::MM_BeOS) = 7.34 \ -Provides: perl(ExtUtils::MM_Cygwin) = 7.34 \ -Provides: perl(ExtUtils::MM_DOS) = 7.34 \ -Provides: perl(ExtUtils::MM_Darwin) = 7.34 \ -Provides: perl(ExtUtils::MM_MacOS) = 7.34 \ -Provides: perl(ExtUtils::MM_NW5) = 7.34 \ -Provides: perl(ExtUtils::MM_OS2) = 7.34 \ -Provides: perl(ExtUtils::MM_QNX) = 7.34 \ -Provides: perl(ExtUtils::MM_UWIN) = 7.34 \ -Provides: perl(ExtUtils::MM_Unix) = 7.34 \ -Provides: perl(ExtUtils::MM_VMS) = 7.34 \ -Provides: perl(ExtUtils::MM_VOS) = 7.34 \ -Provides: perl(ExtUtils::MM_Win32) = 7.34 \ -Provides: perl(ExtUtils::MM_Win95) = 7.34 \ -Provides: perl(ExtUtils::MY) = 7.34 \ -Provides: perl(ExtUtils::MakeMaker) = 7.34 \ -Provides: perl(ExtUtils::MakeMaker::Config) = 7.34 \ -Provides: perl(ExtUtils::MakeMaker::Locale) = 7.34 \ -Provides: perl(ExtUtils::MakeMaker::version) = 7.34 \ -Provides: perl(ExtUtils::Mkbootstrap) = 7.34 \ -Provides: perl(ExtUtils::Mksymlists) = 7.34 \ -Provides: perl(ExtUtils::testlib) = 7.34 \ +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(MM) \ Provides: perl(MY) \ %{nil} @@ -746,7 +748,7 @@ Requires: perl(File::Spec) \ Requires: perl(strict) \ Requires: perl(warnings) \ Requires: perl(warnings::register) \ -Provides: perl(File::Find) = 1.36 \ +Provides: perl(File::Find) = 1.37 \ %{nil} %global gendep_perl_File_Path \ Requires: perl(:VERSION) >= 5.5.0 \ @@ -788,7 +790,7 @@ Requires: perl(overload) \ Requires: perl(strict) \ Requires: perl(warnings) \ Requires: perl(warnings::register) \ -Provides: perl(File::stat) = 1.08 \ +Provides: perl(File::stat) = 1.09 \ %{nil} %global gendep_perl_FileCache \ Requires: perl(:VERSION) >= 5.6.0 \ @@ -816,7 +818,7 @@ Provides: perl(Filter::Util::Call) = 1.59 \ Requires: perl(Carp) \ Requires: perl(Filter::Util::Call) \ Requires: perl(Text::Balanced) \ -Provides: perl(Filter::Simple) = 0.95 \ +Provides: perl(Filter::Simple) = 0.96 \ %{nil} %global gendep_perl_Filter_debuginfo \ %{nil} @@ -848,7 +850,7 @@ Requires: perl(overload) \ Requires: perl(strict) \ Requires: perl(vars) \ Requires: perl(warnings) \ -Provides: perl(Getopt::Long) = 2.50 \ +Provides: perl(Getopt::Long) = 2.51 \ Provides: perl(Getopt::Long::CallBack) \ Provides: perl(Getopt::Long::Parser) \ %{nil} @@ -873,7 +875,7 @@ Requires: perl(Scalar::Util) \ Requires: perl(strict) \ Requires: perl(warnings) \ Requires: perl(warnings::register) \ -Provides: perl(Hash::Util) = 0.22 \ +Provides: perl(Hash::Util) = 0.23 \ %{nil} %global gendep_perl_Hash_Util_FieldHash \ Requires: perl(:VERSION) >= 5.9.4 \ @@ -900,8 +902,8 @@ Requires: perl(:VERSION) >= 5.0.0 \ Requires: perl(Exporter) \ Requires: perl(I18N::LangTags) \ Requires: perl(strict) \ -Provides: perl(I18N::LangTags) = 0.43 \ -Provides: perl(I18N::LangTags::Detect) = 1.07 \ +Provides: perl(I18N::LangTags) = 0.44 \ +Provides: perl(I18N::LangTags::Detect) = 1.08 \ Provides: perl(I18N::LangTags::List) = 0.40 \ %{nil} %global gendep_perl_I18N_Langinfo \ @@ -911,7 +913,7 @@ Requires: perl(Exporter) \ Requires: perl(XSLoader) \ Requires: perl(strict) \ Requires: perl(warnings) \ -Provides: perl(I18N::Langinfo) = 0.18 \ +Provides: perl(I18N::Langinfo) = 0.19 \ %{nil} %global gendep_perl_I18N_Langinfo_debuginfo \ %{nil} @@ -938,51 +940,53 @@ Requires: perl(XSLoader) \ Requires: perl(strict) \ Requires: perl(warnings) \ Requires: perl(warnings::register) \ -Provides: perl(IO) = 1.40 \ -Provides: perl(IO::Dir) = 1.40 \ -Provides: perl(IO::File) = 1.40 \ -Provides: perl(IO::Handle) = 1.40 \ -Provides: perl(IO::Pipe) = 1.40 \ +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::Pipe::End) \ -Provides: perl(IO::Poll) = 1.40 \ -Provides: perl(IO::Seekable) = 1.40 \ -Provides: perl(IO::Select) = 1.40 \ -Provides: perl(IO::Socket) = 1.40 \ -Provides: perl(IO::Socket::INET) = 1.40 \ -Provides: perl(IO::Socket::UNIX) = 1.40 \ +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 \ %{nil} %global gendep_perl_IO_Compress \ Requires: perl(:VERSION) >= 5.6.0 \ Requires: perl(Carp) \ -Requires: perl(Compress::Raw::Bzip2) >= 2.084 \ -Requires: perl(Compress::Raw::Zlib) >= 2.084 \ +Requires: perl(Compress::Raw::Bzip2) >= 2.093 \ +Requires: perl(Compress::Raw::Zlib) >= 2.093 \ Requires: perl(Config) \ Requires: perl(Encode) \ Requires: perl(Exporter) \ Requires: perl(Fcntl) \ Requires: perl(File::GlobMapper) \ Requires: perl(File::Spec) \ -Requires: perl(IO::Compress::Adapter::Bzip2) >= 2.084 \ -Requires: perl(IO::Compress::Adapter::Deflate) >= 2.084 \ -Requires: perl(IO::Compress::Adapter::Identity) >= 2.084 \ -Requires: perl(IO::Compress::Base) >= 2.084 \ -Requires: perl(IO::Compress::Base::Common) >= 2.084 \ -Requires: perl(IO::Compress::Gzip) >= 2.084 \ -Requires: perl(IO::Compress::Gzip::Constants) >= 2.084 \ -Requires: perl(IO::Compress::RawDeflate) >= 2.084 \ -Requires: perl(IO::Compress::Zip::Constants) >= 2.084 \ -Requires: perl(IO::Compress::Zlib::Constants) >= 2.084 \ -Requires: perl(IO::Compress::Zlib::Extra) >= 2.084 \ +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::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::File) \ Requires: perl(IO::Handle) \ -Requires: perl(IO::Uncompress::Adapter::Bunzip2) >= 2.084 \ -Requires: perl(IO::Uncompress::Adapter::Identity) >= 2.084 \ -Requires: perl(IO::Uncompress::Adapter::Inflate) >= 2.084 \ -Requires: perl(IO::Uncompress::Base) >= 2.084 \ -Requires: perl(IO::Uncompress::Gunzip) >= 2.084 \ -Requires: perl(IO::Uncompress::Inflate) >= 2.084 \ -Requires: perl(IO::Uncompress::RawInflate) >= 2.084 \ -Requires: perl(IO::Uncompress::Unzip) >= 2.084 \ +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(List::Util) \ Requires: perl(POSIX) \ Requires: perl(Scalar::Util) \ @@ -992,34 +996,34 @@ Requires: perl(constant) \ Requires: perl(strict) \ Requires: perl(utf8) \ Requires: perl(warnings) \ -Provides: perl(Compress::Zlib) = 2.084 \ +Provides: perl(Compress::Zlib) = 2.093 \ Provides: perl(File::GlobMapper) = 1.001 \ -Provides: perl(IO::Compress::Adapter::Bzip2) = 2.084 \ -Provides: perl(IO::Compress::Adapter::Deflate) = 2.084 \ -Provides: perl(IO::Compress::Adapter::Identity) = 2.084 \ -Provides: perl(IO::Compress::Base) = 2.084 \ -Provides: perl(IO::Compress::Base::Common) = 2.084 \ -Provides: perl(IO::Compress::Bzip2) = 2.084 \ -Provides: perl(IO::Compress::Deflate) = 2.084 \ -Provides: perl(IO::Compress::Gzip) = 2.084 \ -Provides: perl(IO::Compress::Gzip::Constants) = 2.084 \ -Provides: perl(IO::Compress::RawDeflate) = 2.084 \ -Provides: perl(IO::Compress::Zip) = 2.084 \ -Provides: perl(IO::Compress::Zip::Constants) = 2.084 \ -Provides: perl(IO::Compress::Zlib::Constants) = 2.084 \ -Provides: perl(IO::Compress::Zlib::Extra) = 2.084 \ -Provides: perl(IO::Uncompress::Adapter::Bunzip2) = 2.084 \ -Provides: perl(IO::Uncompress::Adapter::Identity) = 2.084 \ -Provides: perl(IO::Uncompress::Adapter::Inflate) = 2.084 \ -Provides: perl(IO::Uncompress::AnyInflate) = 2.084 \ -Provides: perl(IO::Uncompress::AnyUncompress) = 2.084 \ -Provides: perl(IO::Uncompress::Base) = 2.084 \ +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::Uncompress::Bunzip2) \ -Provides: perl(IO::Uncompress::Bunzip2) = 2.084 \ -Provides: perl(IO::Uncompress::Gunzip) = 2.084 \ -Provides: perl(IO::Uncompress::Inflate) = 2.084 \ -Provides: perl(IO::Uncompress::RawInflate) = 2.084 \ -Provides: perl(IO::Uncompress::Unzip) = 2.084 \ +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(U64) \ Provides: perl(Zlib::OldDeflate) \ Provides: perl(Zlib::OldInflate) \ @@ -1060,7 +1064,7 @@ Requires: perl(Text::ParseWords) \ Requires: perl(constant) \ Requires: perl(strict) \ Requires: perl(vars) \ -Provides: perl(IPC::Cmd) = 1.02 \ +Provides: perl(IPC::Cmd) = 1.04 \ %{nil} %global gendep_perl_IPC_Open3 \ Requires: perl(:VERSION) >= 5.0.0 \ @@ -1070,8 +1074,8 @@ Requires: perl(IPC::Open3) \ Requires: perl(Symbol) \ Requires: perl(constant) \ Requires: perl(strict) \ -Provides: perl(IPC::Open2) = 1.04 \ -Provides: perl(IPC::Open3) = 1.20 \ +Provides: perl(IPC::Open2) = 1.05 \ +Provides: perl(IPC::Open3) = 1.21 \ %{nil} %global gendep_perl_IPC_SysV \ Requires: perl(Carp) \ @@ -1094,6 +1098,7 @@ Provides: perl(IPC::SysV) = 2.07 \ %global gendep_perl_JSON_PP \ Requires: perl(:VERSION) >= 5.5.0 \ Requires: perl(Carp) \ +Requires: perl(Encode) \ Requires: perl(Exporter) \ Requires: perl(Getopt::Long) \ Requires: perl(JSON::PP) \ @@ -1102,8 +1107,8 @@ Requires: perl(bytes) \ Requires: perl(constant) \ Requires: perl(overload) \ Requires: perl(strict) \ -Provides: perl(JSON::PP) = 4.02 \ -Provides: perl(JSON::PP::Boolean) = 4.02 \ +Provides: perl(JSON::PP) = 4.04 \ +Provides: perl(JSON::PP::Boolean) = 4.04 \ Provides: perl(JSON::PP::IncrParser) = 1.01 \ %{nil} %global gendep_perl_Locale_Maketext \ @@ -1146,10 +1151,10 @@ Requires: perl(integer) \ Requires: perl(overload) \ Requires: perl(strict) \ Requires: perl(warnings) \ -Provides: perl(Math::BigFloat) = 1.999816 \ -Provides: perl(Math::BigInt) = 1.999816 \ -Provides: perl(Math::BigInt::Calc) = 1.999816 \ -Provides: perl(Math::BigInt::Lib) = 1.999816 \ +Provides: perl(Math::BigFloat) = 1.999818 \ +Provides: perl(Math::BigInt) = 1.999818 \ +Provides: perl(Math::BigInt::Calc) = 1.999818 \ +Provides: perl(Math::BigInt::Lib) = 1.999818 \ %{nil} %global gendep_perl_Math_BigInt_FastCalc \ Requires: perl(:VERSION) >= 5.6.0 \ @@ -1157,7 +1162,7 @@ Requires: perl(Math::BigInt::Calc) >= 1.999801 \ Requires: perl(XSLoader) \ Requires: perl(strict) \ Requires: perl(warnings) \ -Provides: perl(Math::BigInt::FastCalc) = 0.5008 \ +Provides: perl(Math::BigInt::FastCalc) = 0.5009 \ %{nil} %global gendep_perl_Math_BigInt_FastCalc_debuginfo \ %{nil} @@ -1204,8 +1209,8 @@ Requires: perl(Module::CoreList) \ Requires: perl(strict) \ Requires: perl(version) \ Requires: perl(warnings) \ -Provides: perl(Module::CoreList) = 5.20200314 \ -Provides: perl(Module::CoreList::Utils) = 5.20200314 \ +Provides: perl(Module::CoreList) = 5.20200620 \ +Provides: perl(Module::CoreList::Utils) = 5.20200620 \ %{nil} %global gendep_perl_Module_CoreList_tools \ Requires: perl(Getopt::Long) \ @@ -1234,7 +1239,7 @@ Requires: perl(constant) \ Requires: perl(strict) \ Requires: perl(vars) \ Requires: perl(version) \ -Provides: perl(Module::Load::Conditional) = 0.68 \ +Provides: perl(Module::Load::Conditional) = 0.70 \ %{nil} %global gendep_perl_Module_Loaded \ Requires: perl(Carp) \ @@ -1249,7 +1254,7 @@ Requires: perl(File::Spec) \ Requires: perl(strict) \ Requires: perl(version) >= 0.87 \ Requires: perl(warnings) \ -Provides: perl(Module::Metadata) = 1.000036 \ +Provides: perl(Module::Metadata) = 1.000037 \ %{nil} %global gendep_perl_NDBM_File \ Requires: perl(Tie::Hash) \ @@ -1296,7 +1301,7 @@ Requires: perl(Socket) \ Requires: perl(Time::HiRes) \ Requires: perl(constant) \ Requires: perl(strict) \ -Provides: perl(Net::Ping) = 2.71 \ +Provides: perl(Net::Ping) = 2.72 \ %{nil} %global gendep_perl_ODBM_File \ Requires: perl(Tie::Hash) \ @@ -1315,7 +1320,7 @@ Requires: perl(Opcode) \ Requires: perl(XSLoader) \ Requires: perl(strict) \ Requires: perl(subs) \ -Provides: perl(Opcode) = 1.43 \ +Provides: perl(Opcode) = 1.47 \ Provides: perl(ops) = 1.02 \ %{nil} %global gendep_perl_Opcode_debuginfo \ @@ -1327,7 +1332,7 @@ Requires: perl(Tie::Hash) \ Requires: perl(XSLoader) \ Requires: perl(strict) \ Requires: perl(warnings) \ -Provides: perl(POSIX) = 1.88 \ +Provides: perl(POSIX) = 1.94 \ Provides: perl(POSIX::SigAction) \ Provides: perl(POSIX::SigRt) \ Provides: perl(POSIX::SigSet) \ @@ -1358,7 +1363,7 @@ 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.78 \ +Provides: perl(File::Spec::Win32) = 3.79 \ %{nil} %global gendep_perl_PathTools_debuginfo \ %{nil} @@ -1415,38 +1420,9 @@ Requires: perl(locale) \ Requires: perl(parent) \ Requires: perl(strict) \ Requires: perl(warnings) \ -Provides: perl(Pod::Html) = 1.24 \ +Provides: perl(Pod::Html) = 1.25 \ Provides: perl(Pod::Simple::XHTML::LocalPodLinks) \ %{nil} -%global gendep_perl_Pod_Parser \ -Requires: perl(:VERSION) >= 5.5.0 \ -Requires: perl(Carp) \ -Requires: perl(Cwd) \ -Requires: perl(Exporter) \ -Requires: perl(File::Find) \ -Requires: perl(File::Spec) \ -Requires: perl(Getopt::Long) \ -Requires: perl(Pod::InputObjects) \ -Requires: perl(Pod::Parser) >= 1.04 \ -Requires: perl(Pod::Select) \ -Requires: perl(Pod::Usage) \ -Requires: perl(strict) \ -Requires: perl(vars) \ -Provides: perl(Pod::Cache) \ -Provides: perl(Pod::Cache::Item) \ -Provides: perl(Pod::Find) = 1.63 \ -Provides: perl(Pod::Hyperlink) \ -Provides: perl(Pod::InputObjects) = 1.63 \ -Provides: perl(Pod::InputSource) \ -Provides: perl(Pod::InteriorSequence) \ -Provides: perl(Pod::List) \ -Provides: perl(Pod::Paragraph) \ -Provides: perl(Pod::ParseTree) \ -Provides: perl(Pod::ParseUtils) = 1.63 \ -Provides: perl(Pod::Parser) = 1.63 \ -Provides: perl(Pod::PlainText) = 2.07 \ -Provides: perl(Pod::Select) = 1.63 \ -%{nil} %global gendep_perl_Pod_Perldoc \ Requires: perl(:VERSION) >= 5.0.0 \ Requires: perl(:VERSION) >= 5.6.0 \ @@ -1509,38 +1485,41 @@ Requires: perl(Pod::Simple::PullParserToken) \ Requires: perl(Pod::Simple::Search) \ Requires: perl(Symbol) \ Requires: perl(Text::Wrap) >= 98.112902 \ +Requires: perl(if) \ Requires: perl(integer) \ Requires: perl(overload) \ Requires: perl(strict) \ Requires: perl(vars) \ -Provides: perl(Pod::Simple) = 3.35 \ -Provides: perl(Pod::Simple::BlackBox) = 3.35 \ -Provides: perl(Pod::Simple::Checker) = 3.35 \ -Provides: perl(Pod::Simple::Debug) = 3.35 \ -Provides: perl(Pod::Simple::DumpAsText) = 3.35 \ -Provides: perl(Pod::Simple::DumpAsXML) = 3.35 \ -Provides: perl(Pod::Simple::HTML) = 3.35 \ -Provides: perl(Pod::Simple::HTMLBatch) = 3.35 \ +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::HTMLLegacy) = 5.01 \ -Provides: perl(Pod::Simple::LinkSection) = 3.35 \ -Provides: perl(Pod::Simple::Methody) = 3.35 \ -Provides: perl(Pod::Simple::Progress) = 3.35 \ -Provides: perl(Pod::Simple::PullParser) = 3.35 \ -Provides: perl(Pod::Simple::PullParserEndToken) = 3.35 \ -Provides: perl(Pod::Simple::PullParserStartToken) = 3.35 \ -Provides: perl(Pod::Simple::PullParserTextToken) = 3.35 \ -Provides: perl(Pod::Simple::PullParserToken) = 3.35 \ -Provides: perl(Pod::Simple::RTF) = 3.35 \ -Provides: perl(Pod::Simple::Search) = 3.35 \ -Provides: perl(Pod::Simple::SimpleTree) = 3.35 \ -Provides: perl(Pod::Simple::Text) = 3.35 \ -Provides: perl(Pod::Simple::TextContent) = 3.35 \ -Provides: perl(Pod::Simple::TiedOutFH) = 3.35 \ -Provides: perl(Pod::Simple::Transcode) = 3.35 \ -Provides: perl(Pod::Simple::TranscodeDumb) = 3.35 \ -Provides: perl(Pod::Simple::TranscodeSmart) = 3.35 \ -Provides: perl(Pod::Simple::XHTML) = 3.35 \ -Provides: perl(Pod::Simple::XMLOutStream) = 3.35 \ +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 \ %{nil} %global gendep_perl_Pod_Usage \ Requires: perl(:VERSION) >= 5.6.0 \ @@ -1562,7 +1541,7 @@ Requires: perl(Opcode) >= 1.01 \ Requires: perl(Scalar::Util) \ Requires: perl(strict) \ Requires: perl(utf8) \ -Provides: perl(Safe) = 2.40 \ +Provides: perl(Safe) = 2.41 \ %{nil} %global gendep_perl_Scalar_List_Utils \ Requires: perl(Exporter) \ @@ -1570,10 +1549,10 @@ Requires: perl(List::Util) \ Requires: perl(XSLoader) \ Requires: perl(strict) \ Requires: perl(warnings) \ -Provides: perl(List::Util) = 1.50 \ -Provides: perl(List::Util::XS) = 1.50 \ -Provides: perl(Scalar::Util) = 1.50 \ -Provides: perl(Sub::Util) = 1.50 \ +Provides: perl(List::Util) = 1.55 \ +Provides: perl(List::Util::XS) = 1.55 \ +Provides: perl(Scalar::Util) = 1.55 \ +Provides: perl(Sub::Util) = 1.55 \ %{nil} %global gendep_perl_Scalar_List_Utils_debuginfo \ %{nil} @@ -1594,7 +1573,7 @@ Requires: perl(:VERSION) >= 5.8.0 \ Requires: perl(Exporter) \ Requires: perl(IO::Handle) \ Requires: perl(strict) \ -Provides: perl(SelfLoader) = 1.25 \ +Provides: perl(SelfLoader) = 1.26 \ %{nil} %global gendep_perl_Socket \ Requires: perl(Carp) \ @@ -1602,15 +1581,14 @@ Requires: perl(Exporter) \ Requires: perl(XSLoader) \ Requires: perl(strict) \ Requires: perl(warnings::register) \ -Provides: perl(Socket) = 2.027 \ +Provides: perl(Socket) = 2.029 \ %{nil} %global gendep_perl_Socket_debuginfo \ %{nil} %global gendep_perl_Storable \ Requires: perl(Carp) \ Requires: perl(Exporter) \ -Requires: perl(XSLoader) \ -Provides: perl(Storable) = 3.15 \ +Provides: perl(Storable) = 3.21 \ %{nil} %global gendep_perl_Storable_debuginfo \ %{nil} @@ -1623,7 +1601,7 @@ Requires: perl(Carp) \ Requires: perl(Exporter) \ Requires: perl(strict) \ Requires: perl(warnings) \ -Provides: perl(Sys::Hostname) = 1.22 \ +Provides: perl(Sys::Hostname) = 1.23 \ %{nil} %global gendep_perl_Sys_Hostname_debuginfo \ %{nil} @@ -1640,16 +1618,16 @@ Requires: perl(strict) \ Requires: perl(vars) \ Requires: perl(warnings) \ Requires: perl(warnings::register) \ -Provides: perl(Sys::Syslog) = 0.35 \ +Provides: perl(Sys::Syslog) = 0.36 \ %{nil} %global gendep_perl_Sys_Syslog_debuginfo \ %{nil} %global gendep_perl_Term_ANSIColor \ -Requires: perl(:VERSION) >= 5.6.0 \ +Requires: perl(:VERSION) >= 5.8.0 \ Requires: perl(Exporter) \ Requires: perl(strict) \ Requires: perl(warnings) \ -Provides: perl(Term::ANSIColor) = 4.06 \ +Provides: perl(Term::ANSIColor) = 5.01 \ %{nil} %global gendep_perl_Term_Cap \ Requires: perl(strict) \ @@ -1844,73 +1822,73 @@ Requires: perl(base) \ Requires: perl(strict) \ Requires: perl(vars) \ Requires: perl(warnings) \ -Provides: perl(Test2) = 1.302162 \ -Provides: perl(Test2::API) = 1.302162 \ -Provides: perl(Test2::API::Breakage) = 1.302162 \ -Provides: perl(Test2::API::Context) = 1.302162 \ -Provides: perl(Test2::API::Instance) = 1.302162 \ -Provides: perl(Test2::API::Stack) = 1.302162 \ -Provides: perl(Test2::Event) = 1.302162 \ -Provides: perl(Test2::Event::Bail) = 1.302162 \ -Provides: perl(Test2::Event::Diag) = 1.302162 \ -Provides: perl(Test2::Event::Encoding) = 1.302162 \ -Provides: perl(Test2::Event::Exception) = 1.302162 \ -Provides: perl(Test2::Event::Fail) = 1.302162 \ -Provides: perl(Test2::Event::Generic) = 1.302162 \ -Provides: perl(Test2::Event::Note) = 1.302162 \ -Provides: perl(Test2::Event::Ok) = 1.302162 \ -Provides: perl(Test2::Event::Pass) = 1.302162 \ -Provides: perl(Test2::Event::Plan) = 1.302162 \ -Provides: perl(Test2::Event::Skip) = 1.302162 \ -Provides: perl(Test2::Event::Subtest) = 1.302162 \ -Provides: perl(Test2::Event::TAP::Version) = 1.302162 \ -Provides: perl(Test2::Event::V2) = 1.302162 \ -Provides: perl(Test2::Event::Waiting) = 1.302162 \ -Provides: perl(Test2::EventFacet) = 1.302162 \ -Provides: perl(Test2::EventFacet::About) = 1.302162 \ -Provides: perl(Test2::EventFacet::Amnesty) = 1.302162 \ -Provides: perl(Test2::EventFacet::Assert) = 1.302162 \ -Provides: perl(Test2::EventFacet::Control) = 1.302162 \ -Provides: perl(Test2::EventFacet::Error) = 1.302162 \ -Provides: perl(Test2::EventFacet::Hub) = 1.302162 \ -Provides: perl(Test2::EventFacet::Info) = 1.302162 \ -Provides: perl(Test2::EventFacet::Info::Table) \ -Provides: perl(Test2::EventFacet::Meta) = 1.302162 \ -Provides: perl(Test2::EventFacet::Parent) = 1.302162 \ -Provides: perl(Test2::EventFacet::Plan) = 1.302162 \ -Provides: perl(Test2::EventFacet::Render) = 1.302162 \ -Provides: perl(Test2::EventFacet::Trace) = 1.302162 \ -Provides: perl(Test2::Formatter) = 1.302162 \ -Provides: perl(Test2::Formatter::TAP) = 1.302162 \ -Provides: perl(Test2::Hub) = 1.302162 \ -Provides: perl(Test2::Hub::Interceptor) = 1.302162 \ -Provides: perl(Test2::Hub::Interceptor::Terminator) = 1.302162 \ -Provides: perl(Test2::Hub::Subtest) = 1.302162 \ -Provides: perl(Test2::IPC) = 1.302162 \ -Provides: perl(Test2::IPC::Driver) = 1.302162 \ -Provides: perl(Test2::IPC::Driver::Files) = 1.302162 \ -Provides: perl(Test2::Tools::Tiny) = 1.302162 \ -Provides: perl(Test2::Util) = 1.302162 \ -Provides: perl(Test2::Util::ExternalMeta) = 1.302162 \ -Provides: perl(Test2::Util::Facets2Legacy) = 1.302162 \ -Provides: perl(Test2::Util::HashBase) = 1.302162 \ -Provides: perl(Test2::Util::Trace) = 1.302162 \ -Provides: perl(Test::Builder) = 1.302162 \ -Provides: perl(Test::Builder::Formatter) = 1.302162 \ +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(Test::Builder::IO::Scalar) = 2.114 \ -Provides: perl(Test::Builder::Module) = 1.302162 \ -Provides: perl(Test::Builder::Tester) = 1.302162 \ -Provides: perl(Test::Builder::Tester::Color) = 1.302162 \ +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::Tester::Tie) \ -Provides: perl(Test::Builder::TodoDiag) = 1.302162 \ -Provides: perl(Test::More) = 1.302162 \ -Provides: perl(Test::Simple) = 1.302162 \ -Provides: perl(Test::Tester) = 1.302162 \ -Provides: perl(Test::Tester::Capture) = 1.302162 \ -Provides: perl(Test::Tester::CaptureRunner) = 1.302162 \ -Provides: perl(Test::Tester::Delegate) = 1.302162 \ -Provides: perl(Test::use::ok) = 1.302162 \ -Provides: perl(ok) = 1.302162 \ +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 \ %{nil} %global gendep_perl_Text_Abbrev \ Requires: perl(:VERSION) >= 5.5.0 \ @@ -1953,14 +1931,14 @@ Requires: perl(strict) \ Requires: perl(threads) \ Requires: perl(threads::shared) \ Requires: perl(warnings) \ -Provides: perl(Thread) = 3.04 \ +Provides: perl(Thread) = 3.05 \ %{nil} %global gendep_perl_Thread_Queue \ Requires: perl(Scalar::Util) >= 1.10 \ Requires: perl(strict) \ Requires: perl(threads::shared) >= 1.21 \ Requires: perl(warnings) \ -Provides: perl(Thread::Queue) = 3.13 \ +Provides: perl(Thread::Queue) = 3.14 \ %{nil} %global gendep_perl_Thread_Semaphore \ Requires: perl(Scalar::Util) >= 1.10 \ @@ -1979,7 +1957,7 @@ Requires: perl(strict) \ Requires: perl(warnings::register) \ Provides: perl(Tie::Array) = 1.07 \ Provides: perl(Tie::Handle) = 4.2 \ -Provides: perl(Tie::Scalar) = 1.04 \ +Provides: perl(Tie::Scalar) = 1.05 \ Provides: perl(Tie::StdArray) \ Provides: perl(Tie::StdHandle) = 4.6 \ Provides: perl(Tie::StdScalar) \ @@ -1991,7 +1969,8 @@ Requires: perl(Carp) \ Requires: perl(Fcntl) \ Requires: perl(POSIX) \ Requires: perl(strict) \ -Provides: perl(Tie::File) = 1.02 \ +Requires: perl(warnings) \ +Provides: perl(Tie::File) = 1.06 \ Provides: perl(Tie::File::Cache) \ Provides: perl(Tie::File::Heap) \ %{nil} @@ -2024,7 +2003,7 @@ Provides: perl(Time::tm) = 1.00 \ Requires: perl(Exporter) \ Requires: perl(XSLoader) \ Requires: perl(strict) \ -Provides: perl(Time::HiRes) = 1.9760 \ +Provides: perl(Time::HiRes) = 1.9764 \ %{nil} %global gendep_perl_Time_HiRes_debuginfo \ %{nil} @@ -2047,8 +2026,8 @@ Requires: perl(constant) \ Requires: perl(integer) \ Requires: perl(overload) \ Requires: perl(strict) \ -Provides: perl(Time::Piece) = 1.33 \ -Provides: perl(Time::Seconds) = 1.33 \ +Provides: perl(Time::Piece) = 1.3401 \ +Provides: perl(Time::Seconds) = 1.3401 \ %{nil} %global gendep_perl_Time_Piece_debuginfo \ %{nil} @@ -2081,7 +2060,7 @@ Requires: perl(Exporter) \ Requires: perl(XSLoader) \ Requires: perl(strict) \ Requires: perl(warnings) \ -Provides: perl(Unicode::Normalize) = 1.26 \ +Provides: perl(Unicode::Normalize) = 1.27 \ %{nil} %global gendep_perl_Unicode_Normalize_debuginfo \ %{nil} @@ -2094,9 +2073,10 @@ Requires: perl(charnames) \ Requires: perl(feature) \ Requires: perl(if) \ Requires: perl(integer) \ +Requires: perl(re) \ Requires: perl(strict) \ Requires: perl(warnings) \ -Provides: perl(Unicode::UCD) = 0.72 \ +Provides: perl(Unicode::UCD) = 0.75 \ %{nil} %global gendep_perl_User_pwent \ Requires: perl(:VERSION) >= 5.6.0 \ @@ -2127,15 +2107,15 @@ Requires: perl(overload) \ Requires: perl(parent) \ Requires: perl(strict) \ Requires: perl(warnings) \ -Provides: perl(Fatal) = 2.29 \ -Provides: perl(autodie) = 2.29 \ -Provides: perl(autodie::Scope::Guard) = 2.29 \ -Provides: perl(autodie::Scope::GuardStack) = 2.29 \ -Provides: perl(autodie::Util) = 2.29 \ -Provides: perl(autodie::exception) = 2.29002 \ -Provides: perl(autodie::exception::system) = 2.29 \ -Provides: perl(autodie::hints) = 2.29001 \ -Provides: perl(autodie::skip) = 2.29 \ +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 \ %{nil} %global gendep_perl_autouse \ Requires: perl(:VERSION) >= 5.6.0 \ @@ -2176,8 +2156,8 @@ Provides: perl(constant) = 1.33 \ %global gendep_perl_debugger \ Requires: perl(strict) \ Provides: perl(DB) = 1.08 \ -Provides: perl(dumpvar.pl) = 5.30.2 \ -Provides: perl(perl5db.pl) = 1.55 \ +Provides: perl(dumpvar.pl) = 5.32.0 \ +Provides: perl(perl5db.pl) = 1.56 \ %{nil} %global gendep_perl_debuginfo \ %{nil} @@ -2207,7 +2187,7 @@ Requires: perl(Carp) \ Requires: perl(Config) \ Requires: perl(Text::Tabs) \ Requires: perl(strict) \ -Provides: perl(diagnostics) = 1.36 \ +Provides: perl(diagnostics) = 1.37 \ %{nil} %global gendep_perl_doc \ %{nil} @@ -2217,7 +2197,7 @@ Requires: perl(Encode) \ Requires: perl(constant) \ Requires: perl(strict) \ Requires: perl(warnings) \ -Provides: perl(encoding) = 2.22 \ +Provides: perl(encoding) = 3.00 \ %{nil} %global gendep_perl_encoding_warnings \ Requires: perl(:VERSION) >= 5.7.0 \ @@ -2317,43 +2297,41 @@ Requires: perl(strict) \ Requires: perl(unicore::Name) \ Requires: perl(warnings) \ Requires: perl(warnings::register) \ -Provides: perl(:MODULE_COMPAT_5.30.0) \ -Provides: perl(:MODULE_COMPAT_5.30.1) \ -Provides: perl(:MODULE_COMPAT_5.30.2) \ -Provides: perl(:VERSION) = 5.30.2 \ +Provides: perl(:MODULE_COMPAT_5.32.0) \ +Provides: perl(:VERSION) = 5.32.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.030002 \ -Provides: perl(File::Glob) = 1.32 \ -Provides: perl(PerlIO) = 1.10 \ -Provides: perl(PerlIO::encoding) = 0.27 \ +Provides: perl(Config) = 5.032000 \ +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::via) = 0.17 \ +Provides: perl(PerlIO::via) = 0.18 \ Provides: perl(SDBM_File) = 1.15 \ Provides: perl(Tie::ExtraHash) \ Provides: perl(Tie::Hash) = 1.05 \ -Provides: perl(Tie::Hash::NamedCapture) = 0.10 \ +Provides: perl(Tie::Hash::NamedCapture) = 0.13 \ Provides: perl(Tie::StdHash) \ Provides: perl(UNIVERSAL) = 1.13 \ Provides: perl(XSLoader) = 0.30 \ -Provides: perl(_charnames) = 1.45 \ +Provides: perl(_charnames) = 1.48 \ Provides: perl(attributes) = 0.33 \ Provides: perl(bytes) = 1.07 \ Provides: perl(bytes_heavy.pl) \ -Provides: perl(charnames) = 1.45 \ -Provides: perl(feature) = 1.54 \ +Provides: perl(charnames) = 1.48 \ +Provides: perl(feature) = 1.58 \ Provides: perl(integer) = 1.01 \ -Provides: perl(re) = 0.37 \ +Provides: perl(re) = 0.40 \ Provides: perl(strict) = 1.11 \ Provides: perl(unicore::Name) \ Provides: perl(utf8) = 1.22 \ Provides: perl(utf8_heavy.pl) \ -Provides: perl(warnings) = 1.44 \ +Provides: perl(warnings) = 1.47 \ Provides: perl(warnings::register) = 1.04 \ %{nil} %global gendep_perl_libs_debuginfo \ @@ -2367,24 +2345,24 @@ Provides: perl(locale) = 1.09 \ %global gendep_perl_meta_notation \ Requires: perl(strict) \ Requires: perl(warnings) \ -Provides: perl(meta_notation) = 5.30.2 \ +Provides: perl(meta_notation) = 5.32.0 \ %{nil} %global gendep_perl_mro \ Requires: perl(XSLoader) \ Requires: perl(strict) \ Requires: perl(warnings) \ -Provides: perl(mro) = 1.22 \ +Provides: perl(mro) = 1.23 \ %{nil} %global gendep_perl_mro_debuginfo \ %{nil} %global gendep_perl_open \ Requires: perl(:VERSION) >= 5.8.1 \ Requires: perl(warnings) \ -Provides: perl(open) = 1.11 \ +Provides: perl(open) = 1.12 \ %{nil} %global gendep_perl_overload \ Requires: perl(warnings::register) \ -Provides: perl(overload) = 1.30 \ +Provides: perl(overload) = 1.31 \ %{nil} %global gendep_perl_overloading \ Requires: perl(:VERSION) >= 5.10.1 \ @@ -2394,20 +2372,21 @@ Provides: perl(overloading) = 0.02 \ %{nil} %global gendep_perl_parent \ Requires: perl(strict) \ -Provides: perl(parent) = 0.237 \ +Provides: perl(parent) = 0.238 \ %{nil} %global gendep_perl_perlfaq \ Requires: perl(strict) \ Requires: perl(warnings) \ -Provides: perl(perlfaq) = 5.20190126 \ +Provides: perl(perlfaq) = 5.20200523 \ %{nil} %global gendep_perl_ph \ -Provides: perl(sys/ioctl.ph) = 5.30.2 \ -Provides: perl(sys/syscall.ph) = 5.30.2 \ -Provides: perl(syscall.ph) = 5.30.2 \ +Provides: perl(sys/ioctl.ph) = 5.32.0 \ +Provides: perl(sys/syscall.ph) = 5.32.0 \ +Provides: perl(syscall.ph) = 5.32.0 \ %{nil} %global gendep_perl_podlators \ Requires: perl(:VERSION) >= 5.6.0 \ +Requires: perl(:VERSION) >= 5.8.0 \ Requires: perl(Carp) \ Requires: perl(Encode) \ Requires: perl(Exporter) \ @@ -2423,12 +2402,12 @@ Requires: perl(strict) \ Requires: perl(subs) \ Requires: perl(vars) \ Requires: perl(warnings) \ -Provides: perl(Pod::Man) = 4.11 \ -Provides: perl(Pod::ParseLink) = 4.11 \ -Provides: perl(Pod::Text) = 4.11 \ -Provides: perl(Pod::Text::Color) = 4.11 \ -Provides: perl(Pod::Text::Overstrike) = 4.11 \ -Provides: perl(Pod::Text::Termcap) = 4.11 \ +Provides: perl(Pod::Man) = 4.14 \ +Provides: perl(Pod::ParseLink) = 4.14 \ +Provides: perl(Pod::Text) = 4.14 \ +Provides: perl(Pod::Text::Color) = 4.14 \ +Provides: perl(Pod::Text::Overstrike) = 4.14 \ +Provides: perl(Pod::Text::Termcap) = 4.14 \ %{nil} %global gendep_perl_sigtrap \ Requires: perl(Carp) \ @@ -2451,7 +2430,7 @@ Requires: perl(XSLoader) \ Requires: perl(overload) \ Requires: perl(strict) \ Requires: perl(warnings) \ -Provides: perl(threads) = 2.22 \ +Provides: perl(threads) = 2.25 \ %{nil} %global gendep_perl_threads_debuginfo \ %{nil} @@ -2461,7 +2440,7 @@ Requires: perl(Config) \ Requires: perl(Scalar::Util) \ Requires: perl(strict) \ Requires: perl(warnings) \ -Provides: perl(threads::shared) = 1.60 \ +Provides: perl(threads::shared) = 1.61 \ %{nil} %global gendep_perl_threads_shared_debuginfo \ %{nil} diff --git a/perl-5.30.0-Remove-undefined-behavior-from-IV-shifting.patch b/perl-5.30.0-Remove-undefined-behavior-from-IV-shifting.patch deleted file mode 100644 index 31ad4cf..0000000 --- a/perl-5.30.0-Remove-undefined-behavior-from-IV-shifting.patch +++ /dev/null @@ -1,75 +0,0 @@ -From 7e5b390a008ccad094a39c350f385d58e8a5102a Mon Sep 17 00:00:00 2001 -From: Karl Williamson -Date: Fri, 3 May 2019 13:57:47 -0600 -Subject: [PATCH] Remove undefined behavior from IV shifting -MIME-Version: 1.0 -Content-Type: text/plain; charset=UTF-8 -Content-Transfer-Encoding: 8bit - -It is undefined behavior to shift a negative integer to the left. This -commit avoids that by treating the value as unsigned, then casting back -to integer for return. - -Petr Písař: Ported to 5.30.0 from -814735a391b874af8f00eaf89469e5ec7f38cd4aa. - -Signed-off-by: Petr Písař ---- - asan_ignore | 5 ----- - pp.c | 21 ++++++++++++++++++++- - 2 files changed, 20 insertions(+), 6 deletions(-) - -diff --git a/asan_ignore b/asan_ignore -index e0f5685..f520546 100644 ---- a/asan_ignore -+++ b/asan_ignore -@@ -18,11 +18,6 @@ - - fun:Perl_pp_i_* - --# Perl's << is defined as using the underlying C's << operator, with the --# same undefined behaviour for shifts greater than the word size. --# (UVs normally, IVs with 'use integer') -- --fun:Perl_pp_left_shift - - # this function numifies the field width in eg printf "%10f". - # It has its own overflow detection, so don't warn about it -diff --git a/pp.c b/pp.c -index 7afb090..3ca04e1 100644 ---- a/pp.c -+++ b/pp.c -@@ -1991,10 +1991,29 @@ static IV S_iv_shift(IV iv, int shift, bool left) - shift = -shift; - left = !left; - } -+ - if (UNLIKELY(shift >= IV_BITS)) { - return iv < 0 && !left ? -1 : 0; - } -- return left ? iv << shift : iv >> shift; -+ /* For left shifts, perl 5 has chosen to treat the value as unsigned for -+ * the * purposes of shifting, then cast back to signed. This is very -+ * different from perl 6: -+ * -+ * $ perl6 -e 'say -2 +< 5' -+ * -64 -+ * -+ * $ ./perl -le 'print -2 << 5' -+ * 18446744073709551552 -+ * */ -+ if (left) { -+ if (iv == IV_MIN) { /* Casting this to a UV is undefined behavior */ -+ return 0; -+ } -+ return (IV) (((UV) iv) << shift); -+ } -+ -+ /* Here is right shift */ -+ return iv >> shift; - } - - #define UV_LEFT_SHIFT(uv, shift) S_uv_shift(uv, shift, TRUE) --- -2.20.1 - diff --git a/perl-5.30.0-perl-134221-support-append-mode-for-open-.-undef.patch b/perl-5.30.0-perl-134221-support-append-mode-for-open-.-undef.patch deleted file mode 100644 index e954285..0000000 --- a/perl-5.30.0-perl-134221-support-append-mode-for-open-.-undef.patch +++ /dev/null @@ -1,191 +0,0 @@ -From 8e9cf86aa69cb79c91edf5ff0586f87bfe4c91bd Mon Sep 17 00:00:00 2001 -From: Tony Cook -Date: Tue, 2 Jul 2019 14:16:35 +1000 -Subject: [PATCH] (perl #134221) support append mode for open .. undef -MIME-Version: 1.0 -Content-Type: text/plain; charset=UTF-8 -Content-Transfer-Encoding: 8bit - -Petr Písař: Ported to 5.30.0 from -45b29440d38be155c5177c8d6f9a5d4e7c2c098c. - -Signed-off-by: Petr Písař ---- - doio.c | 15 +++++++++++++++ - embed.fnc | 1 + - perlio.c | 26 +++++++++++++++++++++----- - perlio.h | 3 +++ - proto.h | 5 +++++ - t/io/perlio_open.t | 14 ++++++++++++-- - 6 files changed, 57 insertions(+), 7 deletions(-) - -diff --git a/doio.c b/doio.c -index 05a0696..424e0e3 100644 ---- a/doio.c -+++ b/doio.c -@@ -265,6 +265,21 @@ Perl_my_mkstemp_cloexec(char *templte) - #endif - } - -+int -+Perl_my_mkostemp_cloexec(char *templte, int flags) -+{ -+ dVAR; -+ PERL_ARGS_ASSERT_MY_MKOSTEMP_CLOEXEC; -+#if defined(O_CLOEXEC) -+ DO_ONEOPEN_EXPERIMENTING_CLOEXEC( -+ PL_strategy_mkstemp, -+ Perl_my_mkostemp(templte, flags | O_CLOEXEC), -+ Perl_my_mkostemp(templte, flags)); -+#else -+ DO_ONEOPEN_THEN_CLOEXEC(Perl_my_mkostemp(templte, flags)); -+#endif -+} -+ - #ifdef HAS_PIPE - int - Perl_PerlProc_pipe_cloexec(pTHX_ int *pipefd) -diff --git a/embed.fnc b/embed.fnc -index 259affd..c977d39 100644 ---- a/embed.fnc -+++ b/embed.fnc -@@ -476,6 +476,7 @@ p |int |PerlLIO_dup2_cloexec|int oldfd|int newfd - pR |int |PerlLIO_open_cloexec|NN const char *file|int flag - pR |int |PerlLIO_open3_cloexec|NN const char *file|int flag|int perm - pnoR |int |my_mkstemp_cloexec|NN char *templte -+pnoR |int |my_mkostemp_cloexec|NN char *templte|int flags - #ifdef HAS_PIPE - pR |int |PerlProc_pipe_cloexec|NN int *pipefd - #endif -diff --git a/perlio.c b/perlio.c -index 904d47a..5a0cd36 100644 ---- a/perlio.c -+++ b/perlio.c -@@ -1490,7 +1490,9 @@ PerlIO_openn(pTHX_ const char *layers, const char *mode, int fd, - int imode, int perm, PerlIO *f, int narg, SV **args) - { - if (!f && narg == 1 && *args == &PL_sv_undef) { -- if ((f = PerlIO_tmpfile())) { -+ int imode = PerlIOUnix_oflags(mode); -+ -+ if (imode != -1 && (f = PerlIO_tmpfile_flags(imode))) { - if (!layers || !*layers) - layers = Perl_PerlIO_context_layers(aTHX_ mode); - if (layers && *layers) -@@ -5048,6 +5050,15 @@ PerlIO_stdoutf(const char *fmt, ...) - #undef PerlIO_tmpfile - PerlIO * - PerlIO_tmpfile(void) -+{ -+ return PerlIO_tmpfile_flags(0); -+} -+ -+#define MKOSTEMP_MODES ( O_RDWR | O_CREAT | O_EXCL ) -+#define MKOSTEMP_MODE_MASK ( O_ACCMODE | O_CREAT | O_EXCL | O_TRUNC ) -+ -+PerlIO * -+PerlIO_tmpfile_flags(int imode) - { - #ifndef WIN32 - dTHX; -@@ -5063,27 +5074,32 @@ PerlIO_tmpfile(void) - const char * const tmpdir = TAINTING_get ? NULL : PerlEnv_getenv("TMPDIR"); - SV * sv = NULL; - int old_umask = umask(0177); -+ imode &= ~MKOSTEMP_MODE_MASK; - if (tmpdir && *tmpdir) { - /* if TMPDIR is set and not empty, we try that first */ - sv = newSVpv(tmpdir, 0); - sv_catpv(sv, tempname + 4); -- fd = Perl_my_mkstemp_cloexec(SvPVX(sv)); -+ fd = Perl_my_mkostemp_cloexec(SvPVX(sv), imode); - } - if (fd < 0) { - SvREFCNT_dec(sv); - sv = NULL; - /* else we try /tmp */ -- fd = Perl_my_mkstemp_cloexec(tempname); -+ fd = Perl_my_mkostemp_cloexec(tempname, imode); - } - if (fd < 0) { - /* Try cwd */ - sv = newSVpvs("."); - sv_catpv(sv, tempname + 4); -- fd = Perl_my_mkstemp_cloexec(SvPVX(sv)); -+ fd = Perl_my_mkostemp_cloexec(SvPVX(sv), imode); - } - umask(old_umask); - if (fd >= 0) { -- f = PerlIO_fdopen(fd, "w+"); -+ /* fdopen() with a numeric mode */ -+ char mode[8]; -+ int writing = 1; -+ (void)PerlIO_intmode2str(imode | MKOSTEMP_MODES, mode, &writing); -+ f = PerlIO_fdopen(fd, mode); - if (f) - PerlIOBase(f)->flags |= PERLIO_F_TEMP; - PerlLIO_unlink(sv ? SvPVX_const(sv) : tempname); -diff --git a/perlio.h b/perlio.h -index d515020..ee16ab8 100644 ---- a/perlio.h -+++ b/perlio.h -@@ -286,6 +286,9 @@ PERL_CALLCONV SSize_t PerlIO_get_bufsiz(PerlIO *); - #ifndef PerlIO_tmpfile - PERL_CALLCONV PerlIO *PerlIO_tmpfile(void); - #endif -+#ifndef PerlIO_tmpfile_flags -+PERL_CALLCONV PerlIO *PerlIO_tmpfile_flags(int flags); -+#endif - #ifndef PerlIO_stdin - PERL_CALLCONV PerlIO *PerlIO_stdin(void); - #endif -diff --git a/proto.h b/proto.h -index 74a8e46..e0ea55b 100644 ---- a/proto.h -+++ b/proto.h -@@ -2270,6 +2270,11 @@ PERL_CALLCONV Pid_t Perl_my_fork(void); - PERL_CALLCONV I32 Perl_my_lstat(pTHX); - #endif - PERL_CALLCONV I32 Perl_my_lstat_flags(pTHX_ const U32 flags); -+PERL_CALLCONV int Perl_my_mkostemp_cloexec(char *templte, int flags) -+ __attribute__warn_unused_result__; -+#define PERL_ARGS_ASSERT_MY_MKOSTEMP_CLOEXEC \ -+ assert(templte) -+ - PERL_CALLCONV int Perl_my_mkstemp_cloexec(char *templte) - __attribute__warn_unused_result__; - #define PERL_ARGS_ASSERT_MY_MKSTEMP_CLOEXEC \ -diff --git a/t/io/perlio_open.t b/t/io/perlio_open.t -index 99d7e51..56c354b 100644 ---- a/t/io/perlio_open.t -+++ b/t/io/perlio_open.t -@@ -11,7 +11,7 @@ BEGIN { - use strict; - use warnings; - --plan tests => 6; -+plan tests => 10; - - use Fcntl qw(:seek); - -@@ -31,6 +31,16 @@ use Fcntl qw(:seek); - is($data, "the right read stuff", "found the right stuff"); - } - -- -+SKIP: -+{ -+ ok((open my $fh, "+>>", undef), "open my \$fh, '+>>', undef") -+ or skip "can't open temp for append: $!", 3; -+ print $fh "abc"; -+ ok(seek($fh, 0, SEEK_SET), "seek to zero"); -+ print $fh "xyz"; -+ ok(seek($fh, 0, SEEK_SET), "seek to zero again"); -+ my $data = <$fh>; -+ is($data, "abcxyz", "check the second write appended"); -+} - - --- -2.20.1 - diff --git a/perl-5.30.0-perl-134266-make-sure-is-writable-when-we-write-to-i.patch b/perl-5.30.0-perl-134266-make-sure-is-writable-when-we-write-to-i.patch deleted file mode 100644 index e3c9218..0000000 --- a/perl-5.30.0-perl-134266-make-sure-is-writable-when-we-write-to-i.patch +++ /dev/null @@ -1,102 +0,0 @@ -From 3f8dbf40138bd2bcb569b23c88888a41ede9c355 Mon Sep 17 00:00:00 2001 -From: Tony Cook -Date: Mon, 5 Aug 2019 15:23:45 +1000 -Subject: [PATCH] (perl #134266) make sure $@ is writable when we write to it -MIME-Version: 1.0 -Content-Type: text/plain; charset=UTF-8 -Content-Transfer-Encoding: 8bit - -when unwinding. - -Since except_sv might be ERRSV we try to preserve it's value, -if not the actual SV (which we have an extra refcount on if it is -except_sv). - -Petr Písař: Ported to 5.30.0 from -933e3e630076d4fdbe32a101eeb5f12e37ec4ac2. - -Signed-off-by: Petr Písař ---- - perl.h | 17 +++++++++++++++++ - pp_ctl.c | 10 ++++++++-- - t/lib/croak/pp_ctl | 8 ++++++++ - 3 files changed, 33 insertions(+), 2 deletions(-) - -diff --git a/perl.h b/perl.h -index e5a5585..383487c 100644 ---- a/perl.h -+++ b/perl.h -@@ -1357,6 +1357,23 @@ EXTERN_C char *crypt(const char *, const char *); - } \ - } STMT_END - -+/* contains inlined gv_add_by_type */ -+#define SANE_ERRSV() STMT_START { \ -+ SV ** const svp = &GvSV(PL_errgv); \ -+ if (!*svp) { \ -+ *svp = newSVpvs(""); \ -+ } else if (SvREADONLY(*svp)) { \ -+ SV *dupsv = newSVsv(*svp); \ -+ SvREFCNT_dec_NN(*svp); \ -+ *svp = dupsv; \ -+ } else { \ -+ SV *const errsv = *svp; \ -+ if (SvMAGICAL(errsv)) { \ -+ mg_free(errsv); \ -+ } \ -+ } \ -+ } STMT_END -+ - - #ifdef PERL_CORE - # define DEFSV (0 + GvSVn(PL_defgv)) -diff --git a/pp_ctl.c b/pp_ctl.c -index a38b9c1..1f2d812 100644 ---- a/pp_ctl.c -+++ b/pp_ctl.c -@@ -1720,9 +1720,13 @@ Perl_die_unwind(pTHX_ SV *msv) - * perls 5.13.{1..7} which had late setting of $@ without this - * early-setting hack. - */ -- if (!(in_eval & EVAL_KEEPERR)) -+ if (!(in_eval & EVAL_KEEPERR)) { -+ /* remove any read-only/magic from the SV, so we don't -+ get infinite recursion when setting ERRSV */ -+ SANE_ERRSV(); - sv_setsv_flags(ERRSV, exceptsv, - (SV_GMAGIC|SV_DO_COW_SVSETSV|SV_NOSTEAL)); -+ } - - if (in_eval & EVAL_KEEPERR) { - Perl_ck_warner(aTHX_ packWARN(WARN_MISC), "\t(in cleanup) %" SVf, -@@ -1784,8 +1788,10 @@ Perl_die_unwind(pTHX_ SV *msv) - */ - S_pop_eval_context_maybe_croak(aTHX_ cx, exceptsv, 2); - -- if (!(in_eval & EVAL_KEEPERR)) -+ if (!(in_eval & EVAL_KEEPERR)) { -+ SANE_ERRSV(); - sv_setsv(ERRSV, exceptsv); -+ } - PL_restartjmpenv = restartjmpenv; - PL_restartop = restartop; - JMPENV_JUMP(3); -diff --git a/t/lib/croak/pp_ctl b/t/lib/croak/pp_ctl -index b1e754c..de0221b 100644 ---- a/t/lib/croak/pp_ctl -+++ b/t/lib/croak/pp_ctl -@@ -51,3 +51,11 @@ use 5.01; - default{} - EXPECT - Can't "default" outside a topicalizer at - line 2. -+######## -+# NAME croak with read only $@ -+eval '"a" =~ /${*@=\_})/'; -+die; -+# this would previously recurse infinitely in the eval -+EXPECT -+Unmatched ) in regex; marked by <-- HERE in m/_) <-- HERE / at (eval 1) line 1. -+ ...propagated at - line 2. --- -2.21.0 - diff --git a/perl-5.30.0-pp.c-Add-two-UNLIKELY-s.patch b/perl-5.30.0-pp.c-Add-two-UNLIKELY-s.patch deleted file mode 100644 index 4565e07..0000000 --- a/perl-5.30.0-pp.c-Add-two-UNLIKELY-s.patch +++ /dev/null @@ -1,42 +0,0 @@ -From 4f0ded009bf6de2da6a2a2022bec03576dcb80ca Mon Sep 17 00:00:00 2001 -From: Karl Williamson -Date: Wed, 1 May 2019 10:41:38 -0600 -Subject: [PATCH] pp.c: Add two UNLIKELY()s -MIME-Version: 1.0 -Content-Type: text/plain; charset=UTF-8 -Content-Transfer-Encoding: 8bit - -It should be uncommon to shift beyond a full word - -Signed-off-by: Ported to 5.30.0 from -bae047b68c92622bb4bb04499e36cdaa48138909. -Signed-off-by: Petr Písař ---- - pp.c | 4 ++-- - 1 file changed, 2 insertions(+), 2 deletions(-) - -diff --git a/pp.c b/pp.c -index 90db3a0..7afb090 100644 ---- a/pp.c -+++ b/pp.c -@@ -1979,7 +1979,7 @@ static UV S_uv_shift(UV uv, int shift, bool left) - shift = -shift; - left = !left; - } -- if (shift >= IV_BITS) { -+ if (UNLIKELY(shift >= IV_BITS)) { - return 0; - } - return left ? uv << shift : uv >> shift; -@@ -1991,7 +1991,7 @@ static IV S_iv_shift(IV iv, int shift, bool left) - shift = -shift; - left = !left; - } -- if (shift >= IV_BITS) { -+ if (UNLIKELY(shift >= IV_BITS)) { - return iv < 0 && !left ? -1 : 0; - } - return left ? iv << shift : iv >> shift; --- -2.20.1 - diff --git a/perl-5.30.1-handle-s-being-updated-without-len-being-updated.patch b/perl-5.30.1-handle-s-being-updated-without-len-being-updated.patch deleted file mode 100644 index 9f3e11d..0000000 --- a/perl-5.30.1-handle-s-being-updated-without-len-being-updated.patch +++ /dev/null @@ -1,47 +0,0 @@ -From a0148bb8496444302b087bc0ffcf8dad42f8e475 Mon Sep 17 00:00:00 2001 -From: Tony Cook -Date: Mon, 11 Nov 2019 14:43:42 +1100 -Subject: [PATCH] handle s being updated without len being updated -MIME-Version: 1.0 -Content-Type: text/plain; charset=UTF-8 -Content-Transfer-Encoding: 8bit - -fix #17279 - -Petr Písař: Ported to 5.30.1 from -e56dfd967ce460481a9922d14e931b438548093d. - -Signed-off-by: Petr Písař ---- - numeric.c | 2 +- - t/lib/croak/regcomp | 4 ++++ - 2 files changed, 5 insertions(+), 1 deletion(-) - -diff --git a/numeric.c b/numeric.c -index d6ce53e..35adebe 100644 ---- a/numeric.c -+++ b/numeric.c -@@ -1552,7 +1552,7 @@ Perl_my_atof3(pTHX_ const char* orig, NV* value, const STRLEN len) - /* strtold() accepts 0x-prefixed hex and in POSIX implementations, - 0b-prefixed binary numbers, which is backward incompatible - */ -- if ((len == 0 || len >= 2) && *s == '0' && -+ if ((len == 0 || len - (s-orig) >= 2) && *s == '0' && - (isALPHA_FOLD_EQ(s[1], 'x') || isALPHA_FOLD_EQ(s[1], 'b'))) { - *value = 0; - return (char *)s+1; -diff --git a/t/lib/croak/regcomp b/t/lib/croak/regcomp -index 0ba705e..c0c2710 100644 ---- a/t/lib/croak/regcomp -+++ b/t/lib/croak/regcomp -@@ -70,3 +70,7 @@ qr/((a))/; - EXPECT - Too many nested open parens in regex; marked by <-- HERE in m/(( <-- HERE a))/ at - line 3. - ######## -+# NAME numeric parsing buffer overflow in numeric.c -+0=~/\p{nV:-0}/ -+EXPECT -+Can't find Unicode property definition "nV:-0" in regex; marked by <-- HERE in m/\p{nV:-0} <-- HERE / at - line 1. --- -2.21.0 - diff --git a/perl-5.30.1-perl-125557-correctly-handle-overload-for-bin-oct-fl.patch b/perl-5.30.1-perl-125557-correctly-handle-overload-for-bin-oct-fl.patch deleted file mode 100644 index 6a91281..0000000 --- a/perl-5.30.1-perl-125557-correctly-handle-overload-for-bin-oct-fl.patch +++ /dev/null @@ -1,116 +0,0 @@ -From b061e315b4eac4d82edb3ca14581805417a68936 Mon Sep 17 00:00:00 2001 -From: Tony Cook -Date: Wed, 11 Sep 2019 11:50:23 +1000 -Subject: [PATCH] (perl #125557) correctly handle overload for bin/oct floats -MIME-Version: 1.0 -Content-Type: text/plain; charset=UTF-8 -Content-Transfer-Encoding: 8bit - -The hexfp code doesn't check that the shift is 4, and so also -accepts binary and octal fp numbers. - -Unfortunately the call to S_new_constant() always passed a prefix -of 0x, so overloading would be trying to parse the wrong number. - -Another option is to simply allow only hex floats, though some work -was done in 131894 to improve oct/bin float support. - -Petr Písař: Ported to 5.30.1 from -2cb5a7e8af11acb0eca22421ec5a4df7ef18e2a9. - -Signed-off-by: Petr Písař ---- - t/op/hexfp.t | 16 +++++++++++++++- - toke.c | 21 ++++++++++++++++----- - 2 files changed, 31 insertions(+), 6 deletions(-) - -diff --git a/t/op/hexfp.t b/t/op/hexfp.t -index 64f8136..0f239d4 100644 ---- a/t/op/hexfp.t -+++ b/t/op/hexfp.t -@@ -10,7 +10,7 @@ use strict; - - use Config; - --plan(tests => 123); -+plan(tests => 125); - - # Test hexfloat literals. - -@@ -277,6 +277,20 @@ is(0b1p0, 1); - is(0b10p0, 2); - is(0b1.1p0, 1.5); - -+# previously these would pass "0x..." to the overload instead of the appropriate -+# "0b" or "0" prefix. -+fresh_perl_is(<<'CODE', "1", {}, "overload binary fp"); -+use overload; -+BEGIN { overload::constant float => sub { return eval $_[0]; }; } -+print 0b0.1p1; -+CODE -+ -+fresh_perl_is(<<'CODE', "1", {}, "overload octal fp"); -+use overload; -+BEGIN { overload::constant float => sub { return eval $_[0]; }; } -+print 00.1p3; -+CODE -+ - # sprintf %a/%A testing is done in sprintf2.t, - # trickier than necessary because of long doubles, - # and because looseness of the spec. -diff --git a/toke.c b/toke.c -index 03c4f2b..3fa20dc 100644 ---- a/toke.c -+++ b/toke.c -@@ -10966,6 +10966,7 @@ Perl_scan_num(pTHX_ const char *start, YYSTYPE* lvalp) - const char *lastub = NULL; /* position of last underbar */ - static const char* const number_too_long = "Number too long"; - bool warned_about_underscore = 0; -+ I32 shift; /* shift per digit for hex/oct/bin, hoisted here for fp */ - #define WARN_ABOUT_UNDERSCORE() \ - do { \ - if (!warned_about_underscore) { \ -@@ -11012,8 +11013,6 @@ Perl_scan_num(pTHX_ const char *start, YYSTYPE* lvalp) - { - /* variables: - u holds the "number so far" -- shift the power of 2 of the base -- (hex == 4, octal == 3, binary == 1) - overflowed was the number more than we can hold? - - Shift is used when we add a digit. It also serves as an "are -@@ -11022,7 +11021,6 @@ Perl_scan_num(pTHX_ const char *start, YYSTYPE* lvalp) - */ - NV n = 0.0; - UV u = 0; -- I32 shift; - bool overflowed = FALSE; - bool just_zero = TRUE; /* just plain 0 or binary number? */ - static const NV nvshift[5] = { 1.0, 2.0, 4.0, 8.0, 16.0 }; -@@ -11369,8 +11367,21 @@ Perl_scan_num(pTHX_ const char *start, YYSTYPE* lvalp) - if (hexfp) { - floatit = TRUE; - *d++ = '0'; -- *d++ = 'x'; -- s = start + 2; -+ switch (shift) { -+ case 4: -+ *d++ = 'x'; -+ s = start + 2; -+ break; -+ case 3: -+ s = start + 1; -+ break; -+ case 1: -+ *d++ = 'b'; -+ s = start + 2; -+ break; -+ default: -+ NOT_REACHED; /* NOTREACHED */ -+ } - } - - /* read next group of digits and _ and copy into d */ --- -2.21.0 - diff --git a/perl-5.30.2-Loading-IO-is-now-threadsafe-avoiding-the-core-bug-r.patch b/perl-5.30.2-Loading-IO-is-now-threadsafe-avoiding-the-core-bug-r.patch deleted file mode 100644 index b6aac77..0000000 --- a/perl-5.30.2-Loading-IO-is-now-threadsafe-avoiding-the-core-bug-r.patch +++ /dev/null @@ -1,272 +0,0 @@ -From 1c8a3be06814f8b86459ad53b2f903fd50c4c4d8 Mon Sep 17 00:00:00 2001 -From: Nicholas Clark -Date: Mon, 4 Nov 2019 16:58:03 +0100 -Subject: [PATCH] Loading IO is now threadsafe, avoiding the core bug reported - as GH #14816. -MIME-Version: 1.0 -Content-Type: text/plain; charset=UTF-8 -Content-Transfer-Encoding: 8bit - -Re-implement getline() and getlines() as XS code. - -The underlying problem that we're trying to solve here is making -getline() and getlines() in IO::Handle respect the open pragma. - -That bug was first addressed in Sept 2011 by commit 986a805c4b258067: - Make IO::Handle::getline(s) respect the open pragma - -However, that fix introduced a more subtle bug, hence this reworking. -Including the entirety of the rest of that commit message because it -explains both the bug the previous approach: - - See . Also, this - came up in . - - The <> operator, when reading from the magic ARGV handle, automatic- - ally opens the next file. Layers set by the lexical open pragma are - applied, if they are in scope at the point where <> is used. - - This works almost all the time, because the common convention is: - - use open ":utf8"; - - while(<>) { - ... - } - - IO::Handle’s getline and getlines methods are Perl subroutines - that call <> themselves. But that happens within the scope of - IO/Handle.pm, so the caller’s I/O layer settings are ignored. That - means that these two expressions are not equivalent within in a - ‘use open’ scope: - - <> - *ARGV->getline - - The latter will open the next file with no layers applied. - - This commit solves that by putting PL_check hooks in place in - IO::Handle before compiling the getline and getlines subroutines. - Those hooks cause every state op (nextstate, or dbstate under the - debugger) to have a custom pp function that saves the previous value - of PL_curcop, calls the default pp function, and then restores - PL_curcop. - - That means that getline and getlines run with the caller’s compile- - time hints. Another way to see it is that getline and getlines’s own - lexical hints are never activated. - - (A state op carries all the lexical pragmata. Every statement - has one. When any op executes, it’s ‘pp’ function is called. - pp_nextstate and pp_dbstate both set PL_curcop to the op itself. Any - code that checks hints looks at PL_curcop, which contains the current - run-time hints.) - -The problem with this approach is that the (current) design and implementation -of PL_check hooks is actually not threadsafe. There's one array (as a global), -which is used by all interpreters in the process. But as the code added to -IO.xs demonstrates, realistically it needs to be possible to change the hook -just for this interpreter. - -GH #14816 has a fix for that bug for blead. However, it will be tricky (to -impossible) to backport to earlier perl versions. - -Hence it's also worthwhile to change IO.xs to use a different approach to -solve the original bug. As described above, the bug is fixed by having the -readline OP (that implements getline() and getlines()) see the caller's -lexical state, not their "own". Unlike Perl subroutines, XS subroutines don't -have any lexical hints of their own. getline() and getlines() are very -simple, mostly parameter checking, ending with a one line that maps to -a single core OP, whose values are directly returned. - -Hence "all" we need to do re-implement the Perl code as XS. This might look -easy, but turns out to be trickier than expected. There isn't any API to be -called for the OP in question, pp_readline(). The body of the OP inspects -interpreter state, it directly calls pp_rv2gv() which also inspects state, -and then it tail calls Perl_do_readline(), which inspects state. - -The easiest approach seems to be to set up enough state, and then call -pp_readline() directly. This leaves us very tightly coupled to the -internals, but so do all other approaches to try to tackle this bug. - -The current implementation of PL_check (and possibly other arrays) still -needs to be addressed. - -Signed-off-by: Petr Písař ---- - META.json | 1 + - META.yml | 1 + - dist/IO/IO.xs | 93 +++++++++++++++++++++++++++------------- - dist/IO/lib/IO/Handle.pm | 20 --------- - 4 files changed, 66 insertions(+), 49 deletions(-) - -diff --git a/META.json b/META.json -index e023606..53c1e79 100644 ---- a/META.json -+++ b/META.json -@@ -86,6 +86,7 @@ - "dist/IO/t/io_dup.t", - "dist/IO/t/io_file.t", - "dist/IO/t/io_file_export.t", -+ "dist/IO/t/io_getline.t", - "dist/IO/t/io_leak.t", - "dist/IO/t/io_linenum.t", - "dist/IO/t/io_multihomed.t", -diff --git a/META.yml b/META.yml -index 85fb097..f71108e 100644 ---- a/META.yml -+++ b/META.yml -@@ -83,6 +83,7 @@ no_index: - - dist/IO/t/io_dup.t - - dist/IO/t/io_file.t - - dist/IO/t/io_file_export.t -+ - dist/IO/t/io_getline.t - - dist/IO/t/io_leak.t - - dist/IO/t/io_linenum.t - - dist/IO/t/io_multihomed.t -diff --git a/dist/IO/IO.xs b/dist/IO/IO.xs -index 8e857f8..68b7352 100644 ---- a/dist/IO/IO.xs -+++ b/dist/IO/IO.xs -@@ -185,26 +185,6 @@ io_blocking(pTHX_ InputStream f, int block) - #endif - } - --static OP * --io_pp_nextstate(pTHX) --{ -- dVAR; -- COP *old_curcop = PL_curcop; -- OP *next = PL_ppaddr[PL_op->op_type](aTHX); -- PL_curcop = old_curcop; -- return next; --} -- --static OP * --io_ck_lineseq(pTHX_ OP *o) --{ -- OP *kid = cBINOPo->op_first; -- for (; kid; kid = OpSIBLING(kid)) -- if (kid->op_type == OP_NEXTSTATE || kid->op_type == OP_DBSTATE) -- kid->op_ppaddr = io_pp_nextstate; -- return o; --} -- - - MODULE = IO PACKAGE = IO::Seekable PREFIX = f - -@@ -558,16 +538,71 @@ fsync(arg) - OUTPUT: - RETVAL - --SV * --_create_getline_subs(const char *code) -- CODE: -- OP *(*io_old_ck_lineseq)(pTHX_ OP *) = PL_check[OP_LINESEQ]; -- PL_check[OP_LINESEQ] = io_ck_lineseq; -- RETVAL = SvREFCNT_inc(eval_pv(code,FALSE)); -- PL_check[OP_LINESEQ] = io_old_ck_lineseq; -- OUTPUT: -- RETVAL -+# To make these two work correctly with the open pragma, the readline op -+# needs to pick up the lexical hints at the method's callsite. This doesn't -+# work in pure Perl, because the hints are read from the most recent nextstate, -+# and the nextstate of the Perl subroutines show *here* hold the lexical state -+# for the IO package. -+# -+# There's no clean way to implement this - this approach, while complex, seems -+# to be the most robust, and avoids manipulating external state (ie op checkers) -+# -+# sub getline { -+# @_ == 1 or croak 'usage: $io->getline()'; -+# my $this = shift; -+# return scalar <$this>; -+# } -+# -+# sub getlines { -+# @_ == 1 or croak 'usage: $io->getlines()'; -+# wantarray or -+# croak 'Can\'t call $io->getlines in a scalar context, use $io->getline'; -+# my $this = shift; -+# return <$this>; -+# } -+ -+# If this is deprecated, should it warn, and should it be removed at some point? -+# *gets = \&getline; # deprecated - -+void -+getlines(...) -+ALIAS: -+ IO::Handle::getline = 1 -+ IO::Handle::gets = 2 -+INIT: -+ UNOP myop; -+ SV *io; -+ OP *was = PL_op; -+PPCODE: -+ if (items != 1) -+ Perl_croak(aTHX_ "usage: $io->%s()", ix ? "getline" : "getlines"); -+ if (!ix && GIMME_V != G_ARRAY) -+ Perl_croak(aTHX_ "Can't call $io->getlines in a scalar context, use $io->getline"); -+ Zero(&myop, 1, UNOP); -+ myop.op_flags = (ix ? OPf_WANT_SCALAR : OPf_WANT_LIST ) | OPf_STACKED; -+ myop.op_ppaddr = PL_ppaddr[OP_READLINE]; -+ myop.op_type = OP_READLINE; -+ /* I don't know if we need this, but it's correct as far as the control flow -+ goes. However, if we *do* need it, do we need to set anything else up? */ -+ myop.op_next = PL_op->op_next; -+ /* Sigh, because pp_readline calls pp_rv2gv, and *it* has this wonderful -+ state check for PL_op->op_type == OP_READLINE */ -+ PL_op = (OP *) &myop; -+ io = ST(0); -+ /* Our target (which we need to provide, as we don't have a pad entry. -+ I think that this is only needed for G_SCALAR - maybe we can get away -+ with NULL for list context? */ -+ PUSHs(sv_newmortal()); -+ XPUSHs(io); -+ PUTBACK; -+ /* And effectively we get away with tail calling pp_readline, as it stacks -+ exactly the return value(s) we need to return. */ -+ PL_ppaddr[OP_READLINE](aTHX); -+ PL_op = was; -+ /* And we don't want to reach the line -+ PL_stack_sp = sp; -+ that xsubpp adds after our body becase PL_stack_sp is correct, not sp */ -+ return; - - MODULE = IO PACKAGE = IO::Socket - -diff --git a/dist/IO/lib/IO/Handle.pm b/dist/IO/lib/IO/Handle.pm -index a257024..d48a4d1 100644 ---- a/dist/IO/lib/IO/Handle.pm -+++ b/dist/IO/lib/IO/Handle.pm -@@ -431,26 +431,6 @@ sub say { - print $this @_; - } - --# Special XS wrapper to make them inherit lexical hints from the caller. --_create_getline_subs( <<'END' ) or die $@; --sub getline { -- @_ == 1 or croak 'usage: $io->getline()'; -- my $this = shift; -- return scalar <$this>; --} -- --sub getlines { -- @_ == 1 or croak 'usage: $io->getlines()'; -- wantarray or -- croak 'Can\'t call $io->getlines in a scalar context, use $io->getline'; -- my $this = shift; -- return <$this>; --} --1; # return true for error checking --END -- --*gets = \&getline; # deprecated -- - sub truncate { - @_ == 2 or croak 'usage: $io->truncate(LEN)'; - truncate($_[0], $_[1]); --- -2.21.1 - diff --git a/perl-5.30.2-toke.c-fix-Multidimensional-array-heuristic-to-ignor.patch b/perl-5.30.2-toke.c-fix-Multidimensional-array-heuristic-to-ignor.patch deleted file mode 100644 index 2039c34..0000000 --- a/perl-5.30.2-toke.c-fix-Multidimensional-array-heuristic-to-ignor.patch +++ /dev/null @@ -1,114 +0,0 @@ -From bb3b785585fde69384a8581957368ca235d0016e Mon Sep 17 00:00:00 2001 -From: Yves Orton -Date: Fri, 31 Jan 2020 15:02:46 +0100 -Subject: [PATCH] toke.c: fix Multidimensional array heuristic to ignore - function calls -MIME-Version: 1.0 -Content-Type: text/plain; charset=UTF-8 -Content-Transfer-Encoding: 8bit - -Fix issue #16535 - $t[index $x, $y] should not throw Multidimensional -array warnings. - -The heuristic for detecting lists in array subscripts is implemented -in toke.c, which means it is not particularly reliable. There are -lots of ways that code might return a list in an array subscript. - -So for instance $t[do{ $x, $y }] should throw a warning but doesn't. - -On the other hand, we can make this warning less likely to happen -by being a touch more careful about how we parse the inside of the -square brackets so we do not throw an exception from $t[index $x,$y]. - -Really this should be moved to the parser so we do not need to rely -on fallable heuristics, and also into the runtime so that if we have - - $t[f()] - -and f() returns a list we can also warn there. But for now this -improves things somewhat. - -Petr Písař: Ported from 41eecd54c335a0342b04dbea635695db80579946 to -5.30.2. - -Signed-off-by: Petr Písař ---- - t/lib/warnings/toke | 13 +++++++++++++ - toke.c | 39 +++++++++++++++++++++++++++++++++------ - 2 files changed, 46 insertions(+), 6 deletions(-) - -diff --git a/t/lib/warnings/toke b/t/lib/warnings/toke -index 83641e5..e36e116 100644 ---- a/t/lib/warnings/toke -+++ b/t/lib/warnings/toke -@@ -1691,3 +1691,16 @@ EXPECT - OPTION regex - Malformed UTF-8 character: .*non-continuation.* - The eval did not crash the program -+######## -+# NAME Check that our Multidimensional array heuristic doesn't false positive on function calls -+use warnings; -+my $str= "rst"; -+my $substr= "s"; -+my @array="A".."C"; -+# force a numeric warning, but we should NOT see a Multidimensional warning here -+my $trigger_num_warn= $array[index $str,$substr] + 1; -+# this should trigger a Multidimensional warning -+my $should_warn_multi= $array[0x1,0x2]; -+EXPECT -+Multidimensional syntax $array[0x1,0x2] not supported at - line 8. -+Argument "B" isn't numeric in addition (+) at - line 6. -diff --git a/toke.c b/toke.c -index 10849f8..ede6f63 100644 ---- a/toke.c -+++ b/toke.c -@@ -6784,13 +6784,40 @@ Perl_yylex(pTHX) - if (ckWARN(WARN_SYNTAX)) { - char *t = s+1; - -- while ( isSPACE(*t) -- || isWORDCHAR_lazy_if_safe(t, PL_bufend, UTF) -- || *t == '$') -- { -- t += UTF ? UTF8SKIP(t) : 1; -+ while ( t < PL_bufend ) { -+ if (isSPACE(*t)) { -+ do { t += UTF ? UTF8SKIP(t) : 1; } while (t < PL_bufend && isSPACE(*t)); -+ /* consumed one or more space chars */ -+ } else if (*t == '$' || *t == '@') { -+ /* could be more than one '$' like $$ref or @$ref */ -+ do { t++; } while (t < PL_bufend && *t == '$'); -+ -+ /* could be an abigail style identifier like $ foo */ -+ while (t < PL_bufend && *t == ' ') t++; -+ -+ /* strip off the name of the var */ -+ while (isWORDCHAR_lazy_if_safe(t, PL_bufend, UTF)) -+ t += UTF ? UTF8SKIP(t) : 1; -+ /* consumed a varname */ -+ } else if (isDIGIT(*t)) { -+ /* deal with hex constants like 0x11 */ -+ if (t[0] == '0' && t[1] == 'x') { -+ t += 2; -+ while (t < PL_bufend && isXDIGIT(*t)) t++; -+ } else { -+ /* deal with decimal/octal constants like 1 and 0123 */ -+ do { t++; } while (isDIGIT(*t)); -+ if (t -Date: Fri, 22 Sep 2017 19:00:46 -0400 -Subject: [PATCH] %{^CAPTURE_ALL} was intended to be an alias for %-; make it - so. -MIME-Version: 1.0 -Content-Type: text/plain; charset=UTF-8 -Content-Transfer-Encoding: 8bit - -For: RT #131867 - -Add Vickenty Fesunov to AUTHORS. - -Signed-off-by: Ported to 5.30 from 1a1d29aaa2e0c668f9a8c960d52b516415f28983. - ---- - AUTHORS | 1 + - ext/Tie-Hash-NamedCapture/NamedCapture.xs | 5 ++++- - ext/Tie-Hash-NamedCapture/t/tiehash.t | 11 ++++++++--- - -diff --git a/AUTHORS b/AUTHORS -index 0091100600..c920d52e96 100644 ---- a/AUTHORS -+++ b/AUTHORS -@@ -1265,6 +1265,7 @@ Unicode Consortium - Vadim Konovalov - Valeriy E. Ushakov - Vernon Lyon -+Vickenty Fesunov - Victor Adam - Victor Efimov - Viktor Turskyi -diff --git a/ext/Tie-Hash-NamedCapture/NamedCapture.xs b/ext/Tie-Hash-NamedCapture/NamedCapture.xs -index 7eaae5614d..a607c10090 100644 ---- a/ext/Tie-Hash-NamedCapture/NamedCapture.xs -+++ b/ext/Tie-Hash-NamedCapture/NamedCapture.xs -@@ -25,8 +25,11 @@ _tie_it(SV *sv) - GV * const gv = (GV *)sv; - HV * const hv = GvHVn(gv); - SV *rv = newSV_type(SVt_RV); -+ const char *gv_name = GvNAME(gv); - CODE: -- SvRV_set(rv, newSVuv(*GvNAME(gv) == '-' ? RXapif_ALL : RXapif_ONE)); -+ SvRV_set(rv, newSVuv( -+ strEQ(gv_name, "-") || strEQ(gv_name, "\003APTURE_ALL") -+ ? RXapif_ALL : RXapif_ONE)); - SvROK_on(rv); - sv_bless(rv, GvSTASH(CvGV(cv))); - -diff --git a/ext/Tie-Hash-NamedCapture/t/tiehash.t b/ext/Tie-Hash-NamedCapture/t/tiehash.t -index 3ebc81ad68..962754085f 100644 ---- a/ext/Tie-Hash-NamedCapture/t/tiehash.t -+++ b/ext/Tie-Hash-NamedCapture/t/tiehash.t -@@ -3,7 +3,12 @@ use strict; - - use Test::More; - --my %hashes = ('+' => \%+, '-' => \%-); -+my %hashes = ( -+ '+' => \%+, -+ '-' => \%-, -+ '{^CAPTURE}' => \%{^CAPTURE}, -+ '{^CAPTURE_ALL}' => \%{^CAPTURE_ALL}, -+); - - foreach (['plus1'], - ['minus1', all => 1], -@@ -20,12 +25,12 @@ foreach (['plus1'], - is("abcdef" =~ /(?[ab])*(?c)(?d)(?[ef]*)/, 1, - "We matched"); - --foreach my $name (qw(+ plus1 plus2 plus3)) { -+foreach my $name (qw(+ {^CAPTURE} plus1 plus2 plus3)) { - my $hash = $hashes{$name}; - is_deeply($hash, { foo => 'b', bar => 'c' }, "%$name is as expected"); - } - --foreach my $name (qw(- minus1 minus2)) { -+foreach my $name (qw(- {^CAPTURE_ALL} minus1 minus2)) { - my $hash = $hashes{$name}; - is_deeply($hash, { foo => [qw(b d)], bar => [qw(c ef)] }, - "%$name is as expected"); --- -2.20.1 - diff --git a/perl-5.31.0-Create-fcn-for-lossless-conversion-of-NV-to-IV.patch b/perl-5.31.0-Create-fcn-for-lossless-conversion-of-NV-to-IV.patch deleted file mode 100644 index c072cec..0000000 --- a/perl-5.31.0-Create-fcn-for-lossless-conversion-of-NV-to-IV.patch +++ /dev/null @@ -1,181 +0,0 @@ -From 3a019afd6f6291c3249c254b5c01e244e4ec83ab Mon Sep 17 00:00:00 2001 -From: Karl Williamson -Date: Sun, 28 Apr 2019 17:42:44 -0600 -Subject: [PATCH 1/3] Create fcn for lossless conversion of NV to IV -MIME-Version: 1.0 -Content-Type: text/plain; charset=UTF-8 -Content-Transfer-Encoding: 8bit - -Essentially the same code was being used in three places, and had -undefined C behavior for some inputs. - -This consolidates the code into one inline function, and rewrites it to -avoid undefined behavior. - -Signed-off-by: Petr Písař ---- - embed.fnc | 1 + - embed.h | 3 +++ - inline.h | 34 ++++++++++++++++++++++++++++++++++ - pp.c | 20 ++++---------------- - pp_hot.c | 10 ++-------- - proto.h | 7 +++++++ - 6 files changed, 51 insertions(+), 24 deletions(-) - -diff --git a/embed.fnc b/embed.fnc -index 45597f67b6..259affded0 100644 ---- a/embed.fnc -+++ b/embed.fnc -@@ -2272,6 +2272,7 @@ sR |SV* |refto |NN SV* sv - : Used in pp_hot.c - pRxo |GV* |softref2xv |NN SV *const sv|NN const char *const what \ - |const svtype type|NN SV ***spp -+inR |bool |lossless_NV_to_IV|const NV nv|NN IV * ivp - #endif - - #if defined(PERL_IN_PP_PACK_C) -diff --git a/embed.h b/embed.h -index 75c91f77f4..9178c51e92 100644 ---- a/embed.h -+++ b/embed.h -@@ -1924,6 +1924,9 @@ - #define do_delete_local() S_do_delete_local(aTHX) - #define refto(a) S_refto(aTHX_ a) - # endif -+# if defined(PERL_IN_PP_C) || defined(PERL_IN_PP_HOT_C) -+#define lossless_NV_to_IV S_lossless_NV_to_IV -+# endif - # if defined(PERL_IN_PP_CTL_C) - #define check_type_and_open(a) S_check_type_and_open(aTHX_ a) - #define destroy_matcher(a) S_destroy_matcher(aTHX_ a) -diff --git a/inline.h b/inline.h -index 654f801b75..de1e33e8ce 100644 ---- a/inline.h -+++ b/inline.h -@@ -1913,6 +1913,40 @@ S_should_warn_nl(const char *pv) { - - #endif - -+#if defined(PERL_IN_PP_C) || defined(PERL_IN_PP_HOT_C) -+ -+PERL_STATIC_INLINE bool -+S_lossless_NV_to_IV(const NV nv, IV *ivp) -+{ -+ /* This function determines if the input NV 'nv' may be converted without -+ * loss of data to an IV. If not, it returns FALSE taking no other action. -+ * But if it is possible, it does the conversion, returning TRUE, and -+ * storing the converted result in '*ivp' */ -+ -+ PERL_ARGS_ASSERT_LOSSLESS_NV_TO_IV; -+ -+# if defined(Perl_isnan) -+ -+ if (UNLIKELY(Perl_isnan(nv))) { -+ return FALSE; -+ } -+ -+# endif -+ -+ if (UNLIKELY(nv < IV_MIN) || UNLIKELY(nv > IV_MAX)) { -+ return FALSE; -+ } -+ -+ if ((IV) nv != nv) { -+ return FALSE; -+ } -+ -+ *ivp = (IV) nv; -+ return TRUE; -+} -+ -+#endif -+ - /* ------------------ pp.c, regcomp.c, toke.c, universal.c ------------ */ - - #define MAX_CHARSET_NAME_LENGTH 2 -diff --git a/pp.c b/pp.c -index c89cb7198c..0956121b27 100644 ---- a/pp.c -+++ b/pp.c -@@ -1268,16 +1268,10 @@ PP(pp_multiply) - NV nr = SvNVX(svr); - NV result; - -- if ( --#if defined(NAN_COMPARE_BROKEN) && defined(Perl_isnan) -- !Perl_isnan(nl) && nl == (NV)(il = (IV)nl) -- && !Perl_isnan(nr) && nr == (NV)(ir = (IV)nr) --#else -- nl == (NV)(il = (IV)nl) && nr == (NV)(ir = (IV)nr) --#endif -- ) -+ if (lossless_NV_to_IV(nl, &il) && lossless_NV_to_IV(nr, &ir)) { - /* nothing was lost by converting to IVs */ - goto do_iv; -+ } - SP--; - result = nl * nr; - # if defined(__sgi) && defined(USE_LONG_DOUBLE) && LONG_DOUBLEKIND == LONG_DOUBLE_IS_DOUBLEDOUBLE_128_BIT_BE_BE && NVSIZE == 16 -@@ -1849,16 +1843,10 @@ PP(pp_subtract) - NV nl = SvNVX(svl); - NV nr = SvNVX(svr); - -- if ( --#if defined(NAN_COMPARE_BROKEN) && defined(Perl_isnan) -- !Perl_isnan(nl) && nl == (NV)(il = (IV)nl) -- && !Perl_isnan(nr) && nr == (NV)(ir = (IV)nr) --#else -- nl == (NV)(il = (IV)nl) && nr == (NV)(ir = (IV)nr) --#endif -- ) -+ if (lossless_NV_to_IV(nl, &il) && lossless_NV_to_IV(nr, &ir)) { - /* nothing was lost by converting to IVs */ - goto do_iv; -+ } - SP--; - TARGn(nl - nr, 0); /* args not GMG, so can't be tainted */ - SETs(TARG); -diff --git a/pp_hot.c b/pp_hot.c -index 7d5ffc02fd..2df5df8303 100644 ---- a/pp_hot.c -+++ b/pp_hot.c -@@ -1435,16 +1435,10 @@ PP(pp_add) - NV nl = SvNVX(svl); - NV nr = SvNVX(svr); - -- if ( --#if defined(NAN_COMPARE_BROKEN) && defined(Perl_isnan) -- !Perl_isnan(nl) && nl == (NV)(il = (IV)nl) -- && !Perl_isnan(nr) && nr == (NV)(ir = (IV)nr) --#else -- nl == (NV)(il = (IV)nl) && nr == (NV)(ir = (IV)nr) --#endif -- ) -+ if (lossless_NV_to_IV(nl, &il) && lossless_NV_to_IV(nr, &ir)) { - /* nothing was lost by converting to IVs */ - goto do_iv; -+ } - SP--; - TARGn(nl + nr, 0); /* args not GMG, so can't be tainted */ - SETs(TARG); -diff --git a/proto.h b/proto.h -index 0f8feed187..74a8e46ab7 100644 ---- a/proto.h -+++ b/proto.h -@@ -5224,6 +5224,13 @@ STATIC SV* S_refto(pTHX_ SV* sv) - - #endif - #if defined(PERL_IN_PP_C) || defined(PERL_IN_PP_HOT_C) -+#ifndef PERL_NO_INLINE_FUNCTIONS -+PERL_STATIC_INLINE bool S_lossless_NV_to_IV(const NV nv, IV * ivp) -+ __attribute__warn_unused_result__; -+#define PERL_ARGS_ASSERT_LOSSLESS_NV_TO_IV \ -+ assert(ivp) -+#endif -+ - PERL_CALLCONV GV* Perl_softref2xv(pTHX_ SV *const sv, const char *const what, const svtype type, SV ***spp) - __attribute__warn_unused_result__; - #define PERL_ARGS_ASSERT_SOFTREF2XV \ --- -2.20.1 - diff --git a/perl-5.31.0-Don-t-use-PL_check-op_type-to-check-for-filetets-ops.patch b/perl-5.31.0-Don-t-use-PL_check-op_type-to-check-for-filetets-ops.patch deleted file mode 100644 index dca5f98..0000000 --- a/perl-5.31.0-Don-t-use-PL_check-op_type-to-check-for-filetets-ops.patch +++ /dev/null @@ -1,87 +0,0 @@ -From 1d31efef7dd4388fd606972e67bda3318e8838fe Mon Sep 17 00:00:00 2001 -From: =?UTF-8?q?Dagfinn=20Ilmari=20Manns=C3=A5ker?= -Date: Tue, 21 May 2019 17:34:49 +0100 -Subject: [PATCH] Don't use PL_check[op_type] to check for filetets ops to - stack -MIME-Version: 1.0 -Content-Type: text/plain; charset=UTF-8 -Content-Transfer-Encoding: 8bit - -This breaks hooking the filetest ops' check function by modules like -bareword::filehandles. Instead use the OP_IS_FILETEST() macro to decide -check for filetest ops. Also add an OP_IS_STAT() macro for when we want -to check for (l)stat as well as the filetest ops. - -c.f. https://rt.cpan.org/Ticket/Display.html?id=127073 - -Signed-off-by: Petr Písař ---- - op.c | 11 ++++------- - op.h | 2 ++ - regen/opcodes | 1 + - 3 files changed, 7 insertions(+), 7 deletions(-) - -diff --git a/op.c b/op.c -index 29181ba731..dba7ac7fea 100644 ---- a/op.c -+++ b/op.c -@@ -991,8 +991,7 @@ Perl_op_clear(pTHX_ OP *o) - o->op_targ = 0; - break; - default: -- if (!(o->op_flags & OPf_REF) -- || (PL_check[o->op_type] != Perl_ck_ftst)) -+ if (!(o->op_flags & OPf_REF) || !OP_IS_STAT(o->op_type)) - break; - /* FALLTHROUGH */ - case OP_GVSV: -@@ -4413,8 +4412,7 @@ Perl_op_lvalue_flags(pTHX_ OP *o, I32 type, U32 flags) - /* [20011101.069 (#7861)] File test operators interpret OPf_REF to mean that - their argument is a filehandle; thus \stat(".") should not set - it. AMS 20011102 */ -- if (type == OP_REFGEN && -- PL_check[o->op_type] == Perl_ck_ftst) -+ if (type == OP_REFGEN && OP_IS_STAT(o->op_type)) - return o; - - if (type != OP_LEAVESUBLV) -@@ -11696,9 +11694,8 @@ Perl_ck_ftst(pTHX_ OP *o) - scalar((OP *) kid); - if ((PL_hints & HINT_FILETEST_ACCESS) && OP_IS_FILETEST_ACCESS(o->op_type)) - o->op_private |= OPpFT_ACCESS; -- if (type != OP_STAT && type != OP_LSTAT -- && PL_check[kidtype] == Perl_ck_ftst -- && kidtype != OP_STAT && kidtype != OP_LSTAT -+ if (OP_IS_FILETEST(type) -+ && OP_IS_FILETEST(kidtype) - ) { - o->op_private |= OPpFT_STACKED; - kid->op_private |= OPpFT_STACKING; -diff --git a/op.h b/op.h -index c9f05b2271..ad6cf7fe49 100644 ---- a/op.h -+++ b/op.h -@@ -1021,6 +1021,8 @@ C is non-null. For a higher-level interface, see C>. - #define OP_TYPE_ISNT_AND_WASNT(o, type) \ - ( (o) && OP_TYPE_ISNT_AND_WASNT_NN(o, type) ) - -+/* should match anything that uses ck_ftst in regen/opcodes */ -+#define OP_IS_STAT(op) (OP_IS_FILETEST(op) || (op) == OP_LSTAT || (op) == OP_STAT) - - # define OpHAS_SIBLING(o) (cBOOL((o)->op_moresib)) - # define OpSIBLING(o) (0 + (o)->op_moresib ? (o)->op_sibparent : NULL) -diff --git a/regen/opcodes b/regen/opcodes -index b4bf904fdc..4e8236947a 100644 ---- a/regen/opcodes -+++ b/regen/opcodes -@@ -397,6 +397,7 @@ getsockname getsockname ck_fun is% Fs - getpeername getpeername ck_fun is% Fs - - # Stat calls. OP_IS_FILETEST wants them consecutive. -+# Also needs to match OP_IS_STAT() in op.h - - lstat lstat ck_ftst u- F? - stat stat ck_ftst u- F? --- -2.20.1 - diff --git a/perl-5.31.0-S_scan_const-Properly-test-if-need-to-grow.patch b/perl-5.31.0-S_scan_const-Properly-test-if-need-to-grow.patch deleted file mode 100644 index 74957d4..0000000 --- a/perl-5.31.0-S_scan_const-Properly-test-if-need-to-grow.patch +++ /dev/null @@ -1,49 +0,0 @@ -From 89f69032d6a71f41b96ae6becbf3df4e2f9509a5 Mon Sep 17 00:00:00 2001 -From: Karl Williamson -Date: Sat, 27 Apr 2019 13:56:39 -0600 -Subject: [PATCH] S_scan_const() Properly test if need to grow -MIME-Version: 1.0 -Content-Type: text/plain; charset=UTF-8 -Content-Transfer-Encoding: 8bit - -As we parse the input, creating a string constant, we may have to grow -the destination if it fills up as we go along. It allocates space in an -SV and populates the string, but it doesn' update the SvCUR until the -end, so in single stepping the debugger through the code, the SV looks -empty until the end. It turns out that as a result SvEND also doesn't -get updated and still points to the beginning of the string until SvCUR -is finally set. That means that the test changed by this commit was -always succeeding, because it was using SvEND that didn't get updated, -so it would attempt to grow each time through the loop. By moving a -couple of statements earlier, and using SvLEN instead, which does always -have the correct value, those extra growth attempts are avoided. - -Signed-off-by: Petr Písař ---- - toke.c | 10 ++++++---- - 1 file changed, 6 insertions(+), 4 deletions(-) - -diff --git a/toke.c b/toke.c -index 68eea0cae6..03c4f2ba26 100644 ---- a/toke.c -+++ b/toke.c -@@ -4097,10 +4097,12 @@ S_scan_const(pTHX_ char *start) - goto default_action; /* Redo, having upgraded so both are UTF-8 */ - } - else { /* UTF8ness matters: convert this non-UTF8 source char to -- UTF-8 for output. It will occupy 2 bytes */ -- if (d + 2 >= SvEND(sv)) { -- const STRLEN extra = 2 + (send - s - 1) + 1; -- const STRLEN off = d - SvPVX_const(sv); -+ UTF-8 for output. It will occupy 2 bytes, but don't include -+ the input byte since we haven't incremented 's' yet. See -+ Note on sizing above. */ -+ const STRLEN off = d - SvPVX(sv); -+ const STRLEN extra = 2 + (send - s - 1) + 1; -+ if (off + extra > SvLEN(sv)) { - d = off + SvGROW(sv, off + extra); - } - *d++ = UTF8_EIGHT_BIT_HI(*s); --- -2.20.1 - diff --git a/perl-5.31.0-perl-122112-a-simpler-fix-for-pclose-aborted-by-a-si.patch b/perl-5.31.0-perl-122112-a-simpler-fix-for-pclose-aborted-by-a-si.patch deleted file mode 100644 index e7e2b38..0000000 --- a/perl-5.31.0-perl-122112-a-simpler-fix-for-pclose-aborted-by-a-si.patch +++ /dev/null @@ -1,70 +0,0 @@ -From 35608a1658fe75c79ca53d96aea6cf7cb2a98615 Mon Sep 17 00:00:00 2001 -From: Tony Cook -Date: Thu, 9 May 2019 09:52:30 +1000 -Subject: [PATCH] (perl #122112) a simpler fix for pclose() aborted by a signal -MIME-Version: 1.0 -Content-Type: text/plain; charset=UTF-8 -Content-Transfer-Encoding: 8bit - -This change results in a zombie child process for the lifetime of -the process, but I think that's the responsibility of the signal -handler that aborted pclose(). - -We could add some magic to retry (and retry and retry) waiting on -child process as we rewind (since there's no other way to remove -the zombie), but the program has chosen implicitly to abort the -wait() done by pclose() and it's best to honor that. - -If we do choose to retry the wait() we might be blocking an attempt -by the process to terminate, whether by exit() or die(). - -If a program does need more flexible handling there's always -pipe()/fork()/exec() and/or the various event-driven frameworks on -CPAN. - -Signed-off-by: Petr Písař ---- - doio.c | 12 +++++++++++- - t/io/pipe.t | 2 -- - 2 files changed, 11 insertions(+), 3 deletions(-) - -diff --git a/doio.c b/doio.c -index 0cc4e55404..05a06968dc 100644 ---- a/doio.c -+++ b/doio.c -@@ -1779,7 +1779,17 @@ Perl_io_close(pTHX_ IO *io, GV *gv, bool not_implicit, bool warn_on_fail) - - if (IoIFP(io)) { - if (IoTYPE(io) == IoTYPE_PIPE) { -- const int status = PerlProc_pclose(IoIFP(io)); -+ PerlIO *fh = IoIFP(io); -+ int status; -+ -+ /* my_pclose() can propagate signals which might bypass any code -+ after the call here if the signal handler throws an exception. -+ This would leave the handle in the IO object and try to close it again -+ when the SV is destroyed on unwind or global destruction. -+ So NULL it early. -+ */ -+ IoOFP(io) = IoIFP(io) = NULL; -+ status = PerlProc_pclose(fh); - if (not_implicit) { - STATUS_NATIVE_CHILD_SET(status); - retval = (STATUS_UNIX == 0); -diff --git a/t/io/pipe.t b/t/io/pipe.t -index 1d01db6af6..fc3071300d 100644 ---- a/t/io/pipe.t -+++ b/t/io/pipe.t -@@ -255,9 +255,7 @@ close \$fh; - PROG - print $prog; - my $out = fresh_perl($prog, {}); -- $::TODO = "not fixed yet"; - cmp_ok($out, '!~', qr/refcnt/, "no exception from PerlIO"); -- undef $::TODO; - # checks that that program did something rather than failing to - # compile - cmp_ok($out, '=~', qr/Died at/, "but we did get the exception from die"); --- -2.20.1 - diff --git a/perl-5.31.0-perl-122112-remove-some-interfering-debug-output.patch b/perl-5.31.0-perl-122112-remove-some-interfering-debug-output.patch deleted file mode 100644 index 2733044..0000000 --- a/perl-5.31.0-perl-122112-remove-some-interfering-debug-output.patch +++ /dev/null @@ -1,28 +0,0 @@ -From 2fe0d7f40a94163d6c242c3e695fdcd19e387422 Mon Sep 17 00:00:00 2001 -From: Tony Cook -Date: Tue, 11 Jun 2019 14:59:23 +1000 -Subject: [PATCH] (perl #122112) remove some interfering debug output -MIME-Version: 1.0 -Content-Type: text/plain; charset=UTF-8 -Content-Transfer-Encoding: 8bit - -Signed-off-by: Petr Písař ---- - t/io/pipe.t | 1 - - 1 file changed, 1 deletion(-) - -diff --git a/t/io/pipe.t b/t/io/pipe.t -index fc3071300d..9f5bb3bcf8 100644 ---- a/t/io/pipe.t -+++ b/t/io/pipe.t -@@ -253,7 +253,6 @@ my \$cmd = qq(\$Perl -e "sleep 3"); - my \$pid = open my \$fh, "|\$cmd" or die "\$!\n"; - close \$fh; - PROG -- print $prog; - my $out = fresh_perl($prog, {}); - cmp_ok($out, '!~', qr/refcnt/, "no exception from PerlIO"); - # checks that that program did something rather than failing to --- -2.20.1 - diff --git a/perl-5.31.0-perl-122112-test-for-signal-handler-death-in-pclose.patch b/perl-5.31.0-perl-122112-test-for-signal-handler-death-in-pclose.patch deleted file mode 100644 index 035f202..0000000 --- a/perl-5.31.0-perl-122112-test-for-signal-handler-death-in-pclose.patch +++ /dev/null @@ -1,54 +0,0 @@ -From fb5e77103dd443cc2112ba14dc665aa5ec072ce6 Mon Sep 17 00:00:00 2001 -From: Tony Cook -Date: Wed, 30 May 2018 14:03:04 +1000 -Subject: [PATCH] (perl #122112) test for signal handler death in pclose -MIME-Version: 1.0 -Content-Type: text/plain; charset=UTF-8 -Content-Transfer-Encoding: 8bit - -Signed-off-by: Petr Písař ---- - t/io/pipe.t | 23 ++++++++++++++++++++++- - 1 file changed, 22 insertions(+), 1 deletion(-) - -diff --git a/t/io/pipe.t b/t/io/pipe.t -index f9ee65afe8..1d01db6af6 100644 ---- a/t/io/pipe.t -+++ b/t/io/pipe.t -@@ -10,7 +10,7 @@ if (!$Config{'d_fork'}) { - skip_all("fork required to pipe"); - } - else { -- plan(tests => 25); -+ plan(tests => 27); - } - - my $Perl = which_perl(); -@@ -241,3 +241,24 @@ SKIP: { - - is($child, -1, 'child reaped if piped program cannot be executed'); - } -+ -+{ -+ # [perl #122112] refcnt: fd -1 < 0 when a signal handler dies -+ # while a pipe close is waiting on a child process -+ my $prog = < -Date: Wed, 20 Mar 2019 16:47:49 +1100 -Subject: [PATCH] (perl #133913) limit numeric format results to INT_MAX -MIME-Version: 1.0 -Content-Type: text/plain; charset=UTF-8 -Content-Transfer-Encoding: 8bit - -The return value of v?snprintf() is int, and we pay attention to that -return value, so limit the expected size of numeric formats to -INT_MAX. - -Signed-off-by: Petr Písař ---- - pod/perldiag.pod | 6 ++++++ - sv.c | 7 +++++++ - t/op/sprintf2.t | 7 +++++++ - 3 files changed, 20 insertions(+) - -diff --git a/pod/perldiag.pod b/pod/perldiag.pod -index 1037215d44..166d29b4bb 100644 ---- a/pod/perldiag.pod -+++ b/pod/perldiag.pod -@@ -4354,6 +4354,12 @@ the meantime, try using scientific notation (e.g. "1e6" instead of - a number. This happens, for example with C<\o{}>, with no number between - the braces. - -+=item Numeric format result too large -+ -+(F) The length of the result of a numeric format supplied to sprintf() -+or printf() would have been too large for the underlying C function to -+report. This limit is typically 2GB. -+ - =item Octal number > 037777777777 non-portable - - (W portable) The octal number you specified is larger than 2**32-1 -diff --git a/sv.c b/sv.c -index 8fbca52eb2..8bc0af0c16 100644 ---- a/sv.c -+++ b/sv.c -@@ -13085,6 +13085,13 @@ Perl_sv_vcatpvfn_flags(pTHX_ SV *const sv, const char *const pat, const STRLEN p - if (float_need < width) - float_need = width; - -+ if (float_need > INT_MAX) { -+ /* snprintf() returns an int, and we use that return value, -+ so die horribly if the expected size is too large for int -+ */ -+ Perl_croak(aTHX_ "Numeric format result too large"); -+ } -+ - if (PL_efloatsize <= float_need) { - /* PL_efloatbuf should be at least 1 greater than - * float_need to allow a trailing \0 to be returned by -diff --git a/t/op/sprintf2.t b/t/op/sprintf2.t -index 84259a4afd..5fee8efede 100644 ---- a/t/op/sprintf2.t -+++ b/t/op/sprintf2.t -@@ -1153,6 +1153,14 @@ foreach( - is sprintf("%.0f", $_), sprintf("%-.0f", $_), "special-case %.0f on $_"; - } - -+# large uvsize needed so the large width is parsed properly -+# large sizesize needed so the STRLEN check doesn't -+if ($Config{intsize} == 4 && $Config{uvsize} > 4 && $Config{sizesize} > 4) { -+ eval { my $x = sprintf("%7000000000E", 0) }; -+ like($@, qr/^Numeric format result too large at /, -+ "croak for very large numeric format results"); -+} -+ - { - # gh #17221 - my ($off1, $off2); --- -2.20.1 - diff --git a/perl-5.31.0-perl-133936-document-differences-between-IO-Socket-a.patch b/perl-5.31.0-perl-133936-document-differences-between-IO-Socket-a.patch deleted file mode 100644 index fcdce36..0000000 --- a/perl-5.31.0-perl-133936-document-differences-between-IO-Socket-a.patch +++ /dev/null @@ -1,78 +0,0 @@ -From 1d9630e7857d6fbae6fddd261fbb80c9c9a8cfd6 Mon Sep 17 00:00:00 2001 -From: Tony Cook -Date: Mon, 18 Mar 2019 16:02:33 +1100 -Subject: [PATCH] (perl #133936) document differences between IO::Socket::* and - builtin -MIME-Version: 1.0 -Content-Type: text/plain; charset=UTF-8 -Content-Transfer-Encoding: 8bit - -Signed-off-by: Petr Písař ---- - dist/IO/lib/IO/Socket.pm | 43 +++++++++++++++++++++++++++++++++++++--- - 1 file changed, 40 insertions(+), 3 deletions(-) - -diff --git a/dist/IO/lib/IO/Socket.pm b/dist/IO/lib/IO/Socket.pm -index da9e8c94d0..345ffd475d 100644 ---- a/dist/IO/lib/IO/Socket.pm -+++ b/dist/IO/lib/IO/Socket.pm -@@ -434,9 +434,6 @@ corresponding built-in functions: - bind - listen - accept -- send -- recv -- peername (getpeername) - sockname (getsockname) - shutdown - -@@ -517,6 +514,46 @@ SO_LINGER enabled with a zero timeout, then the peer's close() will generate - a RST segment, upon receipt of which the local TCP transitions immediately to - B, and in that state, connected() I return undef. - -+=item send(MSG, [, FLAGS [, TO ] ]) -+ -+Like the built-in L, except that: -+ -+=over -+ -+=item * -+ -+C is optional and defaults to C<0>, and -+ -+=item * -+ -+after a successful send with C, further calls to send() without -+C will send to the same address, and C will be used as the -+result of peername(). -+ -+=back -+ -+=item recv(BUF, LEN, [,FLAGS]) -+ -+Like the built-in L, except that: -+ -+=over -+ -+=item * -+ -+C is optional and defaults to C<0>, and -+ -+=item * -+ -+the cached value returned by peername() is updated with the result of -+recv(). -+ -+=back -+ -+=item peername -+ -+Returns the cached peername, possibly set by recv() or send() above. -+If not otherwise set returns (and caches) the result of getpeername(). -+ - =item protocol - - Returns the numerical number for the protocol being used on the socket, if --- -2.20.1 - diff --git a/perl-5.31.0-perl-133936-ensure-TO-is-honoured-for-UDP-sock-send.patch b/perl-5.31.0-perl-133936-ensure-TO-is-honoured-for-UDP-sock-send.patch deleted file mode 100644 index dbe89b9..0000000 --- a/perl-5.31.0-perl-133936-ensure-TO-is-honoured-for-UDP-sock-send.patch +++ /dev/null @@ -1,107 +0,0 @@ -From f1000aa2d58fbed2741dbb2887b668f872ef0cb8 Mon Sep 17 00:00:00 2001 -From: Tony Cook -Date: Mon, 18 Mar 2019 15:05:32 +1100 -Subject: [PATCH] (perl #133936) ensure TO is honoured for UDP $sock->send() -MIME-Version: 1.0 -Content-Type: text/plain; charset=UTF-8 -Content-Transfer-Encoding: 8bit - -Signed-off-by: Petr Písař ---- - dist/IO/lib/IO/Socket.pm | 7 ++++--- - dist/IO/t/io_udp.t | 31 +++++++++++++++++++++++++++---- - 2 files changed, 31 insertions(+), 7 deletions(-) - -diff --git a/dist/IO/lib/IO/Socket.pm b/dist/IO/lib/IO/Socket.pm -index 1bf57ab826..a34a10b232 100644 ---- a/dist/IO/lib/IO/Socket.pm -+++ b/dist/IO/lib/IO/Socket.pm -@@ -282,9 +282,10 @@ sub send { - croak 'send: Cannot determine peer address' - unless(defined $peer); - -- my $r = defined(getpeername($sock)) -- ? send($sock, $_[1], $flags) -- : send($sock, $_[1], $flags, $peer); -+ my $type = $sock->socktype; -+ my $r = $type == SOCK_DGRAM || $type == SOCK_RAW -+ ? send($sock, $_[1], $flags, $peer) -+ : send($sock, $_[1], $flags); - - # remember who we send to, if it was successful - ${*$sock}{'io_socket_peername'} = $peer -diff --git a/dist/IO/t/io_udp.t b/dist/IO/t/io_udp.t -index d7e95a8829..571e4303bb 100644 ---- a/dist/IO/t/io_udp.t -+++ b/dist/IO/t/io_udp.t -@@ -15,6 +15,8 @@ BEGIN { - skip_all($reason) if $reason; - } - -+use strict; -+ - sub compare_addr { - no utf8; - my $a = shift; -@@ -36,18 +38,18 @@ sub compare_addr { - "$a[0]$a[1]" eq "$b[0]$b[1]"; - } - --plan(7); -+plan(15); - watchdog(15); - - use Socket; - use IO::Socket qw(AF_INET SOCK_DGRAM INADDR_ANY); - --$udpa = IO::Socket::INET->new(Proto => 'udp', LocalAddr => 'localhost') -+my $udpa = IO::Socket::INET->new(Proto => 'udp', LocalAddr => 'localhost') - || IO::Socket::INET->new(Proto => 'udp', LocalAddr => '127.0.0.1') - or die "$! (maybe your system does not have a localhost at all, 'localhost' or 127.0.0.1)"; - ok(1); - --$udpb = IO::Socket::INET->new(Proto => 'udp', LocalAddr => 'localhost') -+my $udpb = IO::Socket::INET->new(Proto => 'udp', LocalAddr => 'localhost') - || IO::Socket::INET->new(Proto => 'udp', LocalAddr => '127.0.0.1') - or die "$! (maybe your system does not have a localhost at all, 'localhost' or 127.0.0.1)"; - ok(1); -@@ -56,6 +58,7 @@ $udpa->send('BORK', 0, $udpb->sockname); - - ok(compare_addr($udpa->peername,$udpb->sockname, 'peername', 'sockname')); - -+my $buf; - my $where = $udpb->recv($buf="", 4); - is($buf, 'BORK'); - -@@ -69,7 +72,27 @@ $udpb->send('FOObar', @xtra); - $udpa->recv($buf="", 6); - is($buf, 'FOObar'); - --ok(! $udpa->connected); -+{ -+ # check the TO parameter passed to $sock->send() is honoured for UDP sockets -+ # [perl #133936] -+ my $udpc = IO::Socket::INET->new(Proto => 'udp', LocalAddr => 'localhost') -+ || IO::Socket::INET->new(Proto => 'udp', LocalAddr => '127.0.0.1') -+ or die "$! (maybe your system does not have a localhost at all, 'localhost' or 127.0.0.1)"; -+ pass("created C socket"); -+ -+ ok($udpc->connect($udpa->sockname), "connect C to A"); -+ -+ ok($udpc->connected, "connected a UDP socket"); -+ -+ ok($udpc->send("fromctoa"), "send to a"); -+ -+ ok($udpa->recv($buf = "", 8), "recv it"); -+ is($buf, "fromctoa", "check value received"); -+ -+ ok($udpc->send("fromctob", 0, $udpb->sockname), "send to non-connected socket"); -+ ok($udpb->recv($buf = "", 8), "recv it"); -+ is($buf, "fromctob", "check value received"); -+} - - exit(0); - --- -2.20.1 - diff --git a/perl-5.31.0-perl-133936-make-send-a-bit-saner.patch b/perl-5.31.0-perl-133936-make-send-a-bit-saner.patch deleted file mode 100644 index 7e6826d..0000000 --- a/perl-5.31.0-perl-133936-make-send-a-bit-saner.patch +++ /dev/null @@ -1,93 +0,0 @@ -From bc26d2e6b287cc6693f41e1a2d48b0dd77d2e427 Mon Sep 17 00:00:00 2001 -From: Tony Cook -Date: Tue, 18 Jun 2019 14:59:00 +1000 -Subject: [PATCH] (perl #133936) make send() a bit saner -MIME-Version: 1.0 -Content-Type: text/plain; charset=UTF-8 -Content-Transfer-Encoding: 8bit - -This undoes some of the effect of f1000aa2d in that TO will always -be supplied to CORE::send() if it's supplied, otherwise whether -TO is supplied to CORE::send() is based on whether the socket is -connected. - -On Linux you appear to be able to sendto() to a different address on -a connected UDP socket, but this doesn't appear to be portable, -failing on darwin, and presumably on other BSDs. - -Signed-off-by: Petr Písař ---- - dist/IO/lib/IO/Socket.pm | 25 +++++++++++++++++-------- - dist/IO/t/io_udp.t | 11 ++++++++--- - 2 files changed, 25 insertions(+), 11 deletions(-) - -diff --git a/dist/IO/lib/IO/Socket.pm b/dist/IO/lib/IO/Socket.pm -index 345ffd475d..28fa1ec149 100644 ---- a/dist/IO/lib/IO/Socket.pm -+++ b/dist/IO/lib/IO/Socket.pm -@@ -277,13 +277,22 @@ sub send { - @_ >= 2 && @_ <= 4 or croak 'usage: $sock->send(BUF, [FLAGS, [TO]])'; - my $sock = $_[0]; - my $flags = $_[2] || 0; -- my $peer = $_[3] || $sock->peername; -+ my $peer; - -- croak 'send: Cannot determine peer address' -- unless(defined $peer); -+ if ($_[3]) { -+ # the caller explicitly requested a TO, so use it -+ # this is non-portable for "connected" UDP sockets -+ $peer = $_[3]; -+ } -+ elsif (!defined getpeername($sock)) { -+ # we're not connected, so we require a peer from somewhere -+ $peer = $sock->peername; -+ -+ croak 'send: Cannot determine peer address' -+ unless(defined $peer); -+ } - -- my $type = $sock->socktype; -- my $r = $type == SOCK_DGRAM || $type == SOCK_RAW -+ my $r = $peer - ? send($sock, $_[1], $flags, $peer) - : send($sock, $_[1], $flags); - -@@ -526,9 +535,9 @@ C is optional and defaults to C<0>, and - - =item * - --after a successful send with C, further calls to send() without --C will send to the same address, and C will be used as the --result of peername(). -+after a successful send with C, further calls to send() on an -+unconnected socket without C will send to the same address, and -+C will be used as the result of peername(). - - =back - -diff --git a/dist/IO/t/io_udp.t b/dist/IO/t/io_udp.t -index 571e4303bb..2adc6a4a69 100644 ---- a/dist/IO/t/io_udp.t -+++ b/dist/IO/t/io_udp.t -@@ -89,9 +89,14 @@ is($buf, 'FOObar'); - ok($udpa->recv($buf = "", 8), "recv it"); - is($buf, "fromctoa", "check value received"); - -- ok($udpc->send("fromctob", 0, $udpb->sockname), "send to non-connected socket"); -- ok($udpb->recv($buf = "", 8), "recv it"); -- is($buf, "fromctob", "check value received"); -+ SKIP: -+ { -+ $^O eq "linux" -+ or skip "This is non-portable, known to 'work' on Linux", 3; -+ ok($udpc->send("fromctob", 0, $udpb->sockname), "send to non-connected socket"); -+ ok($udpb->recv($buf = "", 8), "recv it"); -+ is($buf, "fromctob", "check value received"); -+ } - } - - exit(0); --- -2.20.1 - diff --git a/perl-5.31.0-perl-134008-an-alternative-test.patch b/perl-5.31.0-perl-134008-an-alternative-test.patch deleted file mode 100644 index 7990681..0000000 --- a/perl-5.31.0-perl-134008-an-alternative-test.patch +++ /dev/null @@ -1,28 +0,0 @@ -From 9dfe0a3438ae69872b71b98e4fb4f4bef084983d Mon Sep 17 00:00:00 2001 -From: Tony Cook -Date: Mon, 3 Jun 2019 14:34:17 +1000 -Subject: [PATCH 2/2] (perl #134008) an alternative test -MIME-Version: 1.0 -Content-Type: text/plain; charset=UTF-8 -Content-Transfer-Encoding: 8bit - -Signed-off-by: Petr Písař ---- - t/op/sprintf2.t | 1 + - 1 file changed, 1 insertion(+) - -diff --git a/t/op/sprintf2.t b/t/op/sprintf2.t -index 569bd8053d..84259a4afd 100644 ---- a/t/op/sprintf2.t -+++ b/t/op/sprintf2.t -@@ -840,6 +840,7 @@ SKIP: { - - # [rt.perl.org #134008] - is(sprintf("%.*a", -99999, 1.03125), "0x1.08p+0", "[rt.perl.org #134008]"); -+ is(sprintf("%.*a", -100000,0), "0x0p+0", "negative precision ignored by format_hexfp"); - - # [rt.perl.org #128890] - is(sprintf("%a", 0x1.18p+0), "0x1.18p+0"); --- -2.20.1 - diff --git a/perl-5.31.0-perl-134072-allow-foo-bar-to-work-in-main.patch b/perl-5.31.0-perl-134072-allow-foo-bar-to-work-in-main.patch deleted file mode 100644 index 68f0c2d..0000000 --- a/perl-5.31.0-perl-134072-allow-foo-bar-to-work-in-main.patch +++ /dev/null @@ -1,84 +0,0 @@ -From 40258daf9899686d934c460ba3630431312d7694 Mon Sep 17 00:00:00 2001 -From: Tony Cook -Date: Wed, 15 May 2019 15:59:49 +1000 -Subject: [PATCH] (perl #134072) allow \&foo = \&bar to work in main:: -MIME-Version: 1.0 -Content-Type: text/plain; charset=UTF-8 -Content-Transfer-Encoding: 8bit - -subs in main:: are stored as a RV referring to a CV as a space -optimization, but the pp_refassign code expected to find a glob, -which made the assignment a no-op. - -Fix this by upgrading the reference to a glob in the refassign check -function. - -Note that this would be an issue in other packages if 1e2cfe157ca -was reverted (allowing the space savings in other packages too.) - -Signed-off-by: Petr Písař ---- - op.c | 9 +++++++++ - t/op/lvref.t | 15 ++++++++++++++- - 2 files changed, 23 insertions(+), 1 deletion(-) - -diff --git a/op.c b/op.c -index f63eeadc36..6ad192307f 100644 ---- a/op.c -+++ b/op.c -@@ -12462,7 +12462,16 @@ Perl_ck_refassign(pTHX_ OP *o) - OP * const kid = cUNOPx(kidparent)->op_first; - o->op_private |= OPpLVREF_CV; - if (kid->op_type == OP_GV) { -+ SV *sv = (SV*)cGVOPx_gv(kid); - varop = kidparent; -+ if (SvROK(sv) && SvTYPE(SvRV(sv)) == SVt_PVCV) { -+ /* a CVREF here confuses pp_refassign, so make sure -+ it gets a GV */ -+ CV *const cv = (CV*)SvRV(sv); -+ SV *name_sv = sv_2mortal(newSVhek(CvNAME_HEK(cv))); -+ (void)gv_init_sv((GV*)sv, CvSTASH(cv), name_sv, 0); -+ assert(SvTYPE(sv) == SVt_PVGV); -+ } - goto detach_and_stack; - } - if (kid->op_type != OP_PADCV) goto bad; -diff --git a/t/op/lvref.t b/t/op/lvref.t -index 3d5e952fb0..3991a53780 100644 ---- a/t/op/lvref.t -+++ b/t/op/lvref.t -@@ -1,10 +1,11 @@ -+#!perl - BEGIN { - chdir 't'; - require './test.pl'; - set_up_inc("../lib"); - } - --plan 164; -+plan 167; - - eval '\$x = \$y'; - like $@, qr/^Experimental aliasing via reference not enabled/, -@@ -291,6 +292,18 @@ package CodeTest { - my sub bs; - \(&cs) = expect_list_cx; - is \&cs, \&ThatSub, '\(&statesub)'; -+ -+ package main { -+ # this is only a problem in main:: due to 1e2cfe157ca -+ sub sx { "x" } -+ sub sy { "y" } -+ is sx(), "x", "check original"; -+ my $temp = \&sx; -+ \&sx = \&sy; -+ is sx(), "y", "aliased"; -+ \&sx = $temp; -+ is sx(), "x", "and restored"; -+ } - } - - # Mixed List Assignments --- -2.20.1 - diff --git a/perl-5.31.0-perl-134193-allow-CAPTURE-to-work-when-CAPTURE-comes.patch b/perl-5.31.0-perl-134193-allow-CAPTURE-to-work-when-CAPTURE-comes.patch deleted file mode 100644 index 59b05d2..0000000 --- a/perl-5.31.0-perl-134193-allow-CAPTURE-to-work-when-CAPTURE-comes.patch +++ /dev/null @@ -1,59 +0,0 @@ -From 22f05786af0b7f963440e47908cd5f35cf074c12 Mon Sep 17 00:00:00 2001 -From: Tony Cook -Date: Thu, 13 Jun 2019 10:05:15 +1000 -Subject: [PATCH] (perl #134193) allow %{^CAPTURE} to work when @{^CAPTURE} - comes first -MIME-Version: 1.0 -Content-Type: text/plain; charset=UTF-8 -Content-Transfer-Encoding: 8bit - -gv_magicalize() is called when the GV is created, so when the array -was mentioned first, the hash wouldn't reach this code and the magic -wouldn't be added to the hash. - -This also fixes a similar problem with (%|@){^CAPTURE_ALL}, though -@{^CAPTURE_ALL} is unused at this point. - -Signed-off-by: Petr Písař ---- - ext/Tie-Hash-NamedCapture/t/tiehash.t | 3 +++ - gv.c | 6 ++---- - 2 files changed, 5 insertions(+), 4 deletions(-) - -diff --git a/ext/Tie-Hash-NamedCapture/t/tiehash.t b/ext/Tie-Hash-NamedCapture/t/tiehash.t -index 962754085f..cca05278f4 100644 ---- a/ext/Tie-Hash-NamedCapture/t/tiehash.t -+++ b/ext/Tie-Hash-NamedCapture/t/tiehash.t -@@ -3,6 +3,9 @@ use strict; - - use Test::More; - -+# this would break the hash magic setup [perl #134193] -+my ($ca, $c) = ( \@{^CAPTURE_ALL}, \@{^CAPTURE} ); -+ - my %hashes = ( - '+' => \%+, - '-' => \%-, -diff --git a/gv.c b/gv.c -index 46a32dcc20..2b83680898 100644 ---- a/gv.c -+++ b/gv.c -@@ -2032,13 +2032,11 @@ S_gv_magicalize(pTHX_ GV *gv, HV *stash, const char *name, STRLEN len, - sv_magic(MUTABLE_SV(av), (SV*)n, PERL_MAGIC_regdata, NULL, 0); - SvREADONLY_on(av); - -- if (sv_type == SVt_PVHV || sv_type == SVt_PVGV) -- require_tie_mod_s(gv, '-', "Tie::Hash::NamedCapture",0); -+ require_tie_mod_s(gv, '-', "Tie::Hash::NamedCapture",0); - - } else /* %{^CAPTURE_ALL} */ - if (memEQs(name, len, "\003APTURE_ALL")) { -- if (sv_type == SVt_PVHV || sv_type == SVt_PVGV) -- require_tie_mod_s(gv, '+', "Tie::Hash::NamedCapture",0); -+ require_tie_mod_s(gv, '+', "Tie::Hash::NamedCapture",0); - } - break; - case '\005': /* $^ENCODING */ --- -2.20.1 - diff --git a/perl-5.31.0-perl-134193-make-the-varname-match-the-names.patch b/perl-5.31.0-perl-134193-make-the-varname-match-the-names.patch deleted file mode 100644 index 0c12b6d..0000000 --- a/perl-5.31.0-perl-134193-make-the-varname-match-the-names.patch +++ /dev/null @@ -1,36 +0,0 @@ -From d8422270033e0728e6a9cecb24cdbd123656e367 Mon Sep 17 00:00:00 2001 -From: Tony Cook -Date: Mon, 17 Jun 2019 11:46:00 +1000 -Subject: [PATCH] (perl #134193) make the varname match the %[+-] names -MIME-Version: 1.0 -Content-Type: text/plain; charset=UTF-8 -Content-Transfer-Encoding: 8bit - -when loading Tie/Hash/NamedCapture.pm for the long name variants - -Signed-off-by: Petr Písař ---- - gv.c | 4 ++-- - 1 file changed, 2 insertions(+), 2 deletions(-) - -diff --git a/gv.c b/gv.c -index 2b83680898..652f5e737d 100644 ---- a/gv.c -+++ b/gv.c -@@ -2032,11 +2032,11 @@ S_gv_magicalize(pTHX_ GV *gv, HV *stash, const char *name, STRLEN len, - sv_magic(MUTABLE_SV(av), (SV*)n, PERL_MAGIC_regdata, NULL, 0); - SvREADONLY_on(av); - -- require_tie_mod_s(gv, '-', "Tie::Hash::NamedCapture",0); -+ require_tie_mod_s(gv, '+', "Tie::Hash::NamedCapture",0); - - } else /* %{^CAPTURE_ALL} */ - if (memEQs(name, len, "\003APTURE_ALL")) { -- require_tie_mod_s(gv, '+', "Tie::Hash::NamedCapture",0); -+ require_tie_mod_s(gv, '-', "Tie::Hash::NamedCapture",0); - } - break; - case '\005': /* $^ENCODING */ --- -2.20.1 - diff --git a/perl-5.31.1-avoid-SEGV-with-uninit-warning-with-multideref.patch b/perl-5.31.1-avoid-SEGV-with-uninit-warning-with-multideref.patch deleted file mode 100644 index e25b547..0000000 --- a/perl-5.31.1-avoid-SEGV-with-uninit-warning-with-multideref.patch +++ /dev/null @@ -1,65 +0,0 @@ -From 28eabf1185634216ca335b3a24e1131b0f392ca1 Mon Sep 17 00:00:00 2001 -From: David Mitchell -Date: Wed, 10 Jul 2019 12:59:06 +0100 -Subject: [PATCH] avoid SEGV with uninit warning with multideref -MIME-Version: 1.0 -Content-Type: text/plain; charset=UTF-8 -Content-Transfer-Encoding: 8bit - -RT #134275 - -When the 'uninitialized warning' code in S_find_uninit_var() comes -across an OP_MULTIDEREF node, it scans it to see if any part of that op -(e.g. the indices or the returned value) could have been the source of -the uninitialized value which triggered the warning. Unfortunately when -getting an AV or HV from a GV, it wasn't checking whether gp_av/gp_hv -contained a NULL value. If so, it would SEGV. - -The test code is a bit contrived; you have to "pull the rug" from under -the GV at just the right moment with *foo = *bar, then trigger an uninit -warning on an op whose subtree includes an OP_MULTIDEREF. - -Signed-off-by: Petr Písař ---- - sv.c | 5 ++++- - t/lib/warnings/9uninit | 10 ++++++++++ - 2 files changed, 14 insertions(+), 1 deletion(-) - -diff --git a/sv.c b/sv.c -index 83de536ad7..4315fe9b64 100644 ---- a/sv.c -+++ b/sv.c -@@ -16662,8 +16662,11 @@ S_find_uninit_var(pTHX_ const OP *const obase, const SV *const uninit_sv, - - if (agg_targ) - sv = PAD_SV(agg_targ); -- else if (agg_gv) -+ else if (agg_gv) { - sv = is_hv ? MUTABLE_SV(GvHV(agg_gv)) : MUTABLE_SV(GvAV(agg_gv)); -+ if (!sv) -+ break; -+ } - else - break; - -diff --git a/t/lib/warnings/9uninit b/t/lib/warnings/9uninit -index 774c6ee432..5c173fdb2a 100644 ---- a/t/lib/warnings/9uninit -+++ b/t/lib/warnings/9uninit -@@ -2206,3 +2206,13 @@ use warnings 'uninitialized'; - undef $0; - EXPECT - Use of uninitialized value in undef operator at - line 5. -+######## -+# RT #134275 -+# This was SEGVing due to the multideref code in S_find_uninit_var not -+# handling a GV with a null gp_hv slot. -+use warnings 'uninitialized'; -+"" =~ /$foo{a}${*foo=*bar}$x/; -+EXPECT -+Use of uninitialized value in regexp compilation at - line 5. -+Use of uninitialized value in regexp compilation at - line 5. -+Use of uninitialized value $x in regexp compilation at - line 5. --- -2.20.1 - diff --git a/perl-5.31.1-perl-122112-make-sure-SIGPIPE-is-delivered-if-we-tes.patch b/perl-5.31.1-perl-122112-make-sure-SIGPIPE-is-delivered-if-we-tes.patch deleted file mode 100644 index dd36b03..0000000 --- a/perl-5.31.1-perl-122112-make-sure-SIGPIPE-is-delivered-if-we-tes.patch +++ /dev/null @@ -1,39 +0,0 @@ -From 293a533c53d9c0fe939e23c439f4dfc47a5736dc Mon Sep 17 00:00:00 2001 -From: Tony Cook -Date: Tue, 25 Jun 2019 15:47:57 +1000 -Subject: [PATCH] (perl #122112) make sure SIGPIPE is delivered if we test it -MIME-Version: 1.0 -Content-Type: text/plain; charset=UTF-8 -Content-Transfer-Encoding: 8bit - -Signed-off-by: Petr Písař ---- - t/io/pipe.t | 12 ++++++++++++ - 1 file changed, 12 insertions(+) - -diff --git a/t/io/pipe.t b/t/io/pipe.t -index 9f5bb3bcf8..bdf743c26c 100644 ---- a/t/io/pipe.t -+++ b/t/io/pipe.t -@@ -125,6 +125,18 @@ wait; # Collect from $pid - pipe(READER,WRITER) || die "Can't open pipe"; - close READER; - -+eval { -+ # one platform at least appears to block SIGPIPE by default (see #122112) -+ # so make sure it's unblocked. -+ # The eval wrapper should ensure this does nothing if these aren't -+ # implemented. -+ require POSIX; -+ my $mask = POSIX::SigSet->new(POSIX::SIGPIPE()); -+ my $old = POSIX::SigSet->new(); -+ POSIX::sigprocmask(POSIX::SIG_UNBLOCK(), $mask, $old); -+ note "Yes, SIGPIPE was blocked" if $old->ismember(POSIX::SIGPIPE()); -+}; -+ - $SIG{'PIPE'} = 'broken_pipe'; - - sub broken_pipe { --- -2.20.1 - diff --git a/perl-5.31.1-perl-134221-support-O_APPEND-for-open-.-undef-on-VMS.patch b/perl-5.31.1-perl-134221-support-O_APPEND-for-open-.-undef-on-VMS.patch deleted file mode 100644 index 6bed38d..0000000 --- a/perl-5.31.1-perl-134221-support-O_APPEND-for-open-.-undef-on-VMS.patch +++ /dev/null @@ -1,128 +0,0 @@ -From 74b421cc877e412c4eda06757396a1e19fc756ba Mon Sep 17 00:00:00 2001 -From: Tony Cook -Date: Mon, 15 Jul 2019 11:53:23 +1000 -Subject: [PATCH 3/3] (perl #134221) support O_APPEND for open ..., undef on - VMS -MIME-Version: 1.0 -Content-Type: text/plain; charset=UTF-8 -Content-Transfer-Encoding: 8bit - -VMS doesn't allow you to delete an open file like POSIXish systems -do, but you can mark a file to be deleted once it's closed, but -only when you open it. - -Since VMS doesn't (yet) have mkostemp() we can add our own flag to -our mkostemp() emulation to pass the necessary magic to open() call -to delete the file on close. - -Signed-off-by: Petr Písař ---- - perlio.c | 10 ++++++---- - util.c | 15 ++++++++++++++- - util.h | 11 +++++++++++ - 3 files changed, 31 insertions(+), 5 deletions(-) - -diff --git a/perlio.c b/perlio.c -index 81ebc156ad..805959f840 100644 ---- a/perlio.c -+++ b/perlio.c -@@ -5062,7 +5062,7 @@ PerlIO_tmpfile_flags(int imode) - const int fd = win32_tmpfd_mode(imode); - if (fd >= 0) - f = PerlIO_fdopen(fd, "w+b"); --#elif ! defined(VMS) && ! defined(OS2) -+#elif ! defined(OS2) - int fd = -1; - char tempname[] = "/tmp/PerlIO_XXXXXX"; - const char * const tmpdir = TAINTING_get ? NULL : PerlEnv_getenv("TMPDIR"); -@@ -5073,19 +5073,19 @@ PerlIO_tmpfile_flags(int imode) - /* if TMPDIR is set and not empty, we try that first */ - sv = newSVpv(tmpdir, 0); - sv_catpv(sv, tempname + 4); -- fd = Perl_my_mkostemp_cloexec(SvPVX(sv), imode); -+ fd = Perl_my_mkostemp_cloexec(SvPVX(sv), imode | O_VMS_DELETEONCLOSE); - } - if (fd < 0) { - SvREFCNT_dec(sv); - sv = NULL; - /* else we try /tmp */ -- fd = Perl_my_mkostemp_cloexec(tempname, imode); -+ fd = Perl_my_mkostemp_cloexec(tempname, imode | O_VMS_DELETEONCLOSE); - } - if (fd < 0) { - /* Try cwd */ - sv = newSVpvs("."); - sv_catpv(sv, tempname + 4); -- fd = Perl_my_mkostemp_cloexec(SvPVX(sv), imode); -+ fd = Perl_my_mkostemp_cloexec(SvPVX(sv), imode | O_VMS_DELETEONCLOSE); - } - umask(old_umask); - if (fd >= 0) { -@@ -5096,7 +5096,9 @@ PerlIO_tmpfile_flags(int imode) - f = PerlIO_fdopen(fd, mode); - if (f) - PerlIOBase(f)->flags |= PERLIO_F_TEMP; -+# ifndef VMS - PerlLIO_unlink(sv ? SvPVX_const(sv) : tempname); -+# endif - } - SvREFCNT_dec(sv); - #else /* !HAS_MKSTEMP, fallback to stdio tmpfile(). */ -diff --git a/util.c b/util.c -index e6863f6dfe..165d13a39e 100644 ---- a/util.c -+++ b/util.c -@@ -5712,6 +5712,11 @@ S_my_mkostemp(char *templte, int flags) { - STRLEN len = strlen(templte); - int fd; - int attempts = 0; -+#ifdef VMS -+ int delete_on_close = flags & O_VMS_DELETEONCLOSE; -+ -+ flags &= ~O_VMS_DELETEONCLOSE; -+#endif - - if (len < 6 || - templte[len-1] != 'X' || templte[len-2] != 'X' || templte[len-3] != 'X' || -@@ -5725,7 +5730,15 @@ S_my_mkostemp(char *templte, int flags) { - for (i = 1; i <= 6; ++i) { - templte[len-i] = TEMP_FILE_CH[(int)(Perl_internal_drand48() * TEMP_FILE_CH_COUNT)]; - } -- fd = PerlLIO_open3(templte, O_RDWR | O_CREAT | O_EXCL | flags, 0600); -+#ifdef VMS -+ if (delete_on_close) { -+ fd = open(templte, O_RDWR | O_CREAT | O_EXCL | flags, 0600, "fop=dlt"); -+ } -+ else -+#endif -+ { -+ fd = PerlLIO_open3(templte, O_RDWR | O_CREAT | O_EXCL | flags, 0600); -+ } - } while (fd == -1 && errno == EEXIST && ++attempts <= 100); - - return fd; -diff --git a/util.h b/util.h -index d8fa3e8396..d9df7b39c6 100644 ---- a/util.h -+++ b/util.h -@@ -248,6 +248,17 @@ means arg not present, 1 is empty string/null byte */ - int mkstemp(char*); - #endif - -+#ifdef PERL_CORE -+# if defined(VMS) -+/* only useful for calls to our mkostemp() emulation */ -+# define O_VMS_DELETEONCLOSE 0x40000000 -+# ifdef HAS_MKOSTEMP -+# error 134221 will need a new solution for VMS -+# endif -+# else -+# define O_VMS_DELETEONCLOSE 0 -+# endif -+#endif - #if defined(HAS_MKOSTEMP) && defined(PERL_CORE) - # define Perl_my_mkostemp(templte, flags) mkostemp(templte, flags) - #endif --- -2.20.1 - diff --git a/perl-5.31.1-perl-134221-support-append-mode-temp-files-on-Win32-.patch b/perl-5.31.1-perl-134221-support-append-mode-temp-files-on-Win32-.patch deleted file mode 100644 index 21306c1..0000000 --- a/perl-5.31.1-perl-134221-support-append-mode-temp-files-on-Win32-.patch +++ /dev/null @@ -1,76 +0,0 @@ -From 0424723402ef153af8ee44222315d9b6a818d1ba Mon Sep 17 00:00:00 2001 -From: Tony Cook -Date: Tue, 2 Jul 2019 15:22:26 +1000 -Subject: [PATCH 2/3] (perl #134221) support append mode temp files on Win32 - too -MIME-Version: 1.0 -Content-Type: text/plain; charset=UTF-8 -Content-Transfer-Encoding: 8bit - -Signed-off-by: Petr Písař ---- - perlio.c | 2 +- - win32/win32.c | 10 +++++++++- - win32/win32iop.h | 1 + - 3 files changed, 11 insertions(+), 2 deletions(-) - -diff --git a/perlio.c b/perlio.c -index a737e79e02..81ebc156ad 100644 ---- a/perlio.c -+++ b/perlio.c -@@ -5059,7 +5059,7 @@ PerlIO_tmpfile_flags(int imode) - #endif - PerlIO *f = NULL; - #ifdef WIN32 -- const int fd = win32_tmpfd(); -+ const int fd = win32_tmpfd_mode(imode); - if (fd >= 0) - f = PerlIO_fdopen(fd, "w+b"); - #elif ! defined(VMS) && ! defined(OS2) -diff --git a/win32/win32.c b/win32/win32.c -index 8104d864c2..91fdffe09b 100644 ---- a/win32/win32.c -+++ b/win32/win32.c -@@ -2907,10 +2907,18 @@ win32_rewind(FILE *pf) - - DllExport int - win32_tmpfd(void) -+{ -+ return win32_tmpfd_mode(0); -+} -+ -+DllExport int -+win32_tmpfd_mode(int mode) - { - char prefix[MAX_PATH+1]; - char filename[MAX_PATH+1]; - DWORD len = GetTempPath(MAX_PATH, prefix); -+ mode &= ~( O_ACCMODE | O_CREAT | O_EXCL ); -+ mode |= O_RDWR; - if (len && len < MAX_PATH) { - if (GetTempFileName(prefix, "plx", 0, filename)) { - HANDLE fh = CreateFile(filename, -@@ -2922,7 +2930,7 @@ win32_tmpfd(void) - | FILE_FLAG_DELETE_ON_CLOSE, - NULL); - if (fh != INVALID_HANDLE_VALUE) { -- int fd = win32_open_osfhandle((intptr_t)fh, 0); -+ int fd = win32_open_osfhandle((intptr_t)fh, mode); - if (fd >= 0) { - PERL_DEB(dTHX;) - DEBUG_p(PerlIO_printf(Perl_debug_log, -diff --git a/win32/win32iop.h b/win32/win32iop.h -index 53330e5951..559e1f9cd2 100644 ---- a/win32/win32iop.h -+++ b/win32/win32iop.h -@@ -64,6 +64,7 @@ DllExport int win32_fgetpos(FILE *pf,fpos_t *p); - DllExport int win32_fsetpos(FILE *pf,const fpos_t *p); - DllExport void win32_rewind(FILE *pf); - DllExport int win32_tmpfd(void); -+DllExport int win32_tmpfd_mode(int mode); - DllExport FILE* win32_tmpfile(void); - DllExport void win32_abort(void); - DllExport int win32_fstat(int fd,Stat_t *sbufptr); --- -2.20.1 - diff --git a/perl-5.31.2-PerlIO-Via-check-arg-is-non-NULL-before-using-it.patch b/perl-5.31.2-PerlIO-Via-check-arg-is-non-NULL-before-using-it.patch deleted file mode 100644 index 3ded0e2..0000000 --- a/perl-5.31.2-PerlIO-Via-check-arg-is-non-NULL-before-using-it.patch +++ /dev/null @@ -1,38 +0,0 @@ -From 12e1284a67e5e3404c704c3f864749fd9f04c7c4 Mon Sep 17 00:00:00 2001 -From: Tony Cook -Date: Wed, 7 Aug 2019 14:58:14 +1000 -Subject: [PATCH] PerlIO::Via: check arg is non-NULL before using it. -MIME-Version: 1.0 -Content-Type: text/plain; charset=UTF-8 -Content-Transfer-Encoding: 8bit - -I can't find any code in core that ends up calling the _pushed handler -with arg == NULL, but PerlIO_push() is API, and there might be -CPAN or DarkPAN code out there that does, escpecially since there's -a check for arg being non-NULL further down. - -CID 169261. - -Signed-off-by: Petr Písař ---- - ext/PerlIO-via/via.xs | 4 ++-- - 1 file changed, 2 insertions(+), 2 deletions(-) - -diff --git a/ext/PerlIO-via/via.xs b/ext/PerlIO-via/via.xs -index d91c6855fc..8456242bc0 100644 ---- a/ext/PerlIO-via/via.xs -+++ b/ext/PerlIO-via/via.xs -@@ -134,8 +134,8 @@ PerlIOVia_pushed(pTHX_ PerlIO * f, const char *mode, SV * arg, - { - IV code = PerlIOBase_pushed(aTHX_ f, mode, Nullsv, tab); - -- if (SvTYPE(arg) >= SVt_PVMG -- && mg_findext(arg, PERL_MAGIC_ext, &PerlIOVia_tag)) { -+ if (arg && SvTYPE(arg) >= SVt_PVMG -+ && mg_findext(arg, PERL_MAGIC_ext, &PerlIOVia_tag)) { - return code; - } - --- -2.21.0 - diff --git a/perl-5.31.2-Run-tests-in-ext-File-Find-t-in-series.patch b/perl-5.31.2-Run-tests-in-ext-File-Find-t-in-series.patch deleted file mode 100644 index 139d3a4..0000000 --- a/perl-5.31.2-Run-tests-in-ext-File-Find-t-in-series.patch +++ /dev/null @@ -1,30 +0,0 @@ -From 665ac6aded4b9694283d373a0f127f32a3e75b26 Mon Sep 17 00:00:00 2001 -From: James E Keenan -Date: Wed, 7 Aug 2019 09:39:56 -0400 -Subject: [PATCH] Run tests in ext/File-Find/t in series -MIME-Version: 1.0 -Content-Type: text/plain; charset=UTF-8 -Content-Transfer-Encoding: 8bit - -For: RT # 133771 -Signed-off-by: Petr Písař ---- - t/harness | 2 +- - 1 file changed, 1 insertion(+), 1 deletion(-) - -diff --git a/t/harness b/t/harness -index caa2a318b8..b9857fa022 100644 ---- a/t/harness -+++ b/t/harness -@@ -189,7 +189,7 @@ if (@ARGV) { - # directory containing such files should be tested in serial order. - # - # Add exceptions to the above rule -- for (qw(ext/Pod-Html/t cpan/IO-Zlib/t)) { -+ for (qw(ext/Pod-Html/t cpan/IO-Zlib/t ext/File-Find/t)) { - $serials{$_} = 1; - } - --- -2.21.0 - diff --git a/perl-5.31.2-include-a-trailing-0-in-SVs-holding-trie-info.patch b/perl-5.31.2-include-a-trailing-0-in-SVs-holding-trie-info.patch deleted file mode 100644 index 9291dff..0000000 --- a/perl-5.31.2-include-a-trailing-0-in-SVs-holding-trie-info.patch +++ /dev/null @@ -1,37 +0,0 @@ -From 1d84a25665013f389ffc6fad7dd133f1c6287a08 Mon Sep 17 00:00:00 2001 -From: David Mitchell -Date: Tue, 6 Aug 2019 14:36:45 +0100 -Subject: [PATCH] include a trailing \0 in SVs holding trie info -MIME-Version: 1.0 -Content-Type: text/plain; charset=UTF-8 -Content-Transfer-Encoding: 8bit - -RT #13427 - -TRIE_STORE_REVCHAR() was creating SvPV()s with no trailing '\0'. This -doesn't really matter given the specialised use these are put to, but -it upset valgrind et al when perl was run with -Drv which printf("%s")'s -the contents of the string. - -Signed-off-by: Petr Písař ---- - regcomp.c | 3 ++- - 1 file changed, 2 insertions(+), 1 deletion(-) - -diff --git a/regcomp.c b/regcomp.c -index 370221f72e..1117998fc8 100644 ---- a/regcomp.c -+++ b/regcomp.c -@@ -2526,7 +2526,8 @@ is the recommended Unicode-aware way of saying - if (UTF) { \ - SV *zlopp = newSV(UTF8_MAXBYTES); \ - unsigned char *flrbbbbb = (unsigned char *) SvPVX(zlopp); \ -- unsigned const char *const kapow = uvchr_to_utf8(flrbbbbb, val); \ -+ unsigned char *const kapow = uvchr_to_utf8(flrbbbbb, val); \ -+ *kapow = '\0'; \ - SvCUR_set(zlopp, kapow - flrbbbbb); \ - SvPOK_on(zlopp); \ - SvUTF8_on(zlopp); \ --- -2.20.1 - diff --git a/perl-5.31.2-locale.c-Stop-Coverity-warning.patch b/perl-5.31.2-locale.c-Stop-Coverity-warning.patch deleted file mode 100644 index 352f586..0000000 --- a/perl-5.31.2-locale.c-Stop-Coverity-warning.patch +++ /dev/null @@ -1,48 +0,0 @@ -From 21dce8f4eb9136875a886371016aa25788f5144f Mon Sep 17 00:00:00 2001 -From: Karl Williamson -Date: Tue, 6 Aug 2019 21:29:22 -0600 -Subject: [PATCH] locale.c: Stop Coverity warning -MIME-Version: 1.0 -Content-Type: text/plain; charset=UTF-8 -Content-Transfer-Encoding: 8bit - -Coverity is right, so re-order these clauses. This code is executed -only if some very strange error occurs. - -Signed-off-by: Petr Písař ---- - locale.c | 11 ++++++----- - 1 file changed, 6 insertions(+), 5 deletions(-) - -diff --git a/locale.c b/locale.c -index db83d993de..af7af60038 100644 ---- a/locale.c -+++ b/locale.c -@@ -4349,11 +4349,6 @@ Perl__mem_collxfrm(pTHX_ const char *input_string, - return xbuf; - - bad: -- Safefree(xbuf); -- if (s != input_string) { -- Safefree(s); -- } -- *xlen = 0; - - # ifdef DEBUGGING - -@@ -4363,6 +4358,12 @@ Perl__mem_collxfrm(pTHX_ const char *input_string, - - # endif - -+ Safefree(xbuf); -+ if (s != input_string) { -+ Safefree(s); -+ } -+ *xlen = 0; -+ - return NULL; - } - --- -2.20.1 - diff --git a/perl-5.31.2-perl-134291-propagate-non-PVs-in-in-bare-die.patch b/perl-5.31.2-perl-134291-propagate-non-PVs-in-in-bare-die.patch deleted file mode 100644 index 47fd64c..0000000 --- a/perl-5.31.2-perl-134291-propagate-non-PVs-in-in-bare-die.patch +++ /dev/null @@ -1,54 +0,0 @@ -From 85d4e0a35b2d44cf06a9343d23a2f84b8ebb9024 Mon Sep 17 00:00:00 2001 -From: Tony Cook -Date: Wed, 17 Jul 2019 11:32:50 +1000 -Subject: [PATCH] (perl #134291) propagate non-PVs in $@ in bare die() -MIME-Version: 1.0 -Content-Type: text/plain; charset=UTF-8 -Content-Transfer-Encoding: 8bit - -Signed-off-by: Petr Písař ---- - pp_sys.c | 2 +- - t/op/die.t | 6 +++++- - 2 files changed, 6 insertions(+), 2 deletions(-) - -diff --git a/pp_sys.c b/pp_sys.c -index 0214367ea6..251527785e 100644 ---- a/pp_sys.c -+++ b/pp_sys.c -@@ -498,7 +498,7 @@ PP(pp_die) - } - } - } -- else if (SvPOK(errsv) && SvCUR(errsv)) { -+ else if (SvOK(errsv) && (SvPV_nomg(errsv,len), len)) { - exsv = sv_mortalcopy(errsv); - sv_catpvs(exsv, "\t...propagated"); - } -diff --git a/t/op/die.t b/t/op/die.t -index ef2b85f8f5..d6d7daffa5 100644 ---- a/t/op/die.t -+++ b/t/op/die.t -@@ -6,7 +6,7 @@ BEGIN { - set_up_inc('../lib'); - } - --plan tests => 20; -+plan tests => 21; - - eval { - eval { -@@ -94,6 +94,10 @@ like($@, qr/\.{3}propagated at/, '... and appends a phrase'); - local $SIG{__WARN__} = sub { $ok = 0 }; - eval { undef $@; die }; - is( $ok, 1, 'no warnings if $@ is undef' ); -+ -+ eval { $@ = 100; die }; -+ like($@."", qr/100\t\.{3}propagated at/, -+ 'check non-PVs in $@ are propagated'); - } - - TODO: { --- -2.20.1 - diff --git a/perl-5.31.2-perlapi-5.30-promise-not-met-change-to-5.32.patch b/perl-5.31.2-perlapi-5.30-promise-not-met-change-to-5.32.patch deleted file mode 100644 index 60d2d7d..0000000 --- a/perl-5.31.2-perlapi-5.30-promise-not-met-change-to-5.32.patch +++ /dev/null @@ -1,118 +0,0 @@ -From 8b4b30c5d389983c3df51b7ff3b38e5608c7c2e2 Mon Sep 17 00:00:00 2001 -From: Karl Williamson -Date: Sat, 3 Aug 2019 09:17:43 -0600 -Subject: [PATCH] perlapi: 5.30 promise not met; change to 5.32 -MIME-Version: 1.0 -Content-Type: text/plain; charset=UTF-8 -Content-Transfer-Encoding: 8bit - -We delayed this change, but I forgot to change this documentation - -Signed-off-by: Petr Písař ---- - handy.h | 24 ++++++++++++------------ - 1 file changed, 12 insertions(+), 12 deletions(-) - -diff --git a/handy.h b/handy.h -index 24c028a638..2dfbc86125 100644 ---- a/handy.h -+++ b/handy.h -@@ -609,13 +609,13 @@ future releases. - Variant C_utf8> is like C_utf8_safe>, but takes just a single - parameter, C

, which has the same meaning as the corresponding parameter does - in C_utf8_safe>. The function therefore can't check if it is reading --beyond the end of the string. Starting in Perl v5.30, it will take a second -+beyond the end of the string. Starting in Perl v5.32, it will take a second - parameter, becoming a synonym for C_utf8_safe>. At that time every - program that uses it will have to be changed to successfully compile. In the - meantime, the first runtime call to C_utf8> from each call point in the - program will raise a deprecation warning, enabled by default. You can convert - your program now to use C_utf8_safe>, and avoid the warnings, and get an --extra measure of protection, or you can wait until v5.30, when you'll be forced -+extra measure of protection, or you can wait until v5.32, when you'll be forced - to add the C parameter. - - Variant C_LC> is like the C_A> and C_L1> variants, but the -@@ -649,13 +649,13 @@ future releases. - Variant C_LC_utf8> is like C_LC_utf8_safe>, but takes just a single - parameter, C

, which has the same meaning as the corresponding parameter does - in C_LC_utf8_safe>. The function therefore can't check if it is reading --beyond the end of the string. Starting in Perl v5.30, it will take a second -+beyond the end of the string. Starting in Perl v5.32, it will take a second - parameter, becoming a synonym for C_LC_utf8_safe>. At that time every - program that uses it will have to be changed to successfully compile. In the - meantime, the first runtime call to C_LC_utf8> from each call point in - the program will raise a deprecation warning, enabled by default. You can - convert your program now to use C_LC_utf8_safe>, and avoid the warnings, --and get an extra measure of protection, or you can wait until v5.30, when -+and get an extra measure of protection, or you can wait until v5.32, when - you'll be forced to add the C parameter. - - =for apidoc Am|bool|isALPHA|char ch -@@ -897,13 +897,13 @@ implementation, and subject to change in future releases. - =for apidoc Am|UV|toUPPER_utf8|U8* p|U8* s|STRLEN* lenp - This is like C>, but doesn't have the C - parameter The function therefore can't check if it is reading --beyond the end of the string. Starting in Perl v5.30, it will take the C -+beyond the end of the string. Starting in Perl v5.32, it will take the C - parameter, becoming a synonym for C. At that time every - program that uses it will have to be changed to successfully compile. In the - meantime, the first runtime call to C from each call point in the - program will raise a deprecation warning, enabled by default. You can convert - your program now to use C, and avoid the warnings, and get an --extra measure of protection, or you can wait until v5.30, when you'll be forced -+extra measure of protection, or you can wait until v5.32, when you'll be forced - to add the C parameter. - - =for apidoc Am|U8|toFOLD|U8 ch -@@ -944,13 +944,13 @@ implementation, and subject to change in future releases. - =for apidoc Am|UV|toFOLD_utf8|U8* p|U8* s|STRLEN* lenp - This is like C>, but doesn't have the C - parameter The function therefore can't check if it is reading --beyond the end of the string. Starting in Perl v5.30, it will take the C -+beyond the end of the string. Starting in Perl v5.32, it will take the C - parameter, becoming a synonym for C. At that time every - program that uses it will have to be changed to successfully compile. In the - meantime, the first runtime call to C from each call point in the - program will raise a deprecation warning, enabled by default. You can convert - your program now to use C, and avoid the warnings, and get an --extra measure of protection, or you can wait until v5.30, when you'll be forced -+extra measure of protection, or you can wait until v5.32, when you'll be forced - to add the C parameter. - - =for apidoc Am|U8|toLOWER|U8 ch -@@ -999,13 +999,13 @@ implementation, and subject to change in future releases. - =for apidoc Am|UV|toLOWER_utf8|U8* p|U8* s|STRLEN* lenp - This is like C>, but doesn't have the C - parameter The function therefore can't check if it is reading --beyond the end of the string. Starting in Perl v5.30, it will take the C -+beyond the end of the string. Starting in Perl v5.32, it will take the C - parameter, becoming a synonym for C. At that time every - program that uses it will have to be changed to successfully compile. In the - meantime, the first runtime call to C from each call point in the - program will raise a deprecation warning, enabled by default. You can convert - your program now to use C, and avoid the warnings, and get an --extra measure of protection, or you can wait until v5.30, when you'll be forced -+extra measure of protection, or you can wait until v5.32, when you'll be forced - to add the C parameter. - - =for apidoc Am|U8|toTITLE|U8 ch -@@ -1047,13 +1047,13 @@ implementation, and subject to change in future releases. - =for apidoc Am|UV|toTITLE_utf8|U8* p|U8* s|STRLEN* lenp - This is like C>, but doesn't have the C - parameter The function therefore can't check if it is reading --beyond the end of the string. Starting in Perl v5.30, it will take the C -+beyond the end of the string. Starting in Perl v5.32, it will take the C - parameter, becoming a synonym for C. At that time every - program that uses it will have to be changed to successfully compile. In the - meantime, the first runtime call to C from each call point in the - program will raise a deprecation warning, enabled by default. You can convert - your program now to use C, and avoid the warnings, and get an --extra measure of protection, or you can wait until v5.30, when you'll be forced -+extra measure of protection, or you can wait until v5.32, when you'll be forced - to add the C parameter. - - =cut --- -2.21.0 - diff --git a/perl-5.31.2-regcomp.c-Don-t-read-off-the-end-of-buffer.patch b/perl-5.31.2-regcomp.c-Don-t-read-off-the-end-of-buffer.patch deleted file mode 100644 index ff5d596..0000000 --- a/perl-5.31.2-regcomp.c-Don-t-read-off-the-end-of-buffer.patch +++ /dev/null @@ -1,36 +0,0 @@ -From 31532982b04c20a43aa9c3d26780e3591c524fbc Mon Sep 17 00:00:00 2001 -From: Karl Williamson -Date: Thu, 27 Jun 2019 15:39:11 -0600 -Subject: [PATCH] regcomp.c: Don't read off the end of buffer -MIME-Version: 1.0 -Content-Type: text/plain; charset=UTF-8 -Content-Transfer-Encoding: 8bit - -Until this commit, it was possible that \p{nv=3/} would cause the right -brace to be considered part of the property name. - -Spotted by Hugo van der Sanden - -Signed-off-by: Petr Písař ---- - regcomp.c | 4 +++- - 1 file changed, 3 insertions(+), 1 deletion(-) - -diff --git a/regcomp.c b/regcomp.c -index 1117998fc8..cf9246473f 100644 ---- a/regcomp.c -+++ b/regcomp.c -@@ -23092,7 +23092,9 @@ Perl_parse_uniprop_string(pTHX_ - } - - /* Store the first real character in the denominator */ -- lookup_name[j++] = name[i]; -+ if (i < name_len) { -+ lookup_name[j++] = name[i]; -+ } - } - } - --- -2.21.0 - diff --git a/perl-5.31.3-Configure-Include-stdlib.h-in-futimes-check.patch b/perl-5.31.3-Configure-Include-stdlib.h-in-futimes-check.patch deleted file mode 100644 index 0ceb4e0..0000000 --- a/perl-5.31.3-Configure-Include-stdlib.h-in-futimes-check.patch +++ /dev/null @@ -1,30 +0,0 @@ -From 425077e4b85509df2907be6c103d54c0687c7647 Mon Sep 17 00:00:00 2001 -From: Florian Weimer -Date: Mon, 9 Sep 2019 19:35:47 +0200 -Subject: [PATCH 1/2] Configure: Include in futimes check -MIME-Version: 1.0 -Content-Type: text/plain; charset=UTF-8 -Content-Transfer-Encoding: 8bit - -Needed for the exit function. - -Signed-off-by: Petr Písař ---- - Configure | 1 + - 1 file changed, 1 insertion(+) - -diff --git a/Configure b/Configure -index 818deb8378..7aa03d6aed 100755 ---- a/Configure -+++ b/Configure -@@ -14091,6 +14091,7 @@ $cat >try.c < - #include - #include -+#include - - int main () - { --- -2.21.0 - diff --git a/perl-5.31.3-Florian-Weimer-is-now-a-perl-author.patch b/perl-5.31.3-Florian-Weimer-is-now-a-perl-author.patch deleted file mode 100644 index e213e5e..0000000 --- a/perl-5.31.3-Florian-Weimer-is-now-a-perl-author.patch +++ /dev/null @@ -1,28 +0,0 @@ -From da006e4432402cea01c9018743467314377e3c1e Mon Sep 17 00:00:00 2001 -From: Tony Cook -Date: Tue, 10 Sep 2019 10:44:10 +1000 -Subject: [PATCH 2/2] Florian Weimer is now a perl author -MIME-Version: 1.0 -Content-Type: text/plain; charset=UTF-8 -Content-Transfer-Encoding: 8bit - -Signed-off-by: Petr Písař ---- - AUTHORS | 1 + - 1 file changed, 1 insertion(+) - -diff --git a/AUTHORS b/AUTHORS -index a2b6d8c15a..a554cfc045 100644 ---- a/AUTHORS -+++ b/AUTHORS -@@ -418,6 +418,7 @@ Fergal Daly - Fingle Nark - Florent Guillaume - Florian Ragwitz -+Florian Weimer - François Désarménien - François Perrad - Frank Crawford --- -2.21.0 - diff --git a/perl-5.31.3-Supply-missing-right-brace-in-regex-example.patch b/perl-5.31.3-Supply-missing-right-brace-in-regex-example.patch deleted file mode 100644 index 8a320d5..0000000 --- a/perl-5.31.3-Supply-missing-right-brace-in-regex-example.patch +++ /dev/null @@ -1,31 +0,0 @@ -From 7ea7c4bb61d23965a7ad7041fe9c58b5075aac85 Mon Sep 17 00:00:00 2001 -From: James E Keenan -Date: Sat, 31 Aug 2019 19:18:36 -0400 -Subject: [PATCH] Supply missing right brace in regex example -MIME-Version: 1.0 -Content-Type: text/plain; charset=UTF-8 -Content-Transfer-Encoding: 8bit - -As suggested by Jim Avera in RT 134395. - -Signed-off-by: Petr Písař ---- - pod/perlrebackslash.pod | 2 +- - 1 file changed, 1 insertion(+), 1 deletion(-) - -diff --git a/pod/perlrebackslash.pod b/pod/perlrebackslash.pod -index cfd182a7e1..4a8717346d 100644 ---- a/pod/perlrebackslash.pod -+++ b/pod/perlrebackslash.pod -@@ -446,7 +446,7 @@ Mnemonic: Iroup. - =head3 Relative referencing - - C<\g-I> (starting in Perl 5.10.0) is used for relative addressing. (It can --be written as C<\g{-I>.) It refers to the Ith group before the -+be written as C<\g{-I}>.) It refers to the Ith group before the - C<\g{-I}>. - - The big advantage of this form is that it makes it much easier to write --- -2.21.0 - diff --git a/perl-5.31.3-perl-134230-don-t-interpret-0x-0b-when-numifying-str.patch b/perl-5.31.3-perl-134230-don-t-interpret-0x-0b-when-numifying-str.patch deleted file mode 100644 index b7cd756..0000000 --- a/perl-5.31.3-perl-134230-don-t-interpret-0x-0b-when-numifying-str.patch +++ /dev/null @@ -1,57 +0,0 @@ -From 14d26b44a1d7eee67837ec0ea8fb0368ac6fe33e Mon Sep 17 00:00:00 2001 -From: Tony Cook -Date: Tue, 20 Aug 2019 15:43:05 +1000 -Subject: [PATCH] (perl #134230) don't interpret 0x, 0b when numifying strings -MIME-Version: 1.0 -Content-Type: text/plain; charset=UTF-8 -Content-Transfer-Encoding: 8bit - -Signed-off-by: Petr Písař ---- - numeric.c | 9 +++++++++ - t/op/int.t | 5 ++++- - 2 files changed, 13 insertions(+), 1 deletion(-) - -diff --git a/numeric.c b/numeric.c -index f5eadc8173..fae2eb3c6d 100644 ---- a/numeric.c -+++ b/numeric.c -@@ -1551,6 +1551,15 @@ Perl_my_atof3(pTHX_ const char* orig, NV* value, const STRLEN len) - if ((endp = S_my_atof_infnan(aTHX_ s, negative, send, value))) - return endp; - -+ /* strtold() accepts 0x-prefixed hex and in POSIX implementations, -+ 0b-prefixed binary numbers, which is backward incompatible -+ */ -+ if ((len == 0 || len >= 2) && *s == '0' && -+ (isALPHA_FOLD_EQ(s[1], 'x') || isALPHA_FOLD_EQ(s[1], 'b'))) { -+ *value = 0; -+ return (char *)s+1; -+ } -+ - /* If the length is passed in, the input string isn't NUL-terminated, - * and in it turns out the function below assumes it is; therefore we - * create a copy and NUL-terminate that */ -diff --git a/t/op/int.t b/t/op/int.t -index 7e936da68d..b730ab2672 100644 ---- a/t/op/int.t -+++ b/t/op/int.t -@@ -7,7 +7,7 @@ BEGIN { - require Config; - } - --plan 17; -+plan 19; - - # compile time evaluation - -@@ -83,3 +83,6 @@ SKIP: - cmp_ok($x, "==", int($x), "check $x == int($x)"); - } - } -+ -+is(1+"0x10", 1, "check string '0x' prefix not treated as hex"); -+is(1+"0b10", 1, "check string '0b' prefix not treated as binary"); --- -2.21.0 - diff --git a/perl-5.31.3-regcomp.c-Fix-wrong-limit-test.patch b/perl-5.31.3-regcomp.c-Fix-wrong-limit-test.patch deleted file mode 100644 index 6d6b5d0..0000000 --- a/perl-5.31.3-regcomp.c-Fix-wrong-limit-test.patch +++ /dev/null @@ -1,31 +0,0 @@ -From 8d3e0237887e7149be56d17a9448cb465edc5f76 Mon Sep 17 00:00:00 2001 -From: Karl Williamson -Date: Thu, 22 Aug 2019 10:16:14 -0600 -Subject: [PATCH] regcomp.c: Fix wrong limit test -MIME-Version: 1.0 -Content-Type: text/plain; charset=UTF-8 -Content-Transfer-Encoding: 8bit - -Spotted by Hugo van der Sanden in code reading. - -Signed-off-by: Petr Písař ---- - regcomp.c | 2 +- - 1 file changed, 1 insertion(+), 1 deletion(-) - -diff --git a/regcomp.c b/regcomp.c -index aba6648da5..d61fd434fe 100644 ---- a/regcomp.c -+++ b/regcomp.c -@@ -23132,7 +23132,7 @@ Perl_parse_uniprop_string(pTHX_ - - /* If the original input began with 'In' or 'Is', it could be a subroutine - * call to a user-defined property instead of a Unicode property name. */ -- if ( non_pkg_begin + name_len > 2 -+ if ( name_len - non_pkg_begin > 2 - && name[non_pkg_begin+0] == 'I' - && (name[non_pkg_begin+1] == 'n' || name[non_pkg_begin+1] == 's')) - { --- -2.21.0 - diff --git a/perl-5.31.4-Handle-undefined-values-correctly.patch b/perl-5.31.4-Handle-undefined-values-correctly.patch deleted file mode 100644 index e5a60cf..0000000 --- a/perl-5.31.4-Handle-undefined-values-correctly.patch +++ /dev/null @@ -1,237 +0,0 @@ -From 01aed385e6bdbdcfd13bb66e9d8b7c55d2cfc34a Mon Sep 17 00:00:00 2001 -From: James E Keenan -Date: Thu, 19 Sep 2019 23:02:54 -0400 -Subject: [PATCH] Handle undefined values correctly -MIME-Version: 1.0 -Content-Type: text/plain; charset=UTF-8 -Content-Transfer-Encoding: 8bit - -As reported by Henrik Pauli in RT 134441, the documentation's claim that - - $dv->dumpValue([$x, $y]); - -and - - $dv->dumpValues($x, $y); - -was not being sustained in the case where one of the elements in the -array (or array ref) was undefined. This was due to an insufficiently -precise specification within the dumpValues() method for determining -when the value "undef\n" should be printed. - -Tests for previously untested cases have been provided in -t/rt-134441-dumpvalue.t. They were not appended to t/Dumpvalue.t (as -would normally have been the case) because the tests in that file have -accreted over the years in a sub-optimal manner: changes in attributes -of the Dumpvalue object are tested but those changes are not zeroed-out -(by, e.g., use of 'local $self->{attribute} = undef') -before additional attributes are modified and tested. As a consequence, -it's difficult to determine the state of the Dumpvalue object at any -particular point and interactions between attributes cannot be ruled -out. - -Package TieOut, used to capture STDOUT during testing, has been -extracted to its own file so that it can be used by all test files. - -Signed-off-by: Petr Písař ---- - MANIFEST | 2 + - dist/Dumpvalue/lib/Dumpvalue.pm | 4 +- - dist/Dumpvalue/t/Dumpvalue.t | 20 +----- - dist/Dumpvalue/t/lib/TieOut.pm | 20 ++++++ - dist/Dumpvalue/t/rt-134441-dumpvalue.t | 86 ++++++++++++++++++++++++++ - 5 files changed, 112 insertions(+), 20 deletions(-) - create mode 100644 dist/Dumpvalue/t/lib/TieOut.pm - create mode 100644 dist/Dumpvalue/t/rt-134441-dumpvalue.t - -diff --git a/MANIFEST b/MANIFEST -index 7bf62d8479..8159ac8cc1 100644 ---- a/MANIFEST -+++ b/MANIFEST -@@ -3455,6 +3455,8 @@ dist/Devel-SelfStubber/lib/Devel/SelfStubber.pm Generate stubs for SelfLoader.pm - dist/Devel-SelfStubber/t/Devel-SelfStubber.t See if Devel::SelfStubber works - dist/Dumpvalue/lib/Dumpvalue.pm Screen dump of perl values - dist/Dumpvalue/t/Dumpvalue.t See if Dumpvalue works -+dist/Dumpvalue/t/lib/TieOut.pm Helper module for Dumpvalue tests -+dist/Dumpvalue/t/rt-134441-dumpvalue.t See if Dumpvalue works - dist/encoding-warnings/lib/encoding/warnings.pm warn on implicit encoding conversions - dist/encoding-warnings/t/1-warning.t tests for encoding::warnings - dist/encoding-warnings/t/2-fatal.t tests for encoding::warnings -diff --git a/dist/Dumpvalue/lib/Dumpvalue.pm b/dist/Dumpvalue/lib/Dumpvalue.pm -index eef9b27157..3faf829538 100644 ---- a/dist/Dumpvalue/lib/Dumpvalue.pm -+++ b/dist/Dumpvalue/lib/Dumpvalue.pm -@@ -1,7 +1,7 @@ - use 5.006_001; # for (defined ref) and $#$v and our - package Dumpvalue; - use strict; --our $VERSION = '1.18'; -+our $VERSION = '1.19'; - our(%address, $stab, @stab, %stab, %subs); - - sub ASCII { return ord('A') == 65; } -@@ -79,7 +79,7 @@ sub dumpValues { - my $self = shift; - local %address; - local $^W=0; -- (print "undef\n"), return unless defined $_[0]; -+ (print "undef\n"), return if (@_ == 1 and not defined $_[0]); - $self->unwrap(\@_,0); - } - -diff --git a/dist/Dumpvalue/t/Dumpvalue.t b/dist/Dumpvalue/t/Dumpvalue.t -index 7063dd984c..ba8775126e 100644 ---- a/dist/Dumpvalue/t/Dumpvalue.t -+++ b/dist/Dumpvalue/t/Dumpvalue.t -@@ -16,6 +16,8 @@ BEGIN { - - our ( $foo, @bar, %baz ); - -+use lib ("./t/lib"); -+use TieOut; - use Test::More tests => 88; - - use_ok( 'Dumpvalue' ); -@@ -278,21 +280,3 @@ is( $out->read, "0 0..0 'two'\n", 'dumpValues worked on array ref' ); - $d->dumpValues('one', 'two'); - is( $out->read, "0..1 'one' 'two'\n", 'dumpValues worked on multiple values' ); - -- --package TieOut; --use overload '"' => sub { "overloaded!" }; -- --sub TIEHANDLE { -- my $class = shift; -- bless(\( my $ref), $class); --} -- --sub PRINT { -- my $self = shift; -- $$self .= join('', @_); --} -- --sub read { -- my $self = shift; -- return substr($$self, 0, length($$self), ''); --} -diff --git a/dist/Dumpvalue/t/lib/TieOut.pm b/dist/Dumpvalue/t/lib/TieOut.pm -new file mode 100644 -index 0000000000..568caedf9c ---- /dev/null -+++ b/dist/Dumpvalue/t/lib/TieOut.pm -@@ -0,0 +1,20 @@ -+package TieOut; -+use overload '"' => sub { "overloaded!" }; -+ -+sub TIEHANDLE { -+ my $class = shift; -+ bless(\( my $ref), $class); -+} -+ -+sub PRINT { -+ my $self = shift; -+ $$self .= join('', @_); -+} -+ -+sub read { -+ my $self = shift; -+ return substr($$self, 0, length($$self), ''); -+} -+ -+1; -+ -diff --git a/dist/Dumpvalue/t/rt-134441-dumpvalue.t b/dist/Dumpvalue/t/rt-134441-dumpvalue.t -new file mode 100644 -index 0000000000..cc9f270f5a ---- /dev/null -+++ b/dist/Dumpvalue/t/rt-134441-dumpvalue.t -@@ -0,0 +1,86 @@ -+BEGIN { -+ require Config; -+ if (($Config::Config{'extensions'} !~ m!\bList/Util\b!) ){ -+ print "1..0 # Skip -- Perl configured without List::Util module\n"; -+ exit 0; -+ } -+ -+ # `make test` in the CPAN version of this module runs us with -w, but -+ # Dumpvalue.pm relies on all sorts of things that can cause warnings. I -+ # don't think that's worth fixing, so we just turn off all warnings -+ # during testing. -+ $^W = 0; -+} -+ -+use lib ("./t/lib"); -+use TieOut; -+use Test::More tests => 17; -+ -+use_ok( 'Dumpvalue' ); -+ -+my $d; -+ok( $d = Dumpvalue->new(), 'create a new Dumpvalue object' ); -+ -+my $out = tie *OUT, 'TieOut'; -+select(OUT); -+ -+my (@foobar, $x, $y); -+ -+@foobar = ('foo', 'bar'); -+$d->dumpValue([@foobar]); -+$x = $out->read; -+is( $x, "0 'foo'\n1 'bar'\n", 'dumpValue worked on array ref' ); -+$d->dumpValues(@foobar); -+$y = $out->read; -+is( $y, "0 'foo'\n1 'bar'\n", 'dumpValues worked on array' ); -+is( $y, $x, -+ "dumpValues called on array returns same as dumpValue on array ref"); -+ -+@foobar = (undef, 'bar'); -+$d->dumpValue([@foobar]); -+$x = $out->read; -+is( $x, "0 undef\n1 'bar'\n", -+ 'dumpValue worked on array ref, first element undefined' ); -+$d->dumpValues(@foobar); -+$y = $out->read; -+is( $y, "0 undef\n1 'bar'\n", -+ 'dumpValues worked on array, first element undefined' ); -+is( $y, $x, -+ "dumpValues called on array returns same as dumpValue on array ref, first element undefined"); -+ -+@foobar = ('bar', undef); -+$d->dumpValue([@foobar]); -+$x = $out->read; -+is( $x, "0 'bar'\n1 undef\n", -+ 'dumpValue worked on array ref, last element undefined' ); -+$d->dumpValues(@foobar); -+$y = $out->read; -+is( $y, "0 'bar'\n1 undef\n", -+ 'dumpValues worked on array, last element undefined' ); -+is( $y, $x, -+ "dumpValues called on array returns same as dumpValue on array ref, last element undefined"); -+ -+@foobar = ('', 'bar'); -+$d->dumpValue([@foobar]); -+$x = $out->read; -+is( $x, "0 ''\n1 'bar'\n", -+ 'dumpValue worked on array ref, first element empty string' ); -+$d->dumpValues(@foobar); -+$y = $out->read; -+is( $y, "0 ''\n1 'bar'\n", -+ 'dumpValues worked on array, first element empty string' ); -+is( $y, $x, -+ "dumpValues called on array returns same as dumpValue on array ref, first element empty string"); -+ -+@foobar = ('bar', ''); -+$d->dumpValue([@foobar]); -+$x = $out->read; -+is( $x, "0 'bar'\n1 ''\n", -+ 'dumpValue worked on array ref, last element empty string' ); -+$d->dumpValues(@foobar); -+$y = $out->read; -+is( $y, "0 'bar'\n1 ''\n", -+ 'dumpValues worked on array, last element empty string' ); -+is( $y, $x, -+ "dumpValues called on array returns same as dumpValue on array ref, last element empty string"); -+ --- -2.21.0 - diff --git a/perl-5.31.5-Be-clearer-about-taint-s-effect-on-INC.patch b/perl-5.31.5-Be-clearer-about-taint-s-effect-on-INC.patch deleted file mode 100644 index 5c69996..0000000 --- a/perl-5.31.5-Be-clearer-about-taint-s-effect-on-INC.patch +++ /dev/null @@ -1,32 +0,0 @@ -From a1c1fa25b1b25efb11cc8f987e007d4dd20056bc Mon Sep 17 00:00:00 2001 -From: Dave Cross -Date: Wed, 23 Oct 2019 12:50:01 +0100 -Subject: [PATCH] Be clearer about taint's effect on @INC. -MIME-Version: 1.0 -Content-Type: text/plain; charset=UTF-8 -Content-Transfer-Encoding: 8bit - -Signed-off-by: Petr Písař ---- - pod/perlsec.pod | 5 +++-- - 1 file changed, 3 insertions(+), 2 deletions(-) - -diff --git a/pod/perlsec.pod b/pod/perlsec.pod -index 0682674143..a631981ba5 100644 ---- a/pod/perlsec.pod -+++ b/pod/perlsec.pod -@@ -269,8 +269,9 @@ problem will be reported: - Insecure dependency in require while running with -T switch - - On versions of Perl before 5.26, activating taint mode will also remove --the current directory (".") from C<@INC>. Since version 5.26, the --current directory isn't included in C<@INC>. -+the current directory (".") from the default value of C<@INC>. Since -+version 5.26, the current directory isn't included in C<@INC> by -+default. - - =head2 Cleaning Up Your Path - --- -2.21.0 - diff --git a/perl-5.31.5-Fix-taint-mode-INC-documentation.patch b/perl-5.31.5-Fix-taint-mode-INC-documentation.patch deleted file mode 100644 index 099a6ea..0000000 --- a/perl-5.31.5-Fix-taint-mode-INC-documentation.patch +++ /dev/null @@ -1,45 +0,0 @@ -From f73351928dfa1d1d564d3f7b8e63c5281ed835ee Mon Sep 17 00:00:00 2001 -From: Dave Cross -Date: Tue, 22 Oct 2019 14:24:13 +0100 -Subject: [PATCH] Fix taint mode @INC documentation -MIME-Version: 1.0 -Content-Type: text/plain; charset=UTF-8 -Content-Transfer-Encoding: 8bit - -Explain that -T no longer removes '.' from @INC because, since -5.26, '.' isn't in @INC to start with. - -Signed-off-by: Petr Písař ---- - pod/perlsec.pod | 8 ++++++-- - 1 file changed, 6 insertions(+), 2 deletions(-) - -diff --git a/pod/perlsec.pod b/pod/perlsec.pod -index b210445685..0682674143 100644 ---- a/pod/perlsec.pod -+++ b/pod/perlsec.pod -@@ -245,8 +245,8 @@ Unix-like environments that support #! and setuid or setgid scripts.) - - =head2 Taint mode and @INC - --When the taint mode (C<-T>) is in effect, the "." directory is removed --from C<@INC>, and the environment variables C and C -+When the taint mode (C<-T>) is in effect, the environment variables -+C and C - are ignored by Perl. You can still adjust C<@INC> from outside the - program by using the C<-I> command line option as explained in - L. The two environment variables are ignored because -@@ -268,6 +268,10 @@ problem will be reported: - - Insecure dependency in require while running with -T switch - -+On versions of Perl before 5.26, activating taint mode will also remove -+the current directory (".") from C<@INC>. Since version 5.26, the -+current directory isn't included in C<@INC>. -+ - =head2 Cleaning Up Your Path - - For "Insecure C<$ENV{PATH}>" messages, you need to set C<$ENV{'PATH'}> to --- -2.21.0 - diff --git a/perl-5.31.5-Tie-StdHandle-BINMODE-handle-layer-argument.patch b/perl-5.31.5-Tie-StdHandle-BINMODE-handle-layer-argument.patch deleted file mode 100644 index 54a1817..0000000 --- a/perl-5.31.5-Tie-StdHandle-BINMODE-handle-layer-argument.patch +++ /dev/null @@ -1,77 +0,0 @@ -From a4e94e39cfa6852b1d57e61ee122c8083ab9d82e Mon Sep 17 00:00:00 2001 -From: Hauke D -Date: Mon, 20 Nov 2017 15:31:57 +0100 -Subject: [PATCH] Tie::StdHandle::BINMODE: handle layer argument -MIME-Version: 1.0 -Content-Type: text/plain; charset=UTF-8 -Content-Transfer-Encoding: 8bit - -Fixes #16262 - -BINMODE was not handling the LAYER argument. -Also bump the version number. - -(cherry picked from commit 479d04b98e5b747e5c9ead7368d3e132f524a2b7) -Signed-off-by: Nicolas R -Signed-off-by: Petr Písař ---- - lib/Tie/Handle/stdhandle.t | 13 ++++++++++++- - lib/Tie/StdHandle.pm | 4 ++-- - 2 files changed, 14 insertions(+), 3 deletions(-) - -diff --git a/lib/Tie/Handle/stdhandle.t b/lib/Tie/Handle/stdhandle.t -index d2f04bcc5c..6c20d90f2b 100644 ---- a/lib/Tie/Handle/stdhandle.t -+++ b/lib/Tie/Handle/stdhandle.t -@@ -5,7 +5,7 @@ BEGIN { - @INC = '../lib'; - } - --use Test::More tests => 27; -+use Test::More tests => 29; - - use_ok('Tie::StdHandle'); - -@@ -72,6 +72,17 @@ is($b, "rhubarbX\n", "b eq rhubarbX"); - $b = <$f>; - is($b, "89\n", "b eq 89"); - -+# binmode should pass through layer argument -+ -+binmode $f, ':raw'; -+ok !grep( $_ eq 'utf8', PerlIO::get_layers(tied(*$f)) ), -+ 'no utf8 in layers after binmode :raw'; -+binmode $f, ':utf8'; -+ok grep( $_ eq 'utf8', PerlIO::get_layers(tied(*$f)) ), -+ 'utf8 is in layers after binmode :utf8'; -+ -+# finish up -+ - ok(eof($f), "eof"); - ok(close($f), "close"); - -diff --git a/lib/Tie/StdHandle.pm b/lib/Tie/StdHandle.pm -index dfb86634f0..fb79a986c6 100644 ---- a/lib/Tie/StdHandle.pm -+++ b/lib/Tie/StdHandle.pm -@@ -4,7 +4,7 @@ use strict; - - use Tie::Handle; - our @ISA = 'Tie::Handle'; --our $VERSION = '4.5'; -+our $VERSION = '4.6'; - - =head1 NAME - -@@ -48,7 +48,7 @@ sub TELL { tell($_[0]) } - sub FILENO { fileno($_[0]) } - sub SEEK { seek($_[0],$_[1],$_[2]) } - sub CLOSE { close($_[0]) } --sub BINMODE { binmode($_[0]) } -+sub BINMODE { &CORE::binmode(shift, @_) } - - sub OPEN - { --- -2.21.0 - diff --git a/perl-5.31.5-prevent-a-race-between-name-based-stat-and-an-open-m.patch b/perl-5.31.5-prevent-a-race-between-name-based-stat-and-an-open-m.patch deleted file mode 100644 index 27a500b..0000000 --- a/perl-5.31.5-prevent-a-race-between-name-based-stat-and-an-open-m.patch +++ /dev/null @@ -1,48 +0,0 @@ -From 7c3f362035dec9b7eaec388b1f7f1619c1bd96a3 Mon Sep 17 00:00:00 2001 -From: Tony Cook -Date: Mon, 4 Nov 2019 09:52:22 +1100 -Subject: [PATCH] prevent a race between name-based stat and an open modifying - atime -MIME-Version: 1.0 -Content-Type: text/plain; charset=UTF-8 -Content-Transfer-Encoding: 8bit - -Most linux systems rarely update atime, so it's very unlikely -for this issue to trigger there, but on a system with classic atime -behaviour this was a race between open modifying atime and time() -ticking over. - -gh #17234 - -Signed-off-by: Petr Písař ---- - lib/File/stat.t | 6 ++++-- - 1 file changed, 4 insertions(+), 2 deletions(-) - -diff --git a/lib/File/stat.t b/lib/File/stat.t -index c403fc4498..fc9bb12cef 100644 ---- a/lib/File/stat.t -+++ b/lib/File/stat.t -@@ -133,6 +133,9 @@ SKIP: { - test_X_ops($^X, "for $^X", qr/A/); - } - -+# open early so atime is consistent with the name based call -+local *STAT; -+my $canopen = open(STAT, '<', $file); - - my $stat = File::stat::stat($file); - isa_ok($stat, 'File::stat', 'should build a stat object'); -@@ -143,8 +146,7 @@ for (split //, "tTB") { - } - - SKIP: { -- local *STAT; -- skip("Could not open file: $!", 2) unless open(STAT, '<', $file); -+ skip("Could not open file: $!", 2) unless $canopen; - isa_ok(File::stat::stat('STAT'), 'File::stat', - '... should be able to find filehandle'); - --- -2.21.0 - diff --git a/perl-5.31.5-toke.c-Fix-bug-tr-upgrading-to-UTF-8-in-middle.patch b/perl-5.31.5-toke.c-Fix-bug-tr-upgrading-to-UTF-8-in-middle.patch deleted file mode 100644 index 7a222bf..0000000 --- a/perl-5.31.5-toke.c-Fix-bug-tr-upgrading-to-UTF-8-in-middle.patch +++ /dev/null @@ -1,78 +0,0 @@ -From 0c311b7c345769239f38d0139ea7738feec5ca4d Mon Sep 17 00:00:00 2001 -From: Karl Williamson -Date: Sat, 2 Nov 2019 13:59:38 -0600 -Subject: [PATCH] toke.c: Fix bug tr/// upgrading to UTF-8 in middle -MIME-Version: 1.0 -Content-Type: text/plain; charset=UTF-8 -Content-Transfer-Encoding: 8bit - -Consider tr/\x{ff}-\x{100}/AB/. - -While parsing, the code keeps an offset from the beginning of the output -to the beginning of the second number in the range. This is purely for -speed so that it wouldn't have to re-find the beginning of that value, -when it already knew it. - -But the example above shows the folly of this shortcut. The second -number in the range causes the output to be upgraded to UTF-8, which -makes that offset invalid in general. Change to re-find the beginning. - -Signed-off-by: Petr Písař ---- - t/op/tr.t | 12 +++++++++++- - toke.c | 4 +++- - 2 files changed, 14 insertions(+), 2 deletions(-) - -diff --git a/t/op/tr.t b/t/op/tr.t -index 47d603d4fd..25125c5bc7 100644 ---- a/t/op/tr.t -+++ b/t/op/tr.t -@@ -13,7 +13,7 @@ BEGIN { - - use utf8; - --plan tests => 301; -+plan tests => 304; - - # Test this first before we extend the stack with other operations. - # This caused an asan failure due to a bad write past the end of the stack. -@@ -1145,4 +1145,14 @@ for ("", nullrocow) { - 'RT #133880 illegal \N{}'); - } - -+{ -+ my $c = "\xff"; -+ my $d = "\x{104}"; -+ eval '$c =~ tr/\x{ff}-\x{104}/\x{100}-\x{105}/'; -+ is($@, "", 'tr/\x{ff}-\x{104}/\x{100}-\x{105}/ compiled'); -+ is($c, "\x{100}", 'ff -> 100'); -+ eval '$d =~ tr/\x{ff}-\x{104}/\x{100}-\x{105}/'; -+ is($d, "\x{105}", '104 -> 105'); -+} -+ - 1; -diff --git a/toke.c b/toke.c -index 2995737af2..28f305c62c 100644 ---- a/toke.c -+++ b/toke.c -@@ -3044,7 +3044,7 @@ S_scan_const(pTHX_ char *start) - * 'offset_to_max' is the offset in 'sv' at which the character - * (the range's maximum end point) before 'd' begins. - */ -- char * max_ptr = SvPVX(sv) + offset_to_max; -+ char * max_ptr; - char * min_ptr; - IV range_min; - IV range_max; /* last character in range */ -@@ -3056,6 +3056,8 @@ S_scan_const(pTHX_ char *start) - IV real_range_max = 0; - #endif - /* Get the code point values of the range ends. */ -+ max_ptr = (d_is_utf8) ? (char *) utf8_hop( (U8*) d, -1) : d - 1; -+ offset_to_max = max_ptr - SvPVX_const(sv); - if (d_is_utf8) { - /* We know the utf8 is valid, because we just constructed - * it ourselves in previous loop iterations */ --- -2.21.0 - diff --git a/perl-5.31.5-toke.c-comment-changes.patch b/perl-5.31.5-toke.c-comment-changes.patch deleted file mode 100644 index 439a97d..0000000 --- a/perl-5.31.5-toke.c-comment-changes.patch +++ /dev/null @@ -1,48 +0,0 @@ -From d7f7b0e39a10a6e3e0bd81d15473ee522a064016 Mon Sep 17 00:00:00 2001 -From: Karl Williamson -Date: Mon, 4 Nov 2019 21:55:53 -0700 -Subject: [PATCH] toke.c: comment changes -MIME-Version: 1.0 -Content-Type: text/plain; charset=UTF-8 -Content-Transfer-Encoding: 8bit - -These should have been included in -0c311b7c345769239f38d0139ea7738feec5ca4d - -Signed-off-by: Petr Písař ---- - toke.c | 11 ++--------- - 1 file changed, 2 insertions(+), 9 deletions(-) - -diff --git a/toke.c b/toke.c -index 3f376640ef..9c1e77f9db 100644 ---- a/toke.c -+++ b/toke.c -@@ -3032,13 +3032,8 @@ S_scan_const(pTHX_ char *start) - s++; /* Skip past the hyphen */ - - /* d now points to where the end-range character will be -- * placed. Save it so won't have to go finding it later, -- * and drop down to get that character. (Actually we -- * instead save the offset, to handle the case where a -- * realloc in the meantime could change the actual -- * pointer). We'll finish processing the range the next -- * time through the loop */ -- offset_to_max = d - SvPVX_const(sv); -+ * placed. Drop down to get that character. We'll finish -+ * processing the range the next time through the loop */ - - if (s_is_utf8 && UTF8_IS_ABOVE_LATIN1(*s)) { - has_above_latin1 = TRUE; -@@ -3055,8 +3050,6 @@ S_scan_const(pTHX_ char *start) - * are the range start and range end, in order. - * 'd' points to just beyond the range end in the 'sv' string, - * where we would next place something -- * 'offset_to_max' is the offset in 'sv' at which the character -- * (the range's maximum end point) before 'd' begins. - */ - char * max_ptr; - char * min_ptr; --- -2.21.0 - diff --git a/perl-5.31.6-PATCH-GH-17081-Workaround-glibc-bug-with-LC_MESSAGES.patch b/perl-5.31.6-PATCH-GH-17081-Workaround-glibc-bug-with-LC_MESSAGES.patch deleted file mode 100644 index f806ef8..0000000 --- a/perl-5.31.6-PATCH-GH-17081-Workaround-glibc-bug-with-LC_MESSAGES.patch +++ /dev/null @@ -1,105 +0,0 @@ -From 45cef8fb80248a6318f90219499ff2dbd953ae8c Mon Sep 17 00:00:00 2001 -From: Karl Williamson -Date: Wed, 27 Nov 2019 19:15:11 -0700 -Subject: [PATCH] PATCH: GH #17081: Workaround glibc bug with LC_MESSAGES -MIME-Version: 1.0 -Content-Type: text/plain; charset=UTF-8 -Content-Transfer-Encoding: 8bit - -Please see the ticket for a full explanation. This bug has been -submitted to glibc, without any real action forthcoming so far. - -This invalidates the message cache each time the locale of LC_MESSAGES -is changed, as glibc should be doing this when uselocale changes that, -but glibc fails to do so. - -This patch is an extension to the one submitted by Niko Tyni++. - -I don't know how to test it, since a test would rely on several -different locales in different languages being available, and that -depends on what's installed on the platform. I suppose that one could -go through the available locales, and try to find three with different -wording for the same message. Doing so however would trigger the bug, -and at the end, if we didn't get three that differed, we wouldn't know -we wouldn't know if it is because of the bug, or that they just didn't -exist on the system. - -However, below is a perl program that demonstrated the patch worked. -You could adjust it to the available locales. The buggy code shows the -same text for all locales. The fixed shows three different languages. - -use strict; - -use Locale::gettext; -use POSIX; - -$ENV{LANG} = 'C.UTF-8'; - -for my $lang (qw(fi_FI fr_FR en_US)) { - $ENV{LANGUAGE} = $lang; - setlocale(LC_MESSAGES, ''); - my $d = Locale::gettext->domain("bash"); - print $d->get('syntax error'), "\n"; -} - -Signed-off-by: Petr Písař ---- - locale.c | 21 +++++++++++++++++++++ - 1 file changed, 21 insertions(+) - -diff --git a/locale.c b/locale.c -index cdf125cee5..7ce7b3ed4c 100644 ---- a/locale.c -+++ b/locale.c -@@ -402,6 +402,7 @@ S_category_name(const int category) - * known at compile time; "do_setlocale_r", not known until run time */ - # define do_setlocale_c(cat, locale) my_setlocale(cat, locale) - # define do_setlocale_r(cat, locale) my_setlocale(cat, locale) -+# define FIX_GLIBC_LC_MESSAGES_BUG(i) - - #else /* Below uses POSIX 2008 */ - -@@ -415,6 +416,22 @@ S_category_name(const int category) - emulate_setlocale(cat, locale, cat ## _INDEX, TRUE) - # define do_setlocale_r(cat, locale) emulate_setlocale(cat, locale, 0, FALSE) - -+# if ! defined(__GLIBC__) || ! defined(USE_LOCALE_MESSAGES) -+ -+# define FIX_GLIBC_LC_MESSAGES_BUG(i) -+ -+# else /* Invalidate glibc cache of loaded translations, see [perl #134264] */ -+ -+# include -+# define FIX_GLIBC_LC_MESSAGES_BUG(i) \ -+ STMT_START { \ -+ if ((i) == LC_MESSAGES_INDEX) { \ -+ textdomain(textdomain(NULL)); \ -+ } \ -+ } STMT_END -+ -+# endif -+ - /* A third array, parallel to the ones above to map from category to its - * equivalent mask */ - const int category_masks[] = { -@@ -1158,6 +1175,8 @@ S_emulate_setlocale(const int category, - Safefree(PL_curlocales[i]); - PL_curlocales[i] = savepv(locale); - } -+ -+ FIX_GLIBC_LC_MESSAGES_BUG(LC_MESSAGES_INDEX); - } - else { - -@@ -1172,6 +1191,8 @@ S_emulate_setlocale(const int category, - /* Then update the category's record */ - Safefree(PL_curlocales[index]); - PL_curlocales[index] = savepv(locale); -+ -+ FIX_GLIBC_LC_MESSAGES_BUG(index); - } - - # endif --- -2.21.1 - diff --git a/perl-5.31.7-Add-tests-for-IO-Handle-getline-and-getlines.patch b/perl-5.31.7-Add-tests-for-IO-Handle-getline-and-getlines.patch deleted file mode 100644 index 222dddd..0000000 --- a/perl-5.31.7-Add-tests-for-IO-Handle-getline-and-getlines.patch +++ /dev/null @@ -1,200 +0,0 @@ -From 7a992ccc8be4ce4c27268e1980edb4701f9948d9 Mon Sep 17 00:00:00 2001 -From: Nicholas Clark -Date: Sun, 3 Nov 2019 11:06:59 +0100 -Subject: [PATCH] Add tests for IO::Handle getline() and getlines(). -MIME-Version: 1.0 -Content-Type: text/plain; charset=UTF-8 -Content-Transfer-Encoding: 8bit - -Extend the tests for <> and the open pragma to verify that the behaviour -changes with/without the open pragma. - -Signed-off-by: Petr Písař ---- - MANIFEST | 1 + - dist/IO/README | 1 - - dist/IO/t/io_getline.t | 117 ++++++++++++++++++++++++++++++++++++++++ - dist/IO/t/io_utf8argv.t | 13 +++-- - 4 files changed, 128 insertions(+), 4 deletions(-) - create mode 100644 dist/IO/t/io_getline.t - -diff --git a/MANIFEST b/MANIFEST -index cb5c0bb1b4..85d3283231 100644 ---- a/MANIFEST -+++ b/MANIFEST -@@ -3676,6 +3676,7 @@ dist/IO/t/io_dir.t See if directory-related methods from IO work - dist/IO/t/io_dup.t See if dup()-related methods from IO work - dist/IO/t/io_file.t See if binmode()-related methods on IO::File work - dist/IO/t/io_file_export.t Test IO::File exports -+dist/IO/t/io_getline.t Test getline and getlines - dist/IO/t/io_leak.t See if IO leaks SVs (only run in core) - dist/IO/t/io_linenum.t See if I/O line numbers are tracked correctly - dist/IO/t/io_multihomed.t See if INET sockets work with multi-homed hosts -diff --git a/dist/IO/README b/dist/IO/README -index 3783750c89..5457a632c2 100644 ---- a/dist/IO/README -+++ b/dist/IO/README -@@ -24,4 +24,3 @@ To build, test and install this distribution type: - - Share and Enjoy! - Graham Barr -- -diff --git a/dist/IO/t/io_getline.t b/dist/IO/t/io_getline.t -new file mode 100644 -index 0000000000..22361e6b7e ---- /dev/null -+++ b/dist/IO/t/io_getline.t -@@ -0,0 +1,117 @@ -+#!./perl -w -+use strict; -+ -+use Test::More tests => 37; -+ -+my $File = 'README'; -+ -+use IO::File; -+ -+my $io = IO::File->new($File); -+isa_ok($io, 'IO::File', "Opening $File"); -+ -+my $line = $io->getline(); -+like($line, qr/^This is the/, "Read first line"); -+ -+my ($list, $context) = $io->getline(); -+is($list, "\n", "Read second line"); -+is($context, undef, "Did not read third line with getline() in list context"); -+ -+$line = $io->getline(); -+like($line, qr/^This distribution/, "Read third line"); -+ -+my @lines = $io->getlines(); -+cmp_ok(@lines, '>', 3, "getlines reads lots of lines"); -+like($lines[-2], qr/^Share and Enjoy!/, "Share and Enjoy!"); -+ -+$line = $io->getline(); -+is($line, undef, "geline reads no more at EOF"); -+ -+@lines = $io->getlines(); -+is(@lines, 0, "gelines reads no more at EOF"); -+ -+# And again -+$io = IO::File->new($File); -+isa_ok($io, 'IO::File', "Opening $File"); -+ -+$line = $io->getline(); -+like($line, qr/^This is the/, "Read first line again"); -+ -+is(eval { -+ $line = $io->getline("Boom"); -+ 1; -+ }, undef, "eval caught an exception"); -+like($@, qr/^usage.*getline\(\) at .*\bio_getline\.t line /, 'getline usage'); -+like($line, qr/^This is the/, '$line unchanged'); -+ -+is(eval { -+ ($list, $context) = $io->getlines("Boom"); -+ 1; -+ }, undef, "eval caught an exception"); -+like($@, qr/^usage.*getlines\(\) at .*\bio_getline\.t line /, 'getlines usage'); -+is($list, "\n", '$list unchanged'); -+ -+is(eval { -+ $line = $io->getlines(); -+ 1; -+ }, undef, "eval caught an exception"); -+like($@, qr/^Can't call .*getlines in a scalar context.* at .*\bio_getline\.t line /, -+ 'getlines in scalar context croaks'); -+like($line, qr/^This is the/, '$line unchanged'); -+ -+is(eval { -+ $io->getlines(); -+ 1; -+ }, undef, "eval caught an exception"); -+like($@, qr/^Can't call .*getlines in a scalar context.* at .*\bio_getline\.t line /, -+ 'getlines in void context croaks'); -+like($line, qr/^This is the/, '$line unchanged'); -+ -+($list, $context) = $io->getlines(); -+is($list, "\n", "Read second line"); -+like($context, qr/^This distribution/, "Read third line"); -+ -+{ -+ package TiedHandle; -+ -+ sub TIEHANDLE { -+ return bless ["Tick", "tick", "tick"]; -+ } -+ -+ sub READLINE { -+ my $fh = shift; -+ die "Boom!" -+ unless @$fh; -+ return shift @$fh -+ unless wantarray; -+ return splice @$fh; -+ } -+} -+ -+tie *FH, 'TiedHandle'; -+ -+is(*FH->getline(), "Tick", "tied handle read works"); -+($list, $context) = *FH->getline(); -+is($list, "tick", "tied handle read works in list context 0"); -+is($context, undef, "tied handle read works in list context 1"); -+is(*FH->getline(), "tick", "tied handle read works again"); -+is(eval { -+ $line = *FH->getline(); -+ 1; -+ }, undef, "eval on tied handle caught an exception"); -+like($@, qr/^Boom!/, -+ 'getline on tied handle propagates exception'); -+like($line, qr/^This is the/, '$line unchanged'); -+ -+tie *FH, 'TiedHandle'; -+ -+($list, $context) = *FH->getlines(); -+is($list, "Tick", "tied handle read works in list context 2"); -+is($context, "tick", "tied handle read works in list context 3"); -+is(eval { -+ ($list, $context) = *FH->getlines(); -+ 1; -+ }, undef, "eval on tied handle caught an exception again"); -+like($@, qr/^Boom!/, -+ 'getlines on tied handle propagates exception'); -+is($list, "Tick", '$line unchanged'); -diff --git a/dist/IO/t/io_utf8argv.t b/dist/IO/t/io_utf8argv.t -index 89f726a7a7..adc95d999c 100644 ---- a/dist/IO/t/io_utf8argv.t -+++ b/dist/IO/t/io_utf8argv.t -@@ -13,7 +13,7 @@ use utf8; - skip_all("EBCDIC platform; testing not core") - if $::IS_EBCDIC && ! $ENV{PERL_CORE}; - --plan(tests => 2); -+plan(tests => 4); - - my $bytes = - "\xce\x9c\xe1\xbd\xb7\xce\xb1\x20\xcf\x80\xe1\xbd\xb1\xcf\x80\xce". -@@ -31,10 +31,17 @@ print $fh $bytes; - close $fh or die "close: $!"; - - --use open ":std", ":utf8"; -- - use IO::Handle; - -+@ARGV = ('io_utf8argv') x 2; -+is *ARGV->getline, $bytes, -+ 'getline (no open pragma) when magically opening ARGV'; -+ -+is join('',*ARGV->getlines), $bytes, -+ 'getlines (no open pragma) when magically opening ARGV'; -+ -+use open ":std", ":utf8"; -+ - @ARGV = ('io_utf8argv') x 2; - is *ARGV->getline, "Μία πάπια, μὰ ποιὰ πάπια;\n", - 'getline respects open pragma when magically opening ARGV'; --- -2.21.1 - diff --git a/perl-5.31.7-POSIX.pod-Update-setlocale-docs.patch b/perl-5.31.7-POSIX.pod-Update-setlocale-docs.patch deleted file mode 100644 index 903c191..0000000 --- a/perl-5.31.7-POSIX.pod-Update-setlocale-docs.patch +++ /dev/null @@ -1,60 +0,0 @@ -From 06283613f8e6e81053444fea0cfc441db9c776a9 Mon Sep 17 00:00:00 2001 -From: Karl Williamson -Date: Fri, 20 Dec 2019 14:40:47 -0700 -Subject: [PATCH] POSIX.pod: Update setlocale() docs -MIME-Version: 1.0 -Content-Type: text/plain; charset=UTF-8 -Content-Transfer-Encoding: 8bit - -This should have been updated in 5.28, but was overlooked. - -Signed-off-by: Petr Písař ---- - ext/POSIX/lib/POSIX.pod | 24 +++++++++++++++--------- - 1 file changed, 15 insertions(+), 9 deletions(-) - -diff --git a/ext/POSIX/lib/POSIX.pod b/ext/POSIX/lib/POSIX.pod -index cab1501dab..d0b7f5ade2 100644 ---- a/ext/POSIX/lib/POSIX.pod -+++ b/ext/POSIX/lib/POSIX.pod -@@ -1451,14 +1451,18 @@ see L. - - =item C - --WARNING! Do NOT use this function in a L. The locale --will change in all other threads at the same time, and should your --thread get paused by the operating system, and another started, that --thread will not have the locale it is expecting. On some platforms, --there can be a race leading to segfaults if two threads call this --function nearly simultaneously. -- --Modifies and queries the program's underlying locale. Users of this -+WARNING! Prior to Perl 5.28 or on a system that does not support -+thread-safe locale operations, do NOT use this function in a -+L. The locale will change in all other threads at the -+same time, and should your thread get paused by the operating system, -+and another started, that thread will not have the locale it is -+expecting. On some platforms, there can be a race leading to segfaults -+if two threads call this function nearly simultaneously. On unthreaded -+builds, or on Perl 5.28 and later on thread-safe systems, this warning -+does not apply. -+ -+This function -+modifies and queries the program's underlying locale. Users of this - function should read L, whch provides a comprehensive - discussion of Perl locale handling, knowledge of which is necessary to - properly use this function. It contains -@@ -1466,7 +1470,9 @@ L. - The discussion here is merely a summary reference for C. - Note that Perl itself is almost entirely unaffected by the locale - except within the scope of S>. (Exceptions are listed --in L.) -+in L, and -+locale-dependent functions within the POSIX module ARE always affected -+by the current locale.) - - The following examples assume - --- -2.21.1 - diff --git a/perl-5.31.7-Skip-the-new-open-pragma-tests-for-no-utf8-under-PER.patch b/perl-5.31.7-Skip-the-new-open-pragma-tests-for-no-utf8-under-PER.patch deleted file mode 100644 index 07f3af0..0000000 --- a/perl-5.31.7-Skip-the-new-open-pragma-tests-for-no-utf8-under-PER.patch +++ /dev/null @@ -1,47 +0,0 @@ -From 61e73f5d988b2ee25b2d90ea5570337398309e84 Mon Sep 17 00:00:00 2001 -From: Nicholas Clark -Date: Sun, 19 Jan 2020 21:56:02 +0100 -Subject: [PATCH] Skip the new open pragma tests for no ":utf8" under - PERL_UNICODE. -MIME-Version: 1.0 -Content-Type: text/plain; charset=UTF-8 -Content-Transfer-Encoding: 8bit - -PERL_UNICODE can implement an implicit use open ":utf8", which defeats the -intent of what we're testing here. - -Signed-off-by: Petr Písař ---- - dist/IO/t/io_utf8argv.t | 15 ++++++++++----- - 1 file changed, 10 insertions(+), 5 deletions(-) - -diff --git a/dist/IO/t/io_utf8argv.t b/dist/IO/t/io_utf8argv.t -index adc95d999c..b6370709f1 100644 ---- a/dist/IO/t/io_utf8argv.t -+++ b/dist/IO/t/io_utf8argv.t -@@ -33,12 +33,17 @@ close $fh or die "close: $!"; - - use IO::Handle; - --@ARGV = ('io_utf8argv') x 2; --is *ARGV->getline, $bytes, -- 'getline (no open pragma) when magically opening ARGV'; -+SKIP: { -+ skip("PERL_UNICODE set", 2) -+ if exists $ENV{PERL_UNICODE}; -+ -+ @ARGV = ('io_utf8argv') x 2; -+ is *ARGV->getline, $bytes, -+ 'getline (no open pragma) when magically opening ARGV'; - --is join('',*ARGV->getlines), $bytes, -- 'getlines (no open pragma) when magically opening ARGV'; -+ is join('',*ARGV->getlines), $bytes, -+ 'getlines (no open pragma) when magically opening ARGV'; -+} - - use open ":std", ":utf8"; - --- -2.21.1 - diff --git a/perl-5.31.7-error-check-the-calls-to-sigaddset-in-POSIX-SigSet-n.patch b/perl-5.31.7-error-check-the-calls-to-sigaddset-in-POSIX-SigSet-n.patch deleted file mode 100644 index b5914b3..0000000 --- a/perl-5.31.7-error-check-the-calls-to-sigaddset-in-POSIX-SigSet-n.patch +++ /dev/null @@ -1,86 +0,0 @@ -From 3a5c73f344d9d5d89b2881b2c3569cac3ca89ad9 Mon Sep 17 00:00:00 2001 -From: Tony Cook -Date: Mon, 25 Nov 2019 09:27:16 +1100 -Subject: [PATCH] error check the calls to sigaddset in POSIX::SigSet->new -MIME-Version: 1.0 -Content-Type: text/plain; charset=UTF-8 -Content-Transfer-Encoding: 8bit - -Coverity complained that SvIV() could return negative numbers, -but doesn't complain about the similar call in the sigaddset() -method, which is error checked. - -So error check sigaddset() and throw an error if it fails. - -CID 244386. - -Signed-off-by: Petr Písař ---- - ext/POSIX/POSIX.xs | 7 +++++-- - ext/POSIX/lib/POSIX.pod | 3 +++ - ext/POSIX/t/sigset.t | 19 +++++++++++++++++++ - 3 files changed, 27 insertions(+), 2 deletions(-) - -diff --git a/ext/POSIX/POSIX.xs b/ext/POSIX/POSIX.xs -index 42c4d0f4b5..03342c3ea4 100644 ---- a/ext/POSIX/POSIX.xs -+++ b/ext/POSIX/POSIX.xs -@@ -1844,8 +1844,11 @@ new(packname = "POSIX::SigSet", ...) - sizeof(sigset_t), - packname); - sigemptyset(s); -- for (i = 1; i < items; i++) -- sigaddset(s, SvIV(ST(i))); -+ for (i = 1; i < items; i++) { -+ IV sig = SvIV(ST(i)); -+ if (sigaddset(s, sig) < 0) -+ croak("POSIX::Sigset->new: failed to add signal %" IVdf, sig); -+ } - XSRETURN(1); - } - -diff --git a/ext/POSIX/lib/POSIX.pod b/ext/POSIX/lib/POSIX.pod -index 10e12e88db..923198477d 100644 ---- a/ext/POSIX/lib/POSIX.pod -+++ b/ext/POSIX/lib/POSIX.pod -@@ -2267,6 +2267,9 @@ Create a set with C. - - $sigset = POSIX::SigSet->new( &POSIX::SIGUSR1 ); - -+Throws an error if any of the signals supplied cannot be added to the -+set. -+ - =item C - - Add a signal to a SigSet object. -diff --git a/ext/POSIX/t/sigset.t b/ext/POSIX/t/sigset.t -index e65e4076b4..807aa3a1fd 100644 ---- a/ext/POSIX/t/sigset.t -+++ b/ext/POSIX/t/sigset.t -@@ -93,4 +93,23 @@ foreach ([$signo[0]], - expected_signals($sigset, "new(@$_)", @$_); - } - -+SKIP: -+{ -+ # CID 244386 -+ # linux and freebsd do validate for positive and very large signal numbers -+ # darwin uses a macro that simply ignores large signals and shifts by -+ # a negative number for negative signals, always succeeding -+ # -+ # since the idea is to validate our code rather than the implementation -+ # of sigaddset, just test the platforms we know can fail -+ skip "Not all systems validate the signal number", 2 -+ unless $^O =~ /^(linux|freebsd)$/; -+ my $badsig = -1; -+ note "badsig $badsig"; -+ ok(!eval{ POSIX::SigSet->new($badsig); 1 }, -+ "POSIX::SigSet->new should throw on large signal number"); -+ like($@."", qr/POSIX::Sigset->new: failed to add signal $badsig/, -+ "check message"); -+} -+ - done_testing(); --- -2.21.1 - diff --git a/perl-5.31.8-only-install-ExtUtils-XSSymSet-man-page-on-VMS.patch b/perl-5.31.8-only-install-ExtUtils-XSSymSet-man-page-on-VMS.patch deleted file mode 100644 index 66024bc..0000000 --- a/perl-5.31.8-only-install-ExtUtils-XSSymSet-man-page-on-VMS.patch +++ /dev/null @@ -1,37 +0,0 @@ -From a04fd069805e872c2784733b5dbb94c872ef73d9 Mon Sep 17 00:00:00 2001 -From: Tony Cook -Date: Mon, 20 Jan 2020 14:47:38 +1100 -Subject: [PATCH] only install ExtUtils::XSSymSet man page on VMS -MIME-Version: 1.0 -Content-Type: text/plain; charset=UTF-8 -Content-Transfer-Encoding: 8bit - -This module is only installed on VMS, so there's not much point in -installing the man page. - -An alternative would be to install the module on VMS, but it tries -to use configuration only set on VMS. - -fixes #17424 - -Signed-off-by: Petr Písař ---- - Porting/pod_lib.pl | 2 ++ - 1 file changed, 2 insertions(+) - -diff --git a/Porting/pod_lib.pl b/Porting/pod_lib.pl -index f2d854408e..1098074f32 100644 ---- a/Porting/pod_lib.pl -+++ b/Porting/pod_lib.pl -@@ -330,6 +330,8 @@ sub pods_to_install { - # manpages not to be installed - my %do_not_install = map { ($_ => 1) } - qw(Pod::Functions XS::APItest XS::Typemap); -+ $do_not_install{"ExtUtils::XSSymSet"} = 1 -+ unless $^O eq "VMS"; - - my (%done, %found); - --- -2.21.1 - diff --git a/perl-5.31.8-perlio.c-make-unix-close-method-call-underlaying-lay.patch b/perl-5.31.8-perlio.c-make-unix-close-method-call-underlaying-lay.patch deleted file mode 100644 index 77097a8..0000000 --- a/perl-5.31.8-perlio.c-make-unix-close-method-call-underlaying-lay.patch +++ /dev/null @@ -1,29 +0,0 @@ -From d55a14617a40beb0dfda90ca2decc55918c0810c Mon Sep 17 00:00:00 2001 -From: Leon Timmermans -Date: Sat, 25 Jan 2020 00:51:44 +0100 -Subject: [PATCH] perlio.c: make :unix close method call underlaying layers as - well -MIME-Version: 1.0 -Content-Type: text/plain; charset=UTF-8 -Content-Transfer-Encoding: 8bit - -Signed-off-by: Petr Písař ---- - perlio.c | 1 + - 1 file changed, 1 insertion(+) - -diff --git a/perlio.c b/perlio.c -index e6e4312949..39481eeb10 100644 ---- a/perlio.c -+++ b/perlio.c -@@ -2818,6 +2818,7 @@ PerlIOUnix_close(pTHX_ PerlIO *f) - const int fd = PerlIOSelf(f, PerlIOUnix)->fd; - int code = 0; - if (PerlIOBase(f)->flags & PERLIO_F_OPEN) { -+ code = PerlIOBase_close(aTHX_ f); - if (PerlIOUnix_refcnt_dec(fd) > 0) { - PerlIOBase(f)->flags &= ~PERLIO_F_OPEN; - return 0; --- -2.21.1 - diff --git a/perl-5.31.8-perltie.pod-rework-example-code-so-EXTEND-is-a-no-op.patch b/perl-5.31.8-perltie.pod-rework-example-code-so-EXTEND-is-a-no-op.patch deleted file mode 100644 index 802d788..0000000 --- a/perl-5.31.8-perltie.pod-rework-example-code-so-EXTEND-is-a-no-op.patch +++ /dev/null @@ -1,67 +0,0 @@ -From 3eb35b099f783db0ec40f0ca9f20fd1666c54cdb Mon Sep 17 00:00:00 2001 -From: Yves Orton -Date: Thu, 30 Jan 2020 09:36:37 +0100 -Subject: [PATCH] perltie.pod: rework example code so EXTEND is a no-op -MIME-Version: 1.0 -Content-Type: text/plain; charset=UTF-8 -Content-Transfer-Encoding: 8bit - -Most tied array implementations can and should NO-OP the EXTEND -method, and the sample code should not conflate EXTEND with STORESIZE. - -EXTEND is actually less usefully used by the core than it could be -as AvMAX() does not have an equivalent tied method. So we cannot -check if we need to extend for a tied array. - -This is related to [rt.cpan.org #39196] / Issue #17496. - -Signed-off-by: Petr Písař ---- - pod/perltie.pod | 18 +++++++++++++----- - 1 file changed, 13 insertions(+), 5 deletions(-) - -diff --git a/pod/perltie.pod b/pod/perltie.pod -index 2d433e8204..1bb220691b 100644 ---- a/pod/perltie.pod -+++ b/pod/perltie.pod -@@ -301,7 +301,7 @@ spaces so we have a little more work to do here: - croak "length of $value is greater than $self->{ELEMSIZE}"; - } - # fill in the blanks -- $self->EXTEND( $index ) if $index > $self->FETCHSIZE(); -+ $self->STORESIZE( $index ) if $index > $self->FETCHSIZE(); - # right justify to keep element size for smaller elements - $self->{ARRAY}->[$index] = sprintf "%$self->{ELEMSIZE}s", $value; - } -@@ -351,16 +351,24 @@ X - Informative call that array is likely to grow to have I entries. - Can be used to optimize allocation. This method need do nothing. - --In our example, we want to make sure there are no blank (C) --entries, so C will make use of C to fill elements --as needed: -+In our example there is no reason to implement this method, so we leave -+it as a no-op. This method is only relevant to tied array implementations -+where there is the possibility of having the allocated size of the array -+be larger than is visible to a perl programmer inspecting the size of the -+array. Many tied array implementations will have no reason to implement it. - - sub EXTEND { - my $self = shift; - my $count = shift; -- $self->STORESIZE( $count ); -+ # nothing to see here, move along. - } - -+B It is generally an error to make this equivalent to STORESIZE. -+Perl may from time to time call EXTEND without wanting to actually change -+the array size directly. Any tied array should function correctly if this -+method is a no-op, even if perhaps they might not be as efficient as they -+would if this method was implemented. -+ - =item EXISTS this, key - X - --- -2.21.1 - diff --git a/perl-5.31.8-pp_sort.c-fix-fencepost-error-in-call-to-av_extend.patch b/perl-5.31.8-pp_sort.c-fix-fencepost-error-in-call-to-av_extend.patch deleted file mode 100644 index 9ef07ba..0000000 --- a/perl-5.31.8-pp_sort.c-fix-fencepost-error-in-call-to-av_extend.patch +++ /dev/null @@ -1,142 +0,0 @@ -From 2b301921ff7682e54ab74ad30dbf2ce1c9fc24b1 Mon Sep 17 00:00:00 2001 -From: Yves Orton -Date: Fri, 31 Jan 2020 15:34:48 +0100 -Subject: [PATCH] pp_sort.c: fix fencepost error in call to av_extend() -MIME-Version: 1.0 -Content-Type: text/plain; charset=UTF-8 -Content-Transfer-Encoding: 8bit - -In [rt.cpan.org #39196] issue #17496 there is a report -that Tie::File produced spurious blank lines in the file -after - - @tied= sort @tied; - -it turns out that this is because Tie::File treats -EXTEND similarly to STORESIZE (which is arguably not -entirely correct, but also not that weird) coupled -with an off by one error in the calls to av_extend() -in pp_sort. - -This patch fixes the fencepost error, adds some comments -to av_extend() to make it clear what it is doing, and -adds a test that EXTEND is called by this code with -correct argument. - -Signed-off-by: Petr Písař ---- - av.c | 18 ++++++++++++++++-- - pp_sort.c | 5 +++-- - t/op/sort.t | 23 +++++++++++++++++++++-- - 3 files changed, 40 insertions(+), 6 deletions(-) - -diff --git a/av.c b/av.c -index 918844c376..27b2f12032 100644 ---- a/av.c -+++ b/av.c -@@ -55,8 +55,13 @@ Perl_av_reify(pTHX_ AV *av) - /* - =for apidoc av_extend - --Pre-extend an array. The C is the index to which the array should be --extended. -+Pre-extend an array so that it is capable of storing values at indexes -+C<0..key>. Thus C guarantees that the array can store 100 -+elements, i.e. that C through C -+on a plain array will work without any further memory allocation. -+ -+If the av argument is a tied array then will call the C tied -+array method with an argument of C<(key+1)>. - - =cut - */ -@@ -72,6 +77,15 @@ Perl_av_extend(pTHX_ AV *av, SSize_t key) - mg = SvTIED_mg((const SV *)av, PERL_MAGIC_tied); - if (mg) { - SV *arg1 = sv_newmortal(); -+ /* NOTE: the API for av_extend() is NOT the same as the tie method EXTEND. -+ * -+ * The C function takes an *index* (assumes 0 indexed arrays) and ensures -+ * that the array is at least as large as the index provided. -+ * -+ * The tied array method EXTEND takes a *count* and ensures that the array -+ * is at least that many elements large. Thus we have to +1 the key when -+ * we call the tied method. -+ */ - sv_setiv(arg1, (IV)(key + 1)); - Perl_magic_methcall(aTHX_ MUTABLE_SV(av), mg, SV_CONST(EXTEND), G_DISCARD, 1, - arg1); -diff --git a/pp_sort.c b/pp_sort.c -index 0c5efb0869..4f81aaab7e 100644 ---- a/pp_sort.c -+++ b/pp_sort.c -@@ -1067,7 +1067,8 @@ PP(pp_sort) - for (i = 0; i < max; i++) - base[i] = newSVsv(base[i]); - av_clear(av); -- av_extend(av, max); -+ if (max) -+ av_extend(av, max-1); - for (i=0; i < max; i++) { - SV * const sv = base[i]; - SV ** const didstore = av_store(av, i, sv); -@@ -1094,7 +1095,7 @@ PP(pp_sort) - } - av_clear(av); - if (max > 0) { -- av_extend(av, max); -+ av_extend(av, max-1); - Copy(base, AvARRAY(av), max, SV*); - } - AvFILLp(av) = max - 1; -diff --git a/t/op/sort.t b/t/op/sort.t -index d201f00afd..f2e139dff0 100644 ---- a/t/op/sort.t -+++ b/t/op/sort.t -@@ -7,7 +7,8 @@ BEGIN { - set_up_inc('../lib'); - } - use warnings; --plan(tests => 199); -+plan(tests => 203); -+use Tie::Array; # we need to test sorting tied arrays - - # these shouldn't hang - { -@@ -433,7 +434,6 @@ cmp_ok($x,'eq','123',q(optimized-away comparison block doesn't take any other ar - @a = qw(b c a); $r1 = \$a[1]; @a = sort mysort @a; $r2 = \$a[0]; - is "$$r1-$$r2-@a", "c-c-c b a", "inplace sort with function of lexical"; - -- use Tie::Array; - my @t; - tie @t, 'Tie::StdArray'; - -@@ -494,6 +494,25 @@ cmp_ok($x,'eq','123',q(optimized-away comparison block doesn't take any other ar - is ("@a", "3 4 5", "RT #128340"); - - } -+{ -+ @Tied_Array_EXTEND_Test::ISA= 'Tie::StdArray'; -+ my $extend_count; -+ sub Tied_Array_EXTEND_Test::EXTEND { -+ $extend_count= $_[1]; -+ return; -+ } -+ my @t; -+ tie @t, "Tied_Array_EXTEND_Test"; -+ is($extend_count, undef, "test that EXTEND has not been called prior to initialization"); -+ $t[0]=3; -+ $t[1]=1; -+ $t[2]=2; -+ is($extend_count, undef, "test that EXTEND has not been called during initialization"); -+ @t= sort @t; -+ is($extend_count, 3, "test that EXTEND was called with an argument of 3 by pp_sort()"); -+ is("@t","1 2 3","test that sorting the tied array worked even though EXTEND is a no-op"); -+} -+ - - # Test optimisations of reversed sorts. As we now guarantee stability by - # default, # optimisations which do not provide this are bogus. --- -2.21.1 - diff --git a/perl-5.31.9-B-Deparse-fixup-uninitialized-error-in-deparsing-wei.patch b/perl-5.31.9-B-Deparse-fixup-uninitialized-error-in-deparsing-wei.patch deleted file mode 100644 index 2b58db0..0000000 --- a/perl-5.31.9-B-Deparse-fixup-uninitialized-error-in-deparsing-wei.patch +++ /dev/null @@ -1,66 +0,0 @@ -From fbe6adf2e4213395a34c891a7568c6e3c7812645 Mon Sep 17 00:00:00 2001 -From: Yves Orton -Date: Thu, 6 Feb 2020 07:11:20 +0100 -Subject: [PATCH] B::Deparse fixup uninitialized error in deparsing weird glob - statement -MIME-Version: 1.0 -Content-Type: text/plain; charset=UTF-8 -Content-Transfer-Encoding: 8bit - -This fixes issue #17537, and adds tests - -Signed-off-by: Petr Písař ---- - lib/B/Deparse.pm | 2 +- - lib/B/Deparse.t | 15 +++++++++++++++ - 2 files changed, 16 insertions(+), 1 deletion(-) - -diff --git a/lib/B/Deparse.pm b/lib/B/Deparse.pm -index ee126b1552..aa6e6de4e4 100644 ---- a/lib/B/Deparse.pm -+++ b/lib/B/Deparse.pm -@@ -3393,7 +3393,7 @@ sub pp_glob { - my $kid = $op->first->sibling; # skip pushmark - my $keyword = - $op->flags & OPf_SPECIAL ? 'glob' : $self->keyword('glob'); -- my $text = $self->deparse($kid); -+ my $text = $self->deparse($kid, $cx); - return $cx >= 5 || $self->{'parens'} - ? "$keyword($text)" - : "$keyword $text"; -diff --git a/lib/B/Deparse.t b/lib/B/Deparse.t -index 07c915067e..e06ef6e966 100644 ---- a/lib/B/Deparse.t -+++ b/lib/B/Deparse.t -@@ -20,6 +20,8 @@ my $deparse = B::Deparse->new(); - isa_ok($deparse, 'B::Deparse', 'instantiate a B::Deparse object'); - my %deparse; - -+sub dummy_sub {42} -+ - $/ = "\n####\n"; - while () { - chomp; -@@ -679,6 +681,19 @@ readline $foo; - glob $foo; - glob $foo; - #### -+# more <> -+no warnings; -+no strict; -+my $fh; -+if (dummy_sub < $fh > /bar/g) { 1 } -+>>>> -+no warnings; -+no strict; -+my $fh; -+if (dummy_sub(glob((' ' . $fh . ' ')) / 'bar' / 'g')) { -+ 1; -+} -+#### - # readline - readline 'FH'; - readline *$_; --- -2.21.1 - diff --git a/perl-USE_MM_LD_RUN_PATH.patch b/perl-USE_MM_LD_RUN_PATH.patch index cf724fd..c982eb4 100644 --- a/perl-USE_MM_LD_RUN_PATH.patch +++ b/perl-USE_MM_LD_RUN_PATH.patch @@ -19,7 +19,7 @@ diff -up perl-5.14.0/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MakeMaker.pm.usem perl @@ -317,7 +317,7 @@ sub full_setup { PERM_DIR PERM_RW PERM_RWX MAGICXS PL_FILES PM PM_FILTER PMLIBDIRS PMLIBPARENTDIRS POLLUTE - PREREQ_FATAL PREREQ_PM PREREQ_PRINT PRINT_PREREQ + PREREQ_FATAL PREREQ_PM PREREQ_PRINT PRINT_PREREQ PUREPERL_ONLY - SIGN SKIP TEST_REQUIRES TYPEMAPS UNINST VERSION VERSION_FROM XS + SIGN SKIP TEST_REQUIRES TYPEMAPS UNINST USE_MM_LD_RUN_PATH VERSION VERSION_FROM XS XSBUILD XSMULTI XSOPT XSPROTOARG XS_VERSION diff --git a/perl.spec b/perl.spec index 7cbb640..3c324e7 100644 --- a/perl.spec +++ b/perl.spec @@ -1,4 +1,4 @@ -%global perl_version 5.30.3 +%global perl_version 5.32.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: 454%{?dist} +Release: 455%{?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 @@ -164,171 +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 -# Fix memory handling when parsing string literals, fixed after 5.31.0 -Patch16: perl-5.31.0-S_scan_const-Properly-test-if-need-to-grow.patch - -# Fix an undefined behavior in shifting IV variables, fixed after 5.31.0 -Patch17: perl-5.31.0-Create-fcn-for-lossless-conversion-of-NV-to-IV.patch -Patch18: perl-5.30.0-pp.c-Add-two-UNLIKELY-s.patch -Patch19: perl-5.30.0-Remove-undefined-behavior-from-IV-shifting.patch - -# Fix stacking file test operators, CPAN RT#127073, fixed after 5.31.0 -Patch20: perl-5.31.0-Don-t-use-PL_check-op_type-to-check-for-filetets-ops.patch - -# Fix a crash in SIGALARM handler when waiting on a child process to be closed, -# RT#122112, fixed after 5.31.0 -Patch21: perl-5.31.0-perl-122112-test-for-signal-handler-death-in-pclose.patch -Patch22: perl-5.31.0-perl-122112-a-simpler-fix-for-pclose-aborted-by-a-si.patch -Patch23: perl-5.31.0-perl-122112-remove-some-interfering-debug-output.patch - -# Fix a crash with a negative precision in sprintf function, RT#134008, -# fixed after 5.31.0 -Patch25: perl-5.31.0-perl-134008-an-alternative-test.patch - -# Prevent from wrapping a width in a numeric format string, RT#133913, -# fixed after 5.31.0 -Patch27: perl-5.31.0-perl-133913-limit-numeric-format-results-to-INT_MAX.patch - -# Fix subroutine protypes to track reference aliases, RT#134072, -# fixed after 5.31.0 -Patch28: perl-5.31.0-perl-134072-allow-foo-bar-to-work-in-main.patch - -# Fix changing packet destination sent from a UDP IO::Socket object, -# RT#133936, fixed after 5.31.0 -Patch30: perl-5.31.0-perl-133936-ensure-TO-is-honoured-for-UDP-sock-send.patch -Patch31: perl-5.31.0-perl-133936-document-differences-between-IO-Socket-a.patch -Patch32: perl-5.31.0-perl-133936-make-send-a-bit-saner.patch - -# Fix %%{^CAPTURE_ALL} to be an alias for %%- variable, RT#131867, -# fixed after 5.31.0 -Patch37: perl-5.31.0-CAPTURE_ALL-was-intended-to-be-an-alias-for-make-it-.patch - -# Fix %%{^CAPTURE} value when used after @{^CAPTURE}, RT#134193, -# fixed after 5.31.0 -Patch38: perl-5.31.0-perl-134193-allow-CAPTURE-to-work-when-CAPTURE-comes.patch -Patch39: perl-5.31.0-perl-134193-make-the-varname-match-the-names.patch - -# Fix a test for a crash in SIGALARM handler when waiting on a child process to -# be closed, RT#122112, fixed after 5.31.1 -Patch40: perl-5.31.1-perl-122112-make-sure-SIGPIPE-is-delivered-if-we-tes.patch - -# Fix a crash on an uninitialized warning when processing a multideref node, -# RT#134275, fixed after 5.31.1 -Patch41: perl-5.31.1-avoid-SEGV-with-uninit-warning-with-multideref.patch - -# Preserve append mode when opening anonymous files, RT#134221, -# fixed after 5.31.1 -Patch42: perl-5.30.0-perl-134221-support-append-mode-for-open-.-undef.patch -Patch43: perl-5.31.1-perl-134221-support-append-mode-temp-files-on-Win32-.patch -Patch44: perl-5.31.1-perl-134221-support-O_APPEND-for-open-.-undef-on-VMS.patch - -# Fix propagating non-string variables in an exception value, RT#134291, -# fixed after 5.31.2 -Patch45: perl-5.31.2-perl-134291-propagate-non-PVs-in-in-bare-die.patch - -# Include trailing zero in scalars holding trie data, RT#134207, -# fixed after 5.31.2 -Patch46: perl-5.31.2-include-a-trailing-0-in-SVs-holding-trie-info.patch - -# Fix a use after free in debugging output of a collation, -# in upstream after 5.31.2 -Patch48: perl-5.31.2-locale.c-Stop-Coverity-warning.patch - -# Fix a NULL pointer dereference in PerlIOVia_pushed(), fixed after 5.31.2 -Patch49: perl-5.31.2-PerlIO-Via-check-arg-is-non-NULL-before-using-it.patch - -# Fix a crash when setting $@ on unwinding a call stack, RT#134266, -# fixed after 5.31.2 -Patch50: perl-5.30.0-perl-134266-make-sure-is-writable-when-we-write-to-i.patch - -# Fix parsing a denominator when parsing a Unicode property name, -# fixed after 5.31.2 -Patch51: perl-5.31.2-regcomp.c-Don-t-read-off-the-end-of-buffer.patch - -# Fix a documentation about a future API change, fixed after 5.31.2 -Patch52: perl-5.31.2-perlapi-5.30-promise-not-met-change-to-5.32.patch - -# Do not run File-Find tests in parallel, fixed after 5.31.2 -Patch53: perl-5.31.2-Run-tests-in-ext-File-Find-t-in-series.patch - -# Fix parsing a Unicode property name when compiling a regular expression, -# fixed after 5.31.3 -Patch54: perl-5.31.3-regcomp.c-Fix-wrong-limit-test.patch - -# Do not interpret 0x and 0b prefixes when numifying strings, RT#134230, -# fixed after 5.31.3 -Patch56: perl-5.31.3-perl-134230-don-t-interpret-0x-0b-when-numifying-str.patch - -# Correct a misspelling in perlrebackslash documentation, RT#134395, -# fixed after 5.31.3 -Patch59: perl-5.31.3-Supply-missing-right-brace-in-regex-example.patch - -# Fix a detection for futimes, RT#134432, fixed after 5.31.3 -Patch61: perl-5.31.3-Configure-Include-stdlib.h-in-futimes-check.patch -Patch62: perl-5.31.3-Florian-Weimer-is-now-a-perl-author.patch - -# Fix overloading for binary and octal floats, RT#125557, -# in upstream after 5.31.3 -Patch63: perl-5.30.1-perl-125557-correctly-handle-overload-for-bin-oct-fl.patch - -# Fix handling undefined array members in Dumpvalue, RT#134441, -# in upstream after 5.31.4 -Patch64: perl-5.31.4-Handle-undefined-values-correctly.patch - -# Fix taint mode documentation regarding @INC, in upstream after 5.31.5 -Patch65: perl-5.31.5-Fix-taint-mode-INC-documentation.patch -Patch66: perl-5.31.5-Be-clearer-about-taint-s-effect-on-INC.patch - -# Fix handling a layer argument in Tie::StdHandle::BINMODE(), RT#132475, -# in upstream after 5.31.5 -Patch67: perl-5.31.5-Tie-StdHandle-BINMODE-handle-layer-argument.patch - -# Fix an unintended upgrade to UTF-8 in the middle of a transliteration, -# in upstream after 5.31.5 -Patch68: perl-5.31.5-toke.c-Fix-bug-tr-upgrading-to-UTF-8-in-middle.patch -Patch69: perl-5.31.5-toke.c-comment-changes.patch - -# Fix a race in File::stat() tests, GH#17234, in upstream after 5.31.5 -Patch70: perl-5.31.5-prevent-a-race-between-name-based-stat-and-an-open-m.patch - -# Fix a buffer overread when parsing a number, GH#17279, -# in upstream after 5.31.5 -Patch71: perl-5.30.1-handle-s-being-updated-without-len-being-updated.patch - -# Work around a glibc bug in caching LC_MESSAGES, GH#17081, -# , -# in upstream after 5.31.6 -Patch72: perl-5.31.6-PATCH-GH-17081-Workaround-glibc-bug-with-LC_MESSAGES.patch - -# Fix POSIX:setlocale() documentation, in upstream after 5.31.7 -Patch73: perl-5.31.7-POSIX.pod-Update-setlocale-docs.patch - -# Prevent from an integer overflow in POSIX::SigSet(), in upstream after 5.31.7 -Patch74: perl-5.31.7-error-check-the-calls-to-sigaddset-in-POSIX-SigSet-n.patch - -# Fix thread-safety of IO::Handle, GH#14816, in upstream after 5.31.7 -Patch75: perl-5.31.7-Add-tests-for-IO-Handle-getline-and-getlines.patch -Patch76: perl-5.30.2-Loading-IO-is-now-threadsafe-avoiding-the-core-bug-r.patch -Patch77: perl-5.31.7-Skip-the-new-open-pragma-tests-for-no-utf8-under-PER.patch - -# Close :unix PerlIO layers properly, bug #987118, in upstream after 5.31.8 -Patch78: perl-5.31.8-perlio.c-make-unix-close-method-call-underlaying-lay.patch - -# Only install ExtUtils::XSSymSet manual page on VMS, GH#17424, -# in upstream after 5.31.8 -Patch79: perl-5.31.8-only-install-ExtUtils-XSSymSet-man-page-on-VMS.patch - -# Fix sorting tied arrays, GH#17496, in upstream after 5.31.8 -Patch80: perl-5.31.8-perltie.pod-rework-example-code-so-EXTEND-is-a-no-op.patch -Patch81: perl-5.31.8-pp_sort.c-fix-fencepost-error-in-call-to-av_extend.patch - -# Fix a spurious warning about a multidimensional syntax, GH#16535, -# in upstream after 5.31.8 -Patch82: perl-5.30.2-toke.c-fix-Multidimensional-array-heuristic-to-ignor.patch - -# Fix a warning about an uninitialized value in B::Deparse, GH#17537 -Patch83: perl-5.31.9-B-Deparse-fixup-uninitialized-error-in-deparsing-wei.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 @@ -386,7 +221,7 @@ BuildRequires: rsyslog # compat macro needed for rebuild -%global perl_compat perl(:MODULE_COMPAT_5.30.3) +%global perl_compat perl(:MODULE_COMPAT_5.32.0) Requires: %perl_compat Requires: perl-interpreter%{?_isa} = %{perl_epoch}:%{perl_version}-%{release} @@ -460,7 +295,7 @@ Requires: perl-parent, perl-PathTools, perl-Params-Check, perl-perlfaq, Requires: perl-PerlIO-via-QuotedPrint, perl-Perl-OSType, Requires: perl-ph, Requires: perl-Pod-Checker, perl-Pod-Escapes, perl-Pod-Functions, -Requires: perl-Pod-Html, perl-Pod-Parser, perl-Pod-Perldoc, +Requires: perl-Pod-Html, perl-Pod-Perldoc, Requires: perl-Pod-Simple, perl-Pod-Usage, perl-podlators, perl-POSIX, Requires: perl-Safe, perl-Scalar-List-Utils, Requires: perl-Search-Dict, perl-SelectSaver, @@ -568,9 +403,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.30.0) -Provides: perl(:MODULE_COMPAT_5.30.1) -Provides: perl(:MODULE_COMPAT_5.30.2) # Interpreter version to fulfil required genersted from "require 5.006;" Provides: perl(:VERSION) = %{perl_version} # Integeres are 64-bit on all platforms @@ -703,7 +535,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.32 +Version: 2.36 BuildArch: noarch Requires: %perl_compat Requires: perl(IO::Zlib) >= 1.01 @@ -752,7 +584,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.29 +Version: 2.32 Requires: %perl_compat BuildArch: noarch Requires: perl(B) @@ -795,6 +627,7 @@ loading them all at once. Summary: Split a package for automatic loading License: GPL+ or Artistic Epoch: 0 +# Real version 1.06 Version: 5.74 BuildArch: noarch Requires: %perl_compat @@ -832,7 +665,7 @@ and substitute themselves with the correct definitions. Summary: Perl compiler backend License: GPL+ or Artistic Epoch: 0 -Version: 1.76 +Version: 1.80 Requires: %perl_compat Requires: perl(Data::Dumper) Requires: perl(overloading) @@ -870,7 +703,7 @@ lighter-weight "parent". Summary: Benchmark running times of Perl code License: GPL+ or Artistic Epoch: 0 -Version: 1.22 +Version: 1.23 Requires: %perl_compat %if %{defined perl_bootstrap} %gendep_perl_Benchmark @@ -953,7 +786,7 @@ but it is a good educated guess. Summary: Declare struct-like data types as Perl classes License: GPL+ or Artistic Epoch: 0 -Version: 0.65 +Version: 0.66 Requires: %perl_compat %if %{defined perl_bootstrap} %gendep_perl_Class_Struct @@ -971,7 +804,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.089 +Version: 2.093 Requires: perl(Exporter), perl(File::Temp) %if %{defined perl_bootstrap} %gendep_perl_Compress_Raw_Bzip2 @@ -985,7 +818,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.084 +Version: 2.093 Requires: %perl_compat %if %{defined perl_bootstrap} %gendep_perl_Compress_Raw_Zlib @@ -1069,7 +902,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.22 +Version: 2.27 Requires: make # Prefer Archive::Tar and Compress::Zlib over tar and gzip Requires: perl(Archive::Tar) >= 1.50 @@ -1218,7 +1051,7 @@ structures correctly. Summary: Perl5 access to Berkeley DB version 1.x License: GPL+ or Artistic Epoch: 0 -Version: 1.843 +Version: 1.853 Requires: %perl_compat Requires: perl(Fcntl) Requires: perl(XSLoader) @@ -1260,7 +1093,7 @@ hashes associated with DBM files. Summary: Perl debugger License: GPL+ or Artistic Epoch: 0 -Version: 1.55 +Version: 1.56 BuildArch: noarch # File provides Provides: perl(dumpvar.pl) = %{perl_version} @@ -1340,7 +1173,7 @@ should look. Summary: Perl Pollution Portability header generator License: GPL+ or Artistic Epoch: 0 -Version: 3.52 +Version: 3.57 Requires: %perl_compat %if %{defined perl_bootstrap} %gendep_perl_Devel_PPPort @@ -1378,7 +1211,7 @@ loaded. They are needed specifically for inherited autoloaded methods. Summary: Produce verbose warning diagnostics License: GPL+ or Artistic Epoch: 0 -Version: 1.36 +Version: 1.37 BuildArch: noarch Requires: %perl_compat # Match library exactly for diagnostics messages @@ -1425,6 +1258,7 @@ 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 Requires: %perl_compat Requires: perl(XSLoader) @@ -1501,6 +1335,7 @@ page format. Summary: Screen dump of Perl data License: GPL+ or Artistic Epoch: 0 +# Real version 1.21 Version: 2.27 BuildArch: noarch Requires: %perl_compat @@ -1518,7 +1353,7 @@ data structures. Summary: Dynamically load C libraries into Perl code License: GPL+ or Artistic Epoch: 0 -Version: 1.45 +Version: 1.47 Requires: %perl_compat Requires: perl(Carp) %if %{defined perl_bootstrap} @@ -1537,7 +1372,7 @@ see XSLoader module. Summary: Character encodings in Perl License: (GPL+ or Artistic) and Artistic 2.0 and UCD Epoch: 4 -Version: 3.01 +Version: 3.06 Requires: %perl_compat %if %{defined perl_bootstrap} %gendep_perl_Encode @@ -1552,7 +1387,7 @@ of the system. Perl strings are sequences of characters. Summary: Write your Perl script in non-ASCII or non-UTF-8 License: GPL+ or Artistic Epoch: 4 -Version: 2.22 +Version: 3.00 # Keeping this sub-package arch-specific because it installs files into # arch-specific directories. Requires: %perl_compat @@ -1583,7 +1418,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.01 +Version: 3.06 Requires: %perl_compat Requires: %{name}-Encode = %{epoch}:%{version}-%{release} Recommends: perl-devel @@ -1621,7 +1456,7 @@ supported; and the module will do nothing thereafter. Summary: Nice English or awk names for ugly punctuation variables License: GPL+ or Artistic Epoch: 0 -Version: 1.10 +Version: 1.11 Requires: %perl_compat Requires: perl(Carp) Requires: perl(warnings) @@ -1697,7 +1532,7 @@ experimental features. Summary: Implements default import method for modules License: GPL+ or Artistic Epoch: 0 -Version: 5.73 +Version: 5.74 Requires: %perl_compat Requires: perl(Carp) >= 1.05 %if %{defined perl_bootstrap} @@ -1720,7 +1555,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.280231 +Version: 0.280234 BuildArch: noarch # C and C++ compilers are highly recommended because compiling code is the # purpose of ExtUtils::CBuilder, bug #1547165 @@ -1766,8 +1601,8 @@ Perl modules to AUTOLOAD constants defined in C library header files. %package ExtUtils-Command Summary: Perl routines to replace common UNIX commands in Makefiles License: GPL+ or Artistic -Epoch: 1 -Version: 7.34 +Epoch: 2 +Version: 7.44 BuildArch: noarch Requires: %perl_compat Conflicts: perl < 4:5.20.1-312 @@ -1824,7 +1659,7 @@ pages, etc. Summary: Create a module Makefile License: GPL+ or Artistic Epoch: 2 -Version: 7.34 +Version: 7.44 # 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. @@ -1906,7 +1741,7 @@ License: GPL+ or Artistic Epoch: 1 # Real version 7.11 # Dual-life ExtUtils-MakeMaker generate it with its version -Version: 7.34 +Version: 7.44 BuildArch: noarch Requires: %perl_compat %if %{defined perl_bootstrap} @@ -1958,6 +1793,7 @@ Fcntl module provides file operation related options. Summary: Compile-time class fields License: GPL+ or Artistic Epoch: 0 +# Real version 2.24 Version: 2.27 BuildArch: noarch Requires: %perl_compat @@ -2066,7 +1902,7 @@ File::Fetch is a generic file fetching mechanism. Summary: Traverse a directory tree License: GPL+ or Artistic Epoch: 0 -Version: 1.36 +Version: 1.37 Requires: %perl_compat Recommends: perl(Scalar::Util) %if %{defined perl_bootstrap} @@ -2102,7 +1938,7 @@ depth and to delete an entire directory subtree from the file system. Summary: By-name interface to Perl built-in stat functions License: GPL+ or Artistic Epoch: 0 -Version: 1.08 +Version: 1.09 BuildArch: noarch Requires: %perl_compat Requires: perl(Symbol) @@ -2219,7 +2055,7 @@ sees it. Summary: Simplified Perl source filtering License: GPL+ or Artistic Epoch: 0 -Version: 0.95 +Version: 0.96 BuildArch: noarch Requires: %perl_compat Conflicts: perl < 4:5.20.1-312 @@ -2272,7 +2108,7 @@ provided by the GNU gdbm library. Summary: Extended processing of command line options License: GPLv2+ or Artistic Epoch: 1 -Version: 2.50 +Version: 2.51 Requires: %perl_compat Requires: perl(overload) Requires: perl(Text::ParseWords) @@ -2316,7 +2152,7 @@ containing all switches to be recognized. Summary: General-utility hash subroutines License: GPL+ or Artistic Epoch: 0 -Version: 0.22 +Version: 0.23 Requires: %perl_compat Requires: perl(Hash::Util::FieldHash) Requires: perl(XSLoader) @@ -2365,7 +2201,7 @@ The "if" module is used to conditionally load another module. Summary: Perl input/output modules License: GPL+ or Artistic Epoch: 0 -Version: 1.40 +Version: 1.43 Requires: %perl_compat %if %{defined perl_bootstrap} %gendep_perl_IO @@ -2380,7 +2216,7 @@ This is a collection of Perl input/output modules. Summary: IO::Compress wrapper for modules License: GPL+ or Artistic Epoch: 0 -Version: 2.084 +Version: 2.093 Requires: %perl_compat Obsoletes: perl-Compress-Zlib <= 2.020 Provides: perl(IO::Uncompress::Bunzip2) @@ -2440,7 +2276,7 @@ Summary: Finding and running system commands made easy License: GPL+ or Artistic # Epoch bump for clean upgrade over old standalone package Epoch: 2 -Version: 1.02 +Version: 1.04 Requires: perl(ExtUtils::MM::Utils) Requires: %perl_compat %if %{defined perl_bootstrap} @@ -2457,7 +2293,7 @@ independent way, but have them still work. Summary: Open a process for reading, writing, and error handling License: GPL+ or Artistic Epoch: 0 -Version: 1.20 +Version: 1.21 Requires: %perl_compat Requires: perl(Fcntl) Requires: perl(IO::Pipe) @@ -2513,7 +2349,7 @@ page for further information. Summary: Query locale information License: GPL+ or Artistic Epoch: 0 -Version: 0.18 +Version: 0.19 Requires: %perl_compat %if %{defined perl_bootstrap} %gendep_perl_I18N_Langinfo @@ -2530,7 +2366,7 @@ locale". Summary: Functions for dealing with RFC 3066 language tags License: GPL+ or Artistic Epoch: 0 -Version: 0.43 +Version: 0.44 Requires: %perl_compat Requires: perl(integer) Requires: perl(warnings) @@ -2573,7 +2409,7 @@ resumes after EINTR. %package JSON-PP Summary: JSON::XS compatible pure-Perl module Epoch: 1 -Version: 4.02 +Version: 4.04 License: GPL+ or Artistic BuildArch: noarch Requires: %perl_compat @@ -2732,8 +2568,8 @@ to alleviate the need of creating Language Classes for module authors. Summary: Arbitrary-size integer and float mathematics License: GPL+ or Artistic Epoch: 1 -# Real version 1.999816 -Version: 1.9998.16 +# Real version 1.999818 +Version: 1.9998.18 Requires: %perl_compat Requires: perl(Carp) # File::Spec not used on recent perl @@ -2754,8 +2590,8 @@ Summary: Math::BigInt::Calc XS implementation License: GPL+ or Artistic Epoch: 0 # Version normalized to dot format -# Real version 0.5008 -Version: 0.500.800 +# Real version 0.5009 +Version: 0.500.900 Requires: %perl_compat %if %{defined perl_bootstrap} %gendep_perl_Math_BigInt_FastCalc @@ -2865,7 +2701,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.20200601 +Version: 5.20200620 Requires: %perl_compat Requires: perl(List::Util) Requires: perl(version) >= 0.88 @@ -2883,7 +2719,7 @@ are shipped with each version of perl. Summary: Tool for listing modules shipped with perl License: GPL+ or Artistic Epoch: 1 -Version: 5.20200601 +Version: 5.20200620 Requires: %perl_compat Requires: perl(feature) Requires: perl(version) >= 0.88 @@ -2926,7 +2762,7 @@ either a file or a module. Summary: Looking up module information / loading at runtime License: GPL+ or Artistic Epoch: 0 -Version: 0.68 +Version: 0.70 Requires: %perl_compat %if %{defined perl_bootstrap} %gendep_perl_Module_Load_Conditional @@ -2963,7 +2799,7 @@ offers you a very simple way to mark modules as loaded and/or unloaded. %package Module-Metadata Summary: Gather package and POD information from perl module files Epoch: 0 -Version: 1.000036 +Version: 1.000037 License: GPL+ or Artistic BuildArch: noarch Requires: %perl_compat @@ -2979,7 +2815,7 @@ Gather package and POD information from perl module files Summary: Method resolution order License: GPL+ or Artistic Epoch: 0 -Version: 1.22 +Version: 1.23 Requires: %perl_compat %if %{defined perl_bootstrap} %gendep_perl_mro @@ -3030,7 +2866,7 @@ getnet*(), getproto*(), and getserv*() functions. Summary: Check a remote host for reachability License: GPL+ or Artistic Epoch: 0 -Version: 2.71 +Version: 2.72 Requires: %perl_compat # Keep Net::Ping::External optional %if %{defined perl_bootstrap} @@ -3083,7 +2919,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.43 +Version: 1.47 Requires: %perl_compat %if %{defined perl_bootstrap} %gendep_perl_Opcode @@ -3100,7 +2936,7 @@ will not be executed. Summary: Perl pragma to set default PerlIO layers for input and output License: GPL+ or Artistic Epoch: 0 -Version: 1.11 +Version: 1.12 Requires: %perl_compat Requires: perl(Carp) Requires: perl(Encode) @@ -3119,7 +2955,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.30 +Version: 1.31 BuildArch: noarch Requires: %perl_compat Requires: perl(mro) @@ -3157,7 +2993,7 @@ Summary: Establish an ISA relationship with base classes at compile time License: GPL+ or Artistic # Epoch bump for clean upgrade over old standalone package Epoch: 1 -Version: 0.237 +Version: 0.238 Requires: %perl_compat %if %{defined perl_bootstrap} %gendep_perl_parent @@ -3222,7 +3058,7 @@ Summary: Frequently asked questions about Perl # Code examples are Public Domain License: (GPL+ or Artistic) and Public Domain Epoch: 0 -Version: 5.20190126 +Version: 5.20200523 Requires: %perl_compat %if %{defined perl_bootstrap} %gendep_perl_perlfaq @@ -3357,7 +3193,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.24 +Version: 1.25 Requires: %perl_compat %if %{defined perl_bootstrap} %gendep_perl_Pod_Html @@ -3370,24 +3206,6 @@ This package converts files from POD format (see perlpod) to HTML format. It can automatically generate indexes and cross-references, and it keeps a cache of things it knows how to cross-reference. -%if %{dual_life} || %{rebuild_from_scratch} -%package Pod-Parser -Summary: Basic perl modules for handling Plain Old Documentation (POD) -License: GPL+ or Artistic -Epoch: 0 -Version: 1.63 -Requires: %perl_compat -%if %{defined perl_bootstrap} -%gendep_perl_Pod_Parser -%endif -BuildArch: noarch - -%description Pod-Parser -This software distribution contains the packages for using Perl5 POD (Plain -Old Documentation). See the "perlpod" and "perlsyn" manual pages from your -Perl5 distribution for more information about POD. -%endif - %if %{dual_life} || %{rebuild_from_scratch} %package Pod-Perldoc Summary: Look up Perl documentation in Pod format @@ -3430,7 +3248,7 @@ Summary: Framework for parsing POD documentation License: GPL+ or Artistic # Epoch bump for clean upgrade over old standalone package Epoch: 1 -Version: 3.35 +Version: 3.40 Requires: %perl_compat %if %{defined perl_bootstrap} %gendep_perl_Pod_Simple @@ -3473,7 +3291,7 @@ verbose level is 2, then the entire manual page is printed. Summary: Format POD source into various output formats License: (GPL+ or Artistic) and MIT Epoch: 1 -Version: 4.11 +Version: 4.14 BuildArch: noarch Requires: %perl_compat Requires: perl(File::Spec) >= 0.8 @@ -3494,7 +3312,7 @@ with various capabilities. Summary: Perl interface to IEEE Std 1003.1 License: GPL+ or Artistic Epoch: 0 -Version: 1.88 +Version: 1.94 Requires: %perl_compat Requires: perl(Carp) %if %{defined perl_bootstrap} @@ -3510,7 +3328,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.40 +Version: 2.41 Requires: %perl_compat %if %{defined perl_bootstrap} %gendep_perl_Safe @@ -3527,8 +3345,8 @@ security purposes. %package Scalar-List-Utils Summary: A selection of general-utility scalar and list subroutines License: GPL+ or Artistic -Epoch: 3 -Version: 1.50 +Epoch: 4 +Version: 1.55 Requires: %perl_compat %if %{defined perl_bootstrap} %gendep_perl_Scalar_List_Utils @@ -3579,7 +3397,7 @@ file handle that was selected when it was created. Summary: Load functions only on demand License: GPL+ or Artistic Epoch: 0 -Version: 1.25 +Version: 1.26 BuildArch: noarch Requires: %perl_compat Requires: perl(Carp) @@ -3615,7 +3433,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.027 +Version: 2.029 Requires: %perl_compat %if %{defined perl_bootstrap} %gendep_perl_Socket @@ -3652,7 +3470,7 @@ function. Summary: Persistence for Perl data structures License: GPL+ or Artistic Epoch: 1 -Version: 3.15 +Version: 3.21 Requires: %perl_compat # Carp substitutes missing Log::Agent Requires: perl(Carp) @@ -3707,7 +3525,7 @@ The Symbol module provides functions for manipulating Perl symbols. Summary: Try every conceivable way to get a hostname License: GPL+ or Artistic Epoch: 0 -Version: 1.22 +Version: 1.23 Requires: %perl_compat Suggests: perl(POSIX) Requires: perl(XSLoader) @@ -3725,7 +3543,7 @@ result. Summary: Perl interface to the UNIX syslog(3) calls License: GPL+ or Artistic Epoch: 0 -Version: 0.35 +Version: 0.36 Requires: %perl_compat Requires: perl(XSLoader) %if %{defined perl_bootstrap} @@ -3743,7 +3561,7 @@ a string priority and a list of printf() arguments just like at syslog(3). Summary: Color screen output using ANSI escape sequences License: GPL+ or Artistic Epoch: 0 -Version: 4.06 +Version: 5.01 Requires: %perl_compat Requires: perl(Carp) %if %{defined perl_bootstrap} @@ -3853,7 +3671,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.302162 +Version: 1.302175 Requires: %perl_compat Requires: perl(Data::Dumper) %if %{defined perl_bootstrap} @@ -3942,7 +3760,7 @@ up long lines, it will not join short lines together. Summary: Manipulate threads in Perl (for old code only) License: GPL+ or Artistic Epoch: 0 -Version: 3.04 +Version: 3.05 BuildArch: noarch Requires: %perl_compat %if %{defined perl_bootstrap} @@ -3968,7 +3786,7 @@ model (i.e., use the threads and threads::shared modules) as soon as possible. Summary: Thread-safe queues License: GPL+ or Artistic Epoch: 0 -Version: 3.13 +Version: 3.14 Requires: %perl_compat Requires: perl(Carp) %if %{defined perl_bootstrap} @@ -4003,7 +3821,7 @@ handles, and scalars. Summary: Access the lines of a disk file via a Perl array License: GPLv2+ or Artistic Epoch: 0 -Version: 1.02 +Version: 1.06 Requires: %perl_compat # Symbol is not used on Perl >= 5.6.0 %if %{defined perl_bootstrap} @@ -4080,7 +3898,7 @@ and localtime () functions. Summary: High resolution alarm, sleep, gettimeofday, interval timers License: GPL+ or Artistic Epoch: 0 -Version: 1.9760 +Version: 1.9764 Requires: %perl_compat Requires: perl(Carp) %if %{defined perl_bootstrap} @@ -4121,7 +3939,7 @@ so dates before the system's epoch may not work on all operating systems. Summary: Time objects from localtime and gmtime License: (GPL+ or Artistic) and BSD Epoch: 0 -Version: 1.33 +Version: 1.3401 Requires: %perl_compat %if %{defined perl_bootstrap} %gendep_perl_Time_Piece @@ -4160,7 +3978,7 @@ multiple resources at once. Summary: Perl interpreter-based threads License: GPL+ or Artistic Epoch: 1 -Version: 2.22 +Version: 2.25 Requires: %perl_compat %if %{defined perl_bootstrap} %gendep_perl_threads @@ -4184,7 +4002,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.60 +Version: 1.61 Requires: %perl_compat %if %{defined perl_bootstrap} %gendep_perl_threads_shared @@ -4222,7 +4040,7 @@ Collation Algorithm). Summary: Unicode Normalization Forms License: GPL+ or Artistic Epoch: 0 -Version: 1.26 +Version: 1.27 Requires: %perl_compat # unicore/CombiningClass.pl and unicore/Decomposition.pl from perl, perl is # auto-detected. @@ -4240,7 +4058,7 @@ Unicode normalization forms as defined in Unicode Standard Annex #15. Summary: Unicode character database License: GPL+ or Artistic Epoch: 0 -Version: 0.72 +Version: 0.75 BuildArch: noarch Requires: %perl_compat Requires: perl(Storable) @@ -4343,62 +4161,6 @@ you're not running VMS, this module does nothing. %patch11 -p1 %patch12 -p1 %patch13 -p1 -%patch16 -p1 -%patch17 -p1 -%patch18 -p1 -%patch19 -p1 -%patch20 -p1 -%patch21 -p1 -%patch22 -p1 -%patch23 -p1 -%patch25 -p1 -%patch27 -p1 -%patch28 -p1 -%patch30 -p1 -%patch31 -p1 -%patch32 -p1 -%patch37 -p1 -%patch38 -p1 -%patch39 -p1 -%patch40 -p1 -%patch41 -p1 -%patch42 -p1 -%patch43 -p1 -%patch44 -p1 -%patch45 -p1 -%patch46 -p1 -%patch48 -p1 -%patch49 -p1 -%patch50 -p1 -%patch51 -p1 -%patch52 -p1 -%patch53 -p1 -%patch54 -p1 -%patch56 -p1 -%patch59 -p1 -%patch61 -p1 -%patch62 -p1 -%patch63 -p1 -%patch64 -p1 -%patch65 -p1 -%patch66 -p1 -%patch67 -p1 -%patch68 -p1 -%patch69 -p1 -%patch70 -p1 -%patch71 -p1 -%patch72 -p1 -%patch73 -p1 -%patch74 -p1 -%patch75 -p1 -%patch76 -p1 -%patch77 -p1 -%patch78 -p1 -%patch79 -p1 -%patch80 -p1 -%patch81 -p1 -%patch82 -p1 -%patch83 -p1 %patch200 -p1 %patch201 -p1 @@ -4419,62 +4181,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 Patch16: Fix memory handling when parsing string literals' \ - 'Fedora Patch17: Fix an undefined behavior in shifting IV variables' \ - 'Fedora Patch18: Fix an undefined behavior in shifting IV variables' \ - 'Fedora Patch19: Fix an undefined behavior in shifting IV variables' \ - 'Fedora Patch20: Fix stacking file test operators (CPAN RT#127073)' \ - 'Fedora Patch21: Fix a crash in SIGALARM handler when waiting on a child process to be closed (RT#122112)' \ - 'Fedora Patch22: Fix a crash in SIGALARM handler when waiting on a child process to be closed (RT#122112)' \ - 'Fedora Patch23: Fix a crash in SIGALARM handler when waiting on a child process to be closed (RT#122112)' \ - 'Fedora Patch25: Fix a crash with a negative precision in sprintf function (RT#134008)' \ - 'Fedora Patch27: Prevent from wrapping a width in a numeric format string (RT#133913)' \ - 'Fedora Patch28: Fix subroutine protypes to track reference aliases (RT#134072)' \ - 'Fedora Patch30: Fix changing packet destination sent from a UDP IO::Socket object (RT#133936)' \ - 'Fedora Patch31: Fix changing packet destination sent from a UDP IO::Socket object (RT#133936)' \ - 'Fedora Patch32: Fix changing packet destination sent from a UDP IO::Socket object (RT#133936)' \ - 'Fedora Patch37: Fix %%{^CAPTURE_ALL} to be an alias for %%- variable (RT#131867)' \ - 'Fedora Patch38: Fix %%{^CAPTURE} value when used after @{^CAPTURE} (RT#134193)' \ - 'Fedora Patch39: Fix %%{^CAPTURE} value when used after @{^CAPTURE} (RT#134193)' \ - 'Fedora Patch40: Fix a test for a crash in SIGALARM handler when waiting on a child process to be closed (RT#122112)' \ - 'Fedora Patch41: Fix a crash on an uninitialized warning when processing a multideref node (RT#134275)' \ - 'Fedora Patch42: Preserve append mode when opening anonymous files (RT#134221)' \ - 'Fedora Patch43: Preserve append mode when opening anonymous files (RT#134221)' \ - 'Fedora Patch44: Preserve append mode when opening anonymous files (RT#134221)' \ - 'Fedora Patch45: Fix propagating non-string variables in an exception value (RT#134291)' \ - 'Fedora Patch46: Include trailing zero in scalars holding trie data (RT#134207)' \ - 'Fedora Patch48: Fix a use after free in debugging output of a collation' \ - 'Fedora Patch49: Fix a NULL pointer dereference in PerlIOVia_pushed()' \ - 'Fedora Patch50: Fix a crash when setting $@ on unwinding a call stack (RT#134266)' \ - 'Fedora Patch51: Fix parsing a denominator when parsing a Unicode property name' \ - 'Fedora Patch52: Fix a documentation about a future API change' \ - 'Fedora Patch53: Do not run File-Find tests in parallel' \ - 'Fedora Patch54: Fix parsing a Unicode property name when compiling a regular expression' \ - 'Fedora Patch56: Do not interpret 0x and 0b prefixes when numifying strings (RT#134230)' \ - 'Fedora Patch59: Correct a misspelling in perlrebackslash documentation (RT#134395)' \ - 'Fedora Patch61: Fix a detection for futimes (RT#134432)' \ - 'Fedora Patch62: Fix a detection for futimes (RT#134432)' \ - 'Fedora Patch63: Fix overloading for binary and octal floats (RT#125557)' \ - 'Fedora Patch64: Fix handling undefined array members in Dumpvalue (RT#134441)' \ - 'Fedora Patch65: Fix taint mode documentation regarding @INC' \ - 'Fedora Patch66: Fix taint mode documentation regarding @INC' \ - 'Fedora Patch67: Fix handling a layer argument in Tie::StdHandle::BINMODE() (RT#132475)' \ - 'Fedora Patch68: Fix an unintended upgrade to UTF-8 in the middle of a transliteration' \ - 'Fedora Patch69: Fix an unintended upgrade to UTF-8 in the middle of a transliteration' \ - 'Fedora Patch70: Fix a race in File::stat() tests (GH#17234)' \ - 'Fedora Patch71: Fix a buffer overread when parsing a number (GH#17279)' \ - 'Fedora Patch72: Work around a glibc bug in caching LC_MESSAGES (GH#17081)' \ - 'Fedora Patch73: Fix POSIX:setlocale() documentation' \ - 'Fedora Patch74: Prevent from an integer overflow in POSIX::SigSet()' \ - 'Fedora Patch75: Fix thread-safety of IO::Handle (GH#14816)' \ - 'Fedora Patch76: Fix thread-safety of IO::Handle (GH#14816)' \ - 'Fedora Patch77: Fix thread-safety of IO::Handle (GH#14816)' \ - 'Fedora Patch78: Close :unix PerlIO layers properly' \ - 'Fedora Patch79: Only install ExtUtils::XSSymSet manual page on VMS (GH#17424)' \ - 'Fedora Patch80: Fix sorting tied arrays (GH#17496)' \ - 'Fedora Patch81: Fix sorting tied arrays (GH#17496)' \ - 'Fedora Patch82: Fix a spurious warning about a multidimensional syntax (GH#16535)' \ - 'Fedora Patch83: Fix a warning about an uninitialized value in B::Deparse (GH#17537)' \ '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} @@ -4819,8 +4525,6 @@ popd %{archlib}/auto/PerlIO %{archlib}/auto/re %{archlib}/auto/SDBM_File -%dir %{archlib}/auto/Tie -%{archlib}/auto/Tie/Hash %{archlib}/Config.* %{archlib}/Config_git.pl %{archlib}/Config_heavy.pl @@ -4831,8 +4535,6 @@ popd %{archlib}/PerlIO %{archlib}/re.pm %{archlib}/SDBM_File.pm -%dir %{archlib}/Tie -%{archlib}/Tie/Hash %{_libdir}/libperl.so.* %dir %{perl_vendorarch} %dir %{perl_vendorarch}/auto @@ -4851,11 +4553,12 @@ popd %{privlib}/unicore %{privlib}/UNIVERSAL.pm %{privlib}/utf8.pm -%{privlib}/utf8_heavy.pl %{privlib}/warnings %{privlib}/warnings.pm %dir %{privlib}/Tie %{privlib}/Tie/Hash.pm +%dir %{privlib}/Tie/Hash +%{privlib}/Tie/Hash/NamedCapture.pm %{privlib}/XSLoader.pm %dir %{perl_vendorlib} %{_mandir}/man3/AnyDBM_File.* @@ -5341,7 +5044,6 @@ popd %{privlib}/pod/perlbot.pod %{privlib}/pod/perlbs2000.pod %{privlib}/pod/perlcall.pod -%{privlib}/pod/perlce.pod %{privlib}/pod/perlcheat.pod %{privlib}/pod/perlclib.pod %{privlib}/pod/perlcn.pod @@ -5463,7 +5165,6 @@ popd %{_mandir}/man1/perlbot.* %{_mandir}/man1/perlbs2000.* %{_mandir}/man1/perlcall.* -%{_mandir}/man1/perlce.* %{_mandir}/man1/perlcheat.* %{_mandir}/man1/perlclib.* %{_mandir}/man1/perlcn.* @@ -6056,10 +5757,12 @@ popd %if %{dual_life} || %{rebuild_from_scratch} %files IO-Compress # IO-Compress +%{_bindir}/streamzip %{_bindir}/zipdetails %dir %{privlib}/IO %dir %{privlib}/IO/Compress %{privlib}/IO/Compress/FAQ.pod +%{_mandir}/man1/streamzip.* %{_mandir}/man1/zipdetails.* %{_mandir}/man3/IO::Compress::FAQ.* # Compress-Zlib @@ -6069,8 +5772,6 @@ popd #IO-Compress-Base %dir %{privlib}/File %{privlib}/File/GlobMapper.pm -%dir %{privlib}/IO -%dir %{privlib}/IO/Compress %{privlib}/IO/Compress/Base %{privlib}/IO/Compress/Base.pm %dir %{privlib}/IO/Uncompress @@ -6081,8 +5782,6 @@ popd %{_mandir}/man3/IO::Uncompress::AnyUncompress.* %{_mandir}/man3/IO::Uncompress::Base.* # IO-Compress-Zlib -%dir %{privlib}/IO -%dir %{privlib}/IO/Compress %{privlib}/IO/Compress/Adapter %{privlib}/IO/Compress/Deflate.pm %{privlib}/IO/Compress/Bzip2.pm @@ -6092,7 +5791,6 @@ popd %{privlib}/IO/Compress/Zip %{privlib}/IO/Compress/Zip.pm %{privlib}/IO/Compress/Zlib -%dir %{privlib}/IO/Uncompress %{privlib}/IO/Uncompress/Adapter/ %{privlib}/IO/Uncompress/AnyInflate.pm %{privlib}/IO/Uncompress/Bunzip2.pm @@ -6112,10 +5810,12 @@ popd %{_mandir}/man3/IO::Uncompress::RawInflate* %{_mandir}/man3/IO::Uncompress::Unzip* %else +%exclude %{_bindir}/streamzip %exclude %{_bindir}/zipdetails %exclude %dir %{privlib}/IO %exclude %dir %{privlib}/IO/Compress %exclude %{privlib}/IO/Compress/FAQ.pod +%exclude %{_mandir}/man1/streamzip.* %exclude %{_mandir}/man1/zipdetails.* %exclude %{_mandir}/man3/IO::Compress::FAQ.* # Compress-Zlib @@ -6688,40 +6388,6 @@ popd %{_mandir}/man1/pod2html.1* %{_mandir}/man3/Pod::Html.* -%if %{dual_life} || %{rebuild_from_scratch} -%files Pod-Parser -%{_bindir}/podselect -%dir %{privlib}/Pod -%{privlib}/Pod/Find.pm -%{privlib}/Pod/InputObjects.pm -%{privlib}/Pod/ParseUtils.pm -%{privlib}/Pod/Parser.pm -%{privlib}/Pod/PlainText.pm -%{privlib}/Pod/Select.pm -%{_mandir}/man1/podselect.1* -%{_mandir}/man3/Pod::Find.* -%{_mandir}/man3/Pod::InputObjects.* -%{_mandir}/man3/Pod::ParseUtils.* -%{_mandir}/man3/Pod::Parser.* -%{_mandir}/man3/Pod::PlainText.* -%{_mandir}/man3/Pod::Select.* -%else -%exclude %{_bindir}/podselect -%exclude %{privlib}/Pod/Find.pm -%exclude %{privlib}/Pod/InputObjects.pm -%exclude %{privlib}/Pod/ParseUtils.pm -%exclude %{privlib}/Pod/Parser.pm -%exclude %{privlib}/Pod/PlainText.pm -%exclude %{privlib}/Pod/Select.pm -%exclude %{_mandir}/man1/podselect.1* -%exclude %{_mandir}/man3/Pod::Find.* -%exclude %{_mandir}/man3/Pod::InputObjects.* -%exclude %{_mandir}/man3/Pod::ParseUtils.* -%exclude %{_mandir}/man3/Pod::Parser.* -%exclude %{_mandir}/man3/Pod::PlainText.* -%exclude %{_mandir}/man3/Pod::Select.* -%endif - %if %{dual_life} || %{rebuild_from_scratch} %files Pod-Perldoc %{_bindir}/perldoc @@ -7228,6 +6894,10 @@ popd # Old changelog entries are preserved in CVS. %changelog +* Mon Jun 22 2020 Jitka Plesnikova - 4:5.32.0-455 +- 5.32.0 bump (see + or release notes) + * Tue Jun 02 2020 Jitka Plesnikova - 4:5.30.3-454 - 5.30.3 bump (see for release notes) diff --git a/sources b/sources index a3391e6..59aa34c 100644 --- a/sources +++ b/sources @@ -1 +1 @@ -SHA512 (perl-5.30.3.tar.xz) = 0ea62cf17532ee99217a218c39aa530472857c7a1982494f3a01693683062b4cdebe383a79f7b64452c713337b554ed5e0fd6eda018ea29e83c3538a13c24f3c +SHA512 (perl-5.32.0.tar.xz) = 1540247415893bbd94dfeede7b4fba6052688dc0bf27ced817f448246fcdc6e9a6486abc34577dec5b00bf02ed607b2d24ccd4977c3b3c51e8e6edfc0b81c760