From 2bf1d755b0147fd2e1fae7a7aa548778ada1fbeb Mon Sep 17 00:00:00 2001
From: James Antill <jantill@redhat.com>
Date: Mon, 20 Feb 2023 02:00:44 -0500
Subject: [PATCH] Import rpm: dcb3b7e641b0b41efa52504cd710dce325c35325

---
 .gitignore                                    |    1 +
 ...-Raw-Zlib-2.071-Adapt-to-zlib-1.2.11.patch |  367 +
 Compress-Raw-Zlib-2.071-Conform-to-C90.patch  |   82 +
 Pod-Html-license-clarification                |   41 +
 STAGE2-perl                                   |   29 +
 checkemptydirs                                |   11 +
 checkpackageversion                           |   93 +
 clean-manifest.pl                             |   39 +
 diffrpms                                      |   33 +
 gating.yaml                                   |   10 +
 gendep.macros                                 | 1988 +++++
 generatedependencies                          |  163 +
 macros.perl                                   |  151 +
 perl-5.10.0-libresolv.patch                   |   12 +
 perl-5.10.0-x86_64-io-test-failure.patch      |   12 +
 perl-5.14.1-offtest.patch                     |   17 +
 ...to-libperl.so-with-EU-CBuilder-on-Li.patch |   65 +
 ...es-to-libperl.so-with-EU-MM-on-Linux.patch |   52 +
 perl-5.16.3-create_libperl_soname.patch       |   52 +
 ...-BigInt-CalcEmu-requires-Math-BigInt.patch |   30 +
 ...M-ODBM-SDBM-_File-objects-only-from-.patch |  233 +
 ...stall-libperl.so-to-shrpdir-on-Linux.patch |   61 +
 ...-Revert-const-the-core-magic-vtables.patch |   44 +
 ...-MM-methods-as-standalone-ExtUtils-M.patch |  110 +
 ...pendnecy-with-EU-MM-Utils-in-IPC-Cmd.patch |   34 +
 ...24.0-assertion-failure-in-.-or-0-x-0.patch |   73 +
 ...hmethod_pvn_flags-introduce-name_end.patch |   94 +
 ....0-crash-on-explicit-return-from-s-e.patch |   94 +
 ...ke-chdir-allocate-the-stack-it-needs.patch |   66 +
 ...5.24.0-perl-129164-Crash-with-splice.patch |   79 +
 ...-perl-129788-IO-Poll-fix-memory-leak.patch |  134 +
 ...rl-129950-fix-firstchar-bitmap-under.patch |   97 +
 ...erl-i-u-erroneously-interpreted-as-u.patch |   92 +
 ...ving-PL_sv_undef-in-unused-ary-slots.patch |   94 +
 ...Fix-memory-leak-in-B-RHE-HASH-method.patch |   65 +
 ...-heap-use-after-free-in-4-arg-substr.patch |   70 +
 ...er-overrun-with-format-and-use-bytes.patch |   93 +
 ...-Perl_fbm_instr-with-negative-length.patch |  116 +
 ...cursion-and-optimising-away-impossib.patch |   93 +
 ...24.1-fix-pad-scope-issue-in-re_evals.patch |  198 +
 ....24.1-fix-special-case-recreation-of.patch |   79 +
 ...-copy-form-data-if-it-might-be-freed.patch |  107 +
 ...d-treating-the-in-as-a-comment-intro.patch |   70 +
 ...29281-test-for-buffer-overflow-issue.patch |   49 +
 ...-the-source-when-inside-the-dest-in-.patch |  104 +
 ...re-range-start-is-set-after-error-in.patch |   73 +
 ...t-read-past-start-of-string-for-unma.patch |  107 +
 ...it-scalar-context-stack-overflow-fix.patch |   62 +
 ...te-pointer-into-PL_linestr-after-loo.patch |   50 +
 ...ck_return-null-pointer-deref-on-malf.patch |   72 +
 ...an-AV-leak-in-Perl_reg_named_buff_fe.patch |   81 +
 ...-perl-131085-Crash-with-sub-in-stash.patch |   61 +
 ...-fixup-File-Glob-degenerate-matching.patch |  266 +
 ...r-the-UTF8-flag-on-a-glob-if-it-isn-.patch |   72 +
 ...goto-at-top-level-of-multicalled-sub.patch |   94 +
 ...5.24.1-sprintf-add-memory-wrap-tests.patch |   68 +
 ...4.3-Carp-Don-t-choke-on-ISA-constant.patch |   75 +
 ...-transliterations-with-unprintable-c.patch |   48 +
 ...PFAIL-insert-needs-to-set-flags-to-0.patch |   69 +
 ...ing-of-braced-subscript-after-parens.patch | 4391 ++++++++++
 ...ing-of-s-with-overloaded-replacement.patch |  594 ++
 ...re-the-GV-slot-is-filled-for-our-foo.patch |   64 +
 ...5-fail-stat-on-names-with-0-embedded.patch |  223 +
 ...t-try-to-process-a-char-range-with-n.patch |   52 +
 ...-132442-Fix-stack-with-do-my-sub-l-1.patch |  107 +
 ...et-when-statting-a-closed-filehandle.patch |  211 +
 ...xtended-charclass-can-trigger-assert.patch |  270 +
 ...ffer-overflow-write-reg_node-overrun.patch |  Bin 0 -> 1983 bytes
 perl-5.24.4-Pass-CFLAGS-to-dtrace.patch       |   44 +
 ...4-Perl_my_setenv-handle-integer-wrap.patch |  175 +
 ....24.4-Remove-ext-GDBM_File-t-fatal.t.patch |   94 +
 ...rm-system-arg-processing-before-fork.patch |   90 +
 ...d-a-heap-buffer-overflow-with-pack-W.patch |   65 +
 ...the-test-so-skip-has-a-SKIP-to-work-.patch |   37 +
 ...ored-floating-substrings-must-be-utf.patch |   56 +
 ...130307-Correctly-unwind-on-cache-hit.patch |   53 +
 perl-5.25.10-fix-VMS-test-fail.patch          |   44 +
 ...testcase-and-new-testfile-t-comp-par.patch |   55 +
 ...SEGV-in-Subroutine-redefined-warning.patch |   76 +
 ...-stash-entries-with-.-as-sub-stashes.patch |   64 +
 ...128238-Crash-with-non-stash-in-stash.patch |   66 +
 ...-Crash-vivifying-stub-in-deleted-pkg.patch |   60 +
 ....2-t-test.pl-Add-fresh_perl-function.patch |   74 +
 ...init-warning-from-h-const-coredumped.patch |   74 +
 ...hmethod_pvn_flags-move-origname-init.patch |   32 +
 ...hmethod_pvn_flags-rename-nsplit-to-l.patch |   92 +
 ...k-gv_fetchmethod_pvn_flags-separator.patch |   81 +
 ...st-for-gv_fetchmethod-buffer-overrun.patch |   44 +
 ....4-perl-129287-Make-UTF8-append-null.patch |   64 +
 ...1-h2xs-avoid-infinite-loop-for-enums.patch |   32 +
 perl-5.25.7-Fix-Storable-segfaults.patch      |   61 +
 ...7-Fix-const-correctness-in-hv_func.h.patch |  124 +
 ...s-with-NEXT_OFF-when-we-are-in-PASS2.patch |   38 +
 ...YX-nodes-can-be-studied-more-than-on.patch |   69 +
 ...-from-tests-about-impossible-quantif.patch |   34 +
 perl-5.26.1-fix-do-dir-returning-no.patch     |  111 +
 perl-5.26.1-guard_old_libcrypt_fix.patch      |   24 +
 ...void-undefined-behaviour-in-Copy-etc.patch |  107 +
 ...code-improperly-casting-negative-int.patch |   33 +
 ...522-Spurious-Assuming-NOT-a-POSIX-cl.patch |  135 +
 ...l-131522-and-fix-test-for-related-pe.patch |   39 +
 ...n-t-treat-as-an-escape-in-PATH-for-S.patch |   32 +
 ...1-improve-duplication-of-via-handles.patch |  299 +
 ...up-sv_dup_inc-are-only-available-und.patch |   71 +
 ...t-go-beyond-the-end-of-the-NUL-in-my.patch |   37 +
 ...s-of-.-will-always-evaluate-as-.-war.patch |   60 +
 ...id-a-segfault-when-untying-an-object.patch |   32 +
 ...eric-first-argument-of-system-on-VMS.patch |   34 +
 ...-numericness-of-system-args-on-Win32.patch |   73 +
 ...ints-linux-Add-lphtread-to-lddlflags.patch |   61 +
 perl-5.28.0-Pass-CFLAGS-to-dtrace.patch       |   63 +
 ...comp.c-Convert-some-strchr-to-memchr.patch |   53 +
 perl-5.32.0-Add-av_count.patch                |  175 +
 ...xt-in-New-Unicode-properties-section.patch |   49 +
 ...TCHSTACK-in-ary-split-.-optimisation.patch |  196 +
 ...5.32.1-DynaLoader-use-PerlEnv_getenv.patch |   34 +
 ...2.1-Perl_do_sv_dump-handle-PL_strtab.patch |   44 +
 ...-clause-to-prevent-the-number-of-buc.patch |   53 +
 ...MANIFEST-entry-from-fix-for-debugger.patch |   30 +
 ...n-action-in-the-debugger-turn-it-off.patch |   90 +
 ...ction-at-the-end-is-no-longer-needed.patch |   33 +
 perl-5.33.0-Fix-leak-GH-18054.patch           |   31 +
 ...spurious-error-reported-for-regular-.patch |   74 +
 ...the-error-on-both-input-and-output-s.patch |   80 +
 ...ynchronize-behavior-with-module-docu.patch |   61 +
 ...-MUTABLE_PTR-Rmv-non-standard-syntax.patch |   32 +
 ...vTRUE-to-indicate-single-param-evalu.patch |   33 +
 ...and-items-variables-inside-BOOT-XSUB.patch |   45 +
 ...-utf8_warn_base.pl-Fix-a-couple-test.patch |   38 +
 ...0-fix-C-i-obj-where-obj-is-a-lexical.patch |  193 +
 ...ign-in-list-context-honour-LHS-undef.patch |   71 +
 ...-in-list-context-was-over-optimising.patch |   76 +
 ...port-errors-from-both-input-and-outp.patch |   87 +
 ...-update-SvCUR-until-after-we-ve-done.patch |   72 +
 ...sizes-for-asctime_r-ctime_r-are-smal.patch |   58 +
 ....0-reentr.c-Prevent-infinite-looping.patch |   46 +
 ...-5.33.0-sv.h-Wanted-UOK-but-said-IOK.patch |   31 +
 ...flow-in-regex-bracket-group-whitespa.patch |   88 +
 ...5.33.1-die_unwind-global-destruction.patch |   55 +
 perl-5.33.1-sort-return-foo.patch             |   77 +
 perl-5.33.2-Remove-Perl_av_top_index.patch    |   77 +
 ...orst-case-for-GOSUBs-we-don-t-analys.patch |   56 +
 perl-5.33.2-mro.xs-Fix-compiler-warning.patch |   31 +
 ...d-missing-braces-in-Perl_sv_inc_nomg.patch |   32 +
 ...v.h-sv_collxfrm-didn-t-work-properly.patch |   36 +
 ..._op_get_field-remove-undef-behaviour.patch |   76 +
 ...he-first-stacked-filetest-not-the-la.patch |   57 +
 ...yC-s-stack-not-refcounted-suggestion.patch |   54 +
 ...hexfp.t-t-op-sprintf2.t-Add-missing-.patch |   71 +
 perl-5.33.4-locale.c-Fix-typo-in-ifdef.patch  |   32 +
 ....33.5-Fix-buggy-fc-in-Turkish-locale.patch |  140 +
 ...ersions-of-PERL_UNUSED_foo-in-XSUB.h.patch |   43 +
 ...k-on-my-_-when-use-utf8-is-in-effect.patch |   78 +
 ...missing-entries-to-perldiag-GH-18276.patch |  100 +
 ...cale.t-Rmv-LANGUAGE-from-environment.patch |   32 +
 ...-5.33.7-regcomp.c-Remove-memory-leak.patch |   74 +
 ...ft-shift-of-IV_MIN-under-use-integer.patch |   62 +
 ...-definition-of-OPTIMIZE-to-.ph-files.patch |   39 +
 perl-5.8.0-libdir64.patch                     |   46 +
 perl-5.8.0-libnet.cfg                         |   15 +
 perl-USE_MM_LD_RUN_PATH.patch                 |  109 +
 perl-example.stp                              |   21 +
 perl-perlbug-tag.patch                        |   21 +
 perl.rpmlintrc                                |    7 +
 perl.spec                                     | 7030 +++++++++++++++++
 perl.stp                                      |   71 +
 sources                                       |    1 +
 system-owned-directories                      |    7 +
 168 files changed, 26139 insertions(+)
 create mode 100644 .gitignore
 create mode 100644 Compress-Raw-Zlib-2.071-Adapt-to-zlib-1.2.11.patch
 create mode 100644 Compress-Raw-Zlib-2.071-Conform-to-C90.patch
 create mode 100644 Pod-Html-license-clarification
 create mode 100644 STAGE2-perl
 create mode 100755 checkemptydirs
 create mode 100755 checkpackageversion
 create mode 100644 clean-manifest.pl
 create mode 100755 diffrpms
 create mode 100644 gating.yaml
 create mode 100644 gendep.macros
 create mode 100755 generatedependencies
 create mode 100644 macros.perl
 create mode 100644 perl-5.10.0-libresolv.patch
 create mode 100644 perl-5.10.0-x86_64-io-test-failure.patch
 create mode 100644 perl-5.14.1-offtest.patch
 create mode 100644 perl-5.16.3-Link-XS-modules-to-libperl.so-with-EU-CBuilder-on-Li.patch
 create mode 100644 perl-5.16.3-Link-XS-modules-to-libperl.so-with-EU-MM-on-Linux.patch
 create mode 100644 perl-5.16.3-create_libperl_soname.patch
 create mode 100644 perl-5.18.1-Document-Math-BigInt-CalcEmu-requires-Math-BigInt.patch
 create mode 100644 perl-5.18.2-Destroy-GDBM-NDBM-ODBM-SDBM-_File-objects-only-from-.patch
 create mode 100644 perl-5.22.0-Install-libperl.so-to-shrpdir-on-Linux.patch
 create mode 100644 perl-5.22.0-Revert-const-the-core-magic-vtables.patch
 create mode 100644 perl-5.22.1-Provide-ExtUtils-MM-methods-as-standalone-ExtUtils-M.patch
 create mode 100644 perl-5.22.1-Replace-EU-MM-dependnecy-with-EU-MM-Utils-in-IPC-Cmd.patch
 create mode 100644 perl-5.24.0-assertion-failure-in-.-or-0-x-0.patch
 create mode 100644 perl-5.24.0-clean-up-gv_fetchmethod_pvn_flags-introduce-name_end.patch
 create mode 100644 perl-5.24.0-crash-on-explicit-return-from-s-e.patch
 create mode 100644 perl-5.24.0-perl-129130-make-chdir-allocate-the-stack-it-needs.patch
 create mode 100644 perl-5.24.0-perl-129164-Crash-with-splice.patch
 create mode 100644 perl-5.24.0-perl-129788-IO-Poll-fix-memory-leak.patch
 create mode 100644 perl-5.24.0-regcomp.c-fix-perl-129950-fix-firstchar-bitmap-under.patch
 create mode 100644 perl-5.24.0-rt-129336-perl-i-u-erroneously-interpreted-as-u.patch
 create mode 100644 perl-5.24.0-split-was-leaving-PL_sv_undef-in-unused-ary-slots.patch
 create mode 100644 perl-5.24.1-Fix-memory-leak-in-B-RHE-HASH-method.patch
 create mode 100644 perl-5.24.1-RT-130624-heap-use-after-free-in-4-arg-substr.patch
 create mode 100644 perl-5.24.1-buffer-overrun-with-format-and-use-bytes.patch
 create mode 100644 perl-5.24.1-don-t-call-Perl_fbm_instr-with-negative-length.patch
 create mode 100644 perl-5.24.1-fix-RT-130561-recursion-and-optimising-away-impossib.patch
 create mode 100644 perl-5.24.1-fix-pad-scope-issue-in-re_evals.patch
 create mode 100644 perl-5.24.1-fix-special-case-recreation-of.patch
 create mode 100644 perl-5.24.1-perl-129125-copy-form-data-if-it-might-be-freed.patch
 create mode 100644 perl-5.24.1-perl-129274-avoid-treating-the-in-as-a-comment-intro.patch
 create mode 100644 perl-5.24.1-perl-129281-test-for-buffer-overflow-issue.patch
 create mode 100644 perl-5.24.1-perl-129340-copy-the-source-when-inside-the-dest-in-.patch
 create mode 100644 perl-5.24.1-perl-129342-ensure-range-start-is-set-after-error-in.patch
 create mode 100644 perl-5.24.1-perl-129377-don-t-read-past-start-of-string-for-unma.patch
 create mode 100644 perl-5.24.1-perl-130262-split-scalar-context-stack-overflow-fix.patch
 create mode 100644 perl-5.24.1-perl-130814-update-pointer-into-PL_linestr-after-loo.patch
 create mode 100644 perl-5.24.1-perl-130815-fix-ck_return-null-pointer-deref-on-malf.patch
 create mode 100644 perl-5.24.1-perl-130822-fix-an-AV-leak-in-Perl_reg_named_buff_fe.patch
 create mode 100644 perl-5.24.1-perl-131085-Crash-with-sub-in-stash.patch
 create mode 100644 perl-5.24.1-perl-131211-fixup-File-Glob-degenerate-matching.patch
 create mode 100644 perl-5.24.1-perl-131263-clear-the-UTF8-flag-on-a-glob-if-it-isn-.patch
 create mode 100644 perl-5.24.1-permit-goto-at-top-level-of-multicalled-sub.patch
 create mode 100644 perl-5.24.1-sprintf-add-memory-wrap-tests.patch
 create mode 100644 perl-5.24.3-Carp-Don-t-choke-on-ISA-constant.patch
 create mode 100644 perl-5.24.3-Fix-deparsing-of-transliterations-with-unprintable-c.patch
 create mode 100644 perl-5.24.3-fix-132017-OPFAIL-insert-needs-to-set-flags-to-0.patch
 create mode 100644 perl-5.24.3-fix-parsing-of-braced-subscript-after-parens.patch
 create mode 100644 perl-5.24.3-fix-tainting-of-s-with-overloaded-replacement.patch
 create mode 100644 perl-5.24.3-perl-131597-ensure-the-GV-slot-is-filled-for-our-foo.patch
 create mode 100644 perl-5.24.3-perl-131895-fail-stat-on-names-with-0-embedded.patch
 create mode 100644 perl-5.24.3-perl-132245-don-t-try-to-process-a-char-range-with-n.patch
 create mode 100644 perl-5.24.3-perl-132442-Fix-stack-with-do-my-sub-l-1.patch
 create mode 100644 perl-5.24.3-set-when-statting-a-closed-filehandle.patch
 create mode 100644 perl-5.24.4-Fix-131649-extended-charclass-can-trigger-assert.patch
 create mode 100644 perl-5.24.4-Fix-heap-buffer-overflow-write-reg_node-overrun.patch
 create mode 100644 perl-5.24.4-Pass-CFLAGS-to-dtrace.patch
 create mode 100644 perl-5.24.4-Perl_my_setenv-handle-integer-wrap.patch
 create mode 100644 perl-5.24.4-Remove-ext-GDBM_File-t-fatal.t.patch
 create mode 100644 perl-5.24.4-perform-system-arg-processing-before-fork.patch
 create mode 100644 perl-5.24.4-perl-129149-avoid-a-heap-buffer-overflow-with-pack-W.patch
 create mode 100644 perl-5.24.4-perl-129149-fix-the-test-so-skip-has-a-SKIP-to-work-.patch
 create mode 100644 perl-5.24.4-perl-129350-anchored-floating-substrings-must-be-utf.patch
 create mode 100644 perl-5.24.4-perl-130307-Correctly-unwind-on-cache-hit.patch
 create mode 100644 perl-5.25.10-fix-VMS-test-fail.patch
 create mode 100644 perl-5.25.10-perl-130814-Add-testcase-and-new-testfile-t-comp-par.patch
 create mode 100644 perl-5.25.2-SEGV-in-Subroutine-redefined-warning.patch
 create mode 100644 perl-5.25.2-only-treat-stash-entries-with-.-as-sub-stashes.patch
 create mode 100644 perl-5.25.2-perl-128238-Crash-with-non-stash-in-stash.patch
 create mode 100644 perl-5.25.2-perl-128532-Crash-vivifying-stub-in-deleted-pkg.patch
 create mode 100644 perl-5.25.2-t-test.pl-Add-fresh_perl-function.patch
 create mode 100644 perl-5.25.2-uninit-warning-from-h-const-coredumped.patch
 create mode 100644 perl-5.25.4-clean-up-gv_fetchmethod_pvn_flags-move-origname-init.patch
 create mode 100644 perl-5.25.4-clean-up-gv_fetchmethod_pvn_flags-rename-nsplit-to-l.patch
 create mode 100644 perl-5.25.4-fix-129267-rework-gv_fetchmethod_pvn_flags-separator.patch
 create mode 100644 perl-5.25.4-perl-129267-Test-for-gv_fetchmethod-buffer-overrun.patch
 create mode 100644 perl-5.25.4-perl-129287-Make-UTF8-append-null.patch
 create mode 100644 perl-5.25.6-perl-130001-h2xs-avoid-infinite-loop-for-enums.patch
 create mode 100644 perl-5.25.7-Fix-Storable-segfaults.patch
 create mode 100644 perl-5.25.7-Fix-const-correctness-in-hv_func.h.patch
 create mode 100644 perl-5.25.9-only-mess-with-NEXT_OFF-when-we-are-in-PASS2.patch
 create mode 100644 perl-5.25.9-perl-129061-CURLYX-nodes-can-be-studied-more-than-on.patch
 create mode 100644 perl-5.25.9-silence-warnings-from-tests-about-impossible-quantif.patch
 create mode 100644 perl-5.26.1-fix-do-dir-returning-no.patch
 create mode 100644 perl-5.26.1-guard_old_libcrypt_fix.patch
 create mode 100644 perl-5.26.1-perl-131746-avoid-undefined-behaviour-in-Copy-etc.patch
 create mode 100644 perl-5.27.0-Fix-131190-UTF8-code-improperly-casting-negative-int.patch
 create mode 100644 perl-5.27.0-Resolve-Perl-131522-Spurious-Assuming-NOT-a-POSIX-cl.patch
 create mode 100644 perl-5.27.0-add-test-for-perl-131522-and-fix-test-for-related-pe.patch
 create mode 100644 perl-5.27.0-perl-129183-don-t-treat-as-an-escape-in-PATH-for-S.patch
 create mode 100644 perl-5.27.0-perl-131221-improve-duplication-of-via-handles.patch
 create mode 100644 perl-5.27.0-perl-131221-sv_dup-sv_dup_inc-are-only-available-und.patch
 create mode 100644 perl-5.27.0-perl-131526-don-t-go-beyond-the-end-of-the-NUL-in-my.patch
 create mode 100644 perl-5.27.3-avoid-the-address-of-.-will-always-evaluate-as-.-war.patch
 create mode 100644 perl-5.27.5-Avoid-a-segfault-when-untying-an-object.patch
 create mode 100644 perl-5.27.7-Reenable-numeric-first-argument-of-system-on-VMS.patch
 create mode 100644 perl-5.27.7-preserve-numericness-of-system-args-on-Win32.patch
 create mode 100644 perl-5.27.8-hints-linux-Add-lphtread-to-lddlflags.patch
 create mode 100644 perl-5.28.0-Pass-CFLAGS-to-dtrace.patch
 create mode 100644 perl-5.28.1-regcomp.c-Convert-some-strchr-to-memchr.patch
 create mode 100644 perl-5.32.0-Add-av_count.patch
 create mode 100644 perl-5.32.0-Fix-404-and-text-in-New-Unicode-properties-section.patch
 create mode 100644 perl-5.32.0-pp_split-no-SWITCHSTACK-in-ary-split-.-optimisation.patch
 create mode 100644 perl-5.32.1-DynaLoader-use-PerlEnv_getenv.patch
 create mode 100644 perl-5.32.1-Perl_do_sv_dump-handle-PL_strtab.patch
 create mode 100644 perl-5.32.1-hv.c-add-a-guard-clause-to-prevent-the-number-of-buc.patch
 create mode 100644 perl-5.33.0-Add-missing-MANIFEST-entry-from-fix-for-debugger.patch
 create mode 100644 perl-5.33.0-After-running-an-action-in-the-debugger-turn-it-off.patch
 create mode 100644 perl-5.33.0-Clearing-DB-action-at-the-end-is-no-longer-needed.patch
 create mode 100644 perl-5.33.0-Fix-leak-GH-18054.patch
 create mode 100644 perl-5.33.0-IO-Handle-Fix-a-spurious-error-reported-for-regular-.patch
 create mode 100644 perl-5.33.0-IO-Handle-clear-the-error-on-both-input-and-output-s.patch
 create mode 100644 perl-5.33.0-IO-Socket-UNIX-synchronize-behavior-with-module-docu.patch
 create mode 100644 perl-5.33.0-MUTABLE_PTR-Rmv-non-standard-syntax.patch
 create mode 100644 perl-5.33.0-Update-pod-for-SvTRUE-to-indicate-single-param-evalu.patch
 create mode 100644 perl-5.33.0-XSUB.h-fix-MARK-and-items-variables-inside-BOOT-XSUB.patch
 create mode 100644 perl-5.33.0-ext-XS-APItest-t-utf8_warn_base.pl-Fix-a-couple-test.patch
 create mode 100644 perl-5.33.0-fix-C-i-obj-where-obj-is-a-lexical.patch
 create mode 100644 perl-5.33.0-list-assign-in-list-context-honour-LHS-undef.patch
 create mode 100644 perl-5.33.0-list-assign-in-list-context-was-over-optimising.patch
 create mode 100644 perl-5.33.0-make-fh-error-report-errors-from-both-input-and-outp.patch
 create mode 100644 perl-5.33.0-perl-17844-don-t-update-SvCUR-until-after-we-ve-done.patch
 create mode 100644 perl-5.33.0-reentr.c-Buffer-sizes-for-asctime_r-ctime_r-are-smal.patch
 create mode 100644 perl-5.33.0-reentr.c-Prevent-infinite-looping.patch
 create mode 100644 perl-5.33.0-sv.h-Wanted-UOK-but-said-IOK.patch
 create mode 100644 perl-5.33.1-Heap-buffer-overflow-in-regex-bracket-group-whitespa.patch
 create mode 100644 perl-5.33.1-die_unwind-global-destruction.patch
 create mode 100644 perl-5.33.1-sort-return-foo.patch
 create mode 100644 perl-5.33.2-Remove-Perl_av_top_index.patch
 create mode 100644 perl-5.33.2-gh18096-assume-worst-case-for-GOSUBs-we-don-t-analys.patch
 create mode 100644 perl-5.33.2-mro.xs-Fix-compiler-warning.patch
 create mode 100644 perl-5.33.2-sv.c-Added-missing-braces-in-Perl_sv_inc_nomg.patch
 create mode 100644 perl-5.33.2-sv.h-sv_collxfrm-didn-t-work-properly.patch
 create mode 100644 perl-5.33.3-Perl_custom_op_get_field-remove-undef-behaviour.patch
 create mode 100644 perl-5.33.3-fetch-magic-on-the-first-stacked-filetest-not-the-la.patch
 create mode 100644 perl-5.33.3-pp_split-add-TonyC-s-stack-not-refcounted-suggestion.patch
 create mode 100644 perl-5.33.3-t-op-inc.t-t-op-hexfp.t-t-op-sprintf2.t-Add-missing-.patch
 create mode 100644 perl-5.33.4-locale.c-Fix-typo-in-ifdef.patch
 create mode 100644 perl-5.33.5-Fix-buggy-fc-in-Turkish-locale.patch
 create mode 100644 perl-5.33.5-Use-perl.h-versions-of-PERL_UNUSED_foo-in-XSUB.h.patch
 create mode 100644 perl-5.33.5-op.c-croak-on-my-_-when-use-utf8-is-in-effect.patch
 create mode 100644 perl-5.33.6-Add-missing-entries-to-perldiag-GH-18276.patch
 create mode 100644 perl-5.33.6-t-run-locale.t-Rmv-LANGUAGE-from-environment.patch
 create mode 100644 perl-5.33.7-regcomp.c-Remove-memory-leak.patch
 create mode 100644 perl-5.33.8-Fix-broken-left-shift-of-IV_MIN-under-use-integer.patch
 create mode 100644 perl-5.36.0-Add-definition-of-OPTIMIZE-to-.ph-files.patch
 create mode 100644 perl-5.8.0-libdir64.patch
 create mode 100644 perl-5.8.0-libnet.cfg
 create mode 100644 perl-USE_MM_LD_RUN_PATH.patch
 create mode 100644 perl-example.stp
 create mode 100644 perl-perlbug-tag.patch
 create mode 100644 perl.rpmlintrc
 create mode 100644 perl.spec
 create mode 100644 perl.stp
 create mode 100644 sources
 create mode 100644 system-owned-directories

diff --git a/.gitignore b/.gitignore
new file mode 100644
index 0000000..9ea7b54
--- /dev/null
+++ b/.gitignore
@@ -0,0 +1 @@
+SOURCES/perl-5.24.4.tar.bz2
diff --git a/Compress-Raw-Zlib-2.071-Adapt-to-zlib-1.2.11.patch b/Compress-Raw-Zlib-2.071-Adapt-to-zlib-1.2.11.patch
new file mode 100644
index 0000000..c08dd17
--- /dev/null
+++ b/Compress-Raw-Zlib-2.071-Adapt-to-zlib-1.2.11.patch
@@ -0,0 +1,367 @@
+From 0c7af9e6cb05b436505e7f46ef49dcb6f791f30a Mon Sep 17 00:00:00 2001
+From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= <ppisar@redhat.com>
+Date: Fri, 17 Feb 2017 11:00:21 +0100
+Subject: [PATCH] Adapt to zlib-1.2.11
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+This is a fix ported from Compress-Raw-Zlib-2.072 that restores
+compatibility with zlib-1.2.11.
+
+CPAN RT#119762
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ Zlib.xs    | 220 +++++++++++++++++++++++++++++++++++++++++++++++--------------
+ t/02zlib.t |  11 +++-
+ 2 files changed, 178 insertions(+), 53 deletions(-)
+
+diff --git a/Zlib.xs b/Zlib.xs
+index d379f78..83d1423 100644
+--- a/Zlib.xs
++++ b/Zlib.xs
+@@ -74,6 +74,10 @@
+ #  define AT_LEAST_ZLIB_1_2_8
+ #endif
+ 
++#if  defined(ZLIB_VERNUM) && ZLIB_VERNUM >= 0x1290
++#  define AT_LEAST_ZLIB_1_2_9
++#endif
++
+ #ifdef USE_PPPORT_H
+ #  define NEED_sv_2pvbyte
+ #  define NEED_sv_2pv_nolen
+@@ -134,12 +138,13 @@ typedef struct di_stream {
+     uLong    dict_adler ;
+     int      last_error ;
+     bool     zip_mode ;
+-#define SETP_BYTE
++/* #define SETP_BYTE */
+ #ifdef SETP_BYTE
++    /* SETP_BYTE only works with zlib up to 1.2.8 */
+     bool     deflateParams_out_valid ;
+     Bytef    deflateParams_out_byte;
+ #else
+-#define deflateParams_BUFFER_SIZE       0x4000
++#define deflateParams_BUFFER_SIZE       0x40000
+     uLong    deflateParams_out_length;
+     Bytef*   deflateParams_out_buffer;
+ #endif
+@@ -636,6 +641,103 @@ char * string ;
+     return sv ;
+ }
+ 
++#if 0
++int
++flushToBuffer(di_stream* s, int flush)
++{
++    dTHX;
++    int ret ;
++    z_stream * strm = &s->stream;
++
++    Bytef* output = s->deflateParams_out_buffer ;
++
++    strm->next_in = NULL;
++    strm->avail_in = 0;
++    
++    uLong total_output = 0;
++    uLong have = 0;
++
++    do 
++    {
++        if (output)
++            output = (unsigned char *)saferealloc(output, total_output + s->bufsize);
++        else
++            output = (unsigned char *)safemalloc(s->bufsize);
++
++        strm->next_out  = output + total_output;
++        strm->avail_out = s->bufsize;
++
++        ret = deflate(strm, flush);    /* no bad return value */
++        //assert(ret != Z_STREAM_ERROR);  /* state not clobbered */
++        if(ret == Z_STREAM_ERROR)
++        {
++            safefree(output);
++            return ret;
++        }
++        have = s->bufsize - strm->avail_out;
++        total_output += have;
++
++        //fprintf(stderr, "FLUSH %s %d, return %d\n", flush_flags[flush], have, ret);
++
++    } while (strm->avail_out == 0);
++
++    s->deflateParams_out_buffer = output;
++    s->deflateParams_out_length = total_output; 
++
++    return Z_OK;
++}
++#endif
++
++#ifndef SETP_BYTE
++int
++flushParams(di_stream* s)
++{
++    dTHX;
++    int ret ;
++    z_stream * strm = &s->stream;
++
++    strm->next_in = NULL;
++    strm->avail_in = 0;
++    
++    Bytef* output = s->deflateParams_out_buffer ;
++    uLong total_output = s->deflateParams_out_length;
++
++    uLong have = 0;
++
++    do 
++    {
++        if (output)
++            output = (unsigned char *)saferealloc(output, total_output + s->bufsize);
++        else
++            output = (unsigned char *)safemalloc(s->bufsize);
++
++        strm->next_out  = output + total_output;
++        strm->avail_out = s->bufsize;
++
++        ret = deflateParams(&(s->stream), s->Level, s->Strategy);
++        /* fprintf(stderr, "deflateParams %d %s %lu\n", ret,
++            GetErrorString(ret),  s->bufsize - strm->avail_out); */
++
++        if (ret == Z_STREAM_ERROR) 
++            break;
++
++        have = s->bufsize - strm->avail_out;
++        total_output += have;
++
++
++    } while (ret == Z_BUF_ERROR) ;
++
++    if(ret == Z_STREAM_ERROR)
++        safefree(output);
++    else 
++    {
++        s->deflateParams_out_buffer = output;
++        s->deflateParams_out_length = total_output; 
++    }
++
++    return ret;
++}
++#endif /* ! SETP_BYTE */
+ 
+ #include "constants.h"
+ 
+@@ -991,20 +1093,24 @@ deflate (s, buf, output)
+     /* Check for saved output from deflateParams */
+     if (s->deflateParams_out_length) {
+         uLong plen = s->deflateParams_out_length ;
+-        /* printf("Copy %d bytes saved data\n", plen);*/
++        /* printf("Copy %lu bytes saved data\n", plen); */
+         if (s->stream.avail_out < plen) {
+-            /*printf("GROW from %d to %d\n", s->stream.avail_out,
+-                        SvLEN(output) + plen - s->stream.avail_out); */
+-            Sv_Grow(output, SvLEN(output) + plen - s->stream.avail_out) ;
++            /* printf("GROW from %d to %lu\n", s->stream.avail_out,
++                        SvLEN(output) + plen - s->stream.avail_out);  */
++             s->stream.next_out = (Bytef*) Sv_Grow(output, SvLEN(output) + plen - s->stream.avail_out) ;
++             s->stream.next_out += cur_length;
+         }
+         
+-        Copy(s->stream.next_out, s->deflateParams_out_buffer, plen, Bytef) ;	
+-        cur_length = cur_length + plen;
++        Copy(s->deflateParams_out_buffer, s->stream.next_out, plen, Bytef) ;	
++        cur_length += plen;
+         SvCUR_set(output, cur_length);
+-	s->stream.next_out += plen ;
+-	s->stream.avail_out = SvLEN(output) - cur_length ;
+-	increment = s->stream.avail_out;
+-	s->deflateParams_out_length = 0;
++        s->stream.next_out += plen ;
++        s->stream.avail_out = SvLEN(output) - cur_length ;
++        increment = s->stream.avail_out;
++
++        s->deflateParams_out_length = 0;
++        Safefree(s->deflateParams_out_buffer);
++        s->deflateParams_out_buffer = NULL;
+     }
+ #endif
+     RETVAL = Z_OK ;
+@@ -1027,6 +1133,12 @@ deflate (s, buf, output)
+         }
+ 
+         RETVAL = deflate(&(s->stream), Z_NO_FLUSH);
++        if (RETVAL != Z_STREAM_ERROR) {
++            int done = increment -  s->stream.avail_out ;
++            /* printf("std DEFLATEr returned %d '%s'  avail in %d, out %d wrote %d\n", RETVAL,
++            GetErrorString(RETVAL), s->stream.avail_in,
++s->stream.avail_out, done); */
++        }
+     
+         if (trace) {
+             printf("DEFLATE returned %d %s, avail in %d, out %d\n", RETVAL,
+@@ -1080,7 +1192,6 @@ flush(s, output, f=Z_FINISH)
+   CODE:
+     bufinc = s->bufsize;
+   
+-    s->stream.avail_in = 0; /* should be zero already anyway */
+   
+     /* retrieve the output buffer */
+     output = deRef_l(output, "flush") ;
+@@ -1108,20 +1219,24 @@ flush(s, output, f=Z_FINISH)
+     /* Check for saved output from deflateParams */
+     if (s->deflateParams_out_length) {
+         uLong plen = s->deflateParams_out_length ;
+-        /* printf("Copy %d bytes saved data\n", plen); */
++        /* printf("Copy %lu bytes saved data\n", plen); */
+         if (s->stream.avail_out < plen) {
+-            /* printf("GROW from %d to %d\n", s->stream.avail_out, 
++            /* printf("GROW from %d to %lu\n", s->stream.avail_out, 
+                         SvLEN(output) + plen - s->stream.avail_out); */
+-            Sv_Grow(output, SvLEN(output) + plen - s->stream.avail_out) ;
++            s->stream.next_out = (Bytef*) Sv_Grow(output, SvLEN(output) + plen - s->stream.avail_out) ;
++            s->stream.next_out += cur_length;
+         }
+         
+-        Copy(s->stream.next_out, s->deflateParams_out_buffer, plen, Bytef) ;	
+-        cur_length = cur_length + plen;
++        Copy(s->deflateParams_out_buffer, s->stream.next_out, plen, Bytef) ;	
++        cur_length += plen;
+         SvCUR_set(output, cur_length);
+-	s->stream.next_out += plen ;
+-	s->stream.avail_out = SvLEN(output) - cur_length ;
+-	increment = s->stream.avail_out;
+-	s->deflateParams_out_length = 0;
++        s->stream.next_out += plen ;
++        s->stream.avail_out = SvLEN(output) - cur_length ;
++        increment = s->stream.avail_out;
++
++        s->deflateParams_out_length = 0;
++        Safefree(s->deflateParams_out_buffer);
++        s->deflateParams_out_buffer = NULL;
+     }
+ #endif
+ 
+@@ -1145,9 +1260,15 @@ flush(s, output, f=Z_FINISH)
+         }
+ 
+         RETVAL = deflate(&(s->stream), f);
++        if (RETVAL != Z_STREAM_ERROR) {
++            int done = availableout -  s->stream.avail_out ;
++            /* printf("flush DEFLATEr returned %d '%s'  avail in %d, out %d wrote %d\n", RETVAL,
++            GetErrorString(RETVAL), s->stream.avail_in,
++s->stream.avail_out, done); */
++        }
+     
+         if (trace) {
+-            printf("flush DEFLATE returned %d %s, avail in %d, out %d\n", RETVAL,
++            printf("flush DEFLATE returned %d '%s', avail in %d, out %d\n", RETVAL,
+             GetErrorString(RETVAL), s->stream.avail_in, s->stream.avail_out); 
+             DispStream(s, "AFTER");
+         }
+@@ -1184,41 +1305,38 @@ _deflateParams(s, flags, level, strategy, bufsize)
+ 	int	level
+ 	int	strategy
+     	uLong	bufsize
++	bool changed = FALSE;
+     CODE:
+-	/* printf("_deflateParams(Flags %d Level %d Strategy %d Bufsize %d)\n", flags, level, strategy, bufsize); 
+-	printf("Before -- Level %d, Strategy %d, Bufsize %d\n", s->Level, s->Strategy, s->bufsize); */
+-	if (flags & 1)
+-	    s->Level = level ;
+-	if (flags & 2)
+-	    s->Strategy = strategy ;
+-        if (flags & 4) {
++        /* printf("_deflateParams(Flags %d Level %d Strategy %d Bufsize %d)\n", flags, level, strategy, bufsize); 
++        printf("Before -- Level %d, Strategy %d, Bufsize %d\n", s->Level, s->Strategy, s->bufsize); */
++        if (flags & 1 && level != s->Level) {
++            s->Level = level ;
++            changed = TRUE;
++        }
++        if (flags & 2 && strategy != s->Strategy) {
++            s->Strategy = strategy ;
++            changed = TRUE;
++        }
++        if (flags & 4)
+             s->bufsize = bufsize; 
+-	}
+-	/* printf("After --  Level %d, Strategy %d, Bufsize %d\n", s->Level, s->Strategy, s->bufsize);*/
++        if (changed) {
+ #ifdef SETP_BYTE
+-        s->stream.avail_in = 0; 
+-        s->stream.next_out = &(s->deflateParams_out_byte) ;
+-        s->stream.avail_out = 1;
+-	RETVAL = deflateParams(&(s->stream), s->Level, s->Strategy);
+-	s->deflateParams_out_valid = 
+-		(RETVAL == Z_OK && s->stream.avail_out == 0) ;
+-	/* printf("RETVAL %d, avail out %d, byte %c\n", RETVAL, s->stream.avail_out, s->deflateParams_out_byte); */
++            s->stream.avail_in = 0; 
++            s->stream.next_out = &(s->deflateParams_out_byte) ;
++            s->stream.avail_out = 1;
++            RETVAL = deflateParams(&(s->stream), s->Level, s->Strategy);
++            s->deflateParams_out_valid = 
++            (RETVAL == Z_OK && s->stream.avail_out == 0) ;
+ #else
+-	/* printf("Level %d Strategy %d, Prev Len %d\n", 
++            /* printf("Level %d Strategy %d, Prev Len %d\n", 
+                 s->Level, s->Strategy, s->deflateParams_out_length); */
+-        s->stream.avail_in = 0; 
+-        if (s->deflateParams_out_buffer == NULL)
+-            s->deflateParams_out_buffer = safemalloc(deflateParams_BUFFER_SIZE);
+-        s->stream.next_out = s->deflateParams_out_buffer ;
+-        s->stream.avail_out = deflateParams_BUFFER_SIZE;
+-
+-	RETVAL = deflateParams(&(s->stream), s->Level, s->Strategy);
+-	s->deflateParams_out_length = deflateParams_BUFFER_SIZE - s->stream.avail_out;
+-	/* printf("RETVAL %d, length out %d, avail %d\n", 
+-                    RETVAL, s->deflateParams_out_length, s->stream.avail_out ); */
++            RETVAL = flushParams(s);
+ #endif
++        }
++        else
++            RETVAL = Z_OK;
+     OUTPUT:
+-	RETVAL
++        RETVAL
+ 
+ 
+ int
+diff --git a/t/02zlib.t b/t/02zlib.t
+index 2c9aad6..5d024a9 100644
+--- a/t/02zlib.t
++++ b/t/02zlib.t
+@@ -27,7 +27,7 @@ BEGIN
+         $count = 232 ;
+     }
+     elsif ($] >= 5.006) {
+-        $count = 317 ;
++        $count = 320 ;
+     }
+     else {
+         $count = 275 ;
+@@ -559,6 +559,13 @@ SKIP:
+     is $x->get_Level(),    Z_BEST_SPEED;
+     is $x->get_Strategy(), Z_HUFFMAN_ONLY;
+      
++    # change both Level & Strategy again without any calls to deflate 
++    $status = $x->deflateParams(-Level => Z_DEFAULT_COMPRESSION, -Strategy => Z_DEFAULT_STRATEGY, -Bufsize => 1234) ;
++    cmp_ok $status, '==', Z_OK ;
++    
++    is $x->get_Level(),    Z_DEFAULT_COMPRESSION;
++    is $x->get_Strategy(), Z_DEFAULT_STRATEGY;
++     
+     $status = $x->deflate($goodbye, $Answer) ;
+     cmp_ok $status, '==', Z_OK ;
+     $input .= $goodbye;
+@@ -568,7 +575,7 @@ SKIP:
+     cmp_ok $status, '==', Z_OK ;
+     
+     is $x->get_Level(),    Z_NO_COMPRESSION;
+-    is $x->get_Strategy(), Z_HUFFMAN_ONLY;
++    is $x->get_Strategy(), Z_DEFAULT_STRATEGY;
+      
+     $status = $x->deflate($goodbye, $Answer) ;
+     cmp_ok $status, '==', Z_OK ;
+-- 
+2.7.4
+
diff --git a/Compress-Raw-Zlib-2.071-Conform-to-C90.patch b/Compress-Raw-Zlib-2.071-Conform-to-C90.patch
new file mode 100644
index 0000000..91d6096
--- /dev/null
+++ b/Compress-Raw-Zlib-2.071-Conform-to-C90.patch
@@ -0,0 +1,82 @@
+From 1f3ac68dac93b7b85f09427d188386aaff0d3f80 Mon Sep 17 00:00:00 2001
+From: Reini Urban <reini.urban@gmail.com>
+Date: Fri, 17 Feb 2017 12:06:27 +0100
+Subject: [PATCH] Conform to C90
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+The code failed to compile when building perl because perl adds -Werror=declaration-after-statement:
+
+gcc -c  -I/usr/include -D_REENTRANT -D_GNU_SOURCE -O2 -g -pipe -Wall -Werror=format-security -Wp,-D_FORTIFY_SOURCE=2 -fexceptions -fstack-protector-strong --param=ssp-buffer-size=4 -grecord-gcc-switches -m64 -mtune=generic -fwrapv -fno-strict-aliasing -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -Werror=declaration-after-statement -Wextra -Wc++-compat -Wwrite-strings -g   -DVERSION=\"2.069\" -DXS_VERSION=\"2.069\" -fPIC "-I../.."  -DNO_VIZ -DZ_SOLO   -DGZIP_OS_CODE=3  Zlib.c
+Zlib.xs: In function 'flushParams':
+Zlib.xs:702:5: error: ISO C90 forbids mixed declarations and code [-Werror=declaration-after-statement]
+     Bytef* output = s->deflateParams_out_buffer ;
+     ^~~~~
+
+CPAN RT#120272
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ Zlib.xs | 22 +++++++++++-----------
+ 1 file changed, 11 insertions(+), 11 deletions(-)
+
+diff --git a/Zlib.xs b/Zlib.xs
+index 83d1423..7f4396a 100644
+--- a/Zlib.xs
++++ b/Zlib.xs
+@@ -696,14 +696,14 @@ flushParams(di_stream* s)
+     int ret ;
+     z_stream * strm = &s->stream;
+ 
+-    strm->next_in = NULL;
+-    strm->avail_in = 0;
+-    
+     Bytef* output = s->deflateParams_out_buffer ;
+     uLong total_output = s->deflateParams_out_length;
+ 
+     uLong have = 0;
+ 
++    strm->next_in = NULL;
++    strm->avail_in = 0;
++    
+     do 
+     {
+         if (output)
+@@ -1133,12 +1133,12 @@ deflate (s, buf, output)
+         }
+ 
+         RETVAL = deflate(&(s->stream), Z_NO_FLUSH);
+-        if (RETVAL != Z_STREAM_ERROR) {
++        /* if (RETVAL != Z_STREAM_ERROR) {
+             int done = increment -  s->stream.avail_out ;
+-            /* printf("std DEFLATEr returned %d '%s'  avail in %d, out %d wrote %d\n", RETVAL,
++            printf("std DEFLATEr returned %d '%s'  avail in %d, out %d wrote %d\n", RETVAL,
+             GetErrorString(RETVAL), s->stream.avail_in,
+-s->stream.avail_out, done); */
+-        }
++s->stream.avail_out, done);
++        } */
+     
+         if (trace) {
+             printf("DEFLATE returned %d %s, avail in %d, out %d\n", RETVAL,
+@@ -1260,12 +1260,12 @@ flush(s, output, f=Z_FINISH)
+         }
+ 
+         RETVAL = deflate(&(s->stream), f);
+-        if (RETVAL != Z_STREAM_ERROR) {
++        /* if (RETVAL != Z_STREAM_ERROR) {
+             int done = availableout -  s->stream.avail_out ;
+-            /* printf("flush DEFLATEr returned %d '%s'  avail in %d, out %d wrote %d\n", RETVAL,
++            printf("flush DEFLATEr returned %d '%s'  avail in %d, out %d wrote %d\n", RETVAL,
+             GetErrorString(RETVAL), s->stream.avail_in,
+-s->stream.avail_out, done); */
+-        }
++s->stream.avail_out, done);
++        } */
+     
+         if (trace) {
+             printf("flush DEFLATE returned %d '%s', avail in %d, out %d\n", RETVAL,
+-- 
+2.7.4
+
diff --git a/Pod-Html-license-clarification b/Pod-Html-license-clarification
new file mode 100644
index 0000000..bd567f1
--- /dev/null
+++ b/Pod-Html-license-clarification
@@ -0,0 +1,41 @@
+Date: Sun, 15 Mar 2015 21:22:10 -0600
+Subject: Re: Pod::Html license
+From: Tom Christiansen <tchrist53147@gmail.com>
+To: Petr Šabata <contyk@redhat.com>
+Cc: Tom Christiansen <tchrist@perl.com>, marcgreen@cpan.org,
+ jplesnik@redhat.com
+MIME-Version: 1.0
+Content-Transfer-Encoding: 8bit
+Content-Type: text/plain; charset=utf-8
+
+Yes, it was supposed to be licensed just like the rest of Perl.
+
+Sent from my Sprint phone
+
+Petr Šabata <contyk@redhat.com> wrote:
+
+>Marc, Tom,
+>
+>I'm reviewing licensing of our perl package in Fedora and 
+>noticed Pod::HTML and its pod2html script are licensed under
+>the Artistic license (only).
+>
+>This is an issue for us as this license isn't considered free by
+>FSF [0].  Unless the license of this core component changes, we
+>will have to drop it from the tarball and remove support for it
+>from all the modules we ship that use it, such as Module::Build
+>or Module::Install.
+>
+>What I've seen in the past is authors originally claiming their
+>module was released under Artistic while what they actually meant
+>was the common `the same as perl itself', i.e. `GPL+/Aristic' [1],
+>an FSF free license.  Is it possible this is also the case
+>of Pod::Html?
+>
+>Thanks,
+>Petr
+>
+>(also CC'ing Jitka, the primary package maintainer in Fedora)
+>
+>[0] https://www.gnu.org/licenses/license-list.html#ArtisticLicense
+>[1] https://www.gnu.org/licenses/license-list.html#PerlLicense
diff --git a/STAGE2-perl b/STAGE2-perl
new file mode 100644
index 0000000..8a4676a
--- /dev/null
+++ b/STAGE2-perl
@@ -0,0 +1,29 @@
+#requires gdbm
+
+mcd $BUILDDIR/perl
+
+GV=$(cd $SRC; echo perl-*)
+SONAME_VER=`echo $GV | cut -f2- -d'-' | sed 's/^\\([^.]*\\.[^.]*\\).*/\\1/'`
+PERL_VER=`echo $GV | cut -f2- -d'-'`
+
+cd $SRC/$GV
+
+sh $SRC/$GV/Configure -des -Dprefix=/usr -Dlibpth="/usr/local/lib$SUFFIX /lib$SUFFIX /usr/lib$SUFFIX" -Darchlib="/usr/lib$SUFFIX/perl5" -Dsitelib="/usr/local/share/perl5" -DDEBUGGING=-g  -Dcc=gcc -Dmyhostname=localhost -Dperladmin=root@localhost -Duseshrplib -Dusethreads -Duseithreads -Uusedtrace -Duselargefiles -Dd_semctl_semun -Di_db -Ui_ndbm -Di_gdbm -Di_shadow -Di_syslog -Dman3ext=3pm -Duseperlio -Dinstallusrbinperl=n -Ubincompat5005 -Uversiononly -Dd_gethostent_r_proto -Ud_endhostent_r_proto -Ud_sethostent_r_proto -Ud_endprotoent_r_proto -Ud_setprotoent_r_proto -Ud_endservent_r_proto -Ud_setservent_r_proto
+
+BUILD_BZIP2=0
+BZIP2_LIB=%{_libdir}
+export BUILD_BZIP2 BZIP2_LIB
+
+ln -sf libperl.so libperl.so.${SONAME_VER}
+
+make
+
+rm -f /usr/lib${SUFFIX}/perl5/CORE/libperl.so
+
+make install
+
+rm -f /usr/lib${SUFFIX}/libperl.so.${PERL_VER}
+mv /usr/lib${SUFFIX}/perl5/CORE/libperl.so /usr/lib${SUFFIX}/libperl.so.${PERL_VER}
+ln -sf libperl.so.${PERL_VER} /usr/lib${SUFFIX}/libperl.so.${SONAME_VER}
+ln -sf libperl.so.${PERL_VER} /usr/lib${SUFFIX}/libperl.so
+ln -sf libperl.so.${PERL_VER} /usr/lib${SUFFIX}/perl5/CORE/libperl.so
diff --git a/checkemptydirs b/checkemptydirs
new file mode 100755
index 0000000..a68335f
--- /dev/null
+++ b/checkemptydirs
@@ -0,0 +1,11 @@
+#!/bin/bash
+for P in "$@"; do
+    echo "Empty directories in RPM package $P:"
+
+    for D in $(rpm -qlvp "$P" | \
+            perl -ne \
+                'if (/\Adrwx/) {$n=${[split /\s+/]}[8]; print qq{$n\n}}' | \
+            sort -f); do
+        test $(rpm -qlp "$P" | grep -c -F "$D/") == 0 && echo "$D";
+    done
+done
diff --git a/checkpackageversion b/checkpackageversion
new file mode 100755
index 0000000..f857253
--- /dev/null
+++ b/checkpackageversion
@@ -0,0 +1,93 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+use utf8;
+
+use RPM2;
+
+for my $rpm_file (@ARGV) {
+    my $package = RPM2->open_package($rpm_file)
+        or die q{Could not open `} . $rpm_file . q{'.};
+
+    my $package_name = $package->tag('NAME');
+    my $package_version = $package->tag('VERSION');
+
+    my $module_name = $package_name;
+    $module_name =~ s/^([^-]+)-(.*)/$1($2)/;
+    $module_name =~ s/-/::/g;
+    
+    my @names = $package->tag('PROVIDENAME');
+    my @flags = $package->tag('PROVIDEFLAGS');
+    my @versions = $package->tag('PROVIDEVERSION');
+    if (!($#names == $#flags) && ($#names == $#versions)) {
+        die (q{Inconsistent number of provides names, flags, and versions in `}
+            . $rpm_file . q{'.});
+    }
+
+    my $found = 0;
+    for my $name (@names) {
+        my $flag = shift @flags;
+        my $version = shift @versions;
+        if ($name eq $module_name) {
+            $found = 1;
+
+            if (($flag & 0x8) && (($flag & (0x2+0x4)) == 0)) {
+                if (!($package_version eq $version)) {
+                    print $rpm_file . q{: Package version `} .
+                        $package_version . q{' differs from `} .
+                        $module_name . q{' module version `} .
+                        $version . q{'.} . "\n";
+                }
+                last;
+            } else {
+                print $rpm_file . q{: `} . $module_name .
+                    q{' in list of provides is not qualified (};
+                printf '0x%x', $flag;
+                print q{) as equaled.} . "\n";
+            }
+        }
+    }
+
+    if ($found == 0) {
+        print $rpm_file . q{: missing `} . $module_name .
+            q{' in list of provides.} . "\n";
+    }
+}
+
+__END__
+=encoding utf8
+
+=head1 NAME
+
+checkpackageversion - Check a RPM package version matches main Perl module
+version
+
+=head1 SYNOPSIS
+
+checkpackageversion RPM_PACKAGE...
+
+It opens each RPM_PACKAGE, guesses a main Perl module from package name, finds
+it in list of provides (e.g. perl-Foo-Bar → perl(Foo::Bar) and compares
+versions. It reports any irregularities to standard output.
+
+Petr Písař <ppisar@redhat.com>
+
+=head1 COPYING
+
+Copyright (C) 2011  Petr Písař <ppisar@redhat.com>
+
+This program is free software: you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation, either version 3 of the License, or
+(at your option) any later version.
+
+This program is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with this program.  If not, see <http://www.gnu.org/licenses/>.
+
+=cut
+
diff --git a/clean-manifest.pl b/clean-manifest.pl
new file mode 100644
index 0000000..6b7e162
--- /dev/null
+++ b/clean-manifest.pl
@@ -0,0 +1,39 @@
+#!/usr/bin/perl -w
+use strict;
+
+my ($arch, $patfile, $infile, $outfile, $libdir, $thread_arch) = @ARGV;
+
+if (not $arch or not $patfile or not $infile or not $outfile or not $libdir) {
+  die "Usage: $0 arch thread_arch pattern-file in-file out-file libdir [ threadarch ]";
+}
+
+$thread_arch ||= '';
+
+open IN, "<$infile"
+  or die "Can't open $infile: $!";
+open OUT, ">$outfile"
+  or die "Can't open $outfile: $!";
+open PATTERN, "<$patfile"
+  or die "Can't open $patfile: $!";
+
+my @patterns = <PATTERN>;
+chomp @patterns;
+for my $p (@patterns) {
+  $p =~ s/%{_libdir}/$libdir/g;
+  $p =~ s/%{_arch}/$arch/g;
+  $p =~ s/%{thread_arch}/$thread_arch/g;
+}
+
+my %exclude = map { $_ => 1 } @patterns;
+
+close PATTERN;
+
+while(<IN>) {
+  chomp;
+
+  print OUT "$_\n"
+    unless exists $exclude{$_}
+}
+
+close IN;
+close OUT;
diff --git a/diffrpms b/diffrpms
new file mode 100755
index 0000000..b3a6edc
--- /dev/null
+++ b/diffrpms
@@ -0,0 +1,33 @@
+#!/bin/bash
+
+if [ "$#" != 2 ]; then
+    cat<<EOM
+Usage: $(basename $0) OLD_RELEASE NEW_RELEASE
+
+Compares corresponding RPM packages produced in OLD_RELASE and NEW_RELEASE.
+The same version strings are assumed.
+EOM
+    exit 1;
+fi
+
+OLD_RELEASE="$1"
+NEW_RELEASE="$2"
+
+function process_dir() {
+    for F in $(ls $1/* | sed -r 's/-[0-9].*//' | sort | uniq ); do
+        OLD_RPM=$(echo ${F}-[0-9]*-${OLD_RELEASE}.*)
+        NEW_RPM=$(echo ${F}-[0-9]*-${NEW_RELEASE}.*)
+        
+        test \( ! -e "$OLD_RPM" \) -a \( ! -e "$NEW_RPM" \) && continue
+        if [ ! -e "$OLD_RPM" ]; then echo "+ Package ${F}"; continue; fi
+        if [ ! -e "$NEW_RPM" ]; then echo "- Package ${F}"; continue; fi
+
+        DIFF=$(rpmdiff -i S -i 5 -i T "$OLD_RPM" "$NEW_RPM" | \
+            grep -vE 'REQUIRES perl = | REQUIRES rpmlib\(' )
+
+        test -n "$DIFF" && printf '* %s:\n%s\n' "$F" "$DIFF"
+    done
+}
+
+process_dir 'x86_64'
+process_dir 'noarch'
diff --git a/gating.yaml b/gating.yaml
new file mode 100644
index 0000000..af450d2
--- /dev/null
+++ b/gating.yaml
@@ -0,0 +1,10 @@
+--- !Policy
+product_versions:
+  - rhel-9
+decision_context: osci_compose_gate
+rules:
+  - !PassingTestCaseRule {test_case_name: baseos-ci.brew-build.acceptance-tier.functional}
+  - !PassingTestCaseRule {test_case_name: baseos-ci.brew-build.tier1.functional}
+  - !PassingTestCaseRule {test_case_name: baseos-ci.brew-build.tier2.functional}
+  - !PassingTestCaseRule {test_case_name: baseos-ci.brew-build.tier3.functional}
+  - !PassingTestCaseRule {test_case_name: baseos-ci.brew-build.tiers-no-perlcore.functional}
diff --git a/gendep.macros b/gendep.macros
new file mode 100644
index 0000000..13ac79e
--- /dev/null
+++ b/gendep.macros
@@ -0,0 +1,1988 @@
+%global gendep_perl \
+Requires: perl(:VERSION) >= 5.0.0 \
+Requires: perl(:VERSION) >= 5.10.1 \
+Requires: perl(:VERSION) >= 5.3.0 \
+Requires: perl(:VERSION) >= 5.5.0 \
+Requires: perl(:VERSION) >= 5.6.0 \
+Requires: perl(:VERSION) >= 5.7.0 \
+Requires: perl(:VERSION) >= 5.7.3 \
+Requires: perl(:VERSION) >= 5.8.0 \
+Requires: perl(:VERSION) >= 5.9.1 \
+Requires: perl(:VERSION) >= 5.9.4 \
+Requires: perl(B) \
+Requires: perl(B::Concise) \
+Requires: perl(B::Op_private) \
+Requires: perl(B::Terse) \
+Requires: perl(Carp) \
+Requires: perl(Class::Struct) \
+Requires: perl(Config) \
+Requires: perl(Cwd) \
+Requires: perl(Exporter) \
+Requires: perl(ExtUtils::Constant::Base) \
+Requires: perl(ExtUtils::Constant::Utils) \
+Requires: perl(ExtUtils::Constant::XS) \
+Requires: perl(Fcntl) \
+Requires: perl(File::Basename) \
+Requires: perl(File::Path) \
+Requires: perl(File::Spec) \
+Requires: perl(File::Spec::Functions) \
+Requires: perl(I18N::LangTags) \
+Requires: perl(IO::File) \
+Requires: perl(IPC::Open3) \
+Requires: perl(Opcode) >= 1.01 \
+Requires: perl(POSIX) \
+Requires: perl(Scalar::Util) >= 1.10 \
+Requires: perl(Symbol) \
+Requires: perl(Text::Tabs) \
+Requires: perl(Text::Wrap) \
+Requires: perl(Tie::Handle) \
+Requires: perl(Tie::Hash) \
+Requires: perl(Tie::StdHandle) \
+Requires: perl(Time::tm) \
+Requires: perl(Unicode::Normalize) \
+Requires: perl(XSLoader) \
+Requires: perl(_charnames) \
+Requires: perl(bytes) \
+Requires: perl(charnames) \
+Requires: perl(constant) \
+Requires: perl(feature) \
+Requires: perl(if) \
+Requires: perl(integer) \
+Requires: perl(overload) \
+Requires: perl(parent) \
+Requires: perl(re) \
+Requires: perl(strict) \
+Requires: perl(subs) \
+Requires: perl(threads) \
+Requires: perl(threads::shared) \
+Requires: perl(unicore::Name) \
+Requires: perl(utf8) \
+Requires: perl(vars) \
+Requires: perl(warnings) \
+Requires: perl(warnings::register) \
+Provides: perl(AnyDBM_File) = 1.01 \
+Provides: perl(AutoLoader) = 5.74 \
+Provides: perl(AutoSplit) = 1.06 \
+Provides: perl(B) = 1.62 \
+Provides: perl(B::Concise) = 0.996 \
+Provides: perl(B::Deparse) = 1.37 \
+Provides: perl(B::OBJECT) \
+Provides: perl(B::Op_private) = 5.024004 \
+Provides: perl(B::Showlex) = 1.05 \
+Provides: perl(B::Terse) = 1.06 \
+Provides: perl(B::Xref) = 1.05 \
+Provides: perl(Benchmark) = 1.22 \
+Provides: perl(Class::Struct) = 0.65 \
+Provides: perl(Class::Struct::Tie_ISA) \
+Provides: perl(Config) = 5.024004 \
+Provides: perl(Config::Extensions) = 0.01 \
+Provides: perl(DB) = 1.08 \
+Provides: perl(DBM_Filter) = 0.06 \
+Provides: perl(DBM_Filter::compress) = 0.03 \
+Provides: perl(DBM_Filter::encode) = 0.03 \
+Provides: perl(DBM_Filter::int32) = 0.03 \
+Provides: perl(DBM_Filter::null) = 0.03 \
+Provides: perl(DBM_Filter::utf8) = 0.03 \
+Provides: perl(DirHandle) = 1.04 \
+Provides: perl(Dumpvalue) = 1.18 \
+Provides: perl(DynaLoader) = 1.38 \
+Provides: perl(EVERY) \
+Provides: perl(EVERY::LAST) \
+Provides: perl(English) = 1.10 \
+Provides: perl(ExtUtils::Constant) = 0.23 \
+Provides: perl(ExtUtils::Constant::Base) = 0.05 \
+Provides: perl(ExtUtils::Constant::ProxySubs) = 0.08 \
+Provides: perl(ExtUtils::Constant::Utils) = 0.03 \
+Provides: perl(ExtUtils::Constant::XS) = 0.03 \
+Provides: perl(Fcntl) = 1.13 \
+Provides: perl(File::Basename) = 2.85 \
+Provides: perl(File::Compare) = 1.1006 \
+Provides: perl(File::Copy) = 2.31 \
+Provides: perl(File::DosGlob) = 1.12 \
+Provides: perl(File::Find) = 1.34 \
+Provides: perl(File::Glob) = 1.26 \
+Provides: perl(File::stat) = 1.07 \
+Provides: perl(FileCache) = 1.09 \
+Provides: perl(FileHandle) = 2.02 \
+Provides: perl(FindBin) = 1.51 \
+Provides: perl(GDBM_File) = 1.15 \
+Provides: perl(Getopt::Std) = 1.11 \
+Provides: perl(Hash::Util) = 0.19 \
+Provides: perl(Hash::Util::FieldHash) = 1.19 \
+Provides: perl(I18N::Collate) = 1.02 \
+Provides: perl(I18N::LangTags) = 0.40 \
+Provides: perl(I18N::LangTags::Detect) = 1.05 \
+Provides: perl(I18N::LangTags::List) = 0.39 \
+Provides: perl(I18N::Langinfo) = 0.13 \
+Provides: perl(IPC::Open2) = 1.04 \
+Provides: perl(IPC::Open3) = 1.20 \
+Provides: perl(NDBM_File) = 1.14 \
+Provides: perl(NEXT) = 0.65 \
+Provides: perl(NEXT::ACTUAL) \
+Provides: perl(NEXT::ACTUAL::DISTINCT) \
+Provides: perl(NEXT::ACTUAL::UNSEEN) \
+Provides: perl(NEXT::DISTINCT) \
+Provides: perl(NEXT::DISTINCT::ACTUAL) \
+Provides: perl(NEXT::UNSEEN) \
+Provides: perl(NEXT::UNSEEN::ACTUAL) \
+Provides: perl(Net::hostent) = 1.01 \
+Provides: perl(Net::netent) = 1.00 \
+Provides: perl(Net::protoent) = 1.00 \
+Provides: perl(Net::servent) = 1.01 \
+Provides: perl(O) = 1.01 \
+Provides: perl(ODBM_File) = 1.14 \
+Provides: perl(Opcode) = 1.34 \
+Provides: perl(POSIX) = 1.65 \
+Provides: perl(POSIX::SigAction) \
+Provides: perl(POSIX::SigRt) \
+Provides: perl(POSIX::SigSet) \
+Provides: perl(PerlIO) = 1.09 \
+Provides: perl(PerlIO::encoding) = 0.24 \
+Provides: perl(PerlIO::mmap) = 0.016 \
+Provides: perl(PerlIO::scalar) = 0.24 \
+Provides: perl(PerlIO::via) = 0.17 \
+Provides: perl(Pod::Functions) = 1.10 \
+Provides: perl(SDBM_File) = 1.14 \
+Provides: perl(Safe) = 2.39 \
+Provides: perl(Search::Dict) = 1.07 \
+Provides: perl(SelectSaver) = 1.02 \
+Provides: perl(Symbol) = 1.07 \
+Provides: perl(Sys::Hostname) = 1.20 \
+Provides: perl(Term::Complete) = 1.403 \
+Provides: perl(Term::ReadLine) = 1.15 \
+Provides: perl(Term::ReadLine::Stub) \
+Provides: perl(Term::ReadLine::TermCap) \
+Provides: perl(Term::ReadLine::Tk) \
+Provides: perl(Text::Abbrev) = 1.02 \
+Provides: perl(Thread) = 3.04 \
+Provides: perl(Thread::Semaphore) = 2.12 \
+Provides: perl(Tie::Array) = 1.06 \
+Provides: perl(Tie::ExtraHash) \
+Provides: perl(Tie::File) = 1.02 \
+Provides: perl(Tie::File::Cache) \
+Provides: perl(Tie::File::Heap) \
+Provides: perl(Tie::Handle) = 4.2 \
+Provides: perl(Tie::Hash) \
+Provides: perl(Tie::Hash) = 1.05 \
+Provides: perl(Tie::Hash::NamedCapture) = 0.09 \
+Provides: perl(Tie::Memoize) = 1.1 \
+Provides: perl(Tie::RefHash) = 1.39 \
+Provides: perl(Tie::RefHash::Nestable) \
+Provides: perl(Tie::Scalar) = 1.04 \
+Provides: perl(Tie::StdArray) \
+Provides: perl(Tie::StdHandle) = 4.4 \
+Provides: perl(Tie::StdHash) \
+Provides: perl(Tie::StdScalar) \
+Provides: perl(Tie::SubstrHash) = 1.00 \
+Provides: perl(Time::gmtime) = 1.03 \
+Provides: perl(Time::localtime) = 1.02 \
+Provides: perl(Time::tm) = 1.00 \
+Provides: perl(UNIVERSAL) = 1.13 \
+Provides: perl(Unicode::UCD) = 0.64 \
+Provides: perl(User::grent) = 1.01 \
+Provides: perl(User::pwent) = 1.00 \
+Provides: perl(_charnames) = 1.43 \
+Provides: perl(arybase) = 0.11 \
+Provides: perl(attributes) = 0.27 \
+Provides: perl(autouse) = 1.11 \
+Provides: perl(base) = 2.23 \
+Provides: perl(blib) = 1.06 \
+Provides: perl(bytes) = 1.05 \
+Provides: perl(bytes_heavy.pl) \
+Provides: perl(charnames) = 1.43 \
+Provides: perl(deprecate) = 0.03 \
+Provides: perl(diagnostics) = 1.34 \
+Provides: perl(dumpvar.pl) \
+Provides: perl(encoding::warnings) = 0.12 \
+Provides: perl(feature) = 1.42 \
+Provides: perl(fields) = 2.23 \
+Provides: perl(filetest) = 1.03 \
+Provides: perl(if) = 0.0606 \
+Provides: perl(less) = 0.03 \
+Provides: perl(lib) = 0.63 \
+Provides: perl(locale) = 1.09 \
+Provides: perl(mro) = 1.18 \
+Provides: perl(ops) = 1.02 \
+Provides: perl(overload) = 1.26 \
+Provides: perl(overload::numbers) \
+Provides: perl(overloading) = 0.02 \
+Provides: perl(perl5db.pl) \
+Provides: perl(sigtrap) = 1.08 \
+Provides: perl(sort) = 2.02 \
+Provides: perl(subs) = 1.02 \
+Provides: perl(vars) = 1.03 \
+Provides: perl(vmsish) = 1.04 \
+Provides: perl(warnings::register) = 1.04 \
+Provides: perl(x86-64) = 4:5.24.4-397.RC1.fc26 \
+%{nil}
+%global gendep_perl_Archive_Tar \
+Requires: perl(:VERSION) >= 5.5.0 \
+Requires: perl(Archive::Tar) \
+Requires: perl(Archive::Tar::Constant) \
+Requires: perl(Archive::Tar::File) \
+Requires: perl(Carp) \
+Requires: perl(Config) \
+Requires: perl(Cwd) \
+Requires: perl(Data::Dumper) \
+Requires: perl(Exporter) \
+Requires: perl(File::Basename) \
+Requires: perl(File::Find) \
+Requires: perl(File::Path) \
+Requires: perl(File::Spec) \
+Requires: perl(File::Spec::Unix) \
+Requires: perl(Getopt::Long) \
+Requires: perl(Getopt::Std) \
+Requires: perl(IO::File) \
+Requires: perl(IO::Handle) \
+Requires: perl(IO::Zlib) \
+Requires: perl(Pod::Usage) \
+Requires: perl(constant) \
+Requires: perl(strict) \
+Requires: perl(vars) \
+Requires: perl(warnings) \
+Provides: perl(Archive::Tar) = 2.04 \
+Provides: perl(Archive::Tar::Constant) = 2.04 \
+Provides: perl(Archive::Tar::File) = 2.04 \
+%{nil}
+%global gendep_perl_Attribute_Handlers \
+Requires: perl(:VERSION) >= 5.6.0 \
+Requires: perl(Carp) \
+Requires: perl(strict) \
+Requires: perl(vars) \
+Requires: perl(warnings) \
+Provides: perl(Attribute::Handlers) = 0.99 \
+%{nil}
+%global gendep_perl_B_Debug \
+Requires: perl(:VERSION) >= 5.6.0 \
+Requires: perl(B) \
+Requires: perl(Config) \
+Requires: perl(strict) \
+Provides: perl(B::Debug) = 1.23 \
+%{nil}
+%global gendep_perl_CPAN \
+Requires: perl(:VERSION) >= 5.6.0 \
+Requires: perl(App::Cpan) \
+Requires: perl(CPAN) >= 1.80 \
+Requires: perl(CPAN::Author) \
+Requires: perl(CPAN::Bundle) \
+Requires: perl(CPAN::CacheMgr) \
+Requires: perl(CPAN::Complete) \
+Requires: perl(CPAN::Debug) \
+Requires: perl(CPAN::DeferredCode) \
+Requires: perl(CPAN::Distribution) \
+Requires: perl(CPAN::Distroprefs) \
+Requires: perl(CPAN::Distrostatus) \
+Requires: perl(CPAN::Exception::RecursiveDependency) \
+Requires: perl(CPAN::Exception::yaml_not_installed) \
+Requires: perl(CPAN::Exception::yaml_process_error) \
+Requires: perl(CPAN::FTP) \
+Requires: perl(CPAN::FTP::netrc) \
+Requires: perl(CPAN::HTTP::Credentials) \
+Requires: perl(CPAN::HandleConfig) \
+Requires: perl(CPAN::Index) >= 1.93 \
+Requires: perl(CPAN::InfoObj) \
+Requires: perl(CPAN::LWP::UserAgent) \
+Requires: perl(CPAN::Mirrors) \
+Requires: perl(CPAN::Module) \
+Requires: perl(CPAN::Prompt) \
+Requires: perl(CPAN::Queue) \
+Requires: perl(CPAN::Shell) \
+Requires: perl(CPAN::Tarzip) \
+Requires: perl(CPAN::URL) \
+Requires: perl(CPAN::Version) \
+Requires: perl(Carp) \
+Requires: perl(Config) \
+Requires: perl(Cwd) \
+Requires: perl(DirHandle) \
+Requires: perl(Exporter) \
+Requires: perl(ExtUtils::MakeMaker) \
+Requires: perl(Fcntl) \
+Requires: perl(File::Basename) \
+Requires: perl(File::Copy) \
+Requires: perl(File::Find) \
+Requires: perl(File::Path) \
+Requires: perl(File::Spec) \
+Requires: perl(File::Spec::Functions) \
+Requires: perl(FileHandle) \
+Requires: perl(Getopt::Std) \
+Requires: perl(HTTP::Tiny) >= 0.005 \
+Requires: perl(Net::Ping) \
+Requires: perl(Safe) \
+Requires: perl(Sys::Hostname) \
+Requires: perl(Text::ParseWords) \
+Requires: perl(Text::Wrap) \
+Requires: perl(autouse) \
+Requires: perl(constant) \
+Requires: perl(if) \
+Requires: perl(overload) \
+Requires: perl(strict) \
+Requires: perl(vars) \
+Requires: perl(warnings) \
+Provides: perl(App::Cpan) = 1.63 \
+Provides: perl(CPAN) = 2.11 \
+Provides: perl(CPAN::Author) = 5.5002 \
+Provides: perl(CPAN::Bundle) = 5.5001 \
+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.04 \
+Provides: perl(CPAN::Distroprefs) = 6.0001 \
+Provides: perl(CPAN::Distroprefs::Iterator) \
+Provides: perl(CPAN::Distroprefs::Pref) \
+Provides: perl(CPAN::Distroprefs::Result) \
+Provides: perl(CPAN::Distroprefs::Result::Error) \
+Provides: perl(CPAN::Distroprefs::Result::Fatal) \
+Provides: perl(CPAN::Distroprefs::Result::Success) \
+Provides: perl(CPAN::Distroprefs::Result::Warning) \
+Provides: perl(CPAN::Distrostatus) = 5.5 \
+Provides: perl(CPAN::Eval) \
+Provides: perl(CPAN::Exception::RecursiveDependency) = 5.5 \
+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.5006 \
+Provides: perl(CPAN::FTP::netrc) = 1.01 \
+Provides: perl(CPAN::FirstTime) = 5.5307 \
+Provides: perl(CPAN::HTTP::Client) = 1.9601 \
+Provides: perl(CPAN::HTTP::Credentials) = 1.9601 \
+Provides: perl(CPAN::HandleConfig) = 5.5006 \
+Provides: perl(CPAN::Index) = 1.9601 \
+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) = 1.9601 \
+Provides: perl(CPAN::Module) = 5.5002 \
+Provides: perl(CPAN::Nox) = 5.5001 \
+Provides: perl(CPAN::Plugin) = 0.95 \
+Provides: perl(CPAN::Plugin::Specfile) = 0.01 \
+Provides: perl(CPAN::Prompt) = 5.5 \
+Provides: perl(CPAN::Queue) = 5.5002 \
+Provides: perl(CPAN::Queue::Item) \
+Provides: perl(CPAN::Shell) = 5.5005 \
+Provides: perl(CPAN::Tarzip) = 5.5012 \
+Provides: perl(CPAN::URL) = 5.5 \
+Provides: perl(CPAN::Version) = 5.5003 \
+%{nil}
+%global gendep_perl_CPAN_Meta \
+Requires: perl(:VERSION) >= 5.6.0 \
+Requires: perl(CPAN::Meta::Converter) >= 2.141170 \
+Requires: perl(CPAN::Meta::Feature) \
+Requires: perl(CPAN::Meta::Prereqs) \
+Requires: perl(CPAN::Meta::Requirements) >= 2.121 \
+Requires: perl(CPAN::Meta::Validator) \
+Requires: perl(Carp) \
+Requires: perl(Parse::CPAN::Meta) >= 1.4400 \
+Requires: perl(Parse::CPAN::Meta) >= 1.4414 \
+Requires: perl(Scalar::Util) \
+Requires: perl(strict) \
+Requires: perl(warnings) \
+Provides: perl(CPAN::Meta) = 2.150005 \
+Provides: perl(CPAN::Meta::Converter) = 2.150005 \
+Provides: perl(CPAN::Meta::Feature) = 2.150005 \
+Provides: perl(CPAN::Meta::History) = 2.150005 \
+Provides: perl(CPAN::Meta::Merge) = 2.150005 \
+Provides: perl(CPAN::Meta::Prereqs) = 2.150005 \
+Provides: perl(CPAN::Meta::Spec) = 2.150005 \
+Provides: perl(CPAN::Meta::Validator) = 2.150005 \
+%{nil}
+%global gendep_perl_CPAN_Meta_Requirements \
+Requires: perl(:VERSION) >= 5.6.0 \
+Requires: perl(Carp) \
+Requires: perl(strict) \
+Requires: perl(warnings) \
+Provides: perl(CPAN::Meta::Requirements) = 2.132000 \
+%{nil}
+%global gendep_perl_CPAN_Meta_YAML \
+Requires: perl(:VERSION) >= 5.8.1 \
+Requires: perl(B) \
+Requires: perl(Exporter) \
+Requires: perl(Scalar::Util) \
+Requires: perl(strict) \
+Requires: perl(warnings) \
+Provides: perl(CPAN::Meta::YAML) = 0.018 \
+%{nil}
+%global gendep_perl_Carp \
+Requires: perl(Carp) \
+Requires: perl(Exporter) \
+Requires: perl(strict) \
+Requires: perl(warnings) \
+Provides: perl(Carp) = 1.40 \
+Provides: perl(Carp::Heavy) = 1.40 \
+Provides: perl(Carp::Heavy) = 1.40 \
+%{nil}
+%global gendep_perl_Compress_Raw_Bzip2 \
+Requires: perl(:VERSION) >= 5.6.0 \
+Requires: perl(Carp) \
+Requires: perl(Exporter) \
+Requires: perl(bytes) \
+Requires: perl(constant) \
+Requires: perl(strict) \
+Requires: perl(warnings) \
+Provides: perl(Compress::Raw::Bzip2) = 2.069 \
+%{nil}
+%global gendep_perl_Compress_Raw_Zlib \
+Requires: perl(:VERSION) >= 5.6.0 \
+Requires: perl(Carp) \
+Requires: perl(Exporter) \
+Requires: perl(bytes) \
+Requires: perl(constant) \
+Requires: perl(strict) \
+Requires: perl(warnings) \
+Provides: perl(Compress::Raw::Zlib) = 2.069 \
+%{nil}
+%global gendep_perl_Config_Perl_V \
+Requires: perl(Config) \
+Requires: perl(Exporter) \
+Requires: perl(strict) \
+Requires: perl(vars) \
+Requires: perl(warnings) \
+Provides: perl(Config::Perl::V) = 0.25 \
+%{nil}
+%global gendep_perl_DB_File \
+Requires: perl(:VERSION) >= 5.8.3 \
+Requires: perl(Carp) \
+Requires: perl(Exporter) \
+Requires: perl(File::Spec) \
+Requires: perl(Tie::Hash) \
+Requires: perl(strict) \
+Requires: perl(warnings) \
+Provides: perl(DB_File) = 1.835 \
+Provides: perl(DB_File::BTREEINFO) \
+Provides: perl(DB_File::HASHINFO) \
+Provides: perl(DB_File::RECNOINFO) \
+%{nil}
+%global gendep_perl_Data_Dumper \
+Requires: perl(:VERSION) >= 5.6.0 \
+Requires: perl(Carp) \
+Requires: perl(Exporter) \
+Requires: perl(constant) \
+Requires: perl(overload) \
+Provides: perl(Data::Dumper) = 2.160 \
+%{nil}
+%global gendep_perl_Devel_PPPort \
+Requires: perl(strict) \
+Requires: perl(vars) \
+Provides: perl(Devel::PPPort) = 3.32 \
+%{nil}
+%global gendep_perl_Devel_Peek \
+Requires: perl(Exporter) \
+Requires: perl(XSLoader) \
+Provides: perl(Devel::Peek) = 1.23 \
+%{nil}
+%global gendep_perl_Devel_SelfStubber \
+Requires: perl(File::Spec) \
+Requires: perl(SelfLoader) \
+Provides: perl(Devel::SelfStubber) = 1.05 \
+%{nil}
+%global gendep_perl_Digest \
+Requires: perl(Carp) \
+Requires: perl(Digest) \
+Requires: perl(Exporter) \
+Requires: perl(strict) \
+Requires: perl(vars) \
+Provides: perl(Digest) = 1.17 \
+Provides: perl(Digest::base) = 1.16 \
+Provides: perl(Digest::file) = 1.16 \
+%{nil}
+%global gendep_perl_Digest_MD5 \
+Requires: perl(Exporter) \
+Requires: perl(strict) \
+Requires: perl(vars) \
+Provides: perl(Digest::MD5) = 2.54 \
+%{nil}
+%global gendep_perl_Digest_SHA \
+Requires: perl(:VERSION) >= 5.3.0 \
+Requires: perl(DynaLoader) \
+Requires: perl(Exporter) \
+Requires: perl(Fcntl) \
+Requires: perl(Getopt::Long) \
+Requires: perl(integer) \
+Requires: perl(strict) \
+Requires: perl(vars) \
+Requires: perl(warnings) \
+Provides: perl(Digest::SHA) = 5.95 \
+%{nil}
+%global gendep_perl_Encode \
+Requires: perl(:VERSION) >= 5.8.0 \
+Requires: perl(:VERSION) >= 5.8.1 \
+Requires: perl(Carp) \
+Requires: perl(Encode) \
+Requires: perl(Encode::Alias) \
+Requires: perl(Encode::CJKConstants) \
+Requires: perl(Encode::CN::HZ) \
+Requires: perl(Encode::Config) \
+Requires: perl(Encode::Encoding) \
+Requires: perl(Encode::Guess) \
+Requires: perl(Encode::JP::JIS7) \
+Requires: perl(Encode::KR::2022_KR) \
+Requires: perl(Encode::MIME::Header) \
+Requires: perl(Encode::Unicode) \
+Requires: perl(Exporter) >= 5.57 \
+Requires: perl(File::Basename) \
+Requires: perl(Getopt::Long) \
+Requires: perl(Getopt::Std) \
+Requires: perl(MIME::Base64) \
+Requires: perl(XSLoader) \
+Requires: perl(bytes) \
+Requires: perl(constant) \
+Requires: perl(overload) \
+Requires: perl(parent) \
+Requires: perl(re) \
+Requires: perl(strict) \
+Requires: perl(utf8) \
+Requires: perl(vars) \
+Requires: perl(warnings) \
+Provides: perl(Encode) = 2.80 \
+Provides: perl(Encode::Alias) = 2.20 \
+Provides: perl(Encode::Byte) = 2.4 \
+Provides: perl(Encode::CJKConstants) = 2.2 \
+Provides: perl(Encode::CN) = 2.3 \
+Provides: perl(Encode::CN::HZ) = 2.7 \
+Provides: perl(Encode::Config) = 2.5 \
+Provides: perl(Encode::EBCDIC) = 2.2 \
+Provides: perl(Encode::Encoder) = 2.3 \
+Provides: perl(Encode::Encoding) = 2.7 \
+Provides: perl(Encode::GSM0338) = 2.5 \
+Provides: perl(Encode::Guess) = 2.6 \
+Provides: perl(Encode::Internal) \
+Provides: perl(Encode::JP) = 2.4 \
+Provides: perl(Encode::JP::H2Z) = 2.2 \
+Provides: perl(Encode::JP::JIS7) = 2.5 \
+Provides: perl(Encode::KR) = 2.3 \
+Provides: perl(Encode::KR::2022_KR) = 2.3 \
+Provides: perl(Encode::MIME::Header) = 2.19 \
+Provides: perl(Encode::MIME::Header::ISO_2022_JP) = 1.4 \
+Provides: perl(Encode::MIME::Name) = 1.1 \
+Provides: perl(Encode::Symbol) = 2.2 \
+Provides: perl(Encode::TW) = 2.3 \
+Provides: perl(Encode::UTF_EBCDIC) \
+Provides: perl(Encode::Unicode) = 2.15 \
+Provides: perl(Encode::Unicode::UTF7) = 2.8 \
+Provides: perl(Encode::XS) \
+Provides: perl(Encode::utf8) \
+%{nil}
+%global gendep_perl_Encode_devel \
+Requires: perl(Config) \
+Requires: perl(File::Find) \
+Requires: perl(Getopt::Std) \
+Requires: perl(constant) \
+Requires: perl(strict) \
+Requires: perl(vars) \
+Requires: perl(warnings) \
+%{nil}
+%global gendep_perl_Env \
+Requires: perl(Config) \
+Requires: perl(Tie::Array) \
+Provides: perl(Env) = 1.04 \
+Provides: perl(Env::Array) \
+Provides: perl(Env::Array::VMS) \
+%{nil}
+%global gendep_perl_Errno \
+Requires: perl(Config) \
+Requires: perl(Exporter) \
+Requires: perl(strict) \
+Provides: perl(Errno) = 1.25 \
+%{nil}
+%global gendep_perl_Exporter \
+Requires: perl(:VERSION) >= 5.6.0 \
+Requires: perl(Exporter) \
+Requires: perl(strict) \
+Provides: perl(Exporter) = 5.72 \
+Provides: perl(Exporter::Heavy) \
+%{nil}
+%global gendep_perl_ExtUtils_CBuilder \
+Requires: perl(Config) \
+Requires: perl(Cwd) \
+Requires: perl(ExtUtils::CBuilder::Base) \
+Requires: perl(ExtUtils::CBuilder::Platform::Unix) \
+Requires: perl(File::Basename) \
+Requires: perl(File::Path) \
+Requires: perl(File::Spec) \
+Requires: perl(File::Spec::Functions) \
+Requires: perl(File::Temp) \
+Requires: perl(IO::File) \
+Requires: perl(IPC::Cmd) \
+Requires: perl(Perl::OSType) \
+Requires: perl(Text::ParseWords) \
+Requires: perl(strict) \
+Requires: perl(vars) \
+Requires: perl(warnings) \
+Provides: perl(ExtUtils::CBuilder) = 0.280225 \
+Provides: perl(ExtUtils::CBuilder::Base) = 0.280225 \
+Provides: perl(ExtUtils::CBuilder::Platform::Unix) = 0.280225 \
+Provides: perl(ExtUtils::CBuilder::Platform::VMS) = 0.280225 \
+Provides: perl(ExtUtils::CBuilder::Platform::Windows) = 0.280225 \
+Provides: perl(ExtUtils::CBuilder::Platform::Windows::BCC) = 0.280225 \
+Provides: perl(ExtUtils::CBuilder::Platform::Windows::GCC) = 0.280225 \
+Provides: perl(ExtUtils::CBuilder::Platform::Windows::MSVC) = 0.280225 \
+Provides: perl(ExtUtils::CBuilder::Platform::aix) = 0.280225 \
+Provides: perl(ExtUtils::CBuilder::Platform::android) = 0.280225 \
+Provides: perl(ExtUtils::CBuilder::Platform::cygwin) = 0.280225 \
+Provides: perl(ExtUtils::CBuilder::Platform::darwin) = 0.280225 \
+Provides: perl(ExtUtils::CBuilder::Platform::dec_osf) = 0.280225 \
+Provides: perl(ExtUtils::CBuilder::Platform::linux) = 0.280206 \
+Provides: perl(ExtUtils::CBuilder::Platform::os2) = 0.280225 \
+%{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.10 \
+%{nil}
+%global gendep_perl_ExtUtils_Embed \
+Requires: perl(Config) \
+Requires: perl(Exporter) \
+Requires: perl(File::Spec) \
+Requires: perl(strict) \
+Requires: perl(vars) \
+Provides: perl(ExtUtils::Embed) = 1.33 \
+%{nil}
+%global gendep_perl_ExtUtils_Install \
+Requires: perl(:VERSION) >= 5.5.30 \
+Requires: perl(AutoSplit) \
+Requires: perl(Carp) \
+Requires: perl(Config) \
+Requires: perl(Cwd) \
+Requires: perl(Exporter) \
+Requires: perl(ExtUtils::MakeMaker) \
+Requires: perl(ExtUtils::Packlist) \
+Requires: perl(File::Basename) \
+Requires: perl(File::Compare) \
+Requires: perl(File::Copy) \
+Requires: perl(File::Find) \
+Requires: perl(File::Path) \
+Requires: perl(File::Spec) \
+Requires: perl(strict) \
+Requires: perl(vars) \
+Provides: perl(ExtUtils::Install) = 2.04 \
+Provides: perl(ExtUtils::Install::Warn) \
+Provides: perl(ExtUtils::Installed) = 2.04 \
+Provides: perl(ExtUtils::Packlist) = 2.04 \
+%{nil}
+%global gendep_perl_ExtUtils_MM_Utils \
+Requires: perl(:VERSION) >= 5.6.0 \
+Requires: perl(strict) \
+Requires: perl(vars) \
+Provides: perl(ExtUtils::MM::Utils) = 7.11 \
+%{nil}
+%global gendep_perl_ExtUtils_MakeMaker \
+Requires: perl(:VERSION) >= 5.6.0 \
+Requires: perl(:VERSION) >= 5.6.2 \
+Requires: perl(Carp) \
+Requires: perl(Config) \
+Requires: perl(Cwd) \
+Requires: perl(DirHandle) \
+Requires: perl(Encode) \
+Requires: perl(Encode::Alias) \
+Requires: perl(Exporter) \
+Requires: perl(ExtUtils::Installed) \
+Requires: perl(ExtUtils::Liblist) \
+Requires: perl(ExtUtils::Liblist::Kid) \
+Requires: perl(ExtUtils::MM) \
+Requires: perl(ExtUtils::MM_Any) \
+Requires: perl(ExtUtils::MM_Unix) \
+Requires: perl(ExtUtils::MM_Win32) \
+Requires: perl(ExtUtils::MY) \
+Requires: perl(ExtUtils::MakeMaker) \
+Requires: perl(ExtUtils::MakeMaker::Config) \
+Requires: perl(ExtUtils::MakeMaker::version) \
+Requires: perl(ExtUtils::Packlist) \
+Requires: perl(File::Basename) \
+Requires: perl(File::Path) \
+Requires: perl(File::Spec) \
+Requires: perl(IO::File) \
+Requires: perl(base) \
+Requires: perl(lib) \
+Requires: perl(strict) \
+Requires: perl(vars) \
+Requires: perl(warnings) \
+Provides: perl(ExtUtils::Command::MM) = 7.10 \
+Provides: perl(ExtUtils::Liblist) = 7.10 \
+Provides: perl(ExtUtils::Liblist::Kid) = 7.10 \
+Provides: perl(ExtUtils::MM) = 7.10 \
+Provides: perl(ExtUtils::MM_AIX) = 7.10 \
+Provides: perl(ExtUtils::MM_Any) = 7.10 \
+Provides: perl(ExtUtils::MM_BeOS) = 7.10 \
+Provides: perl(ExtUtils::MM_Cygwin) = 7.10 \
+Provides: perl(ExtUtils::MM_DOS) = 7.10 \
+Provides: perl(ExtUtils::MM_Darwin) = 7.10 \
+Provides: perl(ExtUtils::MM_MacOS) = 7.10 \
+Provides: perl(ExtUtils::MM_NW5) = 7.10 \
+Provides: perl(ExtUtils::MM_OS2) = 7.10 \
+Provides: perl(ExtUtils::MM_QNX) = 7.10 \
+Provides: perl(ExtUtils::MM_UWIN) = 7.10 \
+Provides: perl(ExtUtils::MM_Unix) = 7.10 \
+Provides: perl(ExtUtils::MM_VMS) = 7.10 \
+Provides: perl(ExtUtils::MM_VOS) = 7.10 \
+Provides: perl(ExtUtils::MM_Win32) = 7.10 \
+Provides: perl(ExtUtils::MM_Win95) = 7.10 \
+Provides: perl(ExtUtils::MY) = 7.10 \
+Provides: perl(ExtUtils::MakeMaker) = 7.10 \
+Provides: perl(ExtUtils::MakeMaker::Config) = 7.10 \
+Provides: perl(ExtUtils::MakeMaker::Locale) = 7.10 \
+Provides: perl(ExtUtils::MakeMaker::version) = 7.10 \
+Provides: perl(ExtUtils::Mkbootstrap) = 7.10 \
+Provides: perl(ExtUtils::Mksymlists) = 7.10 \
+Provides: perl(ExtUtils::testlib) = 7.10 \
+Provides: perl(MM) \
+Provides: perl(MY) \
+%{nil}
+%global gendep_perl_ExtUtils_Manifest \
+Requires: perl(Carp) \
+Requires: perl(Config) \
+Requires: perl(Exporter) \
+Requires: perl(File::Basename) \
+Requires: perl(File::Copy) \
+Requires: perl(File::Find) \
+Requires: perl(File::Spec) >= 0.8 \
+Requires: perl(strict) \
+Requires: perl(warnings) \
+Provides: perl(ExtUtils::Manifest) = 1.70 \
+%{nil}
+%global gendep_perl_ExtUtils_Miniperl \
+Requires: perl(Exporter) \
+Requires: perl(ExtUtils::Embed) >= 1.31 \
+Requires: perl(strict) \
+Requires: perl(vars) \
+Provides: perl(ExtUtils::Miniperl) = 1.05 \
+%{nil}
+%global gendep_perl_ExtUtils_ParseXS \
+Requires: perl(:VERSION) >= 5.6.0 \
+Requires: perl(:VERSION) >= 5.6.1 \
+Requires: perl(Config) \
+Requires: perl(Cwd) \
+Requires: perl(Exporter) \
+Requires: perl(ExtUtils::ParseXS) \
+Requires: perl(ExtUtils::ParseXS::Constants) \
+Requires: perl(ExtUtils::ParseXS::CountLines) \
+Requires: perl(ExtUtils::ParseXS::Eval) \
+Requires: perl(ExtUtils::ParseXS::Utilities) \
+Requires: perl(ExtUtils::Typemaps) \
+Requires: perl(ExtUtils::Typemaps::InputMap) \
+Requires: perl(ExtUtils::Typemaps::OutputMap) \
+Requires: perl(ExtUtils::Typemaps::Type) \
+Requires: perl(File::Basename) \
+Requires: perl(File::Spec) \
+Requires: perl(Getopt::Long) \
+Requires: perl(Symbol) \
+Requires: perl(re) \
+Requires: perl(strict) \
+Requires: perl(warnings) \
+Provides: perl(ExtUtils::ParseXS) = 3.31 \
+Provides: perl(ExtUtils::ParseXS::Constants) = 3.31 \
+Provides: perl(ExtUtils::ParseXS::CountLines) = 3.31 \
+Provides: perl(ExtUtils::ParseXS::Eval) = 3.31 \
+Provides: perl(ExtUtils::ParseXS::Utilities) = 3.31 \
+Provides: perl(ExtUtils::Typemaps) = 3.31 \
+Provides: perl(ExtUtils::Typemaps::Cmd) = 3.31 \
+Provides: perl(ExtUtils::Typemaps::InputMap) = 3.31 \
+Provides: perl(ExtUtils::Typemaps::OutputMap) = 3.31 \
+Provides: perl(ExtUtils::Typemaps::Type) = 3.31 \
+%{nil}
+%global gendep_perl_File_Fetch \
+Requires: perl(Carp) \
+Requires: perl(Cwd) \
+Requires: perl(File::Basename) \
+Requires: perl(File::Copy) \
+Requires: perl(File::Path) \
+Requires: perl(File::Spec) \
+Requires: perl(File::Spec::Unix) \
+Requires: perl(File::Temp) \
+Requires: perl(FileHandle) \
+Requires: perl(IPC::Cmd) \
+Requires: perl(Locale::Maketext::Simple) \
+Requires: perl(Module::Load::Conditional) \
+Requires: perl(Params::Check) \
+Requires: perl(constant) \
+Requires: perl(strict) \
+Requires: perl(vars) \
+Provides: perl(File::Fetch) = 0.48 \
+%{nil}
+%global gendep_perl_File_Path \
+Requires: perl(:VERSION) >= 5.5.0 \
+Requires: perl(Cwd) \
+Requires: perl(Exporter) \
+Requires: perl(File::Basename) \
+Requires: perl(File::Spec) \
+Requires: perl(strict) \
+Requires: perl(vars) \
+Provides: perl(File::Path) = 2.12 \
+%{nil}
+%global gendep_perl_File_Temp \
+Requires: perl(:VERSION) >= 5.6.0 \
+Requires: perl(Carp) \
+Requires: perl(Cwd) \
+Requires: perl(Errno) \
+Requires: perl(Exporter) >= 5.57 \
+Requires: perl(Fcntl) >= 1.03 \
+Requires: perl(File::Path) >= 2.06 \
+Requires: perl(File::Spec) >= 0.8 \
+Requires: perl(IO::Handle) \
+Requires: perl(IO::Seekable) \
+Requires: perl(Scalar::Util) \
+Requires: perl(Symbol) \
+Requires: perl(constant) \
+Requires: perl(overload) \
+Requires: perl(parent) >= 0.221 \
+Requires: perl(strict) \
+Requires: perl(vars) \
+Provides: perl(File::Temp) = 0.2304 \
+Provides: perl(File::Temp::Dir) \
+%{nil}
+%global gendep_perl_Filter \
+Requires: perl(:VERSION) >= 5.5.0 \
+Requires: perl(Carp) \
+Requires: perl(DynaLoader) \
+Requires: perl(Exporter) \
+Requires: perl(strict) \
+Requires: perl(vars) \
+Requires: perl(warnings) \
+Provides: perl(Filter::Util::Call) = 1.55 \
+%{nil}
+%global gendep_perl_Filter_Simple \
+Requires: perl(Carp) \
+Requires: perl(Filter::Util::Call) \
+Requires: perl(Text::Balanced) \
+Requires: perl(vars) \
+Provides: perl(Filter::Simple) = 0.92 \
+%{nil}
+%global gendep_perl_Getopt_Long \
+Requires: perl(:VERSION) >= 5.4.0 \
+Requires: perl(Exporter) \
+Requires: perl(constant) \
+Requires: perl(overload) \
+Requires: perl(strict) \
+Requires: perl(vars) \
+Provides: perl(Getopt::Long) = 2.48 \
+Provides: perl(Getopt::Long::CallBack) \
+Provides: perl(Getopt::Long::Parser) \
+%{nil}
+%global gendep_perl_HTTP_Tiny \
+Requires: perl(Carp) \
+Requires: perl(Errno) \
+Requires: perl(IO::Socket) \
+Requires: perl(strict) \
+Requires: perl(warnings) \
+Provides: perl(HTTP::Tiny) = 0.056 \
+%{nil}
+%global gendep_perl_IO \
+Requires: perl(:VERSION) >= 5.6.0 \
+Requires: perl(Carp) \
+Requires: perl(Errno) \
+Requires: perl(Exporter) \
+Requires: perl(Fcntl) \
+Requires: perl(File::Spec) \
+Requires: perl(File::stat) \
+Requires: perl(IO) \
+Requires: perl(IO::File) \
+Requires: perl(IO::Handle) \
+Requires: perl(IO::Seekable) \
+Requires: perl(IO::Socket) \
+Requires: perl(IO::Socket::INET) \
+Requires: perl(IO::Socket::UNIX) \
+Requires: perl(SelectSaver) \
+Requires: perl(Socket) >= 1.3 \
+Requires: perl(Symbol) \
+Requires: perl(Tie::Hash) \
+Requires: perl(XSLoader) \
+Requires: perl(strict) \
+Requires: perl(vars) \
+Requires: perl(warnings) \
+Requires: perl(warnings::register) \
+Provides: perl(IO) = 1.36 \
+Provides: perl(IO::Dir) = 1.10 \
+Provides: perl(IO::File) = 1.16 \
+Provides: perl(IO::Handle) = 1.36 \
+Provides: perl(IO::Pipe) = 1.15 \
+Provides: perl(IO::Pipe::End) \
+Provides: perl(IO::Poll) = 0.10 \
+Provides: perl(IO::Seekable) = 1.10 \
+Provides: perl(IO::Select) = 1.22 \
+Provides: perl(IO::Socket) = 1.38 \
+Provides: perl(IO::Socket::INET) = 1.35 \
+Provides: perl(IO::Socket::UNIX) = 1.26 \
+%{nil}
+%global gendep_perl_IO_Compress \
+Requires: perl(:VERSION) >= 5.6.0 \
+Requires: perl(Carp) \
+Requires: perl(Compress::Raw::Bzip2) >= 2.069 \
+Requires: perl(Compress::Raw::Zlib) >= 2.069 \
+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.069 \
+Requires: perl(IO::Compress::Adapter::Deflate) >= 2.069 \
+Requires: perl(IO::Compress::Adapter::Identity) >= 2.069 \
+Requires: perl(IO::Compress::Base) >= 2.069 \
+Requires: perl(IO::Compress::Base::Common) >= 2.069 \
+Requires: perl(IO::Compress::Gzip) >= 2.069 \
+Requires: perl(IO::Compress::Gzip::Constants) >= 2.069 \
+Requires: perl(IO::Compress::RawDeflate) >= 2.069 \
+Requires: perl(IO::Compress::Zip::Constants) >= 2.069 \
+Requires: perl(IO::Compress::Zlib::Constants) >= 2.069 \
+Requires: perl(IO::Compress::Zlib::Extra) >= 2.069 \
+Requires: perl(IO::File) \
+Requires: perl(IO::Handle) \
+Requires: perl(IO::Uncompress::Adapter::Bunzip2) >= 2.069 \
+Requires: perl(IO::Uncompress::Adapter::Identity) >= 2.069 \
+Requires: perl(IO::Uncompress::Adapter::Inflate) >= 2.069 \
+Requires: perl(IO::Uncompress::Base) >= 2.069 \
+Requires: perl(IO::Uncompress::Gunzip) >= 2.069 \
+Requires: perl(IO::Uncompress::Inflate) >= 2.069 \
+Requires: perl(IO::Uncompress::RawInflate) >= 2.069 \
+Requires: perl(IO::Uncompress::Unzip) >= 2.069 \
+Requires: perl(List::Util) \
+Requires: perl(POSIX) \
+Requires: perl(Scalar::Util) \
+Requires: perl(Symbol) \
+Requires: perl(bytes) \
+Requires: perl(constant) \
+Requires: perl(strict) \
+Requires: perl(utf8) \
+Requires: perl(warnings) \
+Provides: perl(Compress::Zlib) = 2.069 \
+Provides: perl(File::GlobMapper) = 1.000 \
+Provides: perl(IO::Compress::Adapter::Bzip2) = 2.069 \
+Provides: perl(IO::Compress::Adapter::Deflate) = 2.069 \
+Provides: perl(IO::Compress::Adapter::Identity) = 2.069 \
+Provides: perl(IO::Compress::Base) = 2.069 \
+Provides: perl(IO::Compress::Base::Common) = 2.069 \
+Provides: perl(IO::Compress::Bzip2) = 2.069 \
+Provides: perl(IO::Compress::Deflate) = 2.069 \
+Provides: perl(IO::Compress::Gzip) = 2.069 \
+Provides: perl(IO::Compress::Gzip::Constants) = 2.069 \
+Provides: perl(IO::Compress::RawDeflate) = 2.069 \
+Provides: perl(IO::Compress::Zip) = 2.069 \
+Provides: perl(IO::Compress::Zip::Constants) = 2.069 \
+Provides: perl(IO::Compress::Zlib::Constants) = 2.069 \
+Provides: perl(IO::Compress::Zlib::Extra) = 2.069 \
+Provides: perl(IO::Uncompress::Adapter::Bunzip2) = 2.069 \
+Provides: perl(IO::Uncompress::Adapter::Identity) = 2.069 \
+Provides: perl(IO::Uncompress::Adapter::Inflate) = 2.069 \
+Provides: perl(IO::Uncompress::AnyInflate) = 2.069 \
+Provides: perl(IO::Uncompress::AnyUncompress) = 2.069 \
+Provides: perl(IO::Uncompress::Base) = 2.069 \
+Provides: perl(IO::Uncompress::Bunzip2) \
+Provides: perl(IO::Uncompress::Bunzip2) = 2.069 \
+Provides: perl(IO::Uncompress::Gunzip) = 2.069 \
+Provides: perl(IO::Uncompress::Inflate) = 2.069 \
+Provides: perl(IO::Uncompress::RawInflate) = 2.069 \
+Provides: perl(IO::Uncompress::Unzip) = 2.069 \
+Provides: perl(U64) \
+Provides: perl(Zlib::OldDeflate) \
+Provides: perl(Zlib::OldInflate) \
+%{nil}
+%global gendep_perl_IO_Socket_IP \
+Requires: perl(Carp) \
+Requires: perl(Errno) \
+Requires: perl(IO::Socket) \
+Requires: perl(IO::Socket::IP) \
+Requires: perl(POSIX) \
+Requires: perl(Socket) >= 1.97 \
+Requires: perl(base) \
+Requires: perl(constant) \
+Requires: perl(strict) \
+Requires: perl(warnings) \
+Provides: perl(IO::Socket::IP) = 0.37 \
+%{nil}
+%global gendep_perl_IO_Zlib \
+Requires: perl(:VERSION) >= 5.6.0 \
+Requires: perl(Carp) \
+Requires: perl(Fcntl) \
+Requires: perl(Symbol) \
+Requires: perl(Tie::Handle) \
+Requires: perl(strict) \
+Requires: perl(vars) \
+Provides: perl(IO::Zlib) = 1.10 \
+%{nil}
+%global gendep_perl_IPC_Cmd \
+Requires: perl(Carp) \
+Requires: perl(Exporter) \
+Requires: perl(File::Spec) \
+Requires: perl(Locale::Maketext::Simple) \
+Requires: perl(Module::Load::Conditional) \
+Requires: perl(Params::Check) \
+Requires: perl(Symbol) \
+Requires: perl(Text::ParseWords) \
+Requires: perl(constant) \
+Requires: perl(strict) \
+Requires: perl(vars) \
+Provides: perl(IPC::Cmd) = 0.92 \
+%{nil}
+%global gendep_perl_IPC_SysV \
+Requires: perl(Carp) \
+Requires: perl(Class::Struct) \
+Requires: perl(Config) \
+Requires: perl(Exporter) \
+Requires: perl(IPC::SysV) \
+Requires: perl(strict) \
+Requires: perl(vars) \
+Provides: perl(IPC::Msg) = 2.06 \
+Provides: perl(IPC::Msg::stat) \
+Provides: perl(IPC::Semaphore) = 2.06 \
+Provides: perl(IPC::Semaphore::stat) \
+Provides: perl(IPC::SharedMem) = 2.06 \
+Provides: perl(IPC::SharedMem::stat) \
+Provides: perl(IPC::SysV) = 2.06 \
+%{nil}
+%global gendep_perl_JSON_PP \
+Requires: perl(:VERSION) >= 5.5.0 \
+Requires: perl(B) \
+Requires: perl(Carp) \
+Requires: perl(Exporter) \
+Requires: perl(Getopt::Long) \
+Requires: perl(JSON::PP) \
+Requires: perl(base) \
+Requires: perl(bytes) \
+Requires: perl(constant) \
+Requires: perl(overload) \
+Requires: perl(strict) \
+Provides: perl(JSON::PP) = 2.27300 \
+Provides: perl(JSON::PP::Boolean) \
+Provides: perl(JSON::PP::IncrParser) = 1.01 \
+%{nil}
+%global gendep_perl_Locale_Codes \
+Requires: perl(:VERSION) >= 5.2.0 \
+Requires: perl(:VERSION) >= 5.6.0 \
+Requires: perl(Carp) \
+Requires: perl(Exporter) \
+Requires: perl(Locale::Codes) \
+Requires: perl(Locale::Codes::Constants) \
+Requires: perl(constant) \
+Requires: perl(strict) \
+Requires: perl(utf8) \
+Requires: perl(warnings) \
+Provides: perl(Locale::Codes) = 3.25 \
+Provides: perl(Locale::Codes) = 3.37 \
+Provides: perl(Locale::Codes::Constants) = 3.37 \
+Provides: perl(Locale::Codes::Country) = 3.37 \
+Provides: perl(Locale::Codes::Currency) = 3.37 \
+Provides: perl(Locale::Codes::LangExt) = 3.37 \
+Provides: perl(Locale::Codes::LangFam) = 3.37 \
+Provides: perl(Locale::Codes::LangVar) = 3.37 \
+Provides: perl(Locale::Codes::Language) = 3.37 \
+Provides: perl(Locale::Codes::Script) = 3.37 \
+Provides: perl(Locale::Country) = 3.37 \
+Provides: perl(Locale::Currency) = 3.37 \
+Provides: perl(Locale::Language) = 3.37 \
+Provides: perl(Locale::Script) = 3.37 \
+%{nil}
+%global gendep_perl_Locale_Maketext \
+Requires: perl(Carp) \
+Requires: perl(I18N::LangTags) \
+Requires: perl(I18N::LangTags::Detect) \
+Requires: perl(Locale::Maketext) \
+Requires: perl(integer) \
+Requires: perl(strict) \
+Requires: perl(vars) \
+Provides: perl(Locale::Maketext) = 1.26 \
+Provides: perl(Locale::Maketext::Guts) = 1.20 \
+Provides: perl(Locale::Maketext::GutsLoader) = 1.20 \
+%{nil}
+%global gendep_perl_Locale_Maketext_Simple \
+Requires: perl(:VERSION) >= 5.5.0 \
+Requires: perl(Locale::Maketext) \
+Requires: perl(base) \
+Requires: perl(strict) \
+Provides: perl(Locale::Maketext::Simple) = 0.21 \
+%{nil}
+%global gendep_perl_MIME_Base64 \
+Requires: perl(Exporter) \
+Requires: perl(MIME::Base64) \
+Requires: perl(XSLoader) \
+Requires: perl(strict) \
+Requires: perl(vars) \
+Provides: perl(MIME::Base64) = 3.15 \
+Provides: perl(MIME::QuotedPrint) = 3.13 \
+%{nil}
+%global gendep_perl_Math_BigInt \
+Requires: perl(:VERSION) >= 5.6.1 \
+Requires: perl(Exporter) \
+Requires: perl(constant) \
+Requires: perl(integer) \
+Requires: perl(overload) \
+Requires: perl(strict) \
+Requires: perl(warnings) \
+Provides: perl(Math::BigFloat) = 1.999715 \
+Provides: perl(Math::BigInt) = 1.999715 \
+Provides: perl(Math::BigInt::Calc) = 1.999715 \
+Provides: perl(Math::BigInt::CalcEmu) = 1.999715 \
+%{nil}
+%global gendep_perl_Math_BigInt_FastCalc \
+Requires: perl(:VERSION) >= 5.6.0 \
+Requires: perl(Math::BigInt::Calc) >= 1.999706 \
+Requires: perl(XSLoader) \
+Requires: perl(strict) \
+Requires: perl(warnings) \
+Provides: perl(Math::BigInt::FastCalc) = 0.40 \
+%{nil}
+%global gendep_perl_Math_BigRat \
+Requires: perl(:VERSION) >= 5.6.0 \
+Requires: perl(Carp) \
+Requires: perl(Math::BigFloat) \
+Requires: perl(overload) \
+Requires: perl(strict) \
+Requires: perl(warnings) \
+Provides: perl(Math::BigRat) = 0.260802 \
+%{nil}
+%global gendep_perl_Math_Complex \
+Requires: perl(Config) \
+Requires: perl(Exporter) \
+Requires: perl(Math::Complex) >= 1.59 \
+Requires: perl(Scalar::Util) \
+Requires: perl(overload) \
+Requires: perl(strict) \
+Requires: perl(warnings) \
+Provides: perl(Math::Complex) = 1.59 \
+Provides: perl(Math::Trig) = 1.23 \
+%{nil}
+%global gendep_perl_Memoize \
+Requires: perl(Carp) \
+Requires: perl(Config) \
+Requires: perl(Exporter) \
+Requires: perl(NDBM_File) \
+Requires: perl(SDBM_File) \
+Requires: perl(Storable) \
+Requires: perl(strict) \
+Requires: perl(vars) \
+Provides: perl(Memoize) = 1.03 \
+Provides: perl(Memoize::AnyDBM_File) = 1.03 \
+Provides: perl(Memoize::Expire) = 1.03 \
+Provides: perl(Memoize::ExpireFile) = 1.03 \
+Provides: perl(Memoize::ExpireTest) = 1.03 \
+Provides: perl(Memoize::NDBM_File) = 1.03 \
+Provides: perl(Memoize::SDBM_File) = 1.03 \
+Provides: perl(Memoize::Storable) = 1.03 \
+%{nil}
+%global gendep_perl_Module_CoreList \
+Requires: perl(Module::CoreList) \
+Requires: perl(Module::CoreList::TieHashDelta) \
+Requires: perl(strict) \
+Requires: perl(vars) \
+Requires: perl(version) \
+Requires: perl(warnings) \
+Provides: perl(Module::CoreList) = 5.20180414 \
+Provides: perl(Module::CoreList::TieHashDelta) = 5.20180414 \
+Provides: perl(Module::CoreList::Utils) = 5.20180414 \
+%{nil}
+%global gendep_perl_Module_CoreList_tools \
+Requires: perl(Getopt::Long) \
+Requires: perl(List::Util) \
+Requires: perl(Module::CoreList) \
+Requires: perl(Pod::Usage) \
+Requires: perl(strict) \
+Requires: perl(warnings) \
+%{nil}
+%global gendep_perl_Module_Load \
+Requires: perl(File::Spec) \
+Requires: perl(strict) \
+Requires: perl(warnings) \
+Provides: perl(Module::Load) = 0.32 \
+%{nil}
+%global gendep_perl_Module_Load_Conditional \
+Requires: perl(Carp) \
+Requires: perl(Exporter) \
+Requires: perl(File::Spec) \
+Requires: perl(FileHandle) \
+Requires: perl(Locale::Maketext::Simple) \
+Requires: perl(Module::Load) \
+Requires: perl(Module::Metadata) \
+Requires: perl(Params::Check) \
+Requires: perl(constant) \
+Requires: perl(strict) \
+Requires: perl(vars) \
+Requires: perl(version) \
+Provides: perl(Module::Load::Conditional) = 0.64 \
+%{nil}
+%global gendep_perl_Module_Loaded \
+Requires: perl(Carp) \
+Requires: perl(strict) \
+Requires: perl(vars) \
+Provides: perl(Module::Loaded) = 0.08 \
+%{nil}
+%global gendep_perl_Module_Metadata \
+Requires: perl(Carp) \
+Requires: perl(File::Find) \
+Requires: perl(File::Spec) \
+Requires: perl(strict) \
+Requires: perl(version) >= 0.87 \
+Requires: perl(warnings) \
+Provides: perl(Module::Metadata) = 1.000031 \
+%{nil}
+%global gendep_perl_Net_Ping \
+Requires: perl(:VERSION) >= 5.2.0 \
+Requires: perl(Carp) \
+Requires: perl(Exporter) \
+Requires: perl(Fcntl) \
+Requires: perl(FileHandle) \
+Requires: perl(POSIX) \
+Requires: perl(Socket) \
+Requires: perl(Time::HiRes) \
+Requires: perl(constant) \
+Requires: perl(strict) \
+Requires: perl(vars) \
+Provides: perl(Net::Ping) = 2.43 \
+%{nil}
+%global gendep_perl_Params_Check \
+Requires: perl(Carp) \
+Requires: perl(Exporter) \
+Requires: perl(Locale::Maketext::Simple) \
+Requires: perl(strict) \
+Requires: perl(vars) \
+Provides: perl(Params::Check) = 0.38 \
+%{nil}
+%global gendep_perl_Parse_CPAN_Meta \
+Requires: perl(:VERSION) >= 5.8.1 \
+Requires: perl(Carp) \
+Requires: perl(Exporter) \
+Requires: perl(strict) \
+Provides: perl(Parse::CPAN::Meta) = 1.4417 \
+%{nil}
+%global gendep_perl_PathTools \
+Requires: perl(Exporter) \
+Requires: perl(File::Spec) \
+Requires: perl(File::Spec::Unix) \
+Requires: perl(constant) \
+Requires: perl(strict) \
+Requires: perl(vars) \
+Provides: perl(Cwd) = 3.63 \
+Provides: perl(File::Spec) = 3.63 \
+Provides: perl(File::Spec::AmigaOS) = 3.64 \
+Provides: perl(File::Spec::Cygwin) = 3.63 \
+Provides: perl(File::Spec::Epoc) = 3.63 \
+Provides: perl(File::Spec::Functions) = 3.63 \
+Provides: perl(File::Spec::Mac) = 3.63 \
+Provides: perl(File::Spec::OS2) = 3.63 \
+Provides: perl(File::Spec::Unix) = 3.63 \
+Provides: perl(File::Spec::Win32) = 3.63 \
+%{nil}
+%global gendep_perl_Perl_OSType \
+Requires: perl(Exporter) \
+Requires: perl(strict) \
+Requires: perl(warnings) \
+Provides: perl(Perl::OSType) = 1.009 \
+%{nil}
+%global gendep_perl_PerlIO_via_QuotedPrint \
+Requires: perl(MIME::QuotedPrint) \
+Requires: perl(strict) \
+Provides: perl(PerlIO::via::QuotedPrint) = 0.08 \
+%{nil}
+%global gendep_perl_Pod_Checker \
+Requires: perl(:VERSION) >= 5.5.0 \
+Requires: perl(Carp) \
+Requires: perl(Exporter) \
+Requires: perl(Getopt::Long) \
+Requires: perl(Pod::Checker) \
+Requires: perl(Pod::ParseUtils) \
+Requires: perl(Pod::Parser) \
+Requires: perl(Pod::Usage) \
+Requires: perl(strict) \
+Requires: perl(vars) \
+Provides: perl(Pod::Checker) = 1.60 \
+%{nil}
+%global gendep_perl_Pod_Escapes \
+Requires: perl(:VERSION) >= 5.6.0 \
+Requires: perl(Exporter) \
+Requires: perl(strict) \
+Requires: perl(vars) \
+Requires: perl(warnings) \
+Provides: perl(Pod::Escapes) = 1.07 \
+%{nil}
+%global gendep_perl_Pod_Html \
+Requires: perl(Carp) \
+Requires: perl(Config) \
+Requires: perl(Cwd) \
+Requires: perl(Exporter) \
+Requires: perl(File::Basename) \
+Requires: perl(File::Spec) \
+Requires: perl(File::Spec::Unix) \
+Requires: perl(Getopt::Long) \
+Requires: perl(Pod::Html) \
+Requires: perl(Pod::Simple::Search) \
+Requires: perl(Pod::Simple::XHTML) \
+Requires: perl(locale) \
+Requires: perl(parent) \
+Requires: perl(strict) \
+Requires: perl(vars) \
+Requires: perl(warnings) \
+Provides: perl(Pod::Html) = 1.2201 \
+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 \
+Requires: perl(Carp) \
+Requires: perl(Config) \
+Requires: perl(Encode) \
+Requires: perl(Fcntl) \
+Requires: perl(File::Basename) \
+Requires: perl(File::Spec::Functions) \
+Requires: perl(IO::Select) \
+Requires: perl(Pod::Man) >= 2.18 \
+Requires: perl(Pod::Perldoc) \
+Requires: perl(Pod::Perldoc::BaseTo) \
+Requires: perl(Pod::Perldoc::GetOptsOO) \
+Requires: perl(Pod::Simple::RTF) \
+Requires: perl(Pod::Simple::XMLOutStream) \
+Requires: perl(Pod::Text) \
+Requires: perl(Pod::Text::Color) \
+Requires: perl(Pod::Text::Termcap) \
+Requires: perl(parent) \
+Requires: perl(strict) \
+Requires: perl(vars) \
+Requires: perl(warnings) \
+Provides: perl(Pod::Perldoc) = 3.25 \
+Provides: perl(Pod::Perldoc::BaseTo) = 3.25 \
+Provides: perl(Pod::Perldoc::GetOptsOO) = 3.25 \
+Provides: perl(Pod::Perldoc::ToANSI) = 3.25 \
+Provides: perl(Pod::Perldoc::ToChecker) = 3.25 \
+Provides: perl(Pod::Perldoc::ToMan) = 3.25 \
+Provides: perl(Pod::Perldoc::ToNroff) = 3.25 \
+Provides: perl(Pod::Perldoc::ToPod) = 3.25 \
+Provides: perl(Pod::Perldoc::ToRtf) = 3.25 \
+Provides: perl(Pod::Perldoc::ToTerm) = 3.25 \
+Provides: perl(Pod::Perldoc::ToText) = 3.25 \
+Provides: perl(Pod::Perldoc::ToTk) = 3.25 \
+Provides: perl(Pod::Perldoc::ToXml) = 3.25 \
+%{nil}
+%global gendep_perl_Pod_Simple \
+Requires: perl(:VERSION) >= 5.0.0 \
+Requires: perl(:VERSION) >= 5.5.0 \
+Requires: perl(:VERSION) >= 5.8.0 \
+Requires: perl(Carp) \
+Requires: perl(Config) \
+Requires: perl(Cwd) \
+Requires: perl(Encode) \
+Requires: perl(File::Basename) \
+Requires: perl(File::Spec) \
+Requires: perl(Getopt::Long) \
+Requires: perl(Pod::Escapes) >= 1.04 \
+Requires: perl(Pod::Simple) \
+Requires: perl(Pod::Simple::BlackBox) \
+Requires: perl(Pod::Simple::HTML) \
+Requires: perl(Pod::Simple::LinkSection) \
+Requires: perl(Pod::Simple::Methody) \
+Requires: perl(Pod::Simple::PullParser) \
+Requires: perl(Pod::Simple::PullParserEndToken) \
+Requires: perl(Pod::Simple::PullParserStartToken) \
+Requires: perl(Pod::Simple::PullParserTextToken) \
+Requires: perl(Pod::Simple::PullParserToken) \
+Requires: perl(Pod::Simple::Search) \
+Requires: perl(Symbol) \
+Requires: perl(Text::Wrap) >= 98.112902 \
+Requires: perl(integer) \
+Requires: perl(overload) \
+Requires: perl(strict) \
+Requires: perl(vars) \
+Provides: perl(Pod::Simple) = 3.32 \
+Provides: perl(Pod::Simple::BlackBox) = 3.32 \
+Provides: perl(Pod::Simple::Checker) = 3.32 \
+Provides: perl(Pod::Simple::Debug) = 3.32 \
+Provides: perl(Pod::Simple::DumpAsText) = 3.32 \
+Provides: perl(Pod::Simple::DumpAsXML) = 3.32 \
+Provides: perl(Pod::Simple::HTML) = 3.32 \
+Provides: perl(Pod::Simple::HTMLBatch) = 3.32 \
+Provides: perl(Pod::Simple::HTMLLegacy) = 5.01 \
+Provides: perl(Pod::Simple::LinkSection) = 3.32 \
+Provides: perl(Pod::Simple::Methody) = 3.32 \
+Provides: perl(Pod::Simple::Progress) = 3.32 \
+Provides: perl(Pod::Simple::PullParser) = 3.32 \
+Provides: perl(Pod::Simple::PullParserEndToken) = 3.32 \
+Provides: perl(Pod::Simple::PullParserStartToken) = 3.32 \
+Provides: perl(Pod::Simple::PullParserTextToken) = 3.32 \
+Provides: perl(Pod::Simple::PullParserToken) = 3.32 \
+Provides: perl(Pod::Simple::RTF) = 3.32 \
+Provides: perl(Pod::Simple::Search) = 3.32 \
+Provides: perl(Pod::Simple::SimpleTree) = 3.32 \
+Provides: perl(Pod::Simple::Text) = 3.32 \
+Provides: perl(Pod::Simple::TextContent) = 3.32 \
+Provides: perl(Pod::Simple::TiedOutFH) = 3.32 \
+Provides: perl(Pod::Simple::Transcode) = 3.32 \
+Provides: perl(Pod::Simple::TranscodeDumb) = 3.32 \
+Provides: perl(Pod::Simple::TranscodeSmart) = 3.32 \
+Provides: perl(Pod::Simple::XHTML) = 3.32 \
+Provides: perl(Pod::Simple::XMLOutStream) = 3.32 \
+%{nil}
+%global gendep_perl_Pod_Usage \
+Requires: perl(:VERSION) >= 5.6.0 \
+Requires: perl(Carp) \
+Requires: perl(Config) \
+Requires: perl(Exporter) \
+Requires: perl(File::Spec) \
+Requires: perl(Getopt::Long) \
+Requires: perl(Pod::Usage) \
+Requires: perl(strict) \
+Requires: perl(vars) \
+Provides: perl(Pod::Usage) = 1.68 \
+%{nil}
+%global gendep_perl_Scalar_List_Utils \
+Requires: perl(Exporter) \
+Requires: perl(List::Util) \
+Requires: perl(XSLoader) \
+Requires: perl(strict) \
+Requires: perl(warnings) \
+Provides: perl(List::Util) = 1.42 \
+Provides: perl(List::Util::XS) = 1.42 \
+Provides: perl(Scalar::Util) = 1.42 \
+Provides: perl(Sub::Util) = 1.42 \
+%{nil}
+%global gendep_perl_SelfLoader \
+Requires: perl(:VERSION) >= 5.8.0 \
+Requires: perl(Exporter) \
+Requires: perl(IO::Handle) \
+Requires: perl(strict) \
+Requires: perl(vars) \
+Provides: perl(SelfLoader) = 1.23 \
+%{nil}
+%global gendep_perl_Socket \
+Requires: perl(Carp) \
+Requires: perl(Exporter) \
+Requires: perl(XSLoader) \
+Requires: perl(strict) \
+Requires: perl(warnings::register) \
+Provides: perl(Socket) = 2.020 \
+%{nil}
+%global gendep_perl_Storable \
+Requires: perl(Exporter) \
+Requires: perl(XSLoader) \
+Requires: perl(vars) \
+Provides: perl(Storable) = 2.56 \
+%{nil}
+%global gendep_perl_Sys_Syslog \
+Requires: perl(:VERSION) >= 5.5.0 \
+Requires: perl(Carp) \
+Requires: perl(Exporter) \
+Requires: perl(File::Basename) \
+Requires: perl(POSIX) \
+Requires: perl(Socket) \
+Requires: perl(strict) \
+Requires: perl(vars) \
+Requires: perl(warnings) \
+Requires: perl(warnings::register) \
+Provides: perl(Sys::Syslog) = 0.33 \
+%{nil}
+%global gendep_perl_Term_ANSIColor \
+Requires: perl(:VERSION) >= 5.6.0 \
+Requires: perl(Carp) \
+Requires: perl(Exporter) \
+Requires: perl(strict) \
+Requires: perl(warnings) \
+Provides: perl(Term::ANSIColor) = 4.04 \
+%{nil}
+%global gendep_perl_Term_Cap \
+Requires: perl(strict) \
+Requires: perl(vars) \
+Provides: perl(Term::Cap) = 1.17 \
+%{nil}
+%global gendep_perl_Test \
+Requires: perl(:VERSION) >= 5.4.0 \
+Requires: perl(Carp) \
+Requires: perl(Exporter) \
+Requires: perl(strict) \
+Requires: perl(vars) \
+Provides: perl(Test) = 1.28 \
+%{nil}
+%global gendep_perl_Test_Harness \
+Requires: perl(:VERSION) >= 5.6.0 \
+Requires: perl(App::Prove) \
+Requires: perl(App::Prove::State) \
+Requires: perl(App::Prove::State::Result) \
+Requires: perl(App::Prove::State::Result::Test) \
+Requires: perl(Benchmark) \
+Requires: perl(Carp) \
+Requires: perl(Config) \
+Requires: perl(Exporter) \
+Requires: perl(File::Basename) \
+Requires: perl(File::Find) \
+Requires: perl(File::Path) \
+Requires: perl(File::Spec) \
+Requires: perl(Getopt::Long) \
+Requires: perl(IO::Handle) \
+Requires: perl(IO::Select) \
+Requires: perl(POSIX) \
+Requires: perl(TAP::Base) \
+Requires: perl(TAP::Formatter::Base) \
+Requires: perl(TAP::Formatter::Console::Session) \
+Requires: perl(TAP::Formatter::File::Session) \
+Requires: perl(TAP::Formatter::Session) \
+Requires: perl(TAP::Harness) \
+Requires: perl(TAP::Harness::Env) \
+Requires: perl(TAP::Object) \
+Requires: perl(TAP::Parser::Aggregator) \
+Requires: perl(TAP::Parser::Grammar) \
+Requires: perl(TAP::Parser::Iterator) \
+Requires: perl(TAP::Parser::Iterator::Array) \
+Requires: perl(TAP::Parser::Iterator::Process) \
+Requires: perl(TAP::Parser::Iterator::Stream) \
+Requires: perl(TAP::Parser::IteratorFactory) \
+Requires: perl(TAP::Parser::Result) \
+Requires: perl(TAP::Parser::Result::Bailout) \
+Requires: perl(TAP::Parser::Result::Comment) \
+Requires: perl(TAP::Parser::Result::Plan) \
+Requires: perl(TAP::Parser::Result::Pragma) \
+Requires: perl(TAP::Parser::Result::Test) \
+Requires: perl(TAP::Parser::Result::Unknown) \
+Requires: perl(TAP::Parser::Result::Version) \
+Requires: perl(TAP::Parser::Result::YAML) \
+Requires: perl(TAP::Parser::ResultFactory) \
+Requires: perl(TAP::Parser::Scheduler::Job) \
+Requires: perl(TAP::Parser::Scheduler::Spinner) \
+Requires: perl(TAP::Parser::Source) \
+Requires: perl(TAP::Parser::SourceHandler) \
+Requires: perl(TAP::Parser::SourceHandler::Executable) \
+Requires: perl(TAP::Parser::SourceHandler::File) \
+Requires: perl(TAP::Parser::SourceHandler::Handle) \
+Requires: perl(TAP::Parser::SourceHandler::Perl) \
+Requires: perl(TAP::Parser::SourceHandler::RawTAP) \
+Requires: perl(TAP::Parser::YAMLish::Reader) \
+Requires: perl(TAP::Parser::YAMLish::Writer) \
+Requires: perl(Text::ParseWords) \
+Requires: perl(base) \
+Requires: perl(constant) \
+Requires: perl(strict) \
+Requires: perl(warnings) \
+Provides: perl(App::Prove) = 3.36 \
+Provides: perl(App::Prove::State) = 3.36 \
+Provides: perl(App::Prove::State::Result) = 3.36 \
+Provides: perl(App::Prove::State::Result::Test) = 3.36 \
+Provides: perl(TAP::Base) = 3.36 \
+Provides: perl(TAP::Formatter::Base) = 3.36 \
+Provides: perl(TAP::Formatter::Color) = 3.36 \
+Provides: perl(TAP::Formatter::Console) = 3.36 \
+Provides: perl(TAP::Formatter::Console::ParallelSession) = 3.36 \
+Provides: perl(TAP::Formatter::Console::Session) = 3.36 \
+Provides: perl(TAP::Formatter::File) = 3.36 \
+Provides: perl(TAP::Formatter::File::Session) = 3.36 \
+Provides: perl(TAP::Formatter::Session) = 3.36 \
+Provides: perl(TAP::Harness) = 3.36 \
+Provides: perl(TAP::Harness::Env) = 3.36 \
+Provides: perl(TAP::Object) = 3.36 \
+Provides: perl(TAP::Parser) = 3.36 \
+Provides: perl(TAP::Parser::Aggregator) = 3.36 \
+Provides: perl(TAP::Parser::Grammar) = 3.36 \
+Provides: perl(TAP::Parser::Iterator) = 3.36 \
+Provides: perl(TAP::Parser::Iterator::Array) = 3.36 \
+Provides: perl(TAP::Parser::Iterator::Process) = 3.36 \
+Provides: perl(TAP::Parser::Iterator::Stream) = 3.36 \
+Provides: perl(TAP::Parser::IteratorFactory) = 3.36 \
+Provides: perl(TAP::Parser::Multiplexer) = 3.36 \
+Provides: perl(TAP::Parser::Result) = 3.36 \
+Provides: perl(TAP::Parser::Result::Bailout) = 3.36 \
+Provides: perl(TAP::Parser::Result::Comment) = 3.36 \
+Provides: perl(TAP::Parser::Result::Plan) = 3.36 \
+Provides: perl(TAP::Parser::Result::Pragma) = 3.36 \
+Provides: perl(TAP::Parser::Result::Test) = 3.36 \
+Provides: perl(TAP::Parser::Result::Unknown) = 3.36 \
+Provides: perl(TAP::Parser::Result::Version) = 3.36 \
+Provides: perl(TAP::Parser::Result::YAML) = 3.36 \
+Provides: perl(TAP::Parser::ResultFactory) = 3.36 \
+Provides: perl(TAP::Parser::Scheduler) = 3.36 \
+Provides: perl(TAP::Parser::Scheduler::Job) = 3.36 \
+Provides: perl(TAP::Parser::Scheduler::Spinner) = 3.36 \
+Provides: perl(TAP::Parser::Source) = 3.36 \
+Provides: perl(TAP::Parser::SourceHandler) = 3.36 \
+Provides: perl(TAP::Parser::SourceHandler::Executable) = 3.36 \
+Provides: perl(TAP::Parser::SourceHandler::File) = 3.36 \
+Provides: perl(TAP::Parser::SourceHandler::Handle) = 3.36 \
+Provides: perl(TAP::Parser::SourceHandler::Perl) = 3.36 \
+Provides: perl(TAP::Parser::SourceHandler::RawTAP) = 3.36 \
+Provides: perl(TAP::Parser::YAMLish::Reader) = 3.36 \
+Provides: perl(TAP::Parser::YAMLish::Writer) = 3.36 \
+Provides: perl(Test::Harness) = 3.36 \
+%{nil}
+%global gendep_perl_Test_Simple \
+Requires: perl(:VERSION) >= 5.5.0 \
+Requires: perl(:VERSION) >= 5.6.0 \
+Requires: perl(Carp) \
+Requires: perl(Config) \
+Requires: perl(Exporter) \
+Requires: perl(IO::Handle) \
+Requires: perl(Symbol) \
+Requires: perl(Test::Builder) >= 0.99 \
+Requires: perl(Test::Builder) >= 1.00 \
+Requires: perl(Test::Builder::Module) >= 0.99 \
+Requires: perl(Test::Builder::Tester) \
+Requires: perl(Test::More) \
+Requires: perl(Test::Tester::Capture) \
+Requires: perl(Test::Tester::CaptureRunner) \
+Requires: perl(Test::Tester::Delegate) \
+Requires: perl(strict) \
+Requires: perl(vars) \
+Requires: perl(warnings) \
+Provides: perl(Test::Builder) = 1.001014 \
+Provides: perl(Test::Builder::IO::Scalar) = 2.113 \
+Provides: perl(Test::Builder::Module) = 1.001014 \
+Provides: perl(Test::Builder::Tester) = 1.28 \
+Provides: perl(Test::Builder::Tester::Color) = 1.290001 \
+Provides: perl(Test::Builder::Tester::Tie) \
+Provides: perl(Test::More) = 1.001014 \
+Provides: perl(Test::Simple) = 1.001014 \
+Provides: perl(Test::Tester) = 0.114 \
+Provides: perl(Test::Tester::Capture) \
+Provides: perl(Test::Tester::CaptureRunner) \
+Provides: perl(Test::Tester::Delegate) \
+Provides: perl(Test::use::ok) = 0.16 \
+Provides: perl(ok) = 0.16 \
+%{nil}
+%global gendep_perl_Text_Balanced \
+Requires: perl(:VERSION) >= 5.5.0 \
+Requires: perl(Carp) \
+Requires: perl(Exporter) \
+Requires: perl(SelfLoader) \
+Requires: perl(overload) \
+Requires: perl(strict) \
+Requires: perl(vars) \
+Provides: perl(Text::Balanced) = 2.03 \
+Provides: perl(Text::Balanced::ErrorMsg) \
+Provides: perl(Text::Balanced::Extractor) \
+%{nil}
+%global gendep_perl_Text_ParseWords \
+Requires: perl(:VERSION) >= 5.6.0 \
+Requires: perl(Exporter) \
+Requires: perl(strict) \
+Provides: perl(Text::ParseWords) = 3.30 \
+%{nil}
+%global gendep_perl_Text_Tabs_Wrap \
+Requires: perl(:VERSION) >= 5.10.0 \
+Requires: perl(Exporter) \
+Requires: perl(Text::Tabs) \
+Requires: perl(re) \
+Requires: perl(strict) \
+Requires: perl(vars) \
+Requires: perl(warnings::register) \
+Provides: perl(Text::Tabs) = 2013.0523 \
+Provides: perl(Text::Wrap) = 2013.0523 \
+%{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.09 \
+%{nil}
+%global gendep_perl_Time_HiRes \
+Requires: perl(DynaLoader) \
+Requires: perl(Exporter) \
+Requires: perl(strict) \
+Provides: perl(Time::HiRes) = 1.9741 \
+%{nil}
+%global gendep_perl_Time_Local \
+Requires: perl(Carp) \
+Requires: perl(Config) \
+Requires: perl(Exporter) \
+Requires: perl(constant) \
+Requires: perl(strict) \
+Requires: perl(vars) \
+Provides: perl(Time::Local) = 1.2300 \
+%{nil}
+%global gendep_perl_Time_Piece \
+Requires: perl(Carp) \
+Requires: perl(DynaLoader) \
+Requires: perl(Exporter) >= 5.57 \
+Requires: perl(Time::Local) \
+Requires: perl(Time::Seconds) \
+Requires: perl(constant) \
+Requires: perl(integer) \
+Requires: perl(overload) \
+Requires: perl(strict) \
+Provides: perl(Time::Piece) = 1.31 \
+Provides: perl(Time::Seconds) = 1.31 \
+%{nil}
+%global gendep_perl_Unicode_Collate \
+Requires: perl(:VERSION) >= 5.6.0 \
+Requires: perl(Carp) \
+Requires: perl(DynaLoader) \
+Requires: perl(File::Spec) \
+Requires: perl(Unicode::Collate) \
+Requires: perl(base) \
+Requires: perl(constant) \
+Requires: perl(strict) \
+Requires: perl(warnings) \
+Provides: perl(Unicode::Collate) = 1.14 \
+Provides: perl(Unicode::Collate::CJK::Big5) = 1.14 \
+Provides: perl(Unicode::Collate::CJK::GB2312) = 1.14 \
+Provides: perl(Unicode::Collate::CJK::JISX0208) = 1.14 \
+Provides: perl(Unicode::Collate::CJK::Korean) = 1.14 \
+Provides: perl(Unicode::Collate::CJK::Pinyin) = 1.14 \
+Provides: perl(Unicode::Collate::CJK::Stroke) = 1.14 \
+Provides: perl(Unicode::Collate::CJK::Zhuyin) = 1.14 \
+Provides: perl(Unicode::Collate::Locale) = 1.14 \
+%{nil}
+%global gendep_perl_Unicode_Normalize \
+Requires: perl(:VERSION) >= 5.6.0 \
+Requires: perl(Carp) \
+Requires: perl(DynaLoader) \
+Requires: perl(Exporter) \
+Requires: perl(strict) \
+Requires: perl(warnings) \
+Provides: perl(Unicode::Normalize) = 1.25 \
+%{nil}
+%global gendep_perl_autodie \
+Requires: perl(:VERSION) >= 5.8.0 \
+Requires: perl(Carp) \
+Requires: perl(Config) \
+Requires: perl(Exporter) >= 5.57 \
+Requires: perl(Fatal) \
+Requires: perl(Scalar::Util) \
+Requires: perl(Tie::RefHash) \
+Requires: perl(autodie::Scope::Guard) \
+Requires: perl(autodie::Scope::GuardStack) \
+Requires: perl(autodie::Util) \
+Requires: perl(autodie::exception) \
+Requires: perl(constant) \
+Requires: perl(lib) \
+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.29 \
+Provides: perl(autodie::exception::system) = 2.29 \
+Provides: perl(autodie::hints) = 2.29 \
+Provides: perl(autodie::skip) = 2.29 \
+%{nil}
+%global gendep_perl_bignum \
+Requires: perl(:VERSION) >= 5.6.0 \
+Requires: perl(Exporter) \
+Requires: perl(Math::BigFloat) \
+Requires: perl(Math::BigInt) \
+Requires: perl(bigint) \
+Requires: perl(constant) \
+Requires: perl(overload) \
+Requires: perl(strict) \
+Requires: perl(warnings) \
+Provides: perl(Math::BigFloat::Trace) = 0.42 \
+Provides: perl(Math::BigInt::Trace) = 0.42 \
+Provides: perl(bigint) = 0.42 \
+Provides: perl(bignum) = 0.42 \
+Provides: perl(bigrat) = 0.42 \
+%{nil}
+%global gendep_perl_constant \
+Requires: perl(:VERSION) >= 5.8.0 \
+Requires: perl(strict) \
+Requires: perl(warnings::register) \
+Provides: perl(constant) = 1.33 \
+%{nil}
+%global gendep_perl_core \
+%{nil}
+%global gendep_perl_debuginfo \
+%{nil}
+%global gendep_perl_devel \
+Requires: perl(Config) \
+Requires: perl(ExtUtils::Constant) \
+Requires: perl(ExtUtils::Installed) \
+Requires: perl(File::Compare) \
+Requires: perl(File::Path) \
+Requires: perl(File::Spec) \
+Requires: perl(Getopt::Long) \
+Requires: perl(Text::Wrap) \
+Requires: perl(strict) \
+Requires: perl(vars) \
+Requires: perl(warnings) \
+%{nil}
+%global gendep_perl_encoding \
+Requires: perl(Encode) \
+Requires: perl(constant) \
+Requires: perl(strict) \
+Requires: perl(warnings) \
+Provides: perl(encoding) = 2.17 \
+%{nil}
+%global gendep_perl_experimental \
+Requires: perl(Carp) \
+Requires: perl(feature) \
+Requires: perl(strict) \
+Requires: perl(version) \
+Requires: perl(warnings) \
+Provides: perl(experimental) = 0.016 \
+%{nil}
+%global gendep_perl_libnet \
+Requires: perl(:VERSION) >= 5.8.1 \
+Requires: perl(Carp) \
+Requires: perl(Errno) \
+Requires: perl(Exporter) \
+Requires: perl(Fcntl) \
+Requires: perl(FileHandle) \
+Requires: perl(IO::Select) \
+Requires: perl(IO::Socket) \
+Requires: perl(Net::Cmd) \
+Requires: perl(Net::Config) \
+Requires: perl(Net::FTP::I) \
+Requires: perl(Net::FTP::dataconn) \
+Requires: perl(Socket) \
+Requires: perl(Symbol) \
+Requires: perl(Time::Local) \
+Requires: perl(constant) \
+Requires: perl(strict) \
+Requires: perl(warnings) \
+Provides: perl(Net::Cmd) = 3.08 \
+Provides: perl(Net::Config) = 3.08 \
+Provides: perl(Net::Domain) = 3.08 \
+Provides: perl(Net::FTP) = 3.08 \
+Provides: perl(Net::FTP::A) = 3.08 \
+Provides: perl(Net::FTP::E) = 3.08 \
+Provides: perl(Net::FTP::I) = 3.08 \
+Provides: perl(Net::FTP::L) = 3.08 \
+Provides: perl(Net::FTP::_SSL_SingleSessionCache) \
+Provides: perl(Net::FTP::dataconn) = 3.08 \
+Provides: perl(Net::NNTP) = 3.08 \
+Provides: perl(Net::NNTP::_SSL) \
+Provides: perl(Net::Netrc) = 3.08 \
+Provides: perl(Net::POP3) = 3.08 \
+Provides: perl(Net::POP3::_SSL) \
+Provides: perl(Net::SMTP) = 3.08 \
+Provides: perl(Net::SMTP::_SSL) \
+Provides: perl(Net::Time) = 3.08 \
+%{nil}
+%global gendep_perl_libnetcfg \
+Requires: perl(ExtUtils::MakeMaker) \
+Requires: perl(File::Spec) \
+Requires: perl(Getopt::Std) \
+Requires: perl(IO::File) \
+Requires: perl(strict) \
+Requires: perl(vars) \
+%{nil}
+%global gendep_perl_libs \
+Requires: perl(integer) \
+Requires: perl(strict) \
+Requires: perl(warnings) \
+Provides: perl(:MODULE_COMPAT_5.24.0) \
+Provides: perl(:MODULE_COMPAT_5.24.1) \
+Provides: perl(:MODULE_COMPAT_5.24.2) \
+Provides: perl(:MODULE_COMPAT_5.24.3) \
+Provides: perl(:MODULE_COMPAT_5.24.4) \
+Provides: perl(:VERSION) = 5.24.4 \
+Provides: perl(:WITH_ITHREADS) \
+Provides: perl(:WITH_LARGEFILES) \
+Provides: perl(:WITH_PERLIO) \
+Provides: perl(:WITH_THREADS) \
+Provides: perl(XSLoader) = 0.22 \
+Provides: perl(integer) = 1.01 \
+Provides: perl(re) = 0.32 \
+Provides: perl(strict) = 1.11 \
+Provides: perl(unicore::Name) \
+Provides: perl(utf8) = 1.19 \
+Provides: perl(utf8_heavy.pl) \
+Provides: perl(warnings) = 1.36 \
+%{nil}
+%global gendep_perl_macros \
+%{nil}
+%global gendep_perl_open \
+Requires: perl(:VERSION) >= 5.8.1 \
+Requires: perl(warnings) \
+Provides: perl(open) = 1.10 \
+%{nil}
+%global gendep_perl_parent \
+Requires: perl(strict) \
+Requires: perl(vars) \
+Provides: perl(parent) = 0.234 \
+%{nil}
+%global gendep_perl_perlfaq \
+Requires: perl(strict) \
+Requires: perl(warnings) \
+Provides: perl(perlfaq) = 5.021010 \
+%{nil}
+%global gendep_perl_podlators \
+Requires: perl(:VERSION) >= 5.6.0 \
+Requires: perl(Carp) \
+Requires: perl(Encode) \
+Requires: perl(Exporter) \
+Requires: perl(Getopt::Long) \
+Requires: perl(POSIX) \
+Requires: perl(Pod::Man) \
+Requires: perl(Pod::Simple) \
+Requires: perl(Pod::Text) \
+Requires: perl(Pod::Usage) \
+Requires: perl(Term::ANSIColor) \
+Requires: perl(Term::Cap) \
+Requires: perl(strict) \
+Requires: perl(subs) \
+Requires: perl(vars) \
+Requires: perl(warnings) \
+Provides: perl(Pod::Man) = 4.07 \
+Provides: perl(Pod::ParseLink) = 4.07 \
+Provides: perl(Pod::Text) = 4.07 \
+Provides: perl(Pod::Text::Color) = 4.07 \
+Provides: perl(Pod::Text::Overstrike) = 4.07 \
+Provides: perl(Pod::Text::Termcap) = 4.07 \
+%{nil}
+%global gendep_perl_tests \
+%{nil}
+%global gendep_perl_threads \
+Requires: perl(:VERSION) >= 5.8.0 \
+Requires: perl(Config) \
+Requires: perl(XSLoader) \
+Requires: perl(overload) \
+Requires: perl(strict) \
+Requires: perl(warnings) \
+Provides: perl(threads) = 2.07 \
+%{nil}
+%global gendep_perl_threads_shared \
+Requires: perl(:VERSION) >= 5.8.0 \
+Requires: perl(Scalar::Util) \
+Requires: perl(strict) \
+Requires: perl(warnings) \
+Provides: perl(threads::shared) = 1.51 \
+%{nil}
+%global gendep_perl_utils \
+Requires: perl(:VERSION) >= 5.9.1 \
+Requires: perl(Carp) \
+Requires: perl(Config) \
+Requires: perl(File::Basename) \
+Requires: perl(File::Path) \
+Requires: perl(File::Spec) \
+Requires: perl(File::Temp) \
+Requires: perl(Getopt::Std) \
+Requires: perl(Text::Tabs) \
+Requires: perl(re) \
+Requires: perl(strict) \
+Requires: perl(vars) \
+Requires: perl(warnings) \
+%{nil}
+%global gendep_perl_version \
+Requires: perl(:VERSION) >= 5.6.2 \
+Requires: perl(strict) \
+Requires: perl(vars) \
+Requires: perl(version::regex) \
+Requires: perl(warnings::register) \
+Provides: perl(version) = 0.9916 \
+Provides: perl(version::regex) = 0.9916 \
+%{nil}
diff --git a/generatedependencies b/generatedependencies
new file mode 100755
index 0000000..cc1d278
--- /dev/null
+++ b/generatedependencies
@@ -0,0 +1,163 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+
+# Split "A B >= 1" dependencies string into ("A", "B >= 1") list.
+sub appendsymbols {
+    my ($array, $line) = @_;
+    my $qualified;
+    my $dependency;
+    for my $token (split(/\s/, $line)) {
+        if ($token =~ /\A[<>]?=\z/) {
+            $qualified = 1;
+            $dependency .= ' ' . $token;
+            next;
+        }
+        if (!$qualified) {
+            if (defined $dependency) {
+                push @$array, $dependency;
+            }
+            $dependency = $token;
+            next;
+        }
+        if ($qualified) {
+            $qualified = 0;
+            $dependency .= ' ' . $token;
+            push @$array, $dependency;
+            $dependency = undef;
+            next;
+        }
+    }
+    if (defined $dependency) {
+        push @$array, $dependency;
+    }
+}
+
+# Return true if the argument is a Perl dependency. Otherwise return false.
+sub is_perl_dependency {
+    my $dependency = shift;
+    return ($dependency =~ /\Aperl\(/);
+}
+
+my $file = shift @ARGV;
+if (!defined $file) {
+	die "Missing an argument with an RPM build log!\n"
+}
+
+# Parse build log
+open(my $log, '<', $file) or die "Could not open `$file': $!\n";
+my ($package, %packages);
+while (!eof($log)) {
+    defined($_ = <$log>) or die "Error while reading from `$file': $!\n";
+	chomp;
+
+	if (/\AProcessing files: ([\S]+)-[^-]+-[^-]+$/) {
+		$package = $1;
+        $packages{$package}{requires} = [];
+        $packages{$package}{provides} = [];
+	} elsif ($package && /\AProvides: (.*)\z/) {
+		appendsymbols($packages{$package}{provides}, $1);
+	} elsif ($package && /\ARequires: (.*)\z/) {
+		appendsymbols($packages{$package}{requires}, $1);
+	}
+}
+close($log);
+
+# Save dependencies into file
+my $filename = 'gendep.macros';
+open (my $gendep, '>', $filename) or
+    die "Could not open `$filename' for writing: $!\n";
+for my $package (sort keys %packages) {
+    # Macro name
+    my $macro = 'gendep_' . $package;
+    $macro =~ s/[+-]/_/g;
+    $gendep->print("%global $macro \\\n");
+    # Macro value
+    for my $dependency (@{$packages{$package}{requires}}) {
+        if (is_perl_dependency($dependency)) {
+            $gendep->print("Requires: $dependency \\\n");
+        }
+    }
+    for my $dependency (@{$packages{$package}{provides}}) {
+        if (is_perl_dependency($dependency)) {
+            $gendep->print("Provides: $dependency \\\n");
+        }
+    }
+    # Macro trailer
+    $gendep->print("%{nil}\n");
+}
+close($gendep) or die "Could not close `$filename': $!\n";
+
+
+__END__
+=encoding utf8
+
+=head1 NAME
+
+generatedependencies - Distil generated Perl dependencies from a build log
+
+=head1 SYNOPSIS
+
+B<generatedependencies> I<BUILD_LOG>
+
+=head1 DESCRIPTION
+
+It opens specified RPM build log I<BUILD_LOG>. It locates a protocol about
+autogenerated dependencies. It stores the reported dependencies into F<./gendep.macros> file.
+
+The output file will define macros C<gendep_I<BINARY_PACKAGE_NAME>>. A macro
+for each binary package. The macro name will use underscores instead of
+hyphens or other SPEC language special characters.
+
+It will ignore non-Perl dependencies (not C<perl(*)>) as they do not come from
+Perl dependency generator.
+
+=head1 EXIT CODE
+
+Returns zero, if no error occurred. Otherwise non-zero code is returned.
+
+=head1 EXAMPLE
+
+The invocation is:
+
+    $ generatedependencies .build-5.24.0-364.fc25.log
+
+The output is:
+
+    $ grep -A5 perl_Devel_Peek gendep.macros
+    %global gendep_perl_Devel_Peek \
+    Requires: perl(Exporter) \
+    Requires: perl(XSLoader) \
+    Provides: perl(Devel::Peek) = 1.23 \
+    %nil{}
+    %global gendep_perl_Devel_SelfStubber \
+
+
+The output can be used in a spec file like:
+
+    Name: perl
+    Source0: gendep.macros
+    %include %{SOURCE0}
+    %package Devel-Peek
+    %gendep_Devel_Peek
+    %package Devel-SelfStubber
+    %gendep_Devel_SelfStubber
+
+=head1 COPYING
+
+Copyright (C) 2016  Petr Písař <ppisar@redhat.com>
+
+This program is free software: you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation, either version 3 of the License, or
+(at your option) any later version.
+
+This program is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with this program.  If not, see <http://www.gnu.org/licenses/>.
+
+=cut
diff --git a/macros.perl b/macros.perl
new file mode 100644
index 0000000..9c1fd0c
--- /dev/null
+++ b/macros.perl
@@ -0,0 +1,151 @@
+# Sensible Perl-specific RPM build macros.
+#
+# Note that these depend on the generic filtering system being in place in
+# rpm core; but won't cause a build to fail if they're not present.
+#
+# Chris Weyl <cweyl@alumni.drew.edu> 2009
+# Marcela Mašláňová <mmaslano@redhat.com> 2011
+
+# This macro unsets several common vars used to control how Makefile.PL (et
+# al) build and install packages.  We also set a couple to help some of the
+# common systems be less interactive.  This was blatantly stolen from
+# cpanminus, and helps building rpms locally when one makes extensive use of
+# local::lib, etc.
+#
+# Usage, in %build, before "%{__perl} Makefile.PL ..."
+#
+#   %{?perl_ext_env_unset}
+
+%perl_ext_env_unset %{expand:
+unset PERL_MM_OPT MODULEBUILDRC PERL5INC
+export PERL_AUTOINSTALL="--defaultdeps"
+export PERL_MM_USE_DEFAULT=1
+}
+
+#############################################################################
+# Filtering macro incantations
+
+# keep track of what "revision" of the filtering we're at.  Each time we
+# change the filter we should increment this.
+
+%perl_default_filter_revision 3
+
+# By default, for perl packages we want to filter all files in _docdir from 
+# req/prov scanning.
+# Filtering out any provides caused by private libs in vendorarch/archlib
+# (vendor/core) is done by rpmbuild since Fedora 20
+# <https://fedorahosted.org/fpc/ticket/353>.
+#
+# Note that this must be invoked in the spec file, preferably as 
+# "%{?perl_default_filter}", before any %description block.
+
+%perl_default_filter %{expand: \
+%global __provides_exclude_from %{?__provides_exclude_from:%__provides_exclude_from|}^%{_docdir}
+%global __requires_exclude_from %{?__requires_exclude_from:%__requires_exclude_from|}^%{_docdir}
+%global __provides_exclude %{?__provides_exclude:%__provides_exclude|}^perl\\\\(VMS|^perl\\\\(Win32|^perl\\\\(DB\\\\)|^perl\\\\(UNIVERSAL\\\\)
+%global __requires_exclude %{?__requires_exclude:%__requires_exclude|}^perl\\\\(VMS|^perl\\\\(Win32
+}
+
+#############################################################################
+# Macros to assist with generating a "-tests" subpackage in a semi-automatic
+# manner.
+#
+# The following macros are still in a highly experimental stage and users
+# should be aware that the interface and behaviour may change. 
+#
+# PLEASE, PLEASE CONDITIONALIZE THESE MACROS IF YOU USE THEM.
+#
+# See http://gist.github.com/284409
+
+# These macros should be invoked as above, right before the first %description
+# section, and conditionalized.  e.g., for the common case where all our tests
+# are located under t/, the correct usage is:
+#
+#   %{?perl_default_subpackage_tests}
+#
+# If custom files/directories need to be specified, this can be done as such:
+#
+#   %{?perl_subpackage_tests:%perl_subpackage_tests t/ one/ three.sql}
+#
+# etc, etc.
+
+%perl_version   %(eval "`%{__perl} -V:version`"; echo $version)
+%perl_testdir   %{_libexecdir}/perl5-tests
+%cpan_dist_name %(eval echo %{name} | %{__sed} -e 's/^perl-//')
+
+# easily mark something as required by -tests and BR to the main package
+%tests_req() %{expand:\
+BuildRequires: %*\
+%%tests_subpackage_requires %*\
+}
+
+# fixup (and create if needed) the shbang lines in tests, so they work and
+# rpmlint doesn't (correctly) have a fit
+%fix_shbang_line() \
+TMPHEAD=`mktemp`\
+TMPBODY=`mktemp`\
+for file in %* ; do \
+    head -1 $file > $TMPHEAD\
+    tail -n +2 $file > $TMPBODY\
+    %{__perl} -pi -e '$f = /^#!/ ? "" : "#!%{__perl}$/"; $_="$f$_"' $TMPHEAD\
+    cat $TMPHEAD $TMPBODY > $file\
+done\
+%{__perl} -MExtUtils::MakeMaker -e "ExtUtils::MM_Unix->fixin(qw{%*})"\
+%{__rm} $TMPHEAD $TMPBODY\
+%{nil}
+
+# additional -tests subpackage requires, if any
+%tests_subpackage_requires() %{expand: \
+%global __tests_spkg_req %{?__tests_spkg_req} %* \
+}
+
+# additional -tests subpackage provides, if any
+%tests_subpackage_provides() %{expand: \
+%global __tests_spkg_prov %{?__tests_spkg_prov} %* \
+}
+
+#
+# Runs after the body of %check completes.
+#
+
+%__perl_check_pre %{expand: \
+%{?__spec_check_pre} \
+pushd %{buildsubdir} \
+%define perl_br_testdir %{buildroot}%{perl_testdir}/%{cpan_dist_name} \
+%{__mkdir_p} %{perl_br_testdir} \
+%{__tar} -cf - %{__perl_test_dirs} | ( cd %{perl_br_testdir} && %{__tar} -xf - ) \
+find . -maxdepth 1 -type f -name '*META*' -exec %{__cp} -vp {} %{perl_br_testdir} ';' \
+find %{perl_br_testdir} -type f -exec %{__chmod} -c -x {} ';' \
+T_FILES=`find %{perl_br_testdir} -type f -name '*.t'` \
+%fix_shbang_line $T_FILES \
+%{__chmod} +x $T_FILES \
+%{_fixperms} %{perl_br_testdir} \
+popd \
+}
+
+#
+# The actual invoked macro
+#
+
+%perl_subpackage_tests() %{expand: \
+%global __perl_package 1\
+%global __perl_test_dirs %* \
+%global __spec_check_pre %{expand:%{__perl_check_pre}} \
+%package tests\
+Summary: Test suite for package %{name}\
+Group: Development/Debug\
+Requires: %{name} = %{?epoch:%{epoch}:}%{version}-%{release}\
+Requires: /usr/bin/prove \
+%{?__tests_spkg_req:Requires: %__tests_spkg_req}\
+%{?__tests_spkg_prov:Provides: %__tests_spkg_prov}\
+AutoReqProv: 0 \
+%description tests\
+This package provides the test suite for package %{name}.\
+%files tests\
+%defattr(-,root,root,-)\
+%{perl_testdir}\
+}
+
+# shortcut sugar
+%perl_default_subpackage_tests %perl_subpackage_tests t/
+
diff --git a/perl-5.10.0-libresolv.patch b/perl-5.10.0-libresolv.patch
new file mode 100644
index 0000000..a844a28
--- /dev/null
+++ b/perl-5.10.0-libresolv.patch
@@ -0,0 +1,12 @@
+diff -up perl-5.10.0/Configure.didi perl-5.10.0/Configure
+--- perl-5.10.0/Configure.didi	2007-12-18 11:47:07.000000000 +0100
++++ perl-5.10.0/Configure	2008-07-21 10:51:16.000000000 +0200
+@@ -1479,7 +1479,7 @@ archname=''
+ usereentrant='undef'
+ : List of libraries we want.
+ : If anyone needs extra -lxxx, put those in a hint file.
+-libswanted="cl pthread socket bind inet nsl ndbm gdbm dbm db malloc dl ld"
++libswanted="cl pthread socket resolv inet nsl ndbm gdbm dbm db malloc dl ld"
+ libswanted="$libswanted sun m crypt sec util c cposix posix ucb bsd BSD"
+ : We probably want to search /usr/shlib before most other libraries.
+ : This is only used by the lib/ExtUtils/MakeMaker.pm routine extliblist.
diff --git a/perl-5.10.0-x86_64-io-test-failure.patch b/perl-5.10.0-x86_64-io-test-failure.patch
new file mode 100644
index 0000000..08adda8
--- /dev/null
+++ b/perl-5.10.0-x86_64-io-test-failure.patch
@@ -0,0 +1,12 @@
+diff -up perl-5.10.0/t/io/fs.t.BAD perl-5.10.0/t/io/fs.t
+--- perl-5.10.0/t/io/fs.t.BAD	2008-01-30 13:36:43.000000000 -0500
++++ perl-5.10.0/t/io/fs.t	2008-01-30 13:41:27.000000000 -0500
+@@ -227,7 +227,7 @@ isnt($atime, 500000000, 'atime');
+ isnt($mtime, 500000000 + $delta, 'mtime');
+ 
+ SKIP: {
+-    skip "no futimes", 6 unless ($Config{d_futimes} || "") eq "define";
++    skip "no futimes", 6;
+     open(my $fh, "<", 'b');
+     $foo = (utime 500000000,500000000 + $delta, $fh);
+     is($foo, 1, "futime");
diff --git a/perl-5.14.1-offtest.patch b/perl-5.14.1-offtest.patch
new file mode 100644
index 0000000..45294c8
--- /dev/null
+++ b/perl-5.14.1-offtest.patch
@@ -0,0 +1,17 @@
+diff -up perl-5.14.1/cpan/File-Temp/t/fork.t.off perl-5.14.1/cpan/File-Temp/t/fork.t
+--- perl-5.14.1/cpan/File-Temp/t/fork.t.off	2011-04-13 13:36:34.000000000 +0200
++++ perl-5.14.1/cpan/File-Temp/t/fork.t	2011-06-20 10:29:31.536282611 +0200
+@@ -12,12 +12,8 @@ BEGIN {
+      $Config::Config{useithreads} and
+      $Config::Config{ccflags} =~ /-DPERL_IMPLICIT_SYS/
+     );
+-  if ( $can_fork ) {
+-    print "1..8\n";
+-  } else {
+-    print "1..0 # Skip No fork available\n";
++    print "1..0 # Skip Koji doesn't work with Perl fork tests\n";
+     exit;
+-  }
+ }
+ 
+ use File::Temp;
diff --git a/perl-5.16.3-Link-XS-modules-to-libperl.so-with-EU-CBuilder-on-Li.patch b/perl-5.16.3-Link-XS-modules-to-libperl.so-with-EU-CBuilder-on-Li.patch
new file mode 100644
index 0000000..d87aca7
--- /dev/null
+++ b/perl-5.16.3-Link-XS-modules-to-libperl.so-with-EU-CBuilder-on-Li.patch
@@ -0,0 +1,65 @@
+From b598ba3f2d4b8347c6621cff022b8e2329b79ea5 Mon Sep 17 00:00:00 2001
+From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= <ppisar@redhat.com>
+Date: Wed, 3 Jul 2013 11:01:02 +0200
+Subject: [PATCH] Link XS modules to libperl.so with EU::CBuilder on Linux
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+<https://bugzilla.redhat.com/show_bug.cgi?id=960048>
+<http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=327585#50>
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ MANIFEST                                           |  1 +
+ .../lib/ExtUtils/CBuilder/Platform/linux.pm        | 26 ++++++++++++++++++++++
+ 2 files changed, 27 insertions(+)
+ create mode 100644 dist/ExtUtils-CBuilder/lib/ExtUtils/CBuilder/Platform/linux.pm
+
+diff --git a/MANIFEST b/MANIFEST
+index 397252a..d7c519b 100644
+--- a/MANIFEST
++++ b/MANIFEST
+@@ -3093,6 +3093,7 @@ dist/ExtUtils-CBuilder/lib/ExtUtils/CBuilder/Platform/aix.pm	CBuilder methods fo
+ dist/ExtUtils-CBuilder/lib/ExtUtils/CBuilder/Platform/cygwin.pm	CBuilder methods for cygwin
+ dist/ExtUtils-CBuilder/lib/ExtUtils/CBuilder/Platform/darwin.pm	CBuilder methods for darwin
+ dist/ExtUtils-CBuilder/lib/ExtUtils/CBuilder/Platform/dec_osf.pm	CBuilder methods for OSF
++dist/ExtUtils-CBuilder/lib/ExtUtils/CBuilder/Platform/linux.pm	CBuilder methods for Linux
+ dist/ExtUtils-CBuilder/lib/ExtUtils/CBuilder/Platform/os2.pm	CBuilder methods for OS/2
+ dist/ExtUtils-CBuilder/lib/ExtUtils/CBuilder/Platform/Unix.pm	CBuilder methods for Unix
+ dist/ExtUtils-CBuilder/lib/ExtUtils/CBuilder/Platform/VMS.pm	CBuilder methods for VMS
+diff --git a/dist/ExtUtils-CBuilder/lib/ExtUtils/CBuilder/Platform/linux.pm b/dist/ExtUtils-CBuilder/lib/ExtUtils/CBuilder/Platform/linux.pm
+new file mode 100644
+index 0000000..e3251c4
+--- /dev/null
++++ b/dist/ExtUtils-CBuilder/lib/ExtUtils/CBuilder/Platform/linux.pm
+@@ -0,0 +1,26 @@
++package ExtUtils::CBuilder::Platform::linux;
++
++use strict;
++use ExtUtils::CBuilder::Platform::Unix;
++use File::Spec;
++
++use vars qw($VERSION @ISA);
++$VERSION = '0.280206';
++@ISA = qw(ExtUtils::CBuilder::Platform::Unix);
++
++sub link {
++  my ($self, %args) = @_;
++  my $cf = $self->{config};
++
++  # Link XS modules to libperl.so explicitly because multiple
++  # dlopen(, RTLD_LOCAL) hides libperl symbols from XS module.
++  local $cf->{lddlflags} = $cf->{lddlflags};
++  if ($ENV{PERL_CORE}) {
++    $cf->{lddlflags} .= ' -L' . $self->perl_inc();
++  }
++  $cf->{lddlflags} .= ' -lperl';
++
++  return $self->SUPER::link(%args);
++}
++
++1;
+-- 
+1.8.1.4
+
diff --git a/perl-5.16.3-Link-XS-modules-to-libperl.so-with-EU-MM-on-Linux.patch b/perl-5.16.3-Link-XS-modules-to-libperl.so-with-EU-MM-on-Linux.patch
new file mode 100644
index 0000000..26159bc
--- /dev/null
+++ b/perl-5.16.3-Link-XS-modules-to-libperl.so-with-EU-MM-on-Linux.patch
@@ -0,0 +1,52 @@
+From fc1f8ac36c34c35bad84fb7b99a26ab83c9ba075 Mon Sep 17 00:00:00 2001
+From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= <ppisar@redhat.com>
+Date: Wed, 3 Jul 2013 12:59:09 +0200
+Subject: [PATCH] Link XS modules to libperl.so with EU::MM on Linux
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+<https://bugzilla.redhat.com/show_bug.cgi?id=960048>
+<http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=327585#50>
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm | 8 +++++++-
+ 1 file changed, 7 insertions(+), 1 deletion(-)
+
+diff --git a/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm b/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm
+index a8b172f..a3fbce2 100644
+--- a/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm
++++ b/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm
+@@ -31,6 +31,7 @@ BEGIN {
+     $Is{IRIX}    = $^O eq 'irix';
+     $Is{NetBSD}  = $^O eq 'netbsd';
+     $Is{Interix} = $^O eq 'interix';
++    $Is{Linux}   = $^O eq 'linux';
+     $Is{SunOS4}  = $^O eq 'sunos';
+     $Is{Solaris} = $^O eq 'solaris';
+     $Is{SunOS}   = $Is{SunOS4} || $Is{Solaris};
+@@ -932,7 +933,7 @@ $(INST_DYNAMIC): $(OBJECT) $(MYEXTLIB) $(BOOTSTRAP) $(INST_ARCHAUTODIR)$(DFSEP).
+ 
+     my $libs = '$(LDLOADLIBS)';
+ 
+-    if (($Is{NetBSD} || $Is{Interix} || $Is{Android}) && $Config{'useshrplib'} eq 'true') {
++    if (($Is{Linux} || $Is{NetBSD} || $Is{Interix} || $Is{Android}) && $Config{'useshrplib'} eq 'true') {
+ 	# Use nothing on static perl platforms, and to the flags needed
+ 	# to link against the shared libperl library on shared perl
+ 	# platforms.  We peek at lddlflags to see if we need -Wl,-R
+@@ -941,6 +942,11 @@ $(INST_DYNAMIC): $(OBJECT) $(MYEXTLIB) $(BOOTSTRAP) $(INST_ARCHAUTODIR)$(DFSEP).
+             # The Android linker will not recognize symbols from
+             # libperl unless the module explicitly depends on it.
+             $libs .= ' "-L$(PERL_INC)" -lperl';
++        } else {
++            if ($ENV{PERL_CORE}) {
++                $libs .= ' "-L$(PERL_INC)"';
++            }
++            $libs .= ' -lperl';
+         }
+     }
+ 
+-- 
+1.8.1.4
+
diff --git a/perl-5.16.3-create_libperl_soname.patch b/perl-5.16.3-create_libperl_soname.patch
new file mode 100644
index 0000000..fabadf4
--- /dev/null
+++ b/perl-5.16.3-create_libperl_soname.patch
@@ -0,0 +1,52 @@
+From fa2f0dd5a7767223df10149d3f16d7ed7013e16f Mon Sep 17 00:00:00 2001
+From: Torsten Veller <tove@gentoo.org>
+Date: Sat, 14 Apr 2012 13:49:18 +0200
+Subject: Set libperl soname
+
+Bug-Gentoo: https://bugs.gentoo.org/286840
+
+Patch-Name: gentoo/create_libperl_soname.diff
+---
+ Makefile.SH | 9 +++++++--
+ 1 file changed, 7 insertions(+), 2 deletions(-)
+
+diff --git a/Makefile.SH b/Makefile.SH
+index d1da0a0..7733a32 100755
+--- a/Makefile.SH
++++ b/Makefile.SH
+@@ -58,7 +58,7 @@ true)
+ 				${api_revision}.${api_version}.${api_subversion} \
+ 			     -current_version \
+ 				${revision}.${patchlevel}.${subversion} \
+-			     -install_name \$(shrpdir)/\$@"
++			     -install_name \$(shrpdir)/libperl.${revision}.${patchlevel}.dylib"
+ 		;;
+ 	cygwin*)
+ 		shrpldflags="$shrpldflags -Wl,--out-implib=libperl.dll.a -Wl,--image-base,0x52000000"
+@@ -66,13 +66,15 @@ true)
+ 		;;
+ 	sunos*)
+ 		linklibperl="-lperl"
++		shrpldflags="$shrpldflags -Wl,-soname -Wl,libperl.so.${revision}.${patchlevel}"
+ 		;;
+ 	netbsd*|freebsd[234]*|openbsd*|dragonfly*|bitrig*)
+ 		linklibperl="-L. -lperl"
++		shrpldflags="$shrpldflags -Wl,-soname -Wl,libperl.so.${revision}.${patchlevel}"
+ 		;;
+ 	interix*)
+ 		linklibperl="-L. -lperl"
+-		shrpldflags="$shrpldflags -Wl,--image-base,0x57000000"
++		shrpldflags="$shrpldflags -Wl,--image-base,0x57000000 -Wl,-soname -Wl,libperl.so.${revision}.${patchlevel}"
+ 		;;
+ 	aix*)
+ 		case "$cc" in
+@@ -110,6 +112,9 @@ true)
+ 	    linklibperl='libperl.x'
+ 	    DPERL_EXTERNAL_GLOB=''
+ 	    ;;
++	linux*)
++		shrpldflags="$shrpldflags -Wl,-soname -Wl,libperl.so.${revision}.${patchlevel}"
++	    ;;
+ 	esac
+ 	case "$ldlibpthname" in
+ 	'') ;;
diff --git a/perl-5.18.1-Document-Math-BigInt-CalcEmu-requires-Math-BigInt.patch b/perl-5.18.1-Document-Math-BigInt-CalcEmu-requires-Math-BigInt.patch
new file mode 100644
index 0000000..bed0adc
--- /dev/null
+++ b/perl-5.18.1-Document-Math-BigInt-CalcEmu-requires-Math-BigInt.patch
@@ -0,0 +1,30 @@
+From 862c89c81d26dae0dcef138e19df8b45615e69c9 Mon Sep 17 00:00:00 2001
+From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= <ppisar@redhat.com>
+Date: Mon, 2 Dec 2013 10:10:56 +0100
+Subject: [PATCH] Document Math::BigInt::CalcEmu requires Math::BigInt
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+<https://rt.cpan.org/Public/Bug/Display.html?id=85015>
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ dist/Math-BigInt/lib/Math/BigInt/CalcEmu.pm | 1 +
+ 1 file changed, 1 insertion(+)
+
+diff --git a/dist/Math-BigInt/lib/Math/BigInt/CalcEmu.pm b/dist/Math-BigInt/lib/Math/BigInt/CalcEmu.pm
+index c82e153..0c0b496 100644
+--- a/cpan/Math-BigInt/lib/Math/BigInt/CalcEmu.pm
++++ b/cpan/Math-BigInt/lib/Math/BigInt/CalcEmu.pm
+@@ -290,6 +290,7 @@ Math::BigInt::CalcEmu - Emulate low-level math with BigInt code
+ 
+ =head1 SYNOPSIS
+ 
++	use Math::BigInt;
+ 	use Math::BigInt::CalcEmu;
+ 
+ =head1 DESCRIPTION
+-- 
+1.8.3.1
+
diff --git a/perl-5.18.2-Destroy-GDBM-NDBM-ODBM-SDBM-_File-objects-only-from-.patch b/perl-5.18.2-Destroy-GDBM-NDBM-ODBM-SDBM-_File-objects-only-from-.patch
new file mode 100644
index 0000000..9b503c6
--- /dev/null
+++ b/perl-5.18.2-Destroy-GDBM-NDBM-ODBM-SDBM-_File-objects-only-from-.patch
@@ -0,0 +1,233 @@
+From f793042f2bac2ace9a5c0030b47b41c4db561a5b Mon Sep 17 00:00:00 2001
+From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= <ppisar@redhat.com>
+Date: Fri, 6 Jun 2014 14:31:59 +0200
+Subject: [PATCH] Destroy {GDBM,NDBM,ODBM,SDBM}_File objects only from original
+ thread context
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+This patch fixes a crash when destroing a hash tied to a *_File
+database after spawning a thread:
+
+use Fcntl;
+use SDBM_File;
+use threads;
+tie(my %dbtest, 'SDBM_File', "test.db", O_RDWR|O_CREAT, 0666);
+threads->new(sub {})->join;
+
+This crashed or paniced depending on how perl was configured.
+
+Closes RT#61912.
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ ext/GDBM_File/GDBM_File.xs | 16 ++++++++++------
+ ext/NDBM_File/NDBM_File.xs | 16 ++++++++++------
+ ext/ODBM_File/ODBM_File.xs | 18 +++++++++++-------
+ ext/SDBM_File/SDBM_File.xs |  4 +++-
+ t/lib/dbmt_common.pl       | 35 +++++++++++++++++++++++++++++++++++
+ 5 files changed, 69 insertions(+), 20 deletions(-)
+
+diff --git a/ext/GDBM_File/GDBM_File.xs b/ext/GDBM_File/GDBM_File.xs
+index 33e08e2..7160f54 100644
+--- a/ext/GDBM_File/GDBM_File.xs
++++ b/ext/GDBM_File/GDBM_File.xs
+@@ -13,6 +13,7 @@
+ #define store_value 3
+ 
+ typedef struct {
++	tTHX    owner;
+ 	GDBM_FILE 	dbp ;
+ 	SV *    filter[4];
+ 	int     filtering ;
+@@ -89,6 +90,7 @@ gdbm_TIEHASH(dbtype, name, read_write, mode)
+ 	    if ((dbp =  gdbm_open(name, GDBM_BLOCKSIZE, read_write, mode,
+ 	       	     	          (FATALFUNC) croak_string))) {
+ 	        RETVAL = (GDBM_File)safecalloc(1, sizeof(GDBM_File_type)) ;
++		RETVAL->owner = aTHX;
+ 		RETVAL->dbp = dbp ;
+ 	    }
+ 	    
+@@ -109,12 +111,14 @@ gdbm_DESTROY(db)
+ 	PREINIT:
+ 	int i = store_value;
+ 	CODE:
+-	gdbm_close(db);
+-	do {
+-	    if (db->filter[i])
+-		SvREFCNT_dec(db->filter[i]);
+-	} while (i-- > 0);
+-	safefree(db);
++	if (db && db->owner == aTHX) {
++	    gdbm_close(db);
++	    do {
++		if (db->filter[i])
++		    SvREFCNT_dec(db->filter[i]);
++	    } while (i-- > 0);
++	    safefree(db);
++	}
+ 
+ #define gdbm_FETCH(db,key)			gdbm_fetch(db->dbp,key)
+ datum_value
+diff --git a/ext/NDBM_File/NDBM_File.xs b/ext/NDBM_File/NDBM_File.xs
+index 52e60fc..af223e5 100644
+--- a/ext/NDBM_File/NDBM_File.xs
++++ b/ext/NDBM_File/NDBM_File.xs
+@@ -33,6 +33,7 @@ END_EXTERN_C
+ #define store_value 3
+ 
+ typedef struct {
++	tTHX    owner;
+ 	DBM * 	dbp ;
+ 	SV *    filter[4];
+ 	int     filtering ;
+@@ -71,6 +72,7 @@ ndbm_TIEHASH(dbtype, filename, flags, mode)
+ 	    RETVAL = NULL ;
+ 	    if ((dbp =  dbm_open(filename, flags, mode))) {
+ 	        RETVAL = (NDBM_File)safecalloc(1, sizeof(NDBM_File_type));
++		RETVAL->owner = aTHX;
+ 		RETVAL->dbp = dbp ;
+ 	    }
+ 	    
+@@ -84,12 +86,14 @@ ndbm_DESTROY(db)
+ 	PREINIT:
+ 	int i = store_value;
+ 	CODE:
+-	dbm_close(db->dbp);
+-	do {
+-	    if (db->filter[i])
+-		SvREFCNT_dec(db->filter[i]);
+-	} while (i-- > 0);
+-	safefree(db);
++	if (db && db->owner == aTHX) {
++	    dbm_close(db->dbp);
++	    do {
++		if (db->filter[i])
++		    SvREFCNT_dec(db->filter[i]);
++	    } while (i-- > 0);
++	    safefree(db);
++	}
+ 
+ #define ndbm_FETCH(db,key)			dbm_fetch(db->dbp,key)
+ datum_value
+diff --git a/ext/ODBM_File/ODBM_File.xs b/ext/ODBM_File/ODBM_File.xs
+index d1ece7f..f7e00a0 100644
+--- a/ext/ODBM_File/ODBM_File.xs
++++ b/ext/ODBM_File/ODBM_File.xs
+@@ -45,6 +45,7 @@ datum	nextkey(datum key);
+ #define store_value 3
+ 
+ typedef struct {
++	tTHX    owner;
+ 	void * 	dbp ;
+ 	SV *    filter[4];
+ 	int     filtering ;
+@@ -112,6 +113,7 @@ odbm_TIEHASH(dbtype, filename, flags, mode)
+ 	    }
+ 	    dbp = (void*)(dbminit(filename) >= 0 ? &dbmrefcnt : 0);
+ 	    RETVAL = (ODBM_File)safecalloc(1, sizeof(ODBM_File_type));
++	    RETVAL->owner = aTHX;
+ 	    RETVAL->dbp = dbp ;
+ 	}
+ 	OUTPUT:
+@@ -124,13 +126,15 @@ DESTROY(db)
+ 	dMY_CXT;
+ 	int i = store_value;
+ 	CODE:
+-	dbmrefcnt--;
+-	dbmclose();
+-	do {
+-	    if (db->filter[i])
+-		SvREFCNT_dec(db->filter[i]);
+-	} while (i-- > 0);
+-	safefree(db);
++	if (db && db->owner == aTHX) {
++	    dbmrefcnt--;
++	    dbmclose();
++	    do {
++		if (db->filter[i])
++		    SvREFCNT_dec(db->filter[i]);
++	    } while (i-- > 0);
++	    safefree(db);
++	}
+ 
+ datum_value
+ odbm_FETCH(db, key)
+diff --git a/ext/SDBM_File/SDBM_File.xs b/ext/SDBM_File/SDBM_File.xs
+index 291e41b..0bdae9a 100644
+--- a/ext/SDBM_File/SDBM_File.xs
++++ b/ext/SDBM_File/SDBM_File.xs
+@@ -10,6 +10,7 @@
+ #define store_value 3
+ 
+ typedef struct {
++	tTHX    owner;
+ 	DBM * 	dbp ;
+ 	SV *    filter[4];
+ 	int     filtering ;
+@@ -49,6 +50,7 @@ sdbm_TIEHASH(dbtype, filename, flags, mode)
+ 	    }
+ 	    if (dbp) {
+ 	        RETVAL = (SDBM_File)safecalloc(1, sizeof(SDBM_File_type));
++		RETVAL->owner = aTHX;
+ 		RETVAL->dbp = dbp ;
+ 	    }
+ 	    
+@@ -60,7 +62,7 @@ void
+ sdbm_DESTROY(db)
+ 	SDBM_File	db
+ 	CODE:
+-	if (db) {
++	if (db && db->owner == aTHX) {
+ 	    int i = store_value;
+ 	    sdbm_close(db->dbp);
+ 	    do {
+diff --git a/t/lib/dbmt_common.pl b/t/lib/dbmt_common.pl
+index 5d4098c..a0a4d52 100644
+--- a/t/lib/dbmt_common.pl
++++ b/t/lib/dbmt_common.pl
+@@ -511,5 +511,40 @@ unlink <Op_dbmx*>, $Dfile;
+    unlink <Op1_dbmx*>;
+ }
+ 
++{
++   # Check DBM back-ends do not destroy objects from then-spawned threads.
++   # RT#61912.
++   SKIP: {
++      my $threads_count = 2;
++      skip 'Threads are disabled', 3 + 2 * $threads_count
++        unless $Config{usethreads};
++      use_ok('threads');
++
++      my %h;
++      unlink <Op1_dbmx*>;
++
++      my $db = tie %h, $DBM_Class, 'Op1_dbmx', $create, 0640;
++      isa_ok($db, $DBM_Class);
++
++      for (1 .. 2) {
++         ok(threads->create(
++            sub {
++               $SIG{'__WARN__'} = sub { fail(shift) }; # debugging perl panics
++                        # report it by spurious TAP line
++               1;
++            }), "Thread $_ created");
++      }
++      for (threads->list) {
++         is($_->join, 1, "A thread exited successfully");
++      }
++
++      pass("Tied object survived exiting threads");
++
++      undef $db;
++      untie %h;
++      unlink <Op1_dbmx*>;
++   }
++}
++
+ done_testing();
+ 1;
+-- 
+1.9.3
+
diff --git a/perl-5.22.0-Install-libperl.so-to-shrpdir-on-Linux.patch b/perl-5.22.0-Install-libperl.so-to-shrpdir-on-Linux.patch
new file mode 100644
index 0000000..6d43814
--- /dev/null
+++ b/perl-5.22.0-Install-libperl.so-to-shrpdir-on-Linux.patch
@@ -0,0 +1,61 @@
+From 9644657c4 10326749fd321d9c24944ec25afad2f Mon Sep 17 00:00:00 2001
+From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= <ppisar@redhat.com>
+Date: Thu, 20 Jun 2013 15:22:53 +0200
+Subject: [PATCH] Install libperl.so to shrpdir on Linux
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ Configure   | 7 ++++---
+ Makefile.SH | 2 +-
+ 2 files changed, 5 insertions(+), 4 deletions(-)
+
+diff --git a/Configure b/Configure
+index 2f30261..825496e 100755
+--- a/Configure
++++ b/Configure
+@@ -8249,7 +8249,9 @@ esac
+ 
+ # Detect old use of shrpdir via undocumented Configure -Dshrpdir
+ case "$shrpdir" in
+-'') ;;
++'') 
++shrpdir=$archlibexp/CORE
++;;
+ *)	$cat >&4 <<EOM
+ WARNING:  Use of the shrpdir variable for the installation location of
+ the shared $libperl is not supported.  It was never documented and
+@@ -8279,7 +8281,6 @@ esac
+ # Add $xxx to ccdlflags.
+ # If we can't figure out a command-line option, use $shrpenv to
+ # set env LD_RUN_PATH.  The main perl makefile uses this.
+-shrpdir=$archlibexp/CORE
+ xxx=''
+ tmp_shrpenv=''
+ if "$useshrplib"; then
+@@ -8294,7 +8295,7 @@ if "$useshrplib"; then
+ 		xxx="-Wl,-R$shrpdir"
+ 		;;
+ 	bsdos|linux|irix*|dec_osf|gnu*|haiku)
+-		xxx="-Wl,-rpath,$shrpdir"
++		# We want standard path
+ 		;;
+ 	hpux*)
+ 		# hpux doesn't like the default, either.
+diff --git a/Makefile.SH b/Makefile.SH
+index 7733a32..a481183 100755
+--- a/Makefile.SH
++++ b/Makefile.SH
+@@ -266,7 +266,7 @@ ranlib = $ranlib
+ # installman commandline.
+ bin = $installbin
+ scriptdir = $scriptdir
+-shrpdir = $archlibexp/CORE
++shrpdir = $shrpdir
+ privlib = $installprivlib
+ man1dir = $man1dir
+ man1ext = $man1ext
+-- 
+1.8.1.4
diff --git a/perl-5.22.0-Revert-const-the-core-magic-vtables.patch b/perl-5.22.0-Revert-const-the-core-magic-vtables.patch
new file mode 100644
index 0000000..a769187
--- /dev/null
+++ b/perl-5.22.0-Revert-const-the-core-magic-vtables.patch
@@ -0,0 +1,44 @@
+From 4ccd57ed119eae3847df1ec241daa509f3b86ef3 Mon Sep 17 00:00:00 2001
+From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= <ppisar@redhat.com>
+Date: Thu, 18 Jun 2015 13:19:49 +0200
+Subject: [PATCH] Revert "const the core magic vtables"
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+This reverts commit c910fead7893fe9700031ee59de6b904260b5d69.
+
+It's necessary for Coro-6.43. This patch will be removed once Coro
+will be fixed or in a reasonable time if Coro become unamaintained.
+
+<http://www.nntp.perl.org/group/perl.perl5.porters/2015/06/msg228530.html>
+<https://bugzilla.redhat.com/show_bug.cgi?id=1231165>
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ perl.h | 9 ++++++++-
+ 1 file changed, 8 insertions(+), 1 deletion(-)
+
+diff --git a/perl.h b/perl.h
+index dcb184b..9bce052 100644
+--- a/perl.h
++++ b/perl.h
+@@ -5583,7 +5583,14 @@ EXTCONST runops_proc_t PL_runops_std
+ EXTCONST runops_proc_t PL_runops_dbg
+   INIT(Perl_runops_debug);
+ 
+-#define EXT_MGVTBL EXTCONST MGVTBL
++/* PERL_GLOBAL_STRUCT_PRIVATE wants to keep global data like the
++ * magic vtables const, but this is incompatible with SWIG which
++ * does want to modify the vtables. */
++#ifdef PERL_GLOBAL_STRUCT_PRIVATE
++#  define EXT_MGVTBL EXTCONST MGVTBL
++#else
++#  define EXT_MGVTBL EXT MGVTBL
++#endif
+ 
+ #define PERL_MAGIC_READONLY_ACCEPTABLE 0x40
+ #define PERL_MAGIC_VALUE_MAGIC 0x80
+-- 
+2.1.0
+
diff --git a/perl-5.22.1-Provide-ExtUtils-MM-methods-as-standalone-ExtUtils-M.patch b/perl-5.22.1-Provide-ExtUtils-MM-methods-as-standalone-ExtUtils-M.patch
new file mode 100644
index 0000000..0cfc4c5
--- /dev/null
+++ b/perl-5.22.1-Provide-ExtUtils-MM-methods-as-standalone-ExtUtils-M.patch
@@ -0,0 +1,110 @@
+From 9575301256f67116eccdbb99b38fc804ba3dcf53 Mon Sep 17 00:00:00 2001
+From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= <ppisar@redhat.com>
+Date: Mon, 18 Apr 2016 16:24:03 +0200
+Subject: [PATCH] Provide ExtUtils::MM methods as standalone
+ ExtUtils::MM::Utils
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+If you cannot afford depending on ExtUtils::MakeMaker, you can
+depend on ExtUtils::MM::Utils instead.
+
+<https://bugzilla.redhat.com/show_bug.cgi?id=1129443>
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ MANIFEST                                         |  1 +
+ cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM/Utils.pm | 68 ++++++++++++++++++++++++
+ 2 files changed, 69 insertions(+)
+ create mode 100644 cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM/Utils.pm
+
+diff --git a/MANIFEST b/MANIFEST
+index 6af238c..d4f0c56 100644
+--- a/MANIFEST
++++ b/MANIFEST
+@@ -1045,6 +1045,7 @@ cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_OS2.pm			MakeMaker methods for OS/2
+ cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM.pm			MakeMaker adaptor class
+ cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_QNX.pm			MakeMaker methods for QNX
+ cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm			MakeMaker methods for Unix
++cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM/Utils.pm		Independed MM methods
+ cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_UWIN.pm			MakeMaker methods for U/WIN
+ cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_VMS.pm			MakeMaker methods for VMS
+ cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_VOS.pm			MakeMaker methods for VOS
+diff --git a/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM/Utils.pm b/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM/Utils.pm
+new file mode 100644
+index 0000000..6bbc0d8
+--- /dev/null
++++ b/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM/Utils.pm
+@@ -0,0 +1,68 @@
++package ExtUtils::MM::Utils;
++
++require 5.006;
++
++use strict;
++use vars qw($VERSION);
++$VERSION = '7.11_06';
++$VERSION = eval $VERSION;  ## no critic [BuiltinFunctions::ProhibitStringyEval]
++
++=head1 NAME
++
++ExtUtils::MM::Utils - ExtUtils::MM methods without dependency on ExtUtils::MakeMaker
++
++=head1 SYNOPSIS
++
++    require ExtUtils::MM::Utils;
++    MM->maybe_command($file);
++
++=head1 DESCRIPTION
++
++This is a collection of L<ExtUtils::MM> subroutines that are used by many
++other modules but that do not need full-featured L<ExtUtils::MakeMaker>. The
++issue with L<ExtUtils::MakeMaker> is it pulls in Perl header files and that is
++an overkill for small subroutines.
++
++An example is the L<IPC::Cmd> that caused installing GCC just because of
++three-line I<maybe_command()> from L<ExtUtils::MM_Unix>.
++
++The intentions is to use L<ExtUtils::MM::Utils> instead of
++L<ExtUtils::MakeMaker> for these trivial methods. You can still call them via
++L<MM> class name.
++
++=head1 METHODS
++
++=over 4
++
++=item maybe_command
++
++Returns true, if the argument is likely to be a command.
++
++=cut
++
++if (!exists $INC{'ExtUtils/MM.pm'}) {
++    *MM::maybe_command = *ExtUtils::MM::maybe_command = \&maybe_command;
++}
++
++sub maybe_command {
++    my($self,$file) = @_;
++    return $file if -x $file && ! -d $file;
++    return;
++}
++
++1;
++
++=back
++
++=head1 BUGS
++
++These methods are copied from L<ExtUtils::MM_Unix>. Other operating systems
++are not supported yet. The reason is this
++L<a hack for Linux
++distributions|https://bugzilla.redhat.com/show_bug.cgi?id=1129443>.
++
++=head1 SEE ALSO
++
++L<ExtUtils::MakeMaker>, L<ExtUtils::MM>
++
++=cut
+-- 
+2.5.5
+
diff --git a/perl-5.22.1-Replace-EU-MM-dependnecy-with-EU-MM-Utils-in-IPC-Cmd.patch b/perl-5.22.1-Replace-EU-MM-dependnecy-with-EU-MM-Utils-in-IPC-Cmd.patch
new file mode 100644
index 0000000..572d37e
--- /dev/null
+++ b/perl-5.22.1-Replace-EU-MM-dependnecy-with-EU-MM-Utils-in-IPC-Cmd.patch
@@ -0,0 +1,34 @@
+From 216ddd39adb0043930acad70ff242c30a1b0c6cf Mon Sep 17 00:00:00 2001
+From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= <ppisar@redhat.com>
+Date: Mon, 18 Apr 2016 16:39:32 +0200
+Subject: [PATCH] Replace EU::MM dependnecy with EU::MM::Utils in IPC::Cmd
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+This allows to free from a run-time dependency on fat
+ExtUtils::MakeMaker.
+
+<https://bugzilla.redhat.com/show_bug.cgi?id=1129443>
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ cpan/IPC-Cmd/lib/IPC/Cmd.pm | 2 +-
+ 1 file changed, 1 insertion(+), 1 deletion(-)
+
+diff --git a/cpan/IPC-Cmd/lib/IPC/Cmd.pm b/cpan/IPC-Cmd/lib/IPC/Cmd.pm
+index 6a82bdf..b6cd7ef 100644
+--- a/cpan/IPC-Cmd/lib/IPC/Cmd.pm
++++ b/cpan/IPC-Cmd/lib/IPC/Cmd.pm
+@@ -230,7 +230,7 @@ sub can_run {
+     }
+ 
+     require File::Spec;
+-    require ExtUtils::MakeMaker;
++    require ExtUtils::MM::Utils;
+ 
+     my @possibles;
+ 
+-- 
+2.5.5
+
diff --git a/perl-5.24.0-assertion-failure-in-.-or-0-x-0.patch b/perl-5.24.0-assertion-failure-in-.-or-0-x-0.patch
new file mode 100644
index 0000000..ee37f0b
--- /dev/null
+++ b/perl-5.24.0-assertion-failure-in-.-or-0-x-0.patch
@@ -0,0 +1,73 @@
+From 702cf95bcb627f2b3b44fad409df7f0fd517af60 Mon Sep 17 00:00:00 2001
+From: David Mitchell <davem@iabyn.com>
+Date: Mon, 5 Dec 2016 14:54:44 +0000
+Subject: [PATCH] assertion failure in ... or ((0) x 0))
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+Petr Pisar: Ported to 5.24.0:
+
+commit 5aa240eab7dbaa91f98c2fee1f04b6c0b5a9b9e3
+Author: David Mitchell <davem@iabyn.com>
+Date:   Mon Dec 5 14:54:44 2016 +0000
+
+    assertion failure in ... or ((0) x 0))
+
+    [perl #130247] Perl_rpeep(OP *): Assertion `oldop' failed
+
+    the 'x 0' optimising code in rpeep didn't expect the repeat expression
+    to occur on the op_other side of an op_next chain.
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ op.c          |  4 ++--
+ t/op/repeat.t | 11 ++++++++++-
+ 2 files changed, 12 insertions(+), 3 deletions(-)
+
+diff --git a/op.c b/op.c
+index d7b900e..018d90c 100644
+--- a/op.c
++++ b/op.c
+@@ -13573,10 +13573,10 @@ Perl_rpeep(pTHX_ OP *o)
+                  && kid->op_next->op_type == OP_REPEAT
+                  && kid->op_next->op_private & OPpREPEAT_DOLIST
+                  && (kid->op_next->op_flags & OPf_WANT) == OPf_WANT_LIST
+-                 && SvIOK(kSVOP_sv) && SvIVX(kSVOP_sv) == 0)
++                 && SvIOK(kSVOP_sv) && SvIVX(kSVOP_sv) == 0
++                 && oldop)
+                 {
+                     o = kid->op_next; /* repeat */
+-                    assert(oldop);
+                     oldop->op_next = o;
+                     op_free(cBINOPo->op_first);
+                     op_free(cBINOPo->op_last );
+diff --git a/t/op/repeat.t b/t/op/repeat.t
+index bee7dac..c933475 100644
+--- a/t/op/repeat.t
++++ b/t/op/repeat.t
+@@ -6,7 +6,7 @@ BEGIN {
+ }
+ 
+ require './test.pl';
+-plan(tests => 48);
++plan(tests => 49);
+ 
+ # compile time
+ 
+@@ -183,3 +183,12 @@ fresh_perl_like(
+   {  },
+  '(1) x ~1',
+ );
++
++# [perl #130247] Perl_rpeep(OP *): Assertion `oldop' failed
++# 
++# the 'x 0' optimising code in rpeep didn't expect the repeat expression
++# to occur on the op_other side of an op_next chain.
++# This used to give an assertion failure
++
++eval q{() = (() or ((0) x 0)); 1};
++is($@, "", "RT #130247");
+-- 
+2.7.4
+
diff --git a/perl-5.24.0-clean-up-gv_fetchmethod_pvn_flags-introduce-name_end.patch b/perl-5.24.0-clean-up-gv_fetchmethod_pvn_flags-introduce-name_end.patch
new file mode 100644
index 0000000..aaaa801
--- /dev/null
+++ b/perl-5.24.0-clean-up-gv_fetchmethod_pvn_flags-introduce-name_end.patch
@@ -0,0 +1,94 @@
+From af04cb4d2503c5c75d2229e232b8a0bd5c210084 Mon Sep 17 00:00:00 2001
+From: Yves Orton <demerphq@gmail.com>
+Date: Tue, 13 Sep 2016 23:06:07 +0200
+Subject: [PATCH] clean up gv_fetchmethod_pvn_flags: introduce name_end
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+Ported to 5.24.0:
+
+commit 65308f87d02a1900e59f0002fa94c855d4d4c5df
+Author: Yves Orton <demerphq@gmail.com>
+Date:   Tue Sep 13 23:06:07 2016 +0200
+
+    clean up gv_fetchmethod_pvn_flags: introduce name_end
+
+    nend is used for too many things, this replaces various
+    uses of nend with name_end, which is constant.
+
+    this is a first step to fixing [perl #129267], which shouldnt
+    change any behavior
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ gv.c | 14 ++++++++------
+ 1 file changed, 8 insertions(+), 6 deletions(-)
+
+diff --git a/gv.c b/gv.c
+index 28396de..d738bf0 100644
+--- a/gv.c
++++ b/gv.c
+@@ -1014,6 +1014,8 @@ Perl_gv_fetchmethod_pv_flags(pTHX_ HV *stash, const char *name, U32 flags)
+ GV *
+ Perl_gv_fetchmethod_pvn_flags(pTHX_ HV *stash, const char *name, const STRLEN len, U32 flags)
+ {
++    const char * const origname = name;
++    const char * const name_end = name + len;
+     const char *nend;
+     const char *nsplit = NULL;
+     GV* gv;
+@@ -1034,7 +1036,7 @@ Perl_gv_fetchmethod_pvn_flags(pTHX_ HV *stash, const char *name, const STRLEN le
+ 	   the error reporting code.  */
+     }
+ 
+-    for (nend = name; *nend || nend != (origname + len); nend++) {
++    for (nend = name; *nend || nend != name_end; nend++) {
+ 	if (*nend == '\'') {
+ 	    nsplit = nend;
+ 	    name = nend + 1;
+@@ -1065,13 +1067,13 @@ Perl_gv_fetchmethod_pvn_flags(pTHX_ HV *stash, const char *name, const STRLEN le
+ 	ostash = stash;
+     }
+ 
+-    gv = gv_fetchmeth_pvn(stash, name, nend - name, 0, flags);
++    gv = gv_fetchmeth_pvn(stash, name, name_end - name, 0, flags);
+     if (!gv) {
+ 	if (strEQ(name,"import") || strEQ(name,"unimport"))
+ 	    gv = MUTABLE_GV(&PL_sv_yes);
+ 	else if (autoload)
+ 	    gv = gv_autoload_pvn(
+-		ostash, name, nend - name, GV_AUTOLOAD_ISMETHOD|flags
++		ostash, name, name_end - name, GV_AUTOLOAD_ISMETHOD|flags
+ 	    );
+ 	if (!gv && do_croak) {
+ 	    /* Right now this is exclusively for the benefit of S_method_common
+@@ -1087,14 +1089,14 @@ Perl_gv_fetchmethod_pvn_flags(pTHX_ HV *stash, const char *name, const STRLEN le
+ 				       HV_FETCH_ISEXISTS, NULL, 0)
+ 		) {
+ 		    require_pv("IO/File.pm");
+-		    gv = gv_fetchmeth_pvn(stash, name, nend - name, 0, flags);
++		    gv = gv_fetchmeth_pvn(stash, name, name_end - name, 0, flags);
+ 		    if (gv)
+ 			return gv;
+ 		}
+ 		Perl_croak(aTHX_
+ 			   "Can't locate object method \"%"UTF8f
+ 			   "\" via package \"%"HEKf"\"",
+-			            UTF8fARG(is_utf8, nend - name, name),
++			            UTF8fARG(is_utf8, name_end - name, name),
+                                     HEKfARG(HvNAME_HEK(stash)));
+ 	    }
+ 	    else {
+@@ -1111,7 +1113,7 @@ Perl_gv_fetchmethod_pvn_flags(pTHX_ HV *stash, const char *name, const STRLEN le
+ 			   "Can't locate object method \"%"UTF8f
+ 			   "\" via package \"%"SVf"\""
+ 			   " (perhaps you forgot to load \"%"SVf"\"?)",
+-			   UTF8fARG(is_utf8, nend - name, name),
++			   UTF8fARG(is_utf8, name_end - name, name),
+                            SVfARG(packnamesv), SVfARG(packnamesv));
+ 	    }
+ 	}
+-- 
+2.7.4
+
diff --git a/perl-5.24.0-crash-on-explicit-return-from-s-e.patch b/perl-5.24.0-crash-on-explicit-return-from-s-e.patch
new file mode 100644
index 0000000..fb71af0
--- /dev/null
+++ b/perl-5.24.0-crash-on-explicit-return-from-s-e.patch
@@ -0,0 +1,94 @@
+From 2c639acf40b4abc2783352f8e20dbfb68389e633 Mon Sep 17 00:00:00 2001
+From: David Mitchell <davem@iabyn.com>
+Date: Mon, 28 Nov 2016 08:03:49 +0000
+Subject: [PATCH] crash on explicit return from s///e
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+Petr Pisar: Ported to 5.24.0:
+
+commit 7332835e5da7b7a793ef814a84e53003be1d0138
+Author: David Mitchell <davem@iabyn.com>
+Date:   Mon Nov 28 08:03:49 2016 +0000
+
+    crash on explicit return from s///e
+
+    RT #130188
+
+    In
+
+        sub f {
+            my $x = 'a';
+            $x =~ s/./return;/e;
+        }
+
+    the 'return' triggers popping any contexts above the subroutine context:
+    in this case, a CXt_SUBST context. In this case, Perl_dounwind() calls
+    cx_popblock() for the bottom-most popped context, to restore any saved
+    vars. However, CXt_SUBST is the one context type which *doesn't* use
+    'struct block' as part of its context struct union, so you can't
+    cx_popblock() a CXt_SUBST context.
+
+    This commit makes it skip the cx_popblock() in this case.
+
+    Bug was introduced by me with v5.23.7-235-gfc6e609.
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ pp_ctl.c     |  6 ++++++
+ t/re/subst.t | 17 ++++++++++++++++-
+ 2 files changed, 22 insertions(+), 1 deletion(-)
+
+diff --git a/pp_ctl.c b/pp_ctl.c
+index 99ff59a..b94c09a 100644
+--- a/pp_ctl.c
++++ b/pp_ctl.c
+@@ -1529,6 +1529,12 @@ Perl_dounwind(pTHX_ I32 cxix)
+ 	switch (CxTYPE(cx)) {
+ 	case CXt_SUBST:
+ 	    CX_POPSUBST(cx);
++            /* CXt_SUBST is not a block context type, so skip the
++             * cx_popblock(cx) below */
++            if (cxstack_ix == cxix + 1) {
++                cxstack_ix--;
++                return;
++            }
+ 	    break;
+ 	case CXt_SUB:
+ 	    cx_popsub(cx);
+diff --git a/t/re/subst.t b/t/re/subst.t
+index 26a78c7..c039cc4 100644
+--- a/t/re/subst.t
++++ b/t/re/subst.t
+@@ -11,7 +11,7 @@ BEGIN {
+     require './loc_tools.pl';
+ }
+ 
+-plan( tests => 271 );
++plan( tests => 272 );
+ 
+ $_ = 'david';
+ $a = s/david/rules/r;
+@@ -1119,3 +1119,15 @@ SKIP: {
+                    {stderr => 1 },
+                    '[perl #129038 ] s/\xff//l no longer crashes');
+ }
++
++# [perl #130188] crash on return from substitution in subroutine
++# make sure returning from s///e doesn't SEGV
++{
++    my $f = sub {
++        my $x = 'a';
++        $x =~ s/./return;/e;
++    };
++    my $x = $f->();
++    pass("RT #130188");
++}
++
++
++
++
+-- 
+2.7.4
+
diff --git a/perl-5.24.0-perl-129130-make-chdir-allocate-the-stack-it-needs.patch b/perl-5.24.0-perl-129130-make-chdir-allocate-the-stack-it-needs.patch
new file mode 100644
index 0000000..c3b723a
--- /dev/null
+++ b/perl-5.24.0-perl-129130-make-chdir-allocate-the-stack-it-needs.patch
@@ -0,0 +1,66 @@
+From d47812b974b515e952dc093e692bf15f0a9afbc4 Mon Sep 17 00:00:00 2001
+From: Tony Cook <tony@develop-help.com>
+Date: Mon, 5 Sep 2016 15:40:11 +1000
+Subject: [PATCH] (perl #129130) make chdir allocate the stack it needs
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+Ported to 5.24.0:
+
+commit 92c843fb4b4e1a1e0ac7ec0fe198dc77266838da
+Author: Tony Cook <tony@develop-help.com>
+Date:   Mon Sep 5 15:40:11 2016 +1000
+
+    (perl #129130) make chdir allocate the stack it needs
+
+    chdir with no argument didn't ensure there was stack space available
+    for its result.
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ pp_sys.c     | 1 +
+ t/op/chdir.t | 8 +++++++-
+ 2 files changed, 8 insertions(+), 1 deletion(-)
+
+diff --git a/pp_sys.c b/pp_sys.c
+index 3bf2673..d2cf872 100644
+--- a/pp_sys.c
++++ b/pp_sys.c
+@@ -3639,6 +3639,7 @@ PP(pp_chdir)
+ 	HV * const table = GvHVn(PL_envgv);
+ 	SV **svp;
+ 
++        EXTEND(SP, 1);
+         if (    (svp = hv_fetchs(table, "HOME", FALSE))
+              || (svp = hv_fetchs(table, "LOGDIR", FALSE))
+ #ifdef VMS
+diff --git a/t/op/chdir.t b/t/op/chdir.t
+index a5ea76a..685e556 100644
+--- a/t/op/chdir.t
++++ b/t/op/chdir.t
+@@ -10,7 +10,7 @@ BEGIN {
+     # possibilities into @INC.
+     unshift @INC, qw(t . lib ../lib);
+     require "test.pl";
+-    plan(tests => 47);
++    plan(tests => 48);
+ }
+ 
+ use Config;
+@@ -161,6 +161,12 @@ sub check_env {
+     }
+ }
+ 
++fresh_perl_is(<<'EOP', '', { stderr => 1 }, "check stack handling");
++for $x (map $_+1, 1 .. 100) {
++  map chdir, 1 .. $x;
++}
++EOP
++
+ my %Saved_Env = ();
+ sub clean_env {
+     foreach my $env (@magic_envs) {
+-- 
+2.7.4
+
diff --git a/perl-5.24.0-perl-129164-Crash-with-splice.patch b/perl-5.24.0-perl-129164-Crash-with-splice.patch
new file mode 100644
index 0000000..44dbe0c
--- /dev/null
+++ b/perl-5.24.0-perl-129164-Crash-with-splice.patch
@@ -0,0 +1,79 @@
+From 54550573a613ad20f00521880f345644a1db85cc Mon Sep 17 00:00:00 2001
+From: Father Chrysostomos <sprout@cpan.org>
+Date: Sun, 11 Sep 2016 21:29:56 -0700
+Subject: [PATCH] Crash with splice
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+Ported to 5.24.0:
+
+commit 92b69f6501b4d7351e09c8b1ddd386aa7e1c9cd1
+Author: Father Chrysostomos <sprout@cpan.org>
+Date:   Sun Sep 11 21:29:56 2016 -0700
+
+    [perl #129164] Crash with splice
+
+    This fixes #129166 and #129167 as well.
+
+    splice needs to take into account that arrays can hold NULLs and
+    return &PL_sv_undef in those cases where it would have returned a
+    NULL element.
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ pp.c         |  4 ++++
+ t/op/array.t | 17 +++++++++++++++++
+ 2 files changed, 21 insertions(+)
+
+diff --git a/pp.c b/pp.c
+index 4a2cde0..4153482 100644
+--- a/pp.c
++++ b/pp.c
+@@ -5488,6 +5488,8 @@ PP(pp_splice)
+ 		for (i = length - 1, dst = &AvARRAY(ary)[offset]; i > 0; i--)
+ 		    SvREFCNT_dec(*dst++);	/* free them now */
+ 	    }
++	    if (!*MARK)
++		*MARK = &PL_sv_undef;
+ 	}
+ 	AvFILLp(ary) += diff;
+ 
+@@ -5584,6 +5586,8 @@ PP(pp_splice)
+ 		while (length-- > 0)
+ 		    SvREFCNT_dec(tmparyval[length]);
+ 	    }
++	    if (!*MARK)
++		*MARK = &PL_sv_undef;
+ 	}
+ 	else
+ 	    *MARK = &PL_sv_undef;
+diff --git a/t/op/array.t b/t/op/array.t
+index 4f0a772..fb4e8c6 100644
+--- a/t/op/array.t
++++ b/t/op/array.t
+@@ -555,4 +555,21 @@ is $#foo, 3, 'assigning to arylen aliased in foreach(scalar $#arylen)';
+     is "@a", 'a b c', 'assigning to itself';
+ }
+ 
++# [perl #129164], [perl #129166], [perl #129167]
++# splice() with null array entries
++# These used to crash.
++$#a = -1; $#a++;
++() = 0-splice @a; # subtract
++$#a = -1; $#a++;
++() =  -splice @a; # negate
++$#a = -1; $#a++;
++() = 0+splice @a; # add
++# And with array expansion, too
++$#a = -1; $#a++;
++() = 0-splice @a, 0, 1, 1, 1;
++$#a = -1; $#a++;
++() =  -splice @a, 0, 1, 1, 1;
++$#a = -1; $#a++;
++() = 0+splice @a, 0, 1, 1, 1;
++
+ "We're included by lib/Tie/Array/std.t so we need to return something true";
+-- 
+2.7.4
+
diff --git a/perl-5.24.0-perl-129788-IO-Poll-fix-memory-leak.patch b/perl-5.24.0-perl-129788-IO-Poll-fix-memory-leak.patch
new file mode 100644
index 0000000..aa6f20f
--- /dev/null
+++ b/perl-5.24.0-perl-129788-IO-Poll-fix-memory-leak.patch
@@ -0,0 +1,134 @@
+From 478d23ef9e7700e20a75907648dd4c53b1b4f544 Mon Sep 17 00:00:00 2001
+From: Tony Cook <tony@develop-help.com>
+Date: Tue, 25 Oct 2016 16:17:18 +1100
+Subject: [PATCH] (perl #129788) IO::Poll: fix memory leak
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+Petr Pisar: Ported to 5.24.0:
+
+commit 6de2dd46140d0d3ab6813e26940d7b74418b0260
+Author: Tony Cook <tony@develop-help.com>
+Date:   Tue Oct 25 16:17:18 2016 +1100
+
+    (perl #129788) IO::Poll: fix memory leak
+
+    Whenever a magical/tied scalar which dies upon read was passed to _poll()
+    temporary buffer for events was not freed.
+
+    Adapted from a patch by Sergey Aleynikov <sergey.aleynikov@gmail.com>
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ MANIFEST            |  1 +
+ META.json           |  1 +
+ META.yml            |  1 +
+ dist/IO/IO.xs       |  3 +--
+ dist/IO/t/io_leak.t | 37 +++++++++++++++++++++++++++++++++++++
+ 5 files changed, 41 insertions(+), 2 deletions(-)
+ create mode 100644 dist/IO/t/io_leak.t
+
+diff --git a/MANIFEST b/MANIFEST
+index 2cdf616..3b5f8fb 100644
+--- a/MANIFEST
++++ b/MANIFEST
+@@ -3228,6 +3228,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_export.t	Test IO::File exports
+ dist/IO/t/io_file.t		See if binmode()-related methods on IO::File work
++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
+ dist/IO/t/io_pipe.t		See if pipe()-related methods from IO work
+diff --git a/META.json b/META.json
+index 4cb21a9..2809b58 100644
+--- a/META.json
++++ b/META.json
+@@ -84,6 +84,7 @@
+          "dist/IO/t/io_dup.t",
+          "dist/IO/t/io_file.t",
+          "dist/IO/t/io_file_export.t",
++         "dist/IO/t/io_leak.t",
+          "dist/IO/t/io_linenum.t",
+          "dist/IO/t/io_multihomed.t",
+          "dist/IO/t/io_pipe.t",
+diff --git a/META.yml b/META.yml
+index 13a2bb3..7494d2a 100644
+--- a/META.yml
++++ b/META.yml
+@@ -81,6 +81,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_leak.t
+     - dist/IO/t/io_linenum.t
+     - dist/IO/t/io_multihomed.t
+     - dist/IO/t/io_pipe.t
+diff --git a/dist/IO/IO.xs b/dist/IO/IO.xs
+index fe749a6..15ef9b2 100644
+--- a/dist/IO/IO.xs
++++ b/dist/IO/IO.xs
+@@ -318,7 +318,7 @@ PPCODE:
+ {
+ #ifdef HAS_POLL
+     const int nfd = (items - 1) / 2;
+-    SV *tmpsv = NEWSV(999,nfd * sizeof(struct pollfd));
++    SV *tmpsv = sv_2mortal(NEWSV(999,nfd * sizeof(struct pollfd)));
+     /* We should pass _some_ valid pointer even if nfd is zero, but it
+      * doesn't matter what it is, since we're telling it to not check any fds.
+      */
+@@ -337,7 +337,6 @@ PPCODE:
+ 	    sv_setiv(ST(i), fds[j].revents); i++;
+ 	}
+     }
+-    SvREFCNT_dec(tmpsv);
+     XSRETURN_IV(ret);
+ #else
+ 	not_here("IO::Poll::poll");
+diff --git a/dist/IO/t/io_leak.t b/dist/IO/t/io_leak.t
+new file mode 100644
+index 0000000..08cbe2b
+--- /dev/null
++++ b/dist/IO/t/io_leak.t
+@@ -0,0 +1,37 @@
++#!/usr/bin/perl
++
++use warnings;
++use strict;
++
++use Test::More;
++
++eval { require XS::APItest; XS::APItest->import('sv_count'); 1 }
++  or plan skip_all => "No XS::APItest::sv_count() available";
++
++plan tests => 1;
++
++sub leak {
++    my ($n, $delta, $code, $name) = @_;
++    my $sv0 = 0;
++    my $sv1 = 0;
++    for my $i (1..$n) {
++	&$code();
++	$sv1 = sv_count();
++	$sv0 = $sv1 if $i == 1;
++    }
++    cmp_ok($sv1-$sv0, '<=', ($n-1)*$delta, $name);
++}
++
++# [perl #129788] IO::Poll shouldn't leak on errors
++{
++    package io_poll_leak;
++    use IO::Poll;
++
++    sub TIESCALAR { bless {} }
++    sub FETCH { die }
++
++    tie(my $a, __PACKAGE__);
++    sub f {eval { IO::Poll::_poll(0, $a, 1) }}
++
++    ::leak(5, 0, \&f, q{IO::Poll::_poll shouldn't leak});
++}
+-- 
+2.7.4
+
diff --git a/perl-5.24.0-regcomp.c-fix-perl-129950-fix-firstchar-bitmap-under.patch b/perl-5.24.0-regcomp.c-fix-perl-129950-fix-firstchar-bitmap-under.patch
new file mode 100644
index 0000000..82eeea6
--- /dev/null
+++ b/perl-5.24.0-regcomp.c-fix-perl-129950-fix-firstchar-bitmap-under.patch
@@ -0,0 +1,97 @@
+From 1b90dad20879f0e7a3eced5da0e0aacda93708ed Mon Sep 17 00:00:00 2001
+From: Yves Orton <demerphq@gmail.com>
+Date: Thu, 27 Oct 2016 13:52:24 +0200
+Subject: [PATCH] regcomp.c: fix perl #129950 - fix firstchar bitmap under utf8
+ with prefix optimisation
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+Ported to 5.24.0:
+
+commit da42332b10691ba7af7550035ffc7f46c87e4e66
+Author: Yves Orton <demerphq@gmail.com>
+Date:   Thu Oct 27 13:52:24 2016 +0200
+
+    regcomp.c: fix perl #129950 - fix firstchar bitmap under utf8 with prefix optimisation
+
+    The trie code contains a number of sub optimisations, one of which
+    extracts common prefixes from alternations, and another which isa
+    bitmap of the possible matching first chars.
+
+    The bitmap needs to contain the possible first octets of the string
+    which the trie can match, and for codepoints which might have a different
+    first octet under utf8 or non-utf8 need to register BOTH codepoints.
+
+    So for instance in the pattern (?:a|a\x{E4}) we should restructure this
+    as a(|\x{E4), and the bitmap for the trie should contain both \x{E4} AND
+    \x{C3} as \x{C3} is the first byte of \x{EF} expressed as utf8.
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ regcomp.c  | 14 ++++++++++++++
+ t/re/pat.t |  9 ++++++++-
+ 2 files changed, 22 insertions(+), 1 deletion(-)
+
+diff --git a/regcomp.c b/regcomp.c
+index 7462885..bcb8db5 100644
+--- a/regcomp.c
++++ b/regcomp.c
+@@ -3272,6 +3272,13 @@ S_make_trie(pTHX_ RExC_state_t *pRExC_state, regnode *startbranch,
+                                     TRIE_BITMAP_SET(trie,*ch);
+                                     if ( folder )
+                                         TRIE_BITMAP_SET(trie, folder[ *ch ]);
++                                    if ( !UTF ) {
++                                        /* store first byte of utf8 representation of
++                                           variant codepoints */
++                                        if (! UVCHR_IS_INVARIANT(*ch)) {
++                                            TRIE_BITMAP_SET(trie, UTF8_TWO_BYTE_HI(*ch));
++                                        }
++                                    }
+                                     DEBUG_OPTIMISE_r(
+                                         Perl_re_printf( aTHX_  "%s", (char*)ch)
+                                     );
+@@ -3280,6 +3287,13 @@ S_make_trie(pTHX_ RExC_state_t *pRExC_state, regnode *startbranch,
+ 			    TRIE_BITMAP_SET(trie,*ch);
+ 			    if ( folder )
+ 				TRIE_BITMAP_SET(trie,folder[ *ch ]);
++                            if ( !UTF ) {
++                                /* store first byte of utf8 representation of
++                                   variant codepoints */
++                                if (! UVCHR_IS_INVARIANT(*ch)) {
++                                    TRIE_BITMAP_SET(trie, UTF8_TWO_BYTE_HI(*ch));
++                                }
++                            }
+                             DEBUG_OPTIMISE_r(Perl_re_printf( aTHX_ "%s", ch));
+ 			}
+                         idx = ofs;
+diff --git a/t/re/pat.t b/t/re/pat.t
+index 295a9f7..4aa77cf 100644
+--- a/t/re/pat.t
++++ b/t/re/pat.t
+@@ -23,7 +23,7 @@ BEGIN {
+     skip_all_without_unicode_tables();
+ }
+ 
+-plan tests => 789;  # Update this when adding/deleting tests.
++plan tests => 791;  # Update this when adding/deleting tests.
+ 
+ run_tests() unless caller;
+ 
+@@ -1758,6 +1758,13 @@ EOP
+                 fresh_perl_is($code, $expect, {}, "$bug - $test_name" );
+             }
+         }
++
++        {
++            my $str = "a\xE4";
++            ok( $str =~ m{^(a|a\x{e4})$}, "fix [perl #129950] - latin1 case" );
++            utf8::upgrade($str);
++            ok( $str =~ m{^(a|a\x{e4})$}, "fix [perl #129950] - utf8 case" );
++        }
+ } # End of sub run_tests
+ 
+ 1;
+-- 
+2.7.4
+
diff --git a/perl-5.24.0-rt-129336-perl-i-u-erroneously-interpreted-as-u.patch b/perl-5.24.0-rt-129336-perl-i-u-erroneously-interpreted-as-u.patch
new file mode 100644
index 0000000..6438669
--- /dev/null
+++ b/perl-5.24.0-rt-129336-perl-i-u-erroneously-interpreted-as-u.patch
@@ -0,0 +1,92 @@
+From 03fcc0c44bc7972f2c92736daae5b63d601b7c49 Mon Sep 17 00:00:00 2001
+From: Dan Collins <dcollinsn@gmail.com>
+Date: Fri, 23 Sep 2016 01:21:20 -0400
+Subject: [PATCH] [rt #129336] #!perl -i u erroneously interpreted as -u
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+Ported to 5.24.0:
+
+commit f54cfdacff1f3744ef08fc70f1f3bc6c7d862e83
+Author: Dan Collins <dcollinsn@gmail.com>
+Date:   Fri Sep 23 01:21:20 2016 -0400
+
+    [rt #129336] #!perl -i u erroneously interpreted as -u
+
+    Perl_moreswitches processes a single switch, and returns a pointer
+    to the start of the next switch. It can return either
+    the a pointer to the next flag itself:
+
+        #!perl -n -p
+                   ^ Can point here
+
+    Or, to the space before the next "arg":
+
+        #!perl -n -p
+                 ^ Can point here
+
+    (Where the next call to Perl_moreswitches will consume " -".)
+
+    In the case of -i[extension], the pointer is by default pointing at
+    the space after the end of the argument. The current code tries to
+    do the former, by unconditionally advancing the pointer, and then
+    advancing it again if it is on a '-'. But that is incorrect:
+
+        #!perl -i p
+                  ^ Will point here, but that isn't a flag
+
+    I could fix this by removing the unconditional s++, and having it
+    increment by 2 if *(s+1)=='-', but this work isn't actually
+    necessary - it's better to just leave it pointing at the space after
+    the argument.
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ perl.c     | 5 -----
+ t/op/lex.t | 9 ++++++++-
+ 2 files changed, 8 insertions(+), 6 deletions(-)
+
+diff --git a/perl.c b/perl.c
+index 228a0d8..5cc7d0b 100644
+--- a/perl.c
++++ b/perl.c
+@@ -3306,11 +3306,6 @@ Perl_moreswitches(pTHX_ const char *s)
+ 
+ 	    PL_inplace = savepvn(start, s - start);
+ 	}
+-	if (*s) {
+-	    ++s;
+-	    if (*s == '-')	/* Additional switches on #! line. */
+-		s++;
+-	}
+ 	return s;
+     case 'I':	/* -I handled both here and in parse_body() */
+ 	forbid_setid('I', FALSE);
+diff --git a/t/op/lex.t b/t/op/lex.t
+index c515449..9ada592 100644
+--- a/t/op/lex.t
++++ b/t/op/lex.t
+@@ -7,7 +7,7 @@ use warnings;
+ 
+ BEGIN { chdir 't' if -d 't'; require './test.pl'; }
+ 
+-plan(tests => 26);
++plan(tests => 27);
+ 
+ {
+     no warnings 'deprecated';
+@@ -209,3 +209,10 @@ fresh_perl_is(
+    { stderr => 1 },
+   's;@{<<a; [perl #123995]'
+ );
++
++fresh_perl_like(
++    "#!perl -i u\nprint 'OK'",
++    qr/OK/,
++    {},
++    '[perl #129336] - #!perl -i argument handling'
++);
+-- 
+2.7.4
+
diff --git a/perl-5.24.0-split-was-leaving-PL_sv_undef-in-unused-ary-slots.patch b/perl-5.24.0-split-was-leaving-PL_sv_undef-in-unused-ary-slots.patch
new file mode 100644
index 0000000..7f9de6d
--- /dev/null
+++ b/perl-5.24.0-split-was-leaving-PL_sv_undef-in-unused-ary-slots.patch
@@ -0,0 +1,94 @@
+From 27a8a9e2a55ccc148582006396a9c35bafa5f0b3 Mon Sep 17 00:00:00 2001
+From: David Mitchell <davem@iabyn.com>
+Date: Wed, 30 Nov 2016 08:59:01 +0000
+Subject: [PATCH] split was leaving PL_sv_undef in unused ary slots
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+Petr Pisar: Ported to 5.24.0:
+
+commit 71ca73e5fa9639ac33e9f2e74cd0c32288a5040d
+Author: David Mitchell <davem@iabyn.com>
+Date:   Wed Nov 30 08:59:01 2016 +0000
+
+    split was leaving PL_sv_undef in unused ary slots
+
+    This:
+
+        @a = split(/-/,"-");
+        $a[1] = undef;
+        $a[0] = 0;
+
+    was giving
+
+        Modification of a read-only value attempted at foo line 3.
+
+    This is because:
+
+    1) unused slots in AvARRAY between AvFILL and AvMAX should always be
+    null; av_clear(), av_extend() etc do this; while av_store(), if storing
+    to a slot N somewhere between AvFILL and AvMAX, doesn't bother to clear
+    between (AvFILL+1)..(N-1) on the assumption that everyone else plays
+    nicely.
+
+    2) pp_split() when splitting directly to an array, sometimes over-splits
+    and has to null out the excess elements;
+
+    3) Since perl 5.19.4, unused AV slots are now marked with NULL rather than
+    &PL_sv_undef;
+
+    4) pp_split was still using &PL_sv_undef;
+
+    The fault was with (4), and is easily fixed.
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ pp.c         |  2 +-
+ t/op/split.t | 13 ++++++++++++-
+ 2 files changed, 13 insertions(+), 2 deletions(-)
+
+diff --git a/pp.c b/pp.c
+index 4153482..70345ce 100644
+--- a/pp.c
++++ b/pp.c
+@@ -6212,7 +6212,7 @@ PP(pp_split)
+ 	    while (iters > 0 && (!TOPs || !SvANY(TOPs) || SvCUR(TOPs) == 0)) {
+ 		if (TOPs && !make_mortal)
+ 		    sv_2mortal(TOPs);
+-		*SP-- = &PL_sv_undef;
++		*SP-- = NULL;
+ 		iters--;
+ 	    }
+ 	}
+diff --git a/t/op/split.t b/t/op/split.t
+index fb73271..b7846a1 100644
+--- a/t/op/split.t
++++ b/t/op/split.t
+@@ -7,7 +7,7 @@ BEGIN {
+     set_up_inc('../lib');
+ }
+ 
+-plan tests => 131;
++plan tests => 133;
+ 
+ $FS = ':';
+ 
+@@ -523,3 +523,14 @@ is "@a", '1 2 3', 'assignment to split-to-array (pmtarget/package array)';
+ }
+ (@{\@a} = split //, "abc") = 1..10;
+ is "@a", '1 2 3', 'assignment to split-to-array (stacked)';
++
++# splitting directly to an array wasn't filling unused AvARRAY slots with
++# NULL
++
++{
++    my @a;
++    @a = split(/-/,"-");
++    $a[1] = 'b';
++    ok eval { $a[0] = 'a'; 1; }, "array split filling AvARRAY: assign 0";
++    is "@a", "a b", "array split filling AvARRAY: result";
++}
+-- 
+2.7.4
+
diff --git a/perl-5.24.1-Fix-memory-leak-in-B-RHE-HASH-method.patch b/perl-5.24.1-Fix-memory-leak-in-B-RHE-HASH-method.patch
new file mode 100644
index 0000000..3769416
--- /dev/null
+++ b/perl-5.24.1-Fix-memory-leak-in-B-RHE-HASH-method.patch
@@ -0,0 +1,65 @@
+From 3c38abae50c05c6f3c9f7eca561ec08c62fba1ba Mon Sep 17 00:00:00 2001
+From: Sergey Aleynikov <sergey.aleynikov@gmail.com>
+Date: Thu, 5 Jan 2017 01:33:32 +0300
+Subject: [PATCH] Fix memory leak in B::RHE->HASH method.
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+Petr Písař: Ported to 5.24.1:
+
+commit 4b6e9aa6aa2256da1ec7ed08f819cbf5d1463741
+Author: Sergey Aleynikov <sergey.aleynikov@gmail.com>
+Date:   Thu Jan 5 01:33:32 2017 +0300
+
+    Fix memory leak in B::RHE->HASH method.
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ ext/B/B.xs    |  2 +-
+ t/op/svleak.t | 12 +++++++++++-
+ 2 files changed, 12 insertions(+), 2 deletions(-)
+
+diff --git a/ext/B/B.xs b/ext/B/B.xs
+index b4b6a40..e859d7d 100644
+--- a/ext/B/B.xs
++++ b/ext/B/B.xs
+@@ -2179,7 +2179,7 @@ SV*
+ HASH(h)
+ 	B::RHE h
+     CODE:
+-	RETVAL = newRV( (SV*)cophh_2hv(h, 0) );
++	RETVAL = newRV_noinc( (SV*)cophh_2hv(h, 0) );
+     OUTPUT:
+ 	RETVAL
+ 
+diff --git a/t/op/svleak.t b/t/op/svleak.t
+index c18f498..b0692ff 100644
+--- a/t/op/svleak.t
++++ b/t/op/svleak.t
+@@ -15,7 +15,7 @@ BEGIN {
+ 
+ use Config;
+ 
+-plan tests => 132;
++plan tests => 133;
+ 
+ # run some code N times. If the number of SVs at the end of loop N is
+ # greater than (N-1)*delta at the end of loop 1, we've got a leak
+@@ -547,3 +547,13 @@ EOF
+     sub f { $a =~ /[^.]+$b/; }
+     ::leak(2, 0, \&f, q{use re 'strict' shouldn't leak warning strings});
+ }
++
++# check that B::RHE->HASH does not leak
++{
++    package BHINT;
++    sub foo {}
++    require B;
++    my $op = B::svref_2object(\&foo)->ROOT->first;
++    sub lk { { my $d = $op->hints_hash->HASH } }
++    ::leak(3, 0, \&lk, q!B::RHE->HASH shoudln't leak!);
++}
+-- 
+2.7.4
+
diff --git a/perl-5.24.1-RT-130624-heap-use-after-free-in-4-arg-substr.patch b/perl-5.24.1-RT-130624-heap-use-after-free-in-4-arg-substr.patch
new file mode 100644
index 0000000..f018778
--- /dev/null
+++ b/perl-5.24.1-RT-130624-heap-use-after-free-in-4-arg-substr.patch
@@ -0,0 +1,70 @@
+From 4e0fb37303b72ed9d38949139c304abdb73e223e Mon Sep 17 00:00:00 2001
+From: Aaron Crane <arc@cpan.org>
+Date: Tue, 24 Jan 2017 23:39:40 +0000
+Subject: [PATCH] RT#130624: heap-use-after-free in 4-arg substr
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+Ported to 5.24.1:
+
+commit 41b1e858a075694f88057b9514f5fc78c80b5355
+Author: Aaron Crane <arc@cpan.org>
+Date:   Tue Jan 24 23:39:40 2017 +0000
+
+    RT#130624: heap-use-after-free in 4-arg substr
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ pp.c          |  4 +++-
+ t/op/substr.t | 14 +++++++++++++-
+ 2 files changed, 16 insertions(+), 2 deletions(-)
+
+diff --git a/pp.c b/pp.c
+index 334b353..aa6cff0 100644
+--- a/pp.c
++++ b/pp.c
+@@ -3462,8 +3462,10 @@ PP(pp_substr)
+ 	tmps = SvPV_force_nomg(sv, curlen);
+ 	if (DO_UTF8(repl_sv) && repl_len) {
+ 	    if (!DO_UTF8(sv)) {
++                /* Upgrade the dest, and recalculate tmps in case the buffer
++                 * got reallocated; curlen may also have been changed */
+ 		sv_utf8_upgrade_nomg(sv);
+-		curlen = SvCUR(sv);
++		tmps = SvPV_nomg(sv, curlen);
+ 	    }
+ 	}
+ 	else if (DO_UTF8(sv))
+diff --git a/t/op/substr.t b/t/op/substr.t
+index 01c36a9..f9fee48 100644
+--- a/t/op/substr.t
++++ b/t/op/substr.t
+@@ -22,7 +22,7 @@ $SIG{__WARN__} = sub {
+      }
+ };
+ 
+-plan(389);
++plan(391);
+ 
+ run_tests() unless caller;
+ 
+@@ -872,3 +872,15 @@ is($destroyed, 1, 'Timely scalar destruction with lvalue substr');
+ 
+ # failed with ASAN
+ fresh_perl_is('$0 = "/usr/bin/perl"; substr($0, 0, 0, $0)', '', {}, "(perl #129340) substr() with source in target");
++
++
++# [perl #130624] - heap-use-after-free, observable under asan
++{
++    my $x = "\xE9zzzz";
++    my $y = "\x{100}";
++    my $z = substr $x, 0, 1, $y;
++    is $z, "\xE9",        "RT#130624: heap-use-after-free in 4-arg substr (ret)";
++    is $x, "\x{100}zzzz", "RT#130624: heap-use-after-free in 4-arg substr (targ)";
++}
++
++
+-- 
+2.7.4
+
diff --git a/perl-5.24.1-buffer-overrun-with-format-and-use-bytes.patch b/perl-5.24.1-buffer-overrun-with-format-and-use-bytes.patch
new file mode 100644
index 0000000..8e9d245
--- /dev/null
+++ b/perl-5.24.1-buffer-overrun-with-format-and-use-bytes.patch
@@ -0,0 +1,93 @@
+From fd25d49cae6409a4ce901fd4d899a197541604b3 Mon Sep 17 00:00:00 2001
+From: David Mitchell <davem@iabyn.com>
+Date: Sat, 4 Feb 2017 15:10:49 +0000
+Subject: [PATCH] buffer overrun with format and 'use bytes'
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+Ported to 5.24.1:
+
+commit e452bf1c9e9f30813b1f289188a6e8b0894575ba
+Author: David Mitchell <davem@iabyn.com>
+Date:   Sat Feb 4 15:10:49 2017 +0000
+
+    buffer overrun with format and 'use bytes'
+
+    RT #130703
+
+    In the scope of 'use bytes', appending a string to a format where the
+    format is utf8 and the string is non-utf8 but contains lots of chars
+    with ords >= 128, the buffer could be overrun. This is due to all the
+    \x80-type chars going from being stored as 1 bytes to 2 bytes, without
+    growing PL_formtarget accordingly.
+
+    This commit contains a minimal fix; the next commit will more generally
+    tidy up the grow code in pp_formline.
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ pp_ctl.c     |  3 +++
+ t/op/write.t | 18 +++++++++++++++++-
+ 2 files changed, 20 insertions(+), 1 deletion(-)
+
+diff --git a/pp_ctl.c b/pp_ctl.c
+index a1fc2f4..4d5ef2e 100644
+--- a/pp_ctl.c
++++ b/pp_ctl.c
+@@ -505,6 +505,8 @@ PP(pp_formline)
+ 	SvTAINTED_on(PL_formtarget);
+     if (DO_UTF8(PL_formtarget))
+ 	targ_is_utf8 = TRUE;
++    /* this is an initial estimate of how much output buffer space
++     * to allocate. It may be exceeded later */
+     linemax = (SvCUR(formsv) * (IN_BYTES ? 1 : 3) + 1);
+     t = SvGROW(PL_formtarget, len + linemax + 1);
+     /* XXX from now onwards, SvCUR(PL_formtarget) is invalid */
+@@ -766,6 +768,7 @@ PP(pp_formline)
+ 
+ 		if (targ_is_utf8 && !item_is_utf8) {
+ 		    source = tmp = bytes_to_utf8(source, &to_copy);
++                    grow = to_copy;
+ 		} else {
+ 		    if (item_is_utf8 && !targ_is_utf8) {
+ 			U8 *s;
+diff --git a/t/op/write.t b/t/op/write.t
+index ab2733f..ae4ddb5 100644
+--- a/t/op/write.t
++++ b/t/op/write.t
+@@ -98,7 +98,7 @@ for my $tref ( @NumTests ){
+ my $bas_tests = 21;
+ 
+ # number of tests in section 3
+-my $bug_tests = 66 + 3 * 3 * 5 * 2 * 3 + 2 + 66 + 6 + 2 + 3 + 96 + 11 + 3;
++my $bug_tests = 66 + 3 * 3 * 5 * 2 * 3 + 2 + 66 + 6 + 2 + 3 + 96 + 11 + 4;
+ 
+ # number of tests in section 4
+ my $hmb_tests = 37;
+@@ -1562,6 +1562,22 @@ ok  defined *{$::{CmT}}{FORMAT}, "glob assign";
+     formline $format, $orig, 12345;
+     is $^A, ("x" x 100) . " 12345\n", "\@* doesn't overflow";
+ 
++    # ...nor this (RT #130703).
++    # Under 'use bytes', the two bytes (c2, 80) making up each \x80 char
++    # each get expanded to two bytes (so four in total per \x80 char); the
++    # buffer growth wasn't accounting for this doubling in size
++
++    {
++        local $^A = '';
++        my $format = "X\n\x{100}" . ("\x80" x 200);
++        my $expected = $format;
++        utf8::encode($expected);
++        use bytes;
++        formline($format);
++        is $^A, $expected, "RT #130703";
++    }
++
++
+     # make sure it can cope with formats > 64k
+ 
+     $format = 'x' x 65537;
+-- 
+2.7.4
+
diff --git a/perl-5.24.1-don-t-call-Perl_fbm_instr-with-negative-length.patch b/perl-5.24.1-don-t-call-Perl_fbm_instr-with-negative-length.patch
new file mode 100644
index 0000000..08fb660
--- /dev/null
+++ b/perl-5.24.1-don-t-call-Perl_fbm_instr-with-negative-length.patch
@@ -0,0 +1,116 @@
+From b0254cedee2517d2705070839549189cf9f72db4 Mon Sep 17 00:00:00 2001
+From: David Mitchell <davem@iabyn.com>
+Date: Fri, 16 Jun 2017 15:46:19 +0100
+Subject: [PATCH] don't call Perl_fbm_instr() with negative length
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+Ported to 5.24.1:
+
+commit bb152a4b442f7718fd37d32cc558be675e8ae1ae
+Author: David Mitchell <davem@iabyn.com>
+Date:   Fri Jun 16 15:46:19 2017 +0100
+
+    don't call Perl_fbm_instr() with negative length
+
+    RT #131575
+
+    re_intuit_start() could calculate a maximum end position less than the
+    current start position. This used to get rejected by fbm_intr(), until
+    v5.23.3-110-g147f21b, which made fbm_intr() faster and removed unnecessary
+    checks.
+
+    This commits fixes re_intuit_start(), and adds an assert to  fbm_intr().
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ regexec.c  | 17 +++++++++++------
+ t/re/pat.t | 13 ++++++++++++-
+ util.c     |  2 ++
+ 3 files changed, 25 insertions(+), 7 deletions(-)
+
+diff --git a/regexec.c b/regexec.c
+index f1a52ab..3080880 100644
+--- a/regexec.c
++++ b/regexec.c
+@@ -127,13 +127,16 @@ static const char* const non_utf8_target_but_utf8_required
+                     (U8*)(off >= 0 ? reginfo->strend : reginfo->strbeg)) \
+ 	    : (U8*)(pos + off))
+ 
+-#define HOPBACKc(pos, off) \
+-	(char*)(reginfo->is_utf8_target \
+-	    ? reghopmaybe3((U8*)pos, (SSize_t)0-off, (U8*)(reginfo->strbeg)) \
+-	    : (pos - off >= reginfo->strbeg)	\
+-		? (U8*)pos - off		\
++/* like HOPMAYBE3 but backwards. lim must be +ve. Returns NULL on overshoot */
++#define HOPBACK3(pos, off, lim) \
++	(reginfo->is_utf8_target                          \
++	    ? reghopmaybe3((U8*)pos, (SSize_t)0-off, (U8*)(lim)) \
++	    : (pos - off >= lim)	                         \
++		? (U8*)pos - off		                 \
+ 		: NULL)
+ 
++#define HOPBACKc(pos, off) ((char*)HOPBACK3(pos, off, reginfo->strbeg))
++
+ #define HOP3(pos,off,lim) (reginfo->is_utf8_target  ? reghop3((U8*)(pos), off, (U8*)(lim)) : (U8*)(pos + off))
+ #define HOP3c(pos,off,lim) ((char*)HOP3(pos,off,lim))
+ 
+@@ -871,7 +874,9 @@ Perl_re_intuit_start(pTHX_
+                 (IV)prog->check_end_shift);
+         });
+         
+-        end_point = HOP3(strend, -end_shift, strbeg);
++        end_point = HOPBACK3(strend, end_shift, rx_origin);
++        if (!end_point)
++            goto fail_finish;
+         start_point = HOPMAYBE3(rx_origin, start_shift, end_point);
+         if (!start_point)
+             goto fail_finish;
+diff --git a/t/re/pat.t b/t/re/pat.t
+index 50529b8..007f11d 100644
+--- a/t/re/pat.t
++++ b/t/re/pat.t
+@@ -23,7 +23,7 @@ BEGIN {
+     skip_all_without_unicode_tables();
+ }
+ 
+-plan tests => 793;  # Update this when adding/deleting tests.
++plan tests => 794;  # Update this when adding/deleting tests.
+ 
+ run_tests() unless caller;
+ 
+@@ -1783,6 +1783,17 @@ EOP
+         # [perl #129281] buffer write overflow, detected by ASAN, valgrind
+         fresh_perl_is('/0(?0)|^*0(?0)|^*(^*())0|/', '', {}, "don't bump whilem_c too much");
+     }
++
++    {
++        # RT #131575 intuit skipping back from the end to find the highest
++        # possible start point, was potentially hopping back beyond pos()
++        # and crashing by calling fbm_instr with a negative length
++
++        my $text = "=t=\x{5000}";
++        pos($text) = 3;
++        ok(scalar($text !~ m{(~*=[a-z]=)}g), "RT #131575");
++    }
++
+ } # End of sub run_tests
+ 
+ 1;
+diff --git a/util.c b/util.c
+index df75db0..bc265f5 100644
+--- a/util.c
++++ b/util.c
+@@ -806,6 +806,8 @@ Perl_fbm_instr(pTHX_ unsigned char *big, unsigned char *bigend, SV *littlestr, U
+ 
+     PERL_ARGS_ASSERT_FBM_INSTR;
+ 
++    assert(bigend >= big);
++
+     if ((STRLEN)(bigend - big) < littlelen) {
+ 	if ( SvTAIL(littlestr)
+ 	     && ((STRLEN)(bigend - big) == littlelen - 1)
+-- 
+2.9.4
+
diff --git a/perl-5.24.1-fix-RT-130561-recursion-and-optimising-away-impossib.patch b/perl-5.24.1-fix-RT-130561-recursion-and-optimising-away-impossib.patch
new file mode 100644
index 0000000..2a2e6b2
--- /dev/null
+++ b/perl-5.24.1-fix-RT-130561-recursion-and-optimising-away-impossib.patch
@@ -0,0 +1,93 @@
+From fbb9dc823a06b4815ee8fd8632fc475b8034e379 Mon Sep 17 00:00:00 2001
+From: Yves Orton <demerphq@gmail.com>
+Date: Fri, 27 Jan 2017 10:18:51 +0100
+Subject: [PATCH] fix RT #130561 - recursion and optimising away impossible
+ quantifiers are not friends
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+Ported to 5.24.1:
+
+commit 31fc93954d1f379c7a49889d91436ce99818e1f6
+Author: Yves Orton <demerphq@gmail.com>
+Date:   Fri Jan 27 10:18:51 2017 +0100
+
+    fix RT #130561 - recursion and optimising away impossible quantifiers are not friends
+
+    Instead of optimising away impossible quantifiers like (foo){1,0} treat them
+    as unquantified, and guard them with an OPFAIL. Thus /(foo){1,0}/ is treated
+    the same as /(*FAIL)(foo)/ this is important in patterns like /(foo){1,0}|(?1)/
+    where the (?1) needs to be able to recurse into the (foo) even though the
+    (foo){1,0} can never match. It also resolves various issues (SEGVs) with patterns
+    like /((?1)){1,0}/.
+
+    This patch would have been easier if S_reginsert() documented that it is
+    the callers responsibility to properly set up the NEXT_OFF() of the inserted
+    node (if the node has a NEXT_OFF())
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ regcomp.c            | 14 +++-----------
+ t/re/pat_rt_report.t | 11 ++++++++++-
+ 2 files changed, 13 insertions(+), 12 deletions(-)
+
+diff --git a/regcomp.c b/regcomp.c
+index bcb8db5..9f343d3 100644
+--- a/regcomp.c
++++ b/regcomp.c
+@@ -11497,19 +11497,11 @@ S_regpiece(pTHX_ RExC_state_t *pRExC_state, I32 *flagp, U32 depth)
+ 	    nextchar(pRExC_state);
+             if (max < min) {    /* If can't match, warn and optimize to fail
+                                    unconditionally */
+-                if (SIZE_ONLY) {
+-
+-                    /* We can't back off the size because we have to reserve
+-                     * enough space for all the things we are about to throw
+-                     * away, but we can shrink it by the amount we are about
+-                     * to re-use here */
+-                    RExC_size += PREVOPER(RExC_size) - regarglen[(U8)OPFAIL];
+-                }
+-                else {
++                if (PASS2) {
+                     ckWARNreg(RExC_parse, "Quantifier {n,m} with n > m can't match");
+-                    RExC_emit = orig_emit;
+                 }
+-                ret = reganode(pRExC_state, OPFAIL, 0);
++                reginsert(pRExC_state, OPFAIL, orig_emit, depth+1);
++                NEXT_OFF(orig_emit)= regarglen[OPFAIL] + NODE_STEP_REGNODE;
+                 return ret;
+             }
+             else if (min == max && *RExC_parse == '?')
+diff --git a/t/re/pat_rt_report.t b/t/re/pat_rt_report.t
+index cb02ad2..2c1dbc4 100644
+--- a/t/re/pat_rt_report.t
++++ b/t/re/pat_rt_report.t
+@@ -20,7 +20,7 @@ use warnings;
+ use 5.010;
+ use Config;
+ 
+-plan tests => 2500;  # Update this when adding/deleting tests.
++plan tests => 2502;  # Update this when adding/deleting tests.
+ 
+ run_tests() unless caller;
+ 
+@@ -1113,6 +1113,15 @@ EOP
+ 	my $s = "\x{1ff}" . "f" x 32;
+ 	ok($s =~ /\x{1ff}[[:alpha:]]+/gca, "POSIXA pointer wrap");
+     }
++    {
++        # rt
++        fresh_perl_is(
++            '"foo"=~/((?1)){8,0}/; print "ok"',
++            "ok", {},  'RT #130561 - allowing impossible quantifier should not cause SEGVs');
++        my $s= "foo";
++        ok($s=~/(foo){1,0}|(?1)/,
++            "RT #130561 - allowing impossible quantifier should not break recursion");
++    }
+ } # End of sub run_tests
+ 
+ 1;
+-- 
+2.7.4
+
diff --git a/perl-5.24.1-fix-pad-scope-issue-in-re_evals.patch b/perl-5.24.1-fix-pad-scope-issue-in-re_evals.patch
new file mode 100644
index 0000000..17c82b4
--- /dev/null
+++ b/perl-5.24.1-fix-pad-scope-issue-in-re_evals.patch
@@ -0,0 +1,198 @@
+From f3704e62341b10824f503aa0c8029670d101a434 Mon Sep 17 00:00:00 2001
+From: David Mitchell <davem@iabyn.com>
+Date: Sat, 11 Feb 2017 11:53:41 +0000
+Subject: [PATCH] fix pad/scope issue in re_evals
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+Ported to 5.24.1:
+commit 4b9c7caeaecf4e9df0be3a2e296644f763f775d6
+Author: David Mitchell <davem@iabyn.com>
+Date:   Sat Feb 11 11:53:41 2017 +0000
+
+    fix pad/scope issue in re_evals
+
+    RT #129881 heap-buffer-overflow Perl_pad_sv
+
+    In some circumstances involving a pattern which has embedded code blocks
+    from more than one source, e.g.
+
+        my $r = qr{(?{1;}){2}X};
+        "" =~ /$r|(?{1;})/;
+
+    the wrong PL_comppad could be active while doing a LEAVE_SCOPE() or on
+    exit from the pattern.
+
+    This was mainly due to the big context stack changes in 5.24.0 - in
+    particular, since POP_MULTICALL() now does CX_LEAVE_SCOPE(cx) *before*
+    restoring PL_comppad, the (correct) unwinding of any SAVECOMPPAD's was
+    being followed by C<PL_comppad = cx->blk_sub.prevcomppad>, which wasn't
+    necessarily a sensible value.
+
+    To fix this, record the value of PL_savestack_ix at entry to S_regmatch(),
+    and set the cx->blk_oldsaveix of the MULTICALL to this value when pushed.
+    On exit from S_regmatch, we either POP_MULTICALL which will do a
+    LEAVE_SCOPE(cx->blk_oldsaveix), or in the absense of any EVAL, do the
+    explicit but equivalent LEAVE_SCOPE(orig_savestack_ix).
+
+    Note that this is a change in behaviour to S_regmatch() - formerly it
+    wouldn't necessarily clear the savestack completely back the point of
+    entry - that would get left to do by its caller, S_regtry(), or indirectly
+    by Perl_regexec_flags(). This shouldn't make any practical difference, but
+    is tidier and less likely to introduce bugs later.
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ regexec.c          | 69 +++++++++++++++++++++++++++++++++++++++++++-----------
+ t/re/pat_re_eval.t | 20 +++++++++++++++-
+ 2 files changed, 74 insertions(+), 15 deletions(-)
+
+diff --git a/regexec.c b/regexec.c
+index a7bc0c3..5656cdd 100644
+--- a/regexec.c
++++ b/regexec.c
+@@ -5233,6 +5233,7 @@ S_regmatch(pTHX_ regmatch_info *reginfo, char *startpos, regnode *prog)
+     _char_class_number classnum;
+     bool is_utf8_pat = reginfo->is_utf8_pat;
+     bool match = FALSE;
++    I32 orig_savestack_ix = PL_savestack_ix;
+ 
+ /* Solaris Studio 12.3 messes up fetching PL_charclass['\n'] */
+ #if (defined(__SUNPRO_C) && (__SUNPRO_C == 0x5120) && defined(__x86_64) && defined(USE_64_BIT_ALL))
+@@ -6646,30 +6647,67 @@ S_regmatch(pTHX_ regmatch_info *reginfo, char *startpos, regnode *prog)
+ 		    nop = (OP*)rexi->data->data[n];
+ 		}
+ 
+-		/* normally if we're about to execute code from the same
+-		 * CV that we used previously, we just use the existing
+-		 * CX stack entry. However, its possible that in the
+-		 * meantime we may have backtracked, popped from the save
+-		 * stack, and undone the SAVECOMPPAD(s) associated with
+-		 * PUSH_MULTICALL; in which case PL_comppad no longer
+-		 * points to newcv's pad. */
++                /* Some notes about MULTICALL and the context and save stacks.
++                 *
++                 * In something like
++                 *   /...(?{ my $x)}...(?{ my $z)}...(?{ my $z)}.../
++                 * since codeblocks don't introduce a new scope (so that
++                 * local() etc accumulate), at the end of a successful
++                 * match there will be a SAVEt_CLEARSV on the savestack
++                 * for each of $x, $y, $z. If the three code blocks above
++                 * happen to have come from different CVs (e.g. via
++                 * embedded qr//s), then we must ensure that during any
++                 * savestack unwinding, PL_comppad always points to the
++                 * right pad at each moment. We achieve this by
++                 * interleaving SAVEt_COMPPAD's on the savestack whenever
++                 * there is a change of pad.
++                 * In theory whenever we call a code block, we should
++                 * push a CXt_SUB context, then pop it on return from
++                 * that code block. This causes a bit of an issue in that
++                 * normally popping a context also clears the savestack
++                 * back to cx->blk_oldsaveix, but here we specifically
++                 * don't want to clear the save stack on exit from the
++                 * code block.
++                 * Also for efficiency we don't want to keep pushing and
++                 * popping the single SUB context as we backtrack etc.
++                 * So instead, we push a single context the first time
++                 * we need, it, then hang onto it until the end of this
++                 * function. Whenever we encounter a new code block, we
++                 * update the CV etc if that's changed. During the times
++                 * in this function where we're not executing a code
++                 * block, having the SUB context still there is a bit
++                 * naughty - but we hope that no-one notices.
++                 * When the SUB context is initially pushed, we fake up
++                 * cx->blk_oldsaveix to be as if we'd pushed this context
++                 * on first entry to S_regmatch rather than at some random
++                 * point during the regexe execution. That way if we
++                 * croak, popping the context stack will ensure that
++                 * *everything* SAVEd by this function is undone and then
++                 * the context popped, rather than e.g., popping the
++                 * context (and restoring the original PL_comppad) then
++                 * popping more of the savestack and restoiring a bad
++                 * PL_comppad.
++                 */
++
++                /* If this is the first EVAL, push a MULTICALL. On
++                 * subsequent calls, if we're executing a different CV, or
++                 * if PL_comppad has got messed up from backtracking
++                 * through SAVECOMPPADs, then refresh the context.
++                 */
+ 		if (newcv != last_pushed_cv || PL_comppad != last_pad)
+ 		{
+                     U8 flags = (CXp_SUB_RE |
+                                 ((newcv == caller_cv) ? CXp_SUB_RE_FAKE : 0));
++                    SAVECOMPPAD();
+ 		    if (last_pushed_cv) {
+-                        /* PUSH/POP_MULTICALL save and restore the
+-                         * caller's PL_comppad; if we call multiple subs
+-                         * using the same CX block, we have to save and
+-                         * unwind the varying PL_comppad's ourselves,
+-                         * especially restoring the right PL_comppad on
+-                         * backtrack - so save it on the save stack */
+-                        SAVECOMPPAD();
+ 			CHANGE_MULTICALL_FLAGS(newcv, flags);
+ 		    }
+ 		    else {
+ 			PUSH_MULTICALL_FLAGS(newcv, flags);
+ 		    }
++                    /* see notes above */
++                    CX_CUR()->blk_oldsaveix = orig_savestack_ix;
++
+ 		    last_pushed_cv = newcv;
+ 		}
+ 		else {
+@@ -8456,9 +8494,12 @@ NULL
+ 
+     if (last_pushed_cv) {
+ 	dSP;
++        /* see "Some notes about MULTICALL" above */
+ 	POP_MULTICALL;
+         PERL_UNUSED_VAR(SP);
+     }
++    else
++        LEAVE_SCOPE(orig_savestack_ix);
+ 
+     assert(!result ||  locinput - reginfo->strbeg >= 0);
+     return result ?  locinput - reginfo->strbeg : -1;
+diff --git a/t/re/pat_re_eval.t b/t/re/pat_re_eval.t
+index e59b059..1a0b228 100644
+--- a/t/re/pat_re_eval.t
++++ b/t/re/pat_re_eval.t
+@@ -22,7 +22,7 @@ BEGIN {
+ }
+ 
+ 
+-plan tests => 527;  # Update this when adding/deleting tests.
++plan tests => 530;  # Update this when adding/deleting tests.
+ 
+ run_tests() unless caller;
+ 
+@@ -1232,6 +1232,24 @@ sub run_tests {
+ 	    'padtmp swiping does not affect "$a$b" =~ /(??{})/'
+     }
+ 
++    # RT #129881
++    # on exit from a pattern with multiple code blocks from different
++    # CVs, PL_comppad wasn't being restored correctly
++
++    sub {
++        # give first few pad slots known values
++        my ($x1, $x2, $x3, $x4, $x5) = 101..105;
++        # these vars are in a separate pad
++        my $r = qr/((?{my ($y1, $y2) = 201..202; 1;})A){2}X/;
++        # the first alt fails, causing a switch to this anon
++        # sub's pad
++        "AAA" =~ /$r|(?{my ($z1, $z2) = 301..302; 1;})A/;
++        is $x1, 101, "RT #129881: x1";
++        is $x2, 102, "RT #129881: x2";
++        is $x3, 103, "RT #129881: x3";
++    }->();
++
++
+ } # End of sub run_tests
+ 
+ 1;
+-- 
+2.7.4
+
diff --git a/perl-5.24.1-fix-special-case-recreation-of.patch b/perl-5.24.1-fix-special-case-recreation-of.patch
new file mode 100644
index 0000000..4d28a8d
--- /dev/null
+++ b/perl-5.24.1-fix-special-case-recreation-of.patch
@@ -0,0 +1,79 @@
+From 59ef97c7af81ab6faba749d88b558a55da41c249 Mon Sep 17 00:00:00 2001
+From: Zefram <zefram@fysh.org>
+Date: Sun, 22 Jan 2017 07:26:34 +0000
+Subject: [PATCH] fix special-case recreation of *::
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+Ported to 5.24.1:
+
+commit 120921acd4cf27bb932a725a8cf5c957652b22eb
+Author: Zefram <zefram@fysh.org>
+Date:   Sun Jan 22 07:26:34 2017 +0000
+
+    fix special-case recreation of *::
+
+    If *:: is called for then as a special case it is looked up as
+    $::{"main::"}.  If $::{"main::"} has been deleted, then that hash entry
+    is recreated.  But formerly it was only recreated as an undef scalar,
+    which broke things relying on glob lookup returning a glob.  Now in
+    that special case the recreated hash entry is initialised as a glob,
+    and populated with the customary recursive reference to the main stash.
+    Fixes [perl #129869].
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ gv.c         | 11 +++++++++--
+ t/op/stash.t |  9 ++++++++-
+ 2 files changed, 17 insertions(+), 3 deletions(-)
+
+diff --git a/gv.c b/gv.c
+index c89a3e7..3fda9b9 100644
+--- a/gv.c
++++ b/gv.c
+@@ -1642,8 +1642,15 @@ S_parse_gv_stash_name(pTHX_ HV **stash, GV **gv, const char **name,
+                 name_cursor++;
+             *name = name_cursor+1;
+             if (*name == name_end) {
+-                if (!*gv)
+-                    *gv = MUTABLE_GV(*hv_fetchs(PL_defstash, "main::", TRUE));
++                if (!*gv) {
++		    *gv = MUTABLE_GV(*hv_fetchs(PL_defstash, "main::", TRUE));
++		    if (SvTYPE(*gv) != SVt_PVGV) {
++			gv_init_pvn(*gv, PL_defstash, "main::", 6,
++				    GV_ADDMULTI);
++			GvHV(*gv) =
++			    MUTABLE_HV(SvREFCNT_inc_simple(PL_defstash));
++		    }
++		}
+                 return TRUE;
+             }
+         }
+diff --git a/t/op/stash.t b/t/op/stash.t
+index 7ac379b..d6fded4 100644
+--- a/t/op/stash.t
++++ b/t/op/stash.t
+@@ -7,7 +7,7 @@ BEGIN {
+ 
+ BEGIN { require "./test.pl"; }
+ 
+-plan( tests => 54 );
++plan( tests => 55 );
+ 
+ # Used to segfault (bug #15479)
+ fresh_perl_like(
+@@ -355,3 +355,10 @@ is runperl(
+    ),
+    "ok\n",
+    "[perl #128238] non-stashes in stashes";
++
++is runperl(
++    prog => '%:: = (); print *{q|::|}, qq|\n|',
++    stderr => 1,
++   ),
++   "*main::main::\n",
++   "[perl #129869] lookup %:: by name after clearing %::";
+-- 
+2.7.4
+
diff --git a/perl-5.24.1-perl-129125-copy-form-data-if-it-might-be-freed.patch b/perl-5.24.1-perl-129125-copy-form-data-if-it-might-be-freed.patch
new file mode 100644
index 0000000..176efa9
--- /dev/null
+++ b/perl-5.24.1-perl-129125-copy-form-data-if-it-might-be-freed.patch
@@ -0,0 +1,107 @@
+From 0c43d46cd570d2a19edfa54b9c637dea5c0a3514 Mon Sep 17 00:00:00 2001
+From: Tony Cook <tony@develop-help.com>
+Date: Thu, 19 Jan 2017 16:28:03 +1100
+Subject: [PATCH] (perl #129125) copy form data if it might be freed
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+Ported to 5.24.1:
+
+commit 86191aed6f092273950ebdd48f886d4ec0c5e85e
+Author: Tony Cook <tony@develop-help.com>
+Date:   Thu Jan 19 16:28:03 2017 +1100
+
+    (perl #129125) copy form data if it might be freed
+
+    If the format SV also appeared as an argument, and the FF_CHOP
+    operator modified that argument, the magic and hence the compiled
+    format would be freed, and the next iteration of the processing
+    the compiled format would read freed memory.
+
+    Unlike my original patch this copies the formsv too, since
+    that is also stored in the magic, and is needed for presenting
+    literal text from the format.
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ pp_ctl.c     | 18 ++++++++++++++++++
+ t/op/write.t | 19 ++++++++++++++++++-
+ 2 files changed, 36 insertions(+), 1 deletion(-)
+
+diff --git a/pp_ctl.c b/pp_ctl.c
+index b94c09a..e859e01 100644
+--- a/pp_ctl.c
++++ b/pp_ctl.c
+@@ -490,6 +490,7 @@ PP(pp_formline)
+     U8 *source;		    /* source of bytes to append */
+     STRLEN to_copy;	    /* how may bytes to append */
+     char trans;		    /* what chars to translate */
++    bool copied_form = false; /* have we duplicated the form? */
+ 
+     mg = doparseform(tmpForm);
+ 
+@@ -687,6 +688,23 @@ PP(pp_formline)
+ 	case FF_CHOP: /* (for ^*) chop the current item */
+ 	    if (sv != &PL_sv_no) {
+ 		const char *s = chophere;
++                if (!copied_form &&
++                    ((sv == tmpForm || SvSMAGICAL(sv))
++                     || (SvGMAGICAL(tmpForm) && !sv_only_taint_gmagic(tmpForm))) ) {
++                    /* sv and tmpForm are either the same SV, or magic might allow modification
++                       of tmpForm when sv is modified, so copy */
++                    SV *newformsv = sv_mortalcopy(formsv);
++                    U32 *new_compiled;
++
++                    f = SvPV_nolen(newformsv) + (f - SvPV_nolen(formsv));
++                    Newx(new_compiled, mg->mg_len / sizeof(U32), U32);
++                    memcpy(new_compiled, mg->mg_ptr, mg->mg_len);
++                    SAVEFREEPV(new_compiled);
++                    fpc = new_compiled + (fpc - (U32*)mg->mg_ptr);
++                    formsv = newformsv;
++
++                    copied_form = true;
++                }
+ 		if (chopspace) {
+ 		    while (isSPACE(*s))
+ 			s++;
+diff --git a/t/op/write.t b/t/op/write.t
+index 590d658..ab2733f 100644
+--- a/t/op/write.t
++++ b/t/op/write.t
+@@ -98,7 +98,7 @@ for my $tref ( @NumTests ){
+ my $bas_tests = 21;
+ 
+ # number of tests in section 3
+-my $bug_tests = 66 + 3 * 3 * 5 * 2 * 3 + 2 + 66 + 4 + 2 + 3 + 96 + 11 + 3;
++my $bug_tests = 66 + 3 * 3 * 5 * 2 * 3 + 2 + 66 + 6 + 2 + 3 + 96 + 11 + 3;
+ 
+ # number of tests in section 4
+ my $hmb_tests = 37;
+@@ -1637,6 +1637,23 @@ printf ">%s<\n", ref $zamm;
+ print "$zamm->[0]\n";
+ EOP
+ 
++# [perl #129125] - detected by -fsanitize=address or valgrind
++# the compiled format would be freed when the format string was modified
++# by the chop operator
++fresh_perl_is(<<'EOP', "^", { stderr => 1 }, '#129125 - chop on format');
++my $x = '^@';
++formline$x=>$x;
++print $^A;
++EOP
++
++fresh_perl_is(<<'EOP', '<^< xx AA><xx ^<><>', { stderr => 1 }, '#129125 - chop on format, later values');
++my $x = '^< xx ^<';
++my $y = 'AA';
++formline $x => $x, $y;
++print "<$^A><$x><$y>";
++EOP
++
++
+ # [perl #73690]
+ 
+ select +(select(RT73690), do {
+-- 
+2.7.4
+
diff --git a/perl-5.24.1-perl-129274-avoid-treating-the-in-as-a-comment-intro.patch b/perl-5.24.1-perl-129274-avoid-treating-the-in-as-a-comment-intro.patch
new file mode 100644
index 0000000..449e67a
--- /dev/null
+++ b/perl-5.24.1-perl-129274-avoid-treating-the-in-as-a-comment-intro.patch
@@ -0,0 +1,70 @@
+From 2f221fc2333bd87615c03354b591b390e8b06715 Mon Sep 17 00:00:00 2001
+From: Tony Cook <tony@develop-help.com>
+Date: Tue, 24 Jan 2017 11:14:28 +1100
+Subject: [PATCH] (perl #129274) avoid treating the # in $# as a comment intro
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+Petr Písař: Ported to 5.24.1:
+
+commit 71776ae4fad9a7659deefe0c2376d45b873ffd6a
+Author: Tony Cook <tony@develop-help.com>
+Date:   Tue Jan 24 11:14:28 2017 +1100
+
+    (perl #129274) avoid treating the # in $# as a comment intro
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ t/op/lex.t | 15 ++++++++++++++-
+ toke.c     |  4 +++-
+ 2 files changed, 17 insertions(+), 2 deletions(-)
+
+diff --git a/t/op/lex.t b/t/op/lex.t
+index 9ada592..d679d7c 100644
+--- a/t/op/lex.t
++++ b/t/op/lex.t
+@@ -7,7 +7,7 @@ use warnings;
+ 
+ BEGIN { chdir 't' if -d 't'; require './test.pl'; }
+ 
+-plan(tests => 27);
++plan(tests => 28);
+ 
+ {
+     no warnings 'deprecated';
+@@ -223,3 +223,16 @@ fresh_perl_like(
+     {},
+     '[perl #129336] - #!perl -i argument handling'
+ );
++
++# probably only failed under ASAN
++fresh_perl_is(
++    "stat\tt\$#0",
++    <<'EOM',
++$# is no longer supported at - line 1.
++Number found where operator expected at - line 1, near "$#0"
++	(Missing operator before 0?)
++Can't call method "t" on an undefined value at - line 1.
++EOM
++    {},
++    "[perl #129273] heap use after free or overflow"
++);
+diff --git a/toke.c b/toke.c
+index 576ce72..630fc59 100644
+--- a/toke.c
++++ b/toke.c
+@@ -4090,7 +4090,9 @@ S_intuit_method(pTHX_ char *start, SV *ioname, CV *cv)
+ 	if (cv || PL_last_lop_op == OP_PRINT || PL_last_lop_op == OP_SAY
+             || isUPPER(*PL_tokenbuf))
+ 	    return 0;
+-	s = skipspace(s);
++        /* this could be $# */
++        if (isSPACE(*s))
++            s = skipspace(s);
+ 	PL_bufptr = start;
+ 	PL_expect = XREF;
+ 	return *s == '(' ? FUNCMETH : METHOD;
+-- 
+2.7.4
+
diff --git a/perl-5.24.1-perl-129281-test-for-buffer-overflow-issue.patch b/perl-5.24.1-perl-129281-test-for-buffer-overflow-issue.patch
new file mode 100644
index 0000000..30397b5
--- /dev/null
+++ b/perl-5.24.1-perl-129281-test-for-buffer-overflow-issue.patch
@@ -0,0 +1,49 @@
+From 92f8cd4e7b0ff3d09162139e3c99b1d9310bca81 Mon Sep 17 00:00:00 2001
+From: Tony Cook <tony@develop-help.com>
+Date: Mon, 10 Oct 2016 10:46:46 +1100
+Subject: [PATCH] (perl #129281) test for buffer overflow issue
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+Ported to 5.24.1:
+
+commit d2ba660af00f1bf2e7012741615eff7c19f29707
+Author: Tony Cook <tony@develop-help.com>
+Date:   Mon Oct 10 10:46:46 2016 +1100
+
+    (perl #129281) test for buffer overflow issue
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ t/re/pat.t | 7 ++++++-
+ 1 file changed, 6 insertions(+), 1 deletion(-)
+
+diff --git a/t/re/pat.t b/t/re/pat.t
+index 749edd0..7b8e6f7 100644
+--- a/t/re/pat.t
++++ b/t/re/pat.t
+@@ -23,7 +23,7 @@ BEGIN {
+     skip_all_without_unicode_tables();
+ }
+ 
+-plan tests => 792;  # Update this when adding/deleting tests.
++plan tests => 793;  # Update this when adding/deleting tests.
+ 
+ run_tests() unless caller;
+ 
+@@ -1779,6 +1779,11 @@ EOP
+ 	    }msx, { stderr => 1 }, "Offsets in debug output are not negative");
+ 	}
+     }
++    {
++        # [perl #129281] buffer write overflow, detected by ASAN, valgrind
++        local $::TODO = "whilem_c  bumped too much";
++        fresh_perl_is('/0(?0)|^*0(?0)|^*(^*())0|/', '', {}, "don't bump whilem_c too much");
++    }
+ } # End of sub run_tests
+ 
+ 1;
+-- 
+2.7.4
+
diff --git a/perl-5.24.1-perl-129340-copy-the-source-when-inside-the-dest-in-.patch b/perl-5.24.1-perl-129340-copy-the-source-when-inside-the-dest-in-.patch
new file mode 100644
index 0000000..f400675
--- /dev/null
+++ b/perl-5.24.1-perl-129340-copy-the-source-when-inside-the-dest-in-.patch
@@ -0,0 +1,104 @@
+From 4fe0e2d067ac5639d94f35f8c7e8ac4e0e3ab336 Mon Sep 17 00:00:00 2001
+From: Tony Cook <tony@develop-help.com>
+Date: Mon, 20 Feb 2017 11:02:21 +1100
+Subject: [PATCH] (perl #129340) copy the source when inside the dest in
+ sv_insert_flags()
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+Ported to 5.24.1:
+
+commit e7a8a8aac45d42d72d1586227ca51771f193f5dc
+Author: Tony Cook <tony@develop-help.com>
+Date:   Mon Feb 20 11:02:21 2017 +1100
+
+    (perl #129340) copy the source when inside the dest in sv_insert_flags()
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ embed.fnc     |  2 +-
+ proto.h       |  2 +-
+ sv.c          | 12 +++++++++++-
+ t/op/substr.t |  5 ++++-
+ 4 files changed, 17 insertions(+), 4 deletions(-)
+
+diff --git a/embed.fnc b/embed.fnc
+index a64ffba..2395efb 100644
+--- a/embed.fnc
++++ b/embed.fnc
+@@ -1437,7 +1437,7 @@ Amdb	|void	|sv_insert	|NN SV *const bigstr|const STRLEN offset \
+ 				|const STRLEN len|NN const char *const little \
+ 				|const STRLEN littlelen
+ Apd	|void	|sv_insert_flags|NN SV *const bigstr|const STRLEN offset|const STRLEN len \
+-				|NN const char *const little|const STRLEN littlelen|const U32 flags
++				|NN const char *little|const STRLEN littlelen|const U32 flags
+ Apd	|int	|sv_isa		|NULLOK SV* sv|NN const char *const name
+ Apd	|int	|sv_isobject	|NULLOK SV* sv
+ Apd	|STRLEN	|sv_len		|NULLOK SV *const sv
+diff --git a/proto.h b/proto.h
+index fb4ee29..2b2004a 100644
+--- a/proto.h
++++ b/proto.h
+@@ -3015,7 +3015,7 @@ PERL_CALLCONV void	Perl_sv_inc_nomg(pTHX_ SV *const sv);
+ /* PERL_CALLCONV void	Perl_sv_insert(pTHX_ SV *const bigstr, const STRLEN offset, const STRLEN len, const char *const little, const STRLEN littlelen); */
+ #define PERL_ARGS_ASSERT_SV_INSERT	\
+ 	assert(bigstr); assert(little)
+-PERL_CALLCONV void	Perl_sv_insert_flags(pTHX_ SV *const bigstr, const STRLEN offset, const STRLEN len, const char *const little, const STRLEN littlelen, const U32 flags);
++PERL_CALLCONV void	Perl_sv_insert_flags(pTHX_ SV *const bigstr, const STRLEN offset, const STRLEN len, const char *little, const STRLEN littlelen, const U32 flags);
+ #define PERL_ARGS_ASSERT_SV_INSERT_FLAGS	\
+ 	assert(bigstr); assert(little)
+ PERL_CALLCONV int	Perl_sv_isa(pTHX_ SV* sv, const char *const name);
+diff --git a/sv.c b/sv.c
+index d1e84f0..697db41 100644
+--- a/sv.c
++++ b/sv.c
+@@ -6223,7 +6223,7 @@ C<SvPV_force_flags> that applies to C<bigstr>.
+ */
+ 
+ void
+-Perl_sv_insert_flags(pTHX_ SV *const bigstr, const STRLEN offset, const STRLEN len, const char *const little, const STRLEN littlelen, const U32 flags)
++Perl_sv_insert_flags(pTHX_ SV *const bigstr, const STRLEN offset, const STRLEN len, const char *little, const STRLEN littlelen, const U32 flags)
+ {
+     char *big;
+     char *mid;
+@@ -6236,6 +6236,16 @@ Perl_sv_insert_flags(pTHX_ SV *const bigstr, const STRLEN offset, const STRLEN l
+ 
+     SvPV_force_flags(bigstr, curlen, flags);
+     (void)SvPOK_only_UTF8(bigstr);
++
++    if (little >= SvPVX(bigstr) &&
++        little < SvPVX(bigstr) + (SvLEN(bigstr) ? SvLEN(bigstr) : SvCUR(bigstr))) {
++        /* little is a pointer to within bigstr, since we can reallocate bigstr,
++           or little...little+littlelen might overlap offset...offset+len we make a copy
++        */
++        little = savepvn(little, littlelen);
++        SAVEFREEPV(little);
++    }
++
+     if (offset + len > curlen) {
+ 	SvGROW(bigstr, offset+len+1);
+ 	Zero(SvPVX(bigstr)+curlen, offset+len-curlen, char);
+diff --git a/t/op/substr.t b/t/op/substr.t
+index eae2403..01c36a9 100644
+--- a/t/op/substr.t
++++ b/t/op/substr.t
+@@ -22,7 +22,7 @@ $SIG{__WARN__} = sub {
+      }
+ };
+ 
+-plan(388);
++plan(389);
+ 
+ run_tests() unless caller;
+ 
+@@ -869,3 +869,6 @@ is($destroyed, 1, 'Timely scalar destruction with lvalue substr');
+ 
+     is($result_3363, "best", "ref-to-substr retains lvalue-ness under recursion [perl #3363]");
+ }
++
++# failed with ASAN
++fresh_perl_is('$0 = "/usr/bin/perl"; substr($0, 0, 0, $0)', '', {}, "(perl #129340) substr() with source in target");
+-- 
+2.7.4
+
diff --git a/perl-5.24.1-perl-129342-ensure-range-start-is-set-after-error-in.patch b/perl-5.24.1-perl-129342-ensure-range-start-is-set-after-error-in.patch
new file mode 100644
index 0000000..6543e4f
--- /dev/null
+++ b/perl-5.24.1-perl-129342-ensure-range-start-is-set-after-error-in.patch
@@ -0,0 +1,73 @@
+From a26907949ed561dccd661fc8600889eddc6664ea Mon Sep 17 00:00:00 2001
+From: Hugo van der Sanden <hv@crypt.org>
+Date: Wed, 5 Oct 2016 14:53:27 +0100
+Subject: [PATCH] [perl #129342] ensure range-start is set after error in tr///
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+Ported to 5.24.1:
+
+t 59143e29a717d67a61b869a6c5bb49574f1ef43f
+Author: Tony Cook <tony@develop-help.com>
+Date:   Tue Jan 17 11:52:53 2017 +1100
+
+    (perl #129342) test for buffer overflow
+
+commit 3dd4eaeb8ac39e08179145b86aedda36584a3509
+Author: Hugo van der Sanden <hv@crypt.org>
+Date:   Wed Oct 5 14:53:27 2016 +0100
+
+    [perl #129342] ensure range-start is set after error in tr///
+
+    A parse error due to invalid octal or hex escape in the range of a
+    transliteration must still ensure some kind of start and end values
+    are captured, since we don't stop on the first such error. Failure
+    to do so can cause invalid reads after "Here we have parsed a range".
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ t/lib/croak/toke | 7 +++++++
+ toke.c           | 4 ++--
+ 2 files changed, 9 insertions(+), 2 deletions(-)
+
+diff --git a/t/lib/croak/toke b/t/lib/croak/toke
+index 18dfa24..578a6da 100644
+--- a/t/lib/croak/toke
++++ b/t/lib/croak/toke
+@@ -302,3 +302,10 @@ Execution of - aborted due to compilation errors.
+ BEGIN <>
+ EXPECT
+ Illegal declaration of subroutine BEGIN at - line 1.
++########
++# NAME tr/// handling of mis-formatted \o characters
++# may only fail with ASAN
++tr/\o-0//;
++EXPECT
++Missing braces on \o{} at - line 2, within string
++Execution of - aborted due to compilation errors.
+diff --git a/toke.c b/toke.c
+index 288f372..576ce72 100644
+--- a/toke.c
++++ b/toke.c
+@@ -3338,7 +3338,7 @@ S_scan_const(pTHX_ char *start)
+                                                UTF);
+ 		    if (! valid) {
+ 			yyerror(error);
+-			continue;
++			uv = 0; /* drop through to ensure range ends are set */
+ 		    }
+ 		    goto NUM_ESCAPE_INSERT;
+ 		}
+@@ -3356,7 +3356,7 @@ S_scan_const(pTHX_ char *start)
+                                                UTF);
+ 		    if (! valid) {
+ 			yyerror(error);
+-			continue;
++			uv = 0; /* drop through to ensure range ends are set */
+ 		    }
+ 		}
+ 
+-- 
+2.7.4
+
diff --git a/perl-5.24.1-perl-129377-don-t-read-past-start-of-string-for-unma.patch b/perl-5.24.1-perl-129377-don-t-read-past-start-of-string-for-unma.patch
new file mode 100644
index 0000000..cbf5a73
--- /dev/null
+++ b/perl-5.24.1-perl-129377-don-t-read-past-start-of-string-for-unma.patch
@@ -0,0 +1,107 @@
+From a08fa6fd157fd0d61da7f20f07b939fbc302c2c6 Mon Sep 17 00:00:00 2001
+From: Hugo van der Sanden <hv@crypt.org>
+Date: Wed, 5 Oct 2016 12:56:05 +0100
+Subject: [PATCH] [perl #129377] don't read past start of string for unmatched
+ backref
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+Ported to 5.24.1:
+
+commit 2dfc11ec3af312f4fa3eb244077c79dbb5fc2d85
+Author: Hugo van der Sanden <hv@crypt.org>
+Date:   Wed Oct 5 12:56:05 2016 +0100
+
+    [perl #129377] don't read past start of string for unmatched backref
+
+    We can have (start, end) == (0, -1) for an unmatched backref, we must
+    check for that.
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ regexec.c  | 10 ++++++----
+ t/re/pat.t | 16 +++++++++++++++-
+ 2 files changed, 21 insertions(+), 5 deletions(-)
+
+diff --git a/regexec.c b/regexec.c
+index a5d5db4..a7bc0c3 100644
+--- a/regexec.c
++++ b/regexec.c
+@@ -5179,6 +5179,7 @@ S_regmatch(pTHX_ regmatch_info *reginfo, char *startpos, regnode *prog)
+     regnode *next;
+     U32 n = 0;	/* general value; init to avoid compiler warning */
+     SSize_t ln = 0; /* len or last;  init to avoid compiler warning */
++    SSize_t endref = 0; /* offset of end of backref when ln is start */
+     char *locinput = startpos;
+     char *pushinput; /* where to continue after a PUSH */
+     I32 nextchr;   /* is always set to UCHARAT(locinput), or -1 at EOS */
+@@ -6489,10 +6490,11 @@ S_regmatch(pTHX_ regmatch_info *reginfo, char *startpos, regnode *prog)
+ 
+ 	  do_nref_ref_common:
+ 	    ln = rex->offs[n].start;
++	    endref = rex->offs[n].end;
+ 	    reginfo->poscache_iter = reginfo->poscache_maxiter; /* Void cache */
+-	    if (rex->lastparen < n || ln == -1)
++	    if (rex->lastparen < n || ln == -1 || endref == -1)
+ 		sayNO;			/* Do not match unless seen CLOSEn. */
+-	    if (ln == rex->offs[n].end)
++	    if (ln == endref)
+ 		break;
+ 
+ 	    s = reginfo->strbeg + ln;
+@@ -6506,7 +6508,7 @@ S_regmatch(pTHX_ regmatch_info *reginfo, char *startpos, regnode *prog)
+                     * not going off the end given by reginfo->strend, and
+                     * returns in <limit> upon success, how much of the
+                     * current input was matched */
+-		if (! foldEQ_utf8_flags(s, NULL, rex->offs[n].end - ln, utf8_target,
++		if (! foldEQ_utf8_flags(s, NULL, endref - ln, utf8_target,
+ 				    locinput, &limit, 0, utf8_target, utf8_fold_flags))
+ 		{
+ 		    sayNO;
+@@ -6521,7 +6523,7 @@ S_regmatch(pTHX_ regmatch_info *reginfo, char *startpos, regnode *prog)
+ 		(type == REF ||
+ 		 UCHARAT(s) != fold_array[nextchr]))
+ 		sayNO;
+-	    ln = rex->offs[n].end - ln;
++	    ln = endref - ln;
+ 	    if (locinput + ln > reginfo->strend)
+ 		sayNO;
+ 	    if (ln > 1 && (type == REF
+diff --git a/t/re/pat.t b/t/re/pat.t
+index 4aa77cf..749edd0 100644
+--- a/t/re/pat.t
++++ b/t/re/pat.t
+@@ -23,7 +23,7 @@ BEGIN {
+     skip_all_without_unicode_tables();
+ }
+ 
+-plan tests => 791;  # Update this when adding/deleting tests.
++plan tests => 792;  # Update this when adding/deleting tests.
+ 
+ run_tests() unless caller;
+ 
+@@ -1765,6 +1765,20 @@ EOP
+             utf8::upgrade($str);
+             ok( $str =~ m{^(a|a\x{e4})$}, "fix [perl #129950] - utf8 case" );
+         }
++    {
++	# [perl #129377] backref to an unmatched capture should not cause
++	# reading before start of string.
++	SKIP: {
++	    skip "no re-debug under miniperl" if is_miniperl;
++	    my $prog = <<'EOP';
++use re qw(Debug EXECUTE);
++"x" =~ m{ () y | () \1 }x;
++EOP
++	    fresh_perl_like($prog, qr{
++		\A (?! .* ^ \s+ - )
++	    }msx, { stderr => 1 }, "Offsets in debug output are not negative");
++	}
++    }
+ } # End of sub run_tests
+ 
+ 1;
+-- 
+2.7.4
+
diff --git a/perl-5.24.1-perl-130262-split-scalar-context-stack-overflow-fix.patch b/perl-5.24.1-perl-130262-split-scalar-context-stack-overflow-fix.patch
new file mode 100644
index 0000000..e250a0a
--- /dev/null
+++ b/perl-5.24.1-perl-130262-split-scalar-context-stack-overflow-fix.patch
@@ -0,0 +1,62 @@
+From 2bcb4a5888b1c26ee11bc447cc02b42290c707af Mon Sep 17 00:00:00 2001
+From: Tony Cook <tony@develop-help.com>
+Date: Mon, 5 Dec 2016 11:48:14 +1100
+Subject: [PATCH] (perl #130262) split scalar context stack overflow fix
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+Ported to 5.14.1:
+
+commit 02c161ef974f8f1efbb5632f741c1164adb6ca75
+Author: Tony Cook <tony@develop-help.com>
+Date:   Mon Dec 5 11:48:14 2016 +1100
+
+    (perl #130262) split scalar context stack overflow fix
+
+    pp_split didn't ensure there was space for its return value
+    in scalar context.
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ pp.c         | 2 +-
+ t/op/split.t | 6 +++++-
+ 2 files changed, 6 insertions(+), 2 deletions(-)
+
+diff --git a/pp.c b/pp.c
+index 70345ce..334b353 100644
+--- a/pp.c
++++ b/pp.c
+@@ -6259,7 +6259,7 @@ PP(pp_split)
+     }
+ 
+     GETTARGET;
+-    PUSHi(iters);
++    XPUSHi(iters);
+     RETURN;
+ }
+ 
+diff --git a/t/op/split.t b/t/op/split.t
+index b7846a1..3e08841 100644
+--- a/t/op/split.t
++++ b/t/op/split.t
+@@ -7,7 +7,7 @@ BEGIN {
+     set_up_inc('../lib');
+ }
+ 
+-plan tests => 133;
++plan tests => 134;
+ 
+ $FS = ':';
+ 
+@@ -534,3 +534,7 @@ is "@a", '1 2 3', 'assignment to split-to-array (stacked)';
+     ok eval { $a[0] = 'a'; 1; }, "array split filling AvARRAY: assign 0";
+     is "@a", "a b", "array split filling AvARRAY: result";
+ }
++
++fresh_perl_is(<<'CODE', '', {}, "scalar split stack overflow");
++map{int"";split//.0>60for"0000000000000000"}split// for"00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000"
++CODE
+-- 
+2.7.4
+
diff --git a/perl-5.24.1-perl-130814-update-pointer-into-PL_linestr-after-loo.patch b/perl-5.24.1-perl-130814-update-pointer-into-PL_linestr-after-loo.patch
new file mode 100644
index 0000000..6a6df7f
--- /dev/null
+++ b/perl-5.24.1-perl-130814-update-pointer-into-PL_linestr-after-loo.patch
@@ -0,0 +1,50 @@
+From 9df34f9c4701104a366e768237ca694411136d2a Mon Sep 17 00:00:00 2001
+From: Hugo van der Sanden <hv@crypt.org>
+Date: Sun, 19 Feb 2017 10:46:09 +0000
+Subject: [PATCH] update pointer into PL_linestr after lookahead
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+Ported to: 5.24.1:
+
+commit 90f2cc9a600117a49f8ee3e30cc681f062350c24
+Author: Hugo van der Sanden <hv@crypt.org>
+Date:   Sun Feb 19 10:46:09 2017 +0000
+
+    [perl #130814] update pointer into PL_linestr after lookahead
+
+    Looking ahead for the "Missing $ on loop variable" diagnostic can reallocate
+    PL_linestr, invalidating our pointer. Save the offset so we can update it
+    in that case.
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ toke.c | 4 ++++
+ 1 file changed, 4 insertions(+)
+
+diff --git a/toke.c b/toke.c
+index 630fc59..029d2ea 100644
+--- a/toke.c
++++ b/toke.c
+@@ -7565,6 +7565,7 @@ Perl_yylex(pTHX)
+ 	    s = skipspace(s);
+ 	    if (PL_expect == XSTATE && isIDFIRST_lazy_if(s,UTF)) {
+ 		char *p = s;
++                SSize_t s_off = s - SvPVX(PL_linestr);
+ 
+ 		if ((PL_bufend - p) >= 3
+                     && strnEQ(p, "my", 2) && isSPACE(*(p + 2)))
+@@ -7582,6 +7583,9 @@ Perl_yylex(pTHX)
+ 		}
+ 		if (*p != '$')
+ 		    Perl_croak(aTHX_ "Missing $ on loop variable");
++
++                /* The buffer may have been reallocated, update s */
++                s = SvPVX(PL_linestr) + s_off;
+ 	    }
+ 	    OPERATOR(FOR);
+ 
+-- 
+2.7.4
+
diff --git a/perl-5.24.1-perl-130815-fix-ck_return-null-pointer-deref-on-malf.patch b/perl-5.24.1-perl-130815-fix-ck_return-null-pointer-deref-on-malf.patch
new file mode 100644
index 0000000..37d7af4
--- /dev/null
+++ b/perl-5.24.1-perl-130815-fix-ck_return-null-pointer-deref-on-malf.patch
@@ -0,0 +1,72 @@
+From be05b2f7a801ae1721641fd240e0d7d6fc018136 Mon Sep 17 00:00:00 2001
+From: Aaron Crane <arc@cpan.org>
+Date: Sun, 19 Feb 2017 12:26:54 +0000
+Subject: [PATCH] fix ck_return null-pointer deref on malformed code
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+Ported to 5.24.1:
+
+commit e5c165a0b7551ffb94661aa7f18aabadba257782
+Author: Aaron Crane <arc@cpan.org>
+Date:   Sun Feb 19 12:26:54 2017 +0000
+
+    [perl #130815] fix ck_return null-pointer deref on malformed code
+
+commit 9de2a80ffc0eefb4d60e13766baf4bad129e0a92
+Author: David Mitchell <davem@iabyn.com>
+Date:   Sun Feb 19 12:36:58 2017 +0000
+
+    bump test count in t/comp/parser.t
+
+    (the previous commit forgot to)
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ op.c            | 2 +-
+ t/comp/parser.t | 8 +++++++-
+ 2 files changed, 8 insertions(+), 2 deletions(-)
+
+diff --git a/op.c b/op.c
+index 018d90c..9a61ea7 100644
+--- a/op.c
++++ b/op.c
+@@ -10695,7 +10695,7 @@ Perl_ck_return(pTHX_ OP *o)
+     PERL_ARGS_ASSERT_CK_RETURN;
+ 
+     kid = OpSIBLING(cLISTOPo->op_first);
+-    if (CvLVALUE(PL_compcv)) {
++    if (PL_compcv && CvLVALUE(PL_compcv)) {
+ 	for (; kid; kid = OpSIBLING(kid))
+ 	    op_lvalue(kid, OP_LEAVESUBLV);
+     }
+diff --git a/t/comp/parser.t b/t/comp/parser.t
+index 50f601c..5016509 100644
+--- a/t/comp/parser.t
++++ b/t/comp/parser.t
+@@ -8,7 +8,7 @@ BEGIN {
+     chdir 't' if -d 't';
+ }
+ 
+-print "1..173\n";
++print "1..174\n";
+ 
+ sub failed {
+     my ($got, $expected, $name) = @_;
+@@ -546,6 +546,12 @@ eval "grep+grep";
+ eval 'qq{@{0]}${}},{})';
+ is(1, 1, "RT #124207");
+ 
++# RT #130815: crash in ck_return for malformed code
++{
++    eval 'm(@{if(0){sub d{]]])}return';
++    like $@, qr/^syntax error at \(eval \d+\) line 1, near "\{\]"/,
++        'RT #130815: null pointer deref';
++}
+ 
+ # Add new tests HERE (above this line)
+ 
+-- 
+2.7.4
+
diff --git a/perl-5.24.1-perl-130822-fix-an-AV-leak-in-Perl_reg_named_buff_fe.patch b/perl-5.24.1-perl-130822-fix-an-AV-leak-in-Perl_reg_named_buff_fe.patch
new file mode 100644
index 0000000..0ebda55
--- /dev/null
+++ b/perl-5.24.1-perl-130822-fix-an-AV-leak-in-Perl_reg_named_buff_fe.patch
@@ -0,0 +1,81 @@
+From 0cefeca1fd2405ad1b5544a3919e0000377fde5e Mon Sep 17 00:00:00 2001
+From: Tony Cook <tony@develop-help.com>
+Date: Tue, 21 Feb 2017 16:38:36 +1100
+Subject: [PATCH] (perl #130822) fix an AV leak in Perl_reg_named_buff_fetch
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+Ported to 5.24.1:
+
+commit 853eb961c1a3b014b5a9510740abc15ccd4383b6
+Author: Tony Cook <tony@develop-help.com>
+Date:   Tue Feb 21 16:38:36 2017 +1100
+
+    (perl #130822) fix an AV leak in Perl_reg_named_buff_fetch
+
+    Originally noted as a scoping issue by Andy Lester.
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ regcomp.c     |  5 +----
+ t/op/svleak.t | 12 +++++++++++-
+ 2 files changed, 12 insertions(+), 5 deletions(-)
+
+diff --git a/regcomp.c b/regcomp.c
+index 6329f6c..989c528 100644
+--- a/regcomp.c
++++ b/regcomp.c
+@@ -7849,21 +7849,18 @@ SV*
+ Perl_reg_named_buff_fetch(pTHX_ REGEXP * const r, SV * const namesv,
+ 			  const U32 flags)
+ {
+-    AV *retarray = NULL;
+     SV *ret;
+     struct regexp *const rx = ReANY(r);
+ 
+     PERL_ARGS_ASSERT_REG_NAMED_BUFF_FETCH;
+ 
+-    if (flags & RXapif_ALL)
+-        retarray=newAV();
+-
+     if (rx && RXp_PAREN_NAMES(rx)) {
+         HE *he_str = hv_fetch_ent( RXp_PAREN_NAMES(rx), namesv, 0, 0 );
+         if (he_str) {
+             IV i;
+             SV* sv_dat=HeVAL(he_str);
+             I32 *nums=(I32*)SvPVX(sv_dat);
++            AV * const retarray = (flags & RXapif_ALL) ? newAV() : NULL;
+             for ( i=0; i<SvIVX(sv_dat); i++ ) {
+                 if ((I32)(rx->nparens) >= nums[i]
+                     && rx->offs[nums[i]].start != -1
+diff --git a/t/op/svleak.t b/t/op/svleak.t
+index b0692ff..eeea7c1 100644
+--- a/t/op/svleak.t
++++ b/t/op/svleak.t
+@@ -15,7 +15,7 @@ BEGIN {
+ 
+ use Config;
+ 
+-plan tests => 133;
++plan tests => 134;
+ 
+ # run some code N times. If the number of SVs at the end of loop N is
+ # greater than (N-1)*delta at the end of loop 1, we've got a leak
+@@ -557,3 +557,13 @@ EOF
+     sub lk { { my $d = $op->hints_hash->HASH } }
+     ::leak(3, 0, \&lk, q!B::RHE->HASH shoudln't leak!);
+ }
++
++{
++    # Perl_reg_named_buff_fetch() leaks an AV when called with an RE
++    # with no named captures
++    sub named {
++        "x" =~ /x/;
++        re::regname("foo", 1);
++    }
++    ::leak(2, 0, \&named, "Perl_reg_named_buff_fetch() on no-name RE");
++}
+-- 
+2.7.4
+
diff --git a/perl-5.24.1-perl-131085-Crash-with-sub-in-stash.patch b/perl-5.24.1-perl-131085-Crash-with-sub-in-stash.patch
new file mode 100644
index 0000000..552a722
--- /dev/null
+++ b/perl-5.24.1-perl-131085-Crash-with-sub-in-stash.patch
@@ -0,0 +1,61 @@
+From cba9aa759f7ce8a4a80e748eb451f679042cd74b Mon Sep 17 00:00:00 2001
+From: Father Chrysostomos <sprout@cpan.org>
+Date: Fri, 7 Apr 2017 14:08:02 -0700
+Subject: [PATCH] Crash with sub-in-stash
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+Ported to 5.24.1:
+
+commit 790acddeaa0d2c73524596048b129561225cf100
+Author: Father Chrysostomos <sprout@cpan.org>
+Date:   Fri Apr 7 14:08:02 2017 -0700
+
+    [perl #131085] Crash with sub-in-stash
+
+    $ perl -e '$::{"A"} = sub {}; \&{"A"}'
+    Segmentation fault (core dumped)
+
+    The code that vivifies a typeglob out of a code ref assumed that the
+    CV had a name hek, which is always the case when perl itself puts the
+    code ref there (via ‘sub A{}’), but is not necessarily the case if
+    someone is insinuating other stuff into the stash.
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ gv.c      | 2 +-
+ t/op/gv.t | 4 ++++
+ 2 files changed, 5 insertions(+), 1 deletion(-)
+
+diff --git a/gv.c b/gv.c
+index 3fda9b9..6690b64 100644
+--- a/gv.c
++++ b/gv.c
+@@ -421,7 +421,7 @@ Perl_gv_init_pvn(pTHX_ GV *gv, HV *stash, const char *name, STRLEN len, U32 flag
+ 	/* Not actually a constant.  Just a regular sub.  */
+ 	CV * const cv = (CV *)has_constant;
+ 	GvCV_set(gv,cv);
+-	if (CvSTASH(cv) == stash && (
++	if (CvNAMED(cv) && CvSTASH(cv) == stash && (
+ 	       CvNAME_HEK(cv) == GvNAME_HEK(gv)
+ 	    || (  HEK_LEN(CvNAME_HEK(cv)) == HEK_LEN(GvNAME_HEK(gv))
+ 	       && HEK_FLAGS(CvNAME_HEK(cv)) != HEK_FLAGS(GvNAME_HEK(gv))
+diff --git a/t/op/gv.t b/t/op/gv.t
+index 03ae46e..cdaaef5 100644
+--- a/t/op/gv.t
++++ b/t/op/gv.t
+@@ -1170,6 +1170,10 @@ SKIP: {
+     is ($? & 127, 0,"[perl #128597] No crash when gp_free calls ckWARN_d");
+ }
+ 
++# [perl #131085] This used to crash; no ok() necessary.
++$::{"A131085"} = sub {}; \&{"A131085"};
++
++
+ __END__
+ Perl
+ Rules
+-- 
+2.9.4
+
diff --git a/perl-5.24.1-perl-131211-fixup-File-Glob-degenerate-matching.patch b/perl-5.24.1-perl-131211-fixup-File-Glob-degenerate-matching.patch
new file mode 100644
index 0000000..2b490ec
--- /dev/null
+++ b/perl-5.24.1-perl-131211-fixup-File-Glob-degenerate-matching.patch
@@ -0,0 +1,266 @@
+From 30cba075ecbb662b392b2c6e896dec287ea49aa8 Mon Sep 17 00:00:00 2001
+From: Yves Orton <demerphq@gmail.com>
+Date: Tue, 25 Apr 2017 15:17:06 +0200
+Subject: [PATCH] fixup File::Glob degenerate matching
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+Ported to 5.24.1:
+
+commit 0db967b2e6a4093a6a5f649190159767e5d005e0
+Author: Yves Orton <demerphq@gmail.com>
+Date:   Tue Apr 25 15:17:06 2017 +0200
+
+    [perl #131211] fixup File::Glob degenerate matching
+
+    The old code would go quadratic with recursion and backtracking
+    when doing patterns like "a*a*a*a*a*a*a*x" on a file like
+    "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa".
+
+    This patch changes the code to not recurse, and to not backtrack,
+    as per this article from Russ Cox: https://research.swtch.com/glob
+
+    It also adds a micro-optimisation for M_ONE and M_SET under the new code.
+
+    Thanks to Avar and Russ Cox for helping with this patch, along with
+    Jilles Tjoelker and the rest of the FreeBSD community.
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ MANIFEST                   |  1 +
+ ext/File-Glob/bsd_glob.c   | 64 +++++++++++++++++++++++--------
+ ext/File-Glob/t/rt131211.t | 94 ++++++++++++++++++++++++++++++++++++++++++++++
+ 3 files changed, 144 insertions(+), 15 deletions(-)
+ create mode 100644 ext/File-Glob/t/rt131211.t
+
+diff --git a/MANIFEST b/MANIFEST
+index fe045a7..be2a44f 100644
+--- a/MANIFEST
++++ b/MANIFEST
+@@ -3678,6 +3678,7 @@ ext/File-Glob/t/case.t		See if File::Glob works
+ ext/File-Glob/t/global.t	See if File::Glob works
+ ext/File-Glob/TODO		File::Glob extension todo list
+ ext/File-Glob/t/rt114984.t	See if File::Glob works
++ext/File-Glob/t/rt131211.t	See if File::Glob works
+ ext/File-Glob/t/taint.t		See if File::Glob works
+ ext/File-Glob/t/threads.t	See if File::Glob + threads works
+ ext/GDBM_File/GDBM_File.pm	GDBM extension Perl module
+diff --git a/ext/File-Glob/bsd_glob.c b/ext/File-Glob/bsd_glob.c
+index 821ef20..e96fb73 100644
+--- a/ext/File-Glob/bsd_glob.c
++++ b/ext/File-Glob/bsd_glob.c
+@@ -563,8 +563,12 @@ glob0(const Char *pattern, glob_t *pglob)
+ 			break;
+ 		case BG_STAR:
+ 			pglob->gl_flags |= GLOB_MAGCHAR;
+-			/* collapse adjacent stars to one,
+-			 * to avoid exponential behavior
++                        /* Collapse adjacent stars to one.
++                         * This is required to ensure that a pattern like
++                         * "a**" matches a name like "a", as without this
++                         * check when the first star matched everything it would
++                         * cause the second star to return a match fail.
++                         * As long ** is folded here this does not happen.
+ 			 */
+ 			if (bufnext == patbuf || bufnext[-1] != M_ALL)
+ 				*bufnext++ = M_ALL;
+@@ -909,35 +913,56 @@ globextend(const Char *path, glob_t *pglob, size_t *limitp)
+ 
+ 
+ /*
+- * pattern matching function for filenames.  Each occurrence of the *
+- * pattern causes a recursion level.
++ * pattern matching function for filenames using state machine to avoid
++ * recursion. We maintain a "nextp" and "nextn" to allow us to backtrack
++ * without additional callframes, and to do cleanly prune the backtracking
++ * state when multiple '*' (start) matches are included in the patter.
++ *
++ * Thanks to Russ Cox for the improved state machine logic to avoid quadratic
++ * matching on failure.
++ *
++ * https://research.swtch.com/glob
++ *
++ * An example would be a pattern
++ *  ("a*" x 100) . "y"
++ * against a file name like
++ *  ("a" x 100) . "x"
++ *
+  */
+ static int
+ match(Char *name, Char *pat, Char *patend, int nocase)
+ {
+ 	int ok, negate_range;
+ 	Char c, k;
++	Char *nextp = NULL;
++	Char *nextn = NULL;
+ 
++    loop:
+ 	while (pat < patend) {
+ 		c = *pat++;
+ 		switch (c & M_MASK) {
+ 		case M_ALL:
+ 			if (pat == patend)
+ 				return(1);
+-			do
+-			    if (match(name, pat, patend, nocase))
+-				    return(1);
+-			while (*name++ != BG_EOS)
+-				;
+-			return(0);
++	                if (*name == BG_EOS)
++	                        return 0;
++			nextn = name + 1;
++	                nextp = pat - 1;
++			break;
+ 		case M_ONE:
++                        /* since * matches leftmost-shortest first   *
++                         * if we encounter the EOS then backtracking *
++                         * will not help, so we can exit early here. */
+ 			if (*name++ == BG_EOS)
+-				return(0);
++                                return 0;
+ 			break;
+ 		case M_SET:
+ 			ok = 0;
++                        /* since * matches leftmost-shortest first   *
++                         * if we encounter the EOS then backtracking *
++                         * will not help, so we can exit early here. */
+ 			if ((k = *name++) == BG_EOS)
+-				return(0);
++                                return 0;
+ 			if ((negate_range = ((*pat & M_MASK) == M_NOT)) != BG_EOS)
+ 				++pat;
+ 			while (((c = *pat++) & M_MASK) != M_END)
+@@ -953,16 +978,25 @@ match(Char *name, Char *pat, Char *patend, int nocase)
+ 				} else if (nocase ? (tolower(c) == tolower(k)) : (c == k))
+ 					ok = 1;
+ 			if (ok == negate_range)
+-				return(0);
++				goto fail;
+ 			break;
+ 		default:
+ 			k = *name++;
+ 			if (nocase ? (tolower(k) != tolower(c)) : (k != c))
+-				return(0);
++				goto fail;
+ 			break;
+ 		}
+ 	}
+-	return(*name == BG_EOS);
++	if (*name == BG_EOS)
++		return 1;
++
++    fail:
++	if (nextn) {
++		pat = nextp;
++		name = nextn;
++		goto loop;
++	}
++	return 0;
+ }
+ 
+ /* Free allocated data belonging to a glob_t structure. */
+diff --git a/ext/File-Glob/t/rt131211.t b/ext/File-Glob/t/rt131211.t
+new file mode 100644
+index 0000000..c1bcbe0
+--- /dev/null
++++ b/ext/File-Glob/t/rt131211.t
+@@ -0,0 +1,94 @@
++use strict;
++use warnings;
++use v5.16.0;
++use File::Temp 'tempdir';
++use File::Spec::Functions;
++use Test::More;
++use Time::HiRes qw(time);
++
++plan tests => 13;
++
++my $path = tempdir uc cleanup => 1;
++my @files= (
++    "x".("a" x 50)."b", # 0
++    "abbbbbbbbbbbbc",   # 1
++    "abbbbbbbbbbbbd",   # 2
++    "aaabaaaabaaaabc",  # 3
++    "pq",               # 4
++    "r",                # 5
++    "rttiiiiiii",       # 6
++    "wewewewewewe",     # 7
++    "weeeweeeweee",     # 8
++    "weewweewweew",     # 9
++    "wewewewewewewewewewewewewewewewewq", # 10
++    "wtttttttetttttttwr", # 11
++);
++
++
++foreach (@files) {
++    open(my $f, ">", catfile $path, $_);
++}
++
++my $elapsed_fail= 0;
++my $elapsed_match= 0;
++my @got_files;
++my @no_files;
++my $count = 0;
++
++while (++$count < 10) {
++    $elapsed_match -= time;
++    @got_files= glob catfile $path, "x".("a*" x $count) . "b";
++    $elapsed_match += time;
++
++    $elapsed_fail -= time;
++    @no_files= glob catfile $path, "x".("a*" x $count) . "c";
++    $elapsed_fail += time;
++    last if $elapsed_fail > $elapsed_match * 100;
++}
++
++is $count,10,
++    "tried all the patterns without bailing out";
++
++cmp_ok $elapsed_fail/$elapsed_match,"<",2,
++    "time to fail less than twice the time to match";
++is "@got_files", catfile($path, $files[0]),
++    "only got the expected file for xa*..b";
++is "@no_files", "", "shouldnt have files for xa*..c";
++
++
++@got_files= glob catfile $path, "a*b*b*b*bc";
++is "@got_files", catfile($path, $files[1]),
++    "only got the expected file for a*b*b*b*bc";
++
++@got_files= sort glob catfile $path, "a*b*b*bc";
++is "@got_files", catfile($path, $files[3])." ".catfile($path,$files[1]),
++    "got the expected two files for a*b*b*bc";
++
++@got_files= sort glob catfile $path, "p*";
++is "@got_files", catfile($path, $files[4]),
++    "p* matches pq";
++
++@got_files= sort glob catfile $path, "r*???????";
++is "@got_files", catfile($path, $files[6]),
++    "r*??????? works as expected";
++
++@got_files= sort glob catfile $path, "w*e*w??e";
++is "@got_files", join(" ", sort map { catfile($path, $files[$_]) } (7,8)),
++    "w*e*w??e works as expected";
++
++@got_files= sort glob catfile $path, "w*e*we??";
++is "@got_files", join(" ", sort map { catfile($path, $files[$_]) } (7,8,9,10)),
++    "w*e*we?? works as expected";
++
++@got_files= sort glob catfile $path, "w**e**w";
++is "@got_files", join(" ", sort map { catfile($path, $files[$_]) } (9)),
++    "w**e**w works as expected";
++
++@got_files= sort glob catfile $path, "*wee*";
++is "@got_files", join(" ", sort map { catfile($path, $files[$_]) } (8,9)),
++    "*wee* works as expected";
++
++@got_files= sort glob catfile $path, "we*";
++is "@got_files", join(" ", sort map { catfile($path, $files[$_]) } (7,8,9,10)),
++    "we* works as expected";
++
+-- 
+2.9.4
+
diff --git a/perl-5.24.1-perl-131263-clear-the-UTF8-flag-on-a-glob-if-it-isn-.patch b/perl-5.24.1-perl-131263-clear-the-UTF8-flag-on-a-glob-if-it-isn-.patch
new file mode 100644
index 0000000..9610bc0
--- /dev/null
+++ b/perl-5.24.1-perl-131263-clear-the-UTF8-flag-on-a-glob-if-it-isn-.patch
@@ -0,0 +1,72 @@
+From 064604f904546ae4ddada5a2aa30256faccee39c Mon Sep 17 00:00:00 2001
+From: Tony Cook <tony@develop-help.com>
+Date: Wed, 7 Jun 2017 15:00:26 +1000
+Subject: [PATCH] clear the UTF8 flag on a glob if it isn't UTF8
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+Ported to 5.24.1:
+
+commit 1097da16b21fe0a2257dba9937e55c0cca18f7e1
+Author: Tony Cook <tony@develop-help.com>
+Date:   Wed Jun 7 15:00:26 2017 +1000
+
+    [perl #131263] clear the UTF8 flag on a glob if it isn't UTF8
+
+    Previously sv_2pv_flags() would set the UTF8 flag on a glob if it
+    had a UTF8 name, but wouldn't clear tha flag if it didn't.
+
+    This meant a name change, eg. if assigned another glob, from a UTF8
+    name to a non-UTF8 name would leave the flag set.
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ sv.c      |  2 ++
+ t/op/gv.t | 10 +++++++++-
+ 2 files changed, 11 insertions(+), 1 deletion(-)
+
+diff --git a/sv.c b/sv.c
+index 12cbb5f..05584a2 100644
+--- a/sv.c
++++ b/sv.c
+@@ -3162,6 +3162,8 @@ Perl_sv_2pv_flags(pTHX_ SV *const sv, STRLEN *const lp, const I32 flags)
+ 	assert(SvPOK(buffer));
+ 	if (SvUTF8(buffer))
+ 	    SvUTF8_on(sv);
++        else
++            SvUTF8_off(sv);
+ 	if (lp)
+ 	    *lp = SvCUR(buffer);
+ 	return SvPVX(buffer);
+diff --git a/t/op/gv.t b/t/op/gv.t
+index cdaaef5..ea79e51 100644
+--- a/t/op/gv.t
++++ b/t/op/gv.t
+@@ -12,7 +12,7 @@ BEGIN {
+ 
+ use warnings;
+ 
+-plan(tests => 277 );
++plan(tests => 279 );
+ 
+ # type coercion on assignment
+ $foo = 'foo';
+@@ -1173,6 +1173,14 @@ SKIP: {
+ # [perl #131085] This used to crash; no ok() necessary.
+ $::{"A131085"} = sub {}; \&{"A131085"};
+ 
++{
++    # [perl #131263]
++    *sym = "\N{U+0080}";
++    ok(*sym eq "*main::\N{U+0080}", "utf8 flag properly set");
++    *sym = "\xC3\x80";
++    ok(*sym eq "*main::\xC3\x80", "utf8 flag properly cleared");
++}
++
+ 
+ __END__
+ Perl
+-- 
+2.9.4
+
diff --git a/perl-5.24.1-permit-goto-at-top-level-of-multicalled-sub.patch b/perl-5.24.1-permit-goto-at-top-level-of-multicalled-sub.patch
new file mode 100644
index 0000000..b4dde60
--- /dev/null
+++ b/perl-5.24.1-permit-goto-at-top-level-of-multicalled-sub.patch
@@ -0,0 +1,94 @@
+From 0a1ddbeaeeea3c690c2408bd4c3a61c05cb9695f Mon Sep 17 00:00:00 2001
+From: Zefram <zefram@fysh.org>
+Date: Mon, 23 Jan 2017 02:25:50 +0000
+Subject: [PATCH] permit goto at top level of multicalled sub
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+Petr Písař: Ported to 5.24.1:
+
+commit 3c157b3cf0631c69ffa5aa2d55b9199bf93b22a9
+Author: Zefram <zefram@fysh.org>
+Date:   Mon Jan 23 02:25:50 2017 +0000
+
+    permit goto at top level of multicalled sub
+
+    A multicalled sub is reckoned to be a pseudo block, out of which it is
+    not permissible to goto.  However, the test for a pseudo block was being
+    applied too early, preventing not just escape from a multicalled sub but
+    also a goto at the top level within the sub.  This is a bug similar, but
+    not identical, to [perl #113938].  Now the test is deferred, permitting
+    goto at the sub's top level but still forbidding goto out of it.
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ pp_ctl.c    | 11 ++++++-----
+ t/op/goto.t | 11 ++++++++++-
+ 2 files changed, 16 insertions(+), 6 deletions(-)
+
+diff --git a/pp_ctl.c b/pp_ctl.c
+index e859e01..a1fc2f4 100644
+--- a/pp_ctl.c
++++ b/pp_ctl.c
+@@ -2921,6 +2921,7 @@ PP(pp_goto)
+ 	OP *gotoprobe = NULL;
+ 	bool leaving_eval = FALSE;
+ 	bool in_block = FALSE;
++	bool pseudo_block = FALSE;
+ 	PERL_CONTEXT *last_eval_cx = NULL;
+ 
+ 	/* find label */
+@@ -2959,11 +2960,9 @@ PP(pp_goto)
+ 		    gotoprobe = PL_main_root;
+ 		break;
+ 	    case CXt_SUB:
+-		if (CvDEPTH(cx->blk_sub.cv) && !CxMULTICALL(cx)) {
+-		    gotoprobe = CvROOT(cx->blk_sub.cv);
+-		    break;
+-		}
+-		/* FALLTHROUGH */
++		gotoprobe = CvROOT(cx->blk_sub.cv);
++		pseudo_block = cBOOL(CxMULTICALL(cx));
++		break;
+ 	    case CXt_FORMAT:
+ 	    case CXt_NULL:
+ 		DIE(aTHX_ "Can't \"goto\" out of a pseudo block");
+@@ -2992,6 +2991,8 @@ PP(pp_goto)
+ 			break;
+ 		}
+ 	    }
++	    if (pseudo_block)
++		DIE(aTHX_ "Can't \"goto\" out of a pseudo block");
+ 	    PL_lastgotoprobe = gotoprobe;
+ 	}
+ 	if (!retop)
+diff --git a/t/op/goto.t b/t/op/goto.t
+index aa2f24f..07bd6fb 100644
+--- a/t/op/goto.t
++++ b/t/op/goto.t
+@@ -10,7 +10,7 @@ BEGIN {
+ 
+ use warnings;
+ use strict;
+-plan tests => 98;
++plan tests => 99;
+ our $TODO;
+ 
+ my $deprecated = 0;
+@@ -774,3 +774,12 @@ sub FETCH     { $_[0][0] }
+ tie my $t, "", sub { "cluck up porridge" };
+ is eval { sub { goto $t }->() }//$@, 'cluck up porridge',
+   'tied arg returning sub ref';
++
++sub revnumcmp ($$) {
++  goto FOO;
++  die;
++  FOO:
++  return $_[1] <=> $_[0];
++}
++is eval { join(":", sort revnumcmp (9,5,1,3,7)) }, "9:7:5:3:1",
++  "can goto at top level of multicalled sub";
+-- 
+2.7.4
+
diff --git a/perl-5.24.1-sprintf-add-memory-wrap-tests.patch b/perl-5.24.1-sprintf-add-memory-wrap-tests.patch
new file mode 100644
index 0000000..e5883fc
--- /dev/null
+++ b/perl-5.24.1-sprintf-add-memory-wrap-tests.patch
@@ -0,0 +1,68 @@
+From 08bc282a248b21c92ff45e49490fb95e24358213 Mon Sep 17 00:00:00 2001
+From: David Mitchell <davem@iabyn.com>
+Date: Tue, 9 May 2017 14:29:11 +0100
+Subject: [PATCH] sprintf(): add memory wrap tests
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+Ported to 5.24.1:
+
+commit d729f63cc94318c248eab95844cfbed5298a7ecd
+Author: David Mitchell <davem@iabyn.com>
+Date:   Tue May 9 14:29:11 2017 +0100
+
+    sprintf(): add memory wrap tests
+
+    In various places Perl_sv_vcatpvfn_flags() does croak_memory_wrap()
+    (including a couple added by the previous commit to fix RT #131260),
+    but there don't appear to be any tests for them.
+
+    So this commit adds some tests.
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ t/op/sprintf2.t | 29 ++++++++++++++++++++++++++++-
+ 1 file changed, 28 insertions(+), 1 deletion(-)
+
+diff --git a/t/op/sprintf2.t b/t/op/sprintf2.t
+index 43ed919..ef8a743 100644
+--- a/t/op/sprintf2.t
++++ b/t/op/sprintf2.t
+@@ -749,6 +749,33 @@ SKIP: {
+            "non-canonical form");
+     }
+ }
++
++# check all calls to croak_memory_wrap()
++# RT #131260
++
++{
++    my $s = 8 * $Config{sizesize};
++    my $i = 1;
++    my $max;
++    while ($s--) { $max |= $i; $i <<= 1; }
++    my $max40 = $max - 40; # see the magic fudge factor in sv_vcatpvfn_flags()
++
++    my @tests = (
++                  # format, arg
++                  ["%.${max}a",        1.1 ],
++                  ["%.${max40}a",      1.1 ],
++                  ["%.${max}i",          1 ],
++                  ["%.${max}i",         -1 ],
++    );
++
++    for my $test (@tests) {
++        my ($fmt, $arg) = @$test;
++        eval { my $s = sprintf $fmt, $arg; };
++        like("$@", qr/panic: memory wrap/, qq{memory wrap: "$fmt", "$arg"});
++    }
++}
++
++
+ 
+ # These are IEEE 754 64-bit subnormals (formerly known as denormals).
+ # Keep these as strings so that non-IEEE-754 don't trip over them.
+-- 
+2.9.4
+
diff --git a/perl-5.24.3-Carp-Don-t-choke-on-ISA-constant.patch b/perl-5.24.3-Carp-Don-t-choke-on-ISA-constant.patch
new file mode 100644
index 0000000..17db889
--- /dev/null
+++ b/perl-5.24.3-Carp-Don-t-choke-on-ISA-constant.patch
@@ -0,0 +1,75 @@
+From ab3bb20383d6dbf9baa811d06414ee474bb8f91e Mon Sep 17 00:00:00 2001
+From: Father Chrysostomos <sprout@cpan.org>
+Date: Wed, 1 Nov 2017 13:11:27 -0700
+Subject: [PATCH] =?UTF-8?q?Carp:=20Don=E2=80=99t=20choke=20on=20ISA=20cons?=
+ =?UTF-8?q?tant?=
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+This broke some time between 1.29 (perl 5.18) and 1.3301 (perl 5.20):
+
+$ perl5.20.1 -e 'package Foo { use constant ISA => 42; Bar::f() } package Bar { use Carp; sub f { carp "tun syn" } }'
+Not a GLOB reference at /usr/local/lib/perl5/5.20.1/Carp.pm line 560.
+
+and still persisted in bleadperl (Carp 1.43) until this commit.
+
+The code that goes poking through the symbol table needs to take into
+account that not all stash elements are globs.
+
+Petr Písař: Ported to 5.24.3.
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ dist/Carp/lib/Carp.pm |  3 ++-
+ dist/Carp/t/Carp.t    | 13 ++++++++++++-
+ 2 files changed, 14 insertions(+), 2 deletions(-)
+
+diff --git a/dist/Carp/lib/Carp.pm b/dist/Carp/lib/Carp.pm
+index 92f8866..f94b9d4 100644
+--- a/dist/Carp/lib/Carp.pm
++++ b/dist/Carp/lib/Carp.pm
+@@ -594,7 +594,8 @@ sub trusts_directly {
+     for my $var (qw/ CARP_NOT ISA /) {
+         # Don't try using the variable until we know it exists,
+         # to avoid polluting the caller's namespace.
+-        if ( $stash->{$var} && *{$stash->{$var}}{ARRAY} && @{$stash->{$var}} ) {
++        if ( $stash->{$var} && ref \$stash->{$var} eq 'GLOB'
++          && *{$stash->{$var}}{ARRAY} && @{$stash->{$var}} ) {
+            return @{$stash->{$var}}
+         }
+     }
+diff --git a/dist/Carp/t/Carp.t b/dist/Carp/t/Carp.t
+index 9ecdf88..f981005 100644
+--- a/dist/Carp/t/Carp.t
++++ b/dist/Carp/t/Carp.t
+@@ -3,7 +3,7 @@ no warnings "once";
+ use Config;
+ 
+ use IPC::Open3 1.0103 qw(open3);
+-use Test::More tests => 66;
++use Test::More tests => 67;
+ 
+ sub runperl {
+     my(%args) = @_;
+@@ -478,6 +478,17 @@ SKIP:
+     );
+ }
+ 
++{
++    package Mpar;
++    sub f { Carp::croak "tun syn" }
++
++    package Phou;
++    $Phou::{ISA} = \42;
++    eval { Mpar::f };
++}
++like $@, qr/tun syn/, 'Carp can handle non-glob ISA stash elems';
++
++
+ # New tests go here
+ 
+ # line 1 "XA"
+-- 
+2.13.6
+
diff --git a/perl-5.24.3-Fix-deparsing-of-transliterations-with-unprintable-c.patch b/perl-5.24.3-Fix-deparsing-of-transliterations-with-unprintable-c.patch
new file mode 100644
index 0000000..706c37a
--- /dev/null
+++ b/perl-5.24.3-Fix-deparsing-of-transliterations-with-unprintable-c.patch
@@ -0,0 +1,48 @@
+From 2657358b67ba3eadd1be99bd7e732a8d68f1f95d Mon Sep 17 00:00:00 2001
+From: John Lightsey <lightsey@debian.org>
+Date: Tue, 31 Oct 2017 18:12:26 -0500
+Subject: [PATCH] Fix deparsing of transliterations with unprintable
+ characters.
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+RT #132405
+
+Signed-off-by: Nicolas R <atoomic@cpan.org>
+Petr Písař: Port to 5.24.3.
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ lib/B/Deparse.pm | 2 +-
+ lib/B/Deparse.t  | 5 +++++
+ 2 files changed, 6 insertions(+), 1 deletion(-)
+
+diff --git a/lib/B/Deparse.pm b/lib/B/Deparse.pm
+index 9879d67..f5f7d82 100644
+--- a/lib/B/Deparse.pm
++++ b/lib/B/Deparse.pm
+@@ -5047,7 +5047,7 @@ sub pchr { # ASCII
+     } elsif ($n == ord "\r") {
+ 	return '\\r';
+     } elsif ($n >= ord("\cA") and $n <= ord("\cZ")) {
+-	return '\\c' . unctrl{chr $n};
++	return '\\c' . $unctrl{chr $n};
+     } else {
+ #	return '\x' . sprintf("%02x", $n);
+ 	return '\\' . sprintf("%03o", $n);
+diff --git a/lib/B/Deparse.t b/lib/B/Deparse.t
+index 19db404..45b1ff3 100644
+--- a/lib/B/Deparse.t
++++ b/lib/B/Deparse.t
+@@ -2488,3 +2488,8 @@ $_ ^= $_;
+ $_ |.= $_;
+ $_ &.= $_;
+ $_ ^.= $_;
++####
++# tr with unprintable characters
++my $str;
++$str = 'foo';
++$str =~ tr/\cA//;
+-- 
+2.13.6
+
diff --git a/perl-5.24.3-fix-132017-OPFAIL-insert-needs-to-set-flags-to-0.patch b/perl-5.24.3-fix-132017-OPFAIL-insert-needs-to-set-flags-to-0.patch
new file mode 100644
index 0000000..5305ed7
--- /dev/null
+++ b/perl-5.24.3-fix-132017-OPFAIL-insert-needs-to-set-flags-to-0.patch
@@ -0,0 +1,69 @@
+From 86ecc4da0ec0cea8f9b6af4191b87e4c454aa17c Mon Sep 17 00:00:00 2001
+From: Yves Orton <demerphq@gmail.com>
+Date: Sun, 10 Sep 2017 10:59:05 +0200
+Subject: [PATCH] fix #132017 - OPFAIL insert needs to set flags to 0
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+why reginsert doesnt do this stuff I dont know.
+
+Petr Písař: Ported to 5.24.3.
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ regcomp.c  | 6 +++++-
+ t/re/pat.t | 5 ++++-
+ 2 files changed, 9 insertions(+), 2 deletions(-)
+
+diff --git a/regcomp.c b/regcomp.c
+index 6dcc58a..374032c 100644
+--- a/regcomp.c
++++ b/regcomp.c
+@@ -11498,6 +11498,7 @@ S_regpiece(pTHX_ RExC_state_t *pRExC_state, I32 *flagp, U32 depth)
+             if (max < min) {    /* If can't match, warn and optimize to fail
+                                    unconditionally */
+                 reginsert(pRExC_state, OPFAIL, orig_emit, depth+1);
++                orig_emit->flags = 0;
+                 if (PASS2) {
+                     ckWARNreg(RExC_parse, "Quantifier {n,m} with n > m can't match");
+                     NEXT_OFF(orig_emit)= regarglen[OPFAIL] + NODE_STEP_REGNODE;
+@@ -19046,8 +19047,11 @@ Perl_regprop(pTHX_ const regexp *prog, SV *sv, const regnode *o, const regmatch_
+ 
+     /* add on the verb argument if there is one */
+     if ( ( k == VERB || OP(o) == ACCEPT || OP(o) == OPFAIL ) && o->flags) {
+-        Perl_sv_catpvf(aTHX_ sv, ":%"SVf,
++        if ( ARG(o) )
++            Perl_sv_catpvf(aTHX_ sv, ":%" SVf,
+                        SVfARG((MUTABLE_SV(progi->data->data[ ARG( o ) ]))));
++        else
++            sv_catpvs(sv, ":NULL");
+     }
+ #else
+     PERL_UNUSED_CONTEXT;
+diff --git a/t/re/pat.t b/t/re/pat.t
+index 007f11d..6ff8b0b 100644
+--- a/t/re/pat.t
++++ b/t/re/pat.t
+@@ -23,7 +23,7 @@ BEGIN {
+     skip_all_without_unicode_tables();
+ }
+ 
+-plan tests => 794;  # Update this when adding/deleting tests.
++plan tests => 795;  # Update this when adding/deleting tests.
+ 
+ run_tests() unless caller;
+ 
+@@ -1793,6 +1793,9 @@ EOP
+         pos($text) = 3;
+         ok(scalar($text !~ m{(~*=[a-z]=)}g), "RT #131575");
+     }
++    {
++        fresh_perl_is('"AA" =~ m/AA{1,0}/','',{},"handle OPFAIL insert properly");
++    }
+ 
+ } # End of sub run_tests
+ 
+-- 
+2.13.6
+
diff --git a/perl-5.24.3-fix-parsing-of-braced-subscript-after-parens.patch b/perl-5.24.3-fix-parsing-of-braced-subscript-after-parens.patch
new file mode 100644
index 0000000..cc4d226
--- /dev/null
+++ b/perl-5.24.3-fix-parsing-of-braced-subscript-after-parens.patch
@@ -0,0 +1,4391 @@
+From 1d1ce7c6bc5cc90b78e8231319dab65f969e7682 Mon Sep 17 00:00:00 2001
+From: Zefram <zefram@fysh.org>
+Date: Tue, 16 Jan 2018 08:04:08 +0000
+Subject: [PATCH] fix parsing of braced subscript after parens
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+Where an arrow is omitted between subscripts, if a parenthesised
+subscript is followed by a braced one, PL_expect was getting set to
+XBLOCK due to code intended for "foreach (...) {...}".  This broke
+bareword autoquotation, and the parsing of operators following the
+braced subscript.  Alter PL_expect from XBLOCK to XOPERATOR following
+a parenthesised subscript.  Fixes [perl #8045].
+
+Petr Písař: Ported to 5.24.3.
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ perly.act           | 1256 ++++++++++++++++++++++++++++-------------------
+ perly.h             |  297 ++++-------
+ perly.tab           | 1352 +++++++++++++++++++++++----------------------------
+ perly.y             |   20 +-
+ t/op/postfixderef.t |   25 +-
+ 5 files changed, 1502 insertions(+), 1448 deletions(-)
+
+diff --git a/perly.act b/perly.act
+index 0d1d5fc..b1457f8 100644
+--- a/perly.act
++++ b/perly.act
+@@ -1,223 +1,250 @@
+ /* -*- buffer-read-only: t -*-
+    !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+-   This file is built by regen_perly.pl from perly.y.
++   This file is built by ./regen_perly.pl from perly.y.
+    Any changes made here will be lost!
+  */
+ 
+ case 2:
+-#line 115 "perly.y"
++#line 115 "perly.y" /* yacc.c:1646  */
+     {
+ 			  parser->expect = XSTATE;
+ 			}
++
+     break;
+ 
+   case 3:
+-#line 119 "perly.y"
++#line 119 "perly.y" /* yacc.c:1646  */
+     {
+-			  newPROG(block_end((ps[(3) - (4)].val.ival),(ps[(4) - (4)].val.opval)));
++			  newPROG(block_end((ps[-1].val.ival),(ps[0].val.opval)));
+ 			  PL_compiling.cop_seq = 0;
+ 			  (yyval.ival) = 0;
+ 			}
++
+     break;
+ 
+   case 4:
+-#line 125 "perly.y"
++#line 125 "perly.y" /* yacc.c:1646  */
+     {
+ 			  parser->expect = XTERM;
+ 			}
++
+     break;
+ 
+   case 5:
+-#line 129 "perly.y"
++#line 129 "perly.y" /* yacc.c:1646  */
+     {
+-			  PL_eval_root = (ps[(3) - (3)].val.opval);
++			  PL_eval_root = (ps[0].val.opval);
+ 			  (yyval.ival) = 0;
+ 			}
++
+     break;
+ 
+   case 6:
+-#line 134 "perly.y"
++#line 134 "perly.y" /* yacc.c:1646  */
+     {
+ 			  parser->expect = XBLOCK;
+ 			}
++
+     break;
+ 
+   case 7:
+-#line 138 "perly.y"
++#line 138 "perly.y" /* yacc.c:1646  */
+     {
+ 			  PL_pad_reset_pending = TRUE;
+-			  PL_eval_root = (ps[(3) - (3)].val.opval);
++			  PL_eval_root = (ps[0].val.opval);
+ 			  (yyval.ival) = 0;
+ 			  yyunlex();
+ 			  parser->yychar = YYEOF;
+ 			}
++
+     break;
+ 
+   case 8:
+-#line 146 "perly.y"
++#line 146 "perly.y" /* yacc.c:1646  */
+     {
+ 			  parser->expect = XSTATE;
+ 			}
++
+     break;
+ 
+   case 9:
+-#line 150 "perly.y"
++#line 150 "perly.y" /* yacc.c:1646  */
+     {
+ 			  PL_pad_reset_pending = TRUE;
+-			  PL_eval_root = (ps[(3) - (3)].val.opval);
++			  PL_eval_root = (ps[0].val.opval);
+ 			  (yyval.ival) = 0;
+ 			  yyunlex();
+ 			  parser->yychar = YYEOF;
+ 			}
++
+     break;
+ 
+   case 10:
+-#line 158 "perly.y"
++#line 158 "perly.y" /* yacc.c:1646  */
+     {
+ 			  parser->expect = XSTATE;
+ 			}
++
+     break;
+ 
+   case 11:
+-#line 162 "perly.y"
++#line 162 "perly.y" /* yacc.c:1646  */
+     {
+ 			  PL_pad_reset_pending = TRUE;
+-			  PL_eval_root = (ps[(3) - (3)].val.opval);
++			  PL_eval_root = (ps[0].val.opval);
+ 			  (yyval.ival) = 0;
+ 			  yyunlex();
+ 			  parser->yychar = YYEOF;
+ 			}
++
+     break;
+ 
+   case 12:
+-#line 170 "perly.y"
++#line 170 "perly.y" /* yacc.c:1646  */
+     {
+ 			  parser->expect = XSTATE;
+ 			}
++
+     break;
+ 
+   case 13:
+-#line 174 "perly.y"
++#line 174 "perly.y" /* yacc.c:1646  */
+     {
+-			  PL_eval_root = (ps[(3) - (3)].val.opval);
++			  PL_eval_root = (ps[0].val.opval);
+ 			  (yyval.ival) = 0;
+ 			}
++
+     break;
+ 
+   case 14:
+-#line 182 "perly.y"
+-    { if (parser->copline > (line_t)(ps[(1) - (4)].val.ival))
+-			      parser->copline = (line_t)(ps[(1) - (4)].val.ival);
+-			  (yyval.opval) = block_end((ps[(2) - (4)].val.ival), (ps[(3) - (4)].val.opval));
++#line 182 "perly.y" /* yacc.c:1646  */
++    { if (parser->copline > (line_t)(ps[-3].val.ival))
++			      parser->copline = (line_t)(ps[-3].val.ival);
++			  (yyval.opval) = block_end((ps[-2].val.ival), (ps[-1].val.opval));
+ 			}
++
+     break;
+ 
+   case 15:
+-#line 190 "perly.y"
+-    { if (parser->copline > (line_t)(ps[(1) - (7)].val.ival))
+-			      parser->copline = (line_t)(ps[(1) - (7)].val.ival);
+-			  (yyval.opval) = block_end((ps[(2) - (7)].val.ival), (ps[(5) - (7)].val.opval));
++#line 190 "perly.y" /* yacc.c:1646  */
++    { if (parser->copline > (line_t)(ps[-6].val.ival))
++			      parser->copline = (line_t)(ps[-6].val.ival);
++			  (yyval.opval) = block_end((ps[-5].val.ival), (ps[-2].val.opval));
+ 			}
++
+     break;
+ 
+   case 16:
+-#line 197 "perly.y"
++#line 197 "perly.y" /* yacc.c:1646  */
+     { (yyval.ival) = block_start(TRUE);
+ 			  parser->parsed_sub = 0; }
++
+     break;
+ 
+   case 17:
+-#line 202 "perly.y"
+-    { if (parser->copline > (line_t)(ps[(1) - (4)].val.ival))
+-			      parser->copline = (line_t)(ps[(1) - (4)].val.ival);
+-			  (yyval.opval) = block_end((ps[(2) - (4)].val.ival), (ps[(3) - (4)].val.opval));
++#line 202 "perly.y" /* yacc.c:1646  */
++    { if (parser->copline > (line_t)(ps[-3].val.ival))
++			      parser->copline = (line_t)(ps[-3].val.ival);
++			  (yyval.opval) = block_end((ps[-2].val.ival), (ps[-1].val.opval));
+ 			}
++
+     break;
+ 
+   case 18:
+-#line 209 "perly.y"
++#line 209 "perly.y" /* yacc.c:1646  */
+     { (yyval.ival) = block_start(FALSE);
+ 			  parser->parsed_sub = 0; }
++
+     break;
+ 
+   case 19:
+-#line 215 "perly.y"
++#line 215 "perly.y" /* yacc.c:1646  */
+     { (yyval.opval) = (OP*)NULL; }
++
+     break;
+ 
+   case 20:
+-#line 217 "perly.y"
+-    {   (yyval.opval) = op_append_list(OP_LINESEQ, (ps[(1) - (2)].val.opval), (ps[(2) - (2)].val.opval));
++#line 217 "perly.y" /* yacc.c:1646  */
++    {   (yyval.opval) = op_append_list(OP_LINESEQ, (ps[-1].val.opval), (ps[0].val.opval));
+ 			    PL_pad_reset_pending = TRUE;
+-			    if ((ps[(1) - (2)].val.opval) && (ps[(2) - (2)].val.opval))
++			    if ((ps[-1].val.opval) && (ps[0].val.opval))
+ 				PL_hints |= HINT_BLOCK_SCOPE;
+ 			}
++
+     break;
+ 
+   case 21:
+-#line 226 "perly.y"
++#line 226 "perly.y" /* yacc.c:1646  */
+     { (yyval.opval) = (OP*)NULL; }
++
+     break;
+ 
+   case 22:
+-#line 228 "perly.y"
+-    {   (yyval.opval) = op_append_list(OP_LINESEQ, (ps[(1) - (2)].val.opval), (ps[(2) - (2)].val.opval));
++#line 228 "perly.y" /* yacc.c:1646  */
++    {   (yyval.opval) = op_append_list(OP_LINESEQ, (ps[-1].val.opval), (ps[0].val.opval));
+ 			    PL_pad_reset_pending = TRUE;
+-			    if ((ps[(1) - (2)].val.opval) && (ps[(2) - (2)].val.opval))
++			    if ((ps[-1].val.opval) && (ps[0].val.opval))
+ 				PL_hints |= HINT_BLOCK_SCOPE;
+ 			}
++
+     break;
+ 
+   case 23:
+-#line 237 "perly.y"
++#line 237 "perly.y" /* yacc.c:1646  */
+     {
+-			  (yyval.opval) = (ps[(1) - (1)].val.opval) ? newSTATEOP(0, NULL, (ps[(1) - (1)].val.opval)) : NULL;
++			  (yyval.opval) = (ps[0].val.opval) ? newSTATEOP(0, NULL, (ps[0].val.opval)) : NULL;
+ 			}
++
+     break;
+ 
+   case 24:
+-#line 241 "perly.y"
+-    { (yyval.opval) = (ps[(1) - (1)].val.opval); }
++#line 241 "perly.y" /* yacc.c:1646  */
++    { (yyval.opval) = (ps[0].val.opval); }
++
+     break;
+ 
+   case 25:
+-#line 245 "perly.y"
++#line 245 "perly.y" /* yacc.c:1646  */
+     {
+-			  (yyval.opval) = newSTATEOP(SVf_UTF8 * (ps[(1) - (2)].val.pval)[strlen((ps[(1) - (2)].val.pval))+1], (ps[(1) - (2)].val.pval), (ps[(2) - (2)].val.opval));
++			  (yyval.opval) = newSTATEOP(SVf_UTF8 * (ps[-1].val.pval)[strlen((ps[-1].val.pval))+1], (ps[-1].val.pval), (ps[0].val.opval));
+ 			}
++
+     break;
+ 
+   case 26:
+-#line 249 "perly.y"
++#line 249 "perly.y" /* yacc.c:1646  */
+     {
+-			  (yyval.opval) = newSTATEOP(SVf_UTF8 * (ps[(1) - (2)].val.pval)[strlen((ps[(1) - (2)].val.pval))+1], (ps[(1) - (2)].val.pval), (ps[(2) - (2)].val.opval));
++			  (yyval.opval) = newSTATEOP(SVf_UTF8 * (ps[-1].val.pval)[strlen((ps[-1].val.pval))+1], (ps[-1].val.pval), (ps[0].val.opval));
+ 			}
++
+     break;
+ 
+   case 27:
+-#line 256 "perly.y"
+-    { (yyval.opval) = (ps[(1) - (1)].val.opval); }
++#line 256 "perly.y" /* yacc.c:1646  */
++    { (yyval.opval) = (ps[0].val.opval); }
++
+     break;
+ 
+   case 28:
+-#line 258 "perly.y"
++#line 258 "perly.y" /* yacc.c:1646  */
+     {
+ 			  CV *fmtcv = PL_compcv;
+-			  newFORM((ps[(2) - (4)].val.ival), (ps[(3) - (4)].val.opval), (ps[(4) - (4)].val.opval));
++			  newFORM((ps[-2].val.ival), (ps[-1].val.opval), (ps[0].val.opval));
+ 			  (yyval.opval) = (OP*)NULL;
+ 			  if (CvOUTSIDE(fmtcv) && !CvEVAL(CvOUTSIDE(fmtcv))) {
+ 			      pad_add_weakref(fmtcv);
+ 			  }
+ 			  parser->parsed_sub = 1;
+ 			}
++
+     break;
+ 
+   case 29:
+-#line 268 "perly.y"
++#line 268 "perly.y" /* yacc.c:1646  */
+     {
+-			  if ((ps[(2) - (3)].val.opval)->op_type == OP_CONST) {
++			  if ((ps[-1].val.opval)->op_type == OP_CONST) {
+ 			    const char *const name =
+-				SvPV_nolen_const(((SVOP*)(ps[(2) - (3)].val.opval))->op_sv);
++				SvPV_nolen_const(((SVOP*)(ps[-1].val.opval))->op_sv);
+ 			    if (strEQ(name, "BEGIN") || strEQ(name, "END")
+ 			      || strEQ(name, "INIT") || strEQ(name, "CHECK")
+ 			      || strEQ(name, "UNITCHECK"))
+@@ -230,33 +257,35 @@ case 2:
+ 			   || CvCLONE(CvOUTSIDE(PL_compcv))
+ 			   || !PadnameIsSTATE(PadlistNAMESARRAY(CvPADLIST(
+ 						CvOUTSIDE(PL_compcv)
+-					     ))[(ps[(2) - (3)].val.opval)->op_targ]))
++					     ))[(ps[-1].val.opval)->op_targ]))
+ 			      CvCLONE_on(PL_compcv);
+ 			  parser->in_my = 0;
+ 			  parser->in_my_stash = NULL;
+ 			}
++
+     break;
+ 
+   case 30:
+-#line 290 "perly.y"
++#line 290 "perly.y" /* yacc.c:1646  */
+     {
+ 			  SvREFCNT_inc_simple_void(PL_compcv);
+-			  (ps[(2) - (7)].val.opval)->op_type == OP_CONST
+-			      ? newATTRSUB((ps[(3) - (7)].val.ival), (ps[(2) - (7)].val.opval), (ps[(5) - (7)].val.opval), (ps[(6) - (7)].val.opval), (ps[(7) - (7)].val.opval))
+-			      : newMYSUB((ps[(3) - (7)].val.ival), (ps[(2) - (7)].val.opval), (ps[(5) - (7)].val.opval), (ps[(6) - (7)].val.opval), (ps[(7) - (7)].val.opval))
++			  (ps[-5].val.opval)->op_type == OP_CONST
++			      ? newATTRSUB((ps[-4].val.ival), (ps[-5].val.opval), (ps[-2].val.opval), (ps[-1].val.opval), (ps[0].val.opval))
++			      : newMYSUB((ps[-4].val.ival), (ps[-5].val.opval), (ps[-2].val.opval), (ps[-1].val.opval), (ps[0].val.opval))
+ 			  ;
+ 			  (yyval.opval) = (OP*)NULL;
+ 			  intro_my();
+ 			  parser->parsed_sub = 1;
+ 			}
++
+     break;
+ 
+   case 31:
+-#line 301 "perly.y"
++#line 301 "perly.y" /* yacc.c:1646  */
+     {
+-			  if ((ps[(2) - (3)].val.opval)->op_type == OP_CONST) {
++			  if ((ps[-1].val.opval)->op_type == OP_CONST) {
+ 			    const char *const name =
+-				SvPV_nolen_const(((SVOP*)(ps[(2) - (3)].val.opval))->op_sv);
++				SvPV_nolen_const(((SVOP*)(ps[-1].val.opval))->op_sv);
+ 			    if (strEQ(name, "BEGIN") || strEQ(name, "END")
+ 			      || strEQ(name, "INIT") || strEQ(name, "CHECK")
+ 			      || strEQ(name, "UNITCHECK"))
+@@ -269,130 +298,144 @@ case 2:
+ 			   || CvCLONE(CvOUTSIDE(PL_compcv))
+ 			   || !PadnameIsSTATE(PadlistNAMESARRAY(CvPADLIST(
+ 						CvOUTSIDE(PL_compcv)
+-					     ))[(ps[(2) - (3)].val.opval)->op_targ]))
++					     ))[(ps[-1].val.opval)->op_targ]))
+ 			      CvCLONE_on(PL_compcv);
+ 			  parser->in_my = 0;
+ 			  parser->in_my_stash = NULL;
+ 			}
++
+     break;
+ 
+   case 32:
+-#line 323 "perly.y"
++#line 323 "perly.y" /* yacc.c:1646  */
+     {
+ 			  OP *body;
+-			  if (parser->copline > (line_t)(ps[(8) - (10)].val.ival))
+-			      parser->copline = (line_t)(ps[(8) - (10)].val.ival);
+-			  body = block_end((ps[(5) - (10)].val.ival),
+-				op_append_list(OP_LINESEQ, (ps[(6) - (10)].val.opval), (ps[(9) - (10)].val.opval)));
++			  if (parser->copline > (line_t)(ps[-2].val.ival))
++			      parser->copline = (line_t)(ps[-2].val.ival);
++			  body = block_end((ps[-5].val.ival),
++				op_append_list(OP_LINESEQ, (ps[-4].val.opval), (ps[-1].val.opval)));
+ 
+ 			  SvREFCNT_inc_simple_void(PL_compcv);
+-			  (ps[(2) - (10)].val.opval)->op_type == OP_CONST
+-			      ? newATTRSUB((ps[(3) - (10)].val.ival), (ps[(2) - (10)].val.opval), NULL, (ps[(7) - (10)].val.opval), body)
+-			      : newMYSUB((ps[(3) - (10)].val.ival), (ps[(2) - (10)].val.opval), NULL, (ps[(7) - (10)].val.opval), body)
++			  (ps[-8].val.opval)->op_type == OP_CONST
++			      ? newATTRSUB((ps[-7].val.ival), (ps[-8].val.opval), NULL, (ps[-3].val.opval), body)
++			      : newMYSUB((ps[-7].val.ival), (ps[-8].val.opval), NULL, (ps[-3].val.opval), body)
+ 			  ;
+ 			  (yyval.opval) = (OP*)NULL;
+ 			  intro_my();
+ 			  parser->parsed_sub = 1;
+ 			}
++
+     break;
+ 
+   case 33:
+-#line 340 "perly.y"
++#line 340 "perly.y" /* yacc.c:1646  */
+     {
+-			  package((ps[(3) - (4)].val.opval));
+-			  if ((ps[(2) - (4)].val.opval))
+-			      package_version((ps[(2) - (4)].val.opval));
++			  package((ps[-1].val.opval));
++			  if ((ps[-2].val.opval))
++			      package_version((ps[-2].val.opval));
+ 			  (yyval.opval) = (OP*)NULL;
+ 			}
++
+     break;
+ 
+   case 34:
+-#line 347 "perly.y"
++#line 347 "perly.y" /* yacc.c:1646  */
+     { CvSPECIAL_on(PL_compcv); /* It's a BEGIN {} */ }
++
+     break;
+ 
+   case 35:
+-#line 349 "perly.y"
++#line 349 "perly.y" /* yacc.c:1646  */
+     {
+ 			  SvREFCNT_inc_simple_void(PL_compcv);
+-			  utilize((ps[(1) - (7)].val.ival), (ps[(2) - (7)].val.ival), (ps[(4) - (7)].val.opval), (ps[(5) - (7)].val.opval), (ps[(6) - (7)].val.opval));
++			  utilize((ps[-6].val.ival), (ps[-5].val.ival), (ps[-3].val.opval), (ps[-2].val.opval), (ps[-1].val.opval));
+ 			  parser->parsed_sub = 1;
+ 			  (yyval.opval) = (OP*)NULL;
+ 			}
++
+     break;
+ 
+   case 36:
+-#line 356 "perly.y"
++#line 356 "perly.y" /* yacc.c:1646  */
+     {
+-			  (yyval.opval) = block_end((ps[(3) - (7)].val.ival),
+-			      newCONDOP(0, (ps[(4) - (7)].val.opval), op_scope((ps[(6) - (7)].val.opval)), (ps[(7) - (7)].val.opval)));
+-			  parser->copline = (line_t)(ps[(1) - (7)].val.ival);
++			  (yyval.opval) = block_end((ps[-4].val.ival),
++			      newCONDOP(0, (ps[-3].val.opval), op_scope((ps[-1].val.opval)), (ps[0].val.opval)));
++			  parser->copline = (line_t)(ps[-6].val.ival);
+ 			}
++
+     break;
+ 
+   case 37:
+-#line 362 "perly.y"
++#line 362 "perly.y" /* yacc.c:1646  */
+     {
+-			  (yyval.opval) = block_end((ps[(3) - (7)].val.ival),
+-                              newCONDOP(0, (ps[(4) - (7)].val.opval), (ps[(7) - (7)].val.opval), op_scope((ps[(6) - (7)].val.opval))));
+-			  parser->copline = (line_t)(ps[(1) - (7)].val.ival);
++			  (yyval.opval) = block_end((ps[-4].val.ival),
++                              newCONDOP(0, (ps[-3].val.opval), (ps[0].val.opval), op_scope((ps[-1].val.opval))));
++			  parser->copline = (line_t)(ps[-6].val.ival);
+ 			}
++
+     break;
+ 
+   case 38:
+-#line 368 "perly.y"
++#line 368 "perly.y" /* yacc.c:1646  */
+     {
+-			  (yyval.opval) = block_end((ps[(3) - (6)].val.ival), newGIVENOP((ps[(4) - (6)].val.opval), op_scope((ps[(6) - (6)].val.opval)), 0));
+-			  parser->copline = (line_t)(ps[(1) - (6)].val.ival);
++			  (yyval.opval) = block_end((ps[-3].val.ival), newGIVENOP((ps[-2].val.opval), op_scope((ps[0].val.opval)), 0));
++			  parser->copline = (line_t)(ps[-5].val.ival);
+ 			}
++
+     break;
+ 
+   case 39:
+-#line 373 "perly.y"
+-    { (yyval.opval) = block_end((ps[(3) - (6)].val.ival), newWHENOP((ps[(4) - (6)].val.opval), op_scope((ps[(6) - (6)].val.opval)))); }
++#line 373 "perly.y" /* yacc.c:1646  */
++    { (yyval.opval) = block_end((ps[-3].val.ival), newWHENOP((ps[-2].val.opval), op_scope((ps[0].val.opval)))); }
++
+     break;
+ 
+   case 40:
+-#line 375 "perly.y"
+-    { (yyval.opval) = newWHENOP(0, op_scope((ps[(2) - (2)].val.opval))); }
++#line 375 "perly.y" /* yacc.c:1646  */
++    { (yyval.opval) = newWHENOP(0, op_scope((ps[0].val.opval))); }
++
+     break;
+ 
+   case 41:
+-#line 377 "perly.y"
++#line 377 "perly.y" /* yacc.c:1646  */
+     {
+-			  (yyval.opval) = block_end((ps[(3) - (8)].val.ival),
++			  (yyval.opval) = block_end((ps[-5].val.ival),
+ 				  newWHILEOP(0, 1, (LOOP*)(OP*)NULL,
+-				      (ps[(4) - (8)].val.opval), (ps[(7) - (8)].val.opval), (ps[(8) - (8)].val.opval), (ps[(6) - (8)].val.ival)));
+-			  parser->copline = (line_t)(ps[(1) - (8)].val.ival);
++				      (ps[-4].val.opval), (ps[-1].val.opval), (ps[0].val.opval), (ps[-2].val.ival)));
++			  parser->copline = (line_t)(ps[-7].val.ival);
+ 			}
++
+     break;
+ 
+   case 42:
+-#line 384 "perly.y"
++#line 384 "perly.y" /* yacc.c:1646  */
+     {
+-			  (yyval.opval) = block_end((ps[(3) - (8)].val.ival),
++			  (yyval.opval) = block_end((ps[-5].val.ival),
+ 				  newWHILEOP(0, 1, (LOOP*)(OP*)NULL,
+-				      (ps[(4) - (8)].val.opval), (ps[(7) - (8)].val.opval), (ps[(8) - (8)].val.opval), (ps[(6) - (8)].val.ival)));
+-			  parser->copline = (line_t)(ps[(1) - (8)].val.ival);
++				      (ps[-4].val.opval), (ps[-1].val.opval), (ps[0].val.opval), (ps[-2].val.ival)));
++			  parser->copline = (line_t)(ps[-7].val.ival);
+ 			}
++
+     break;
+ 
+   case 43:
+-#line 391 "perly.y"
++#line 391 "perly.y" /* yacc.c:1646  */
+     { parser->expect = XTERM; }
++
+     break;
+ 
+   case 44:
+-#line 393 "perly.y"
++#line 393 "perly.y" /* yacc.c:1646  */
+     { parser->expect = XTERM; }
++
+     break;
+ 
+   case 45:
+-#line 396 "perly.y"
++#line 396 "perly.y" /* yacc.c:1646  */
+     {
+-			  OP *initop = (ps[(4) - (13)].val.opval);
++			  OP *initop = (ps[-9].val.opval);
+ 			  OP *forop = newWHILEOP(0, 1, (LOOP*)(OP*)NULL,
+-				      scalar((ps[(7) - (13)].val.opval)), (ps[(13) - (13)].val.opval), (ps[(11) - (13)].val.opval), (ps[(10) - (13)].val.ival));
++				      scalar((ps[-6].val.opval)), (ps[0].val.opval), (ps[-2].val.opval), (ps[-3].val.ival));
+ 			  if (initop) {
+ 			      forop = op_prepend_elem(OP_LINESEQ, initop,
+ 				  op_append_elem(OP_LINESEQ,
+@@ -400,123 +443,135 @@ case 2:
+ 				      forop));
+ 			  }
+ 			  PL_hints |= HINT_BLOCK_SCOPE;
+-			  (yyval.opval) = block_end((ps[(3) - (13)].val.ival), forop);
+-			  parser->copline = (line_t)(ps[(1) - (13)].val.ival);
++			  (yyval.opval) = block_end((ps[-10].val.ival), forop);
++			  parser->copline = (line_t)(ps[-12].val.ival);
+ 			}
++
+     break;
+ 
+   case 46:
+-#line 411 "perly.y"
++#line 411 "perly.y" /* yacc.c:1646  */
+     {
+-			  (yyval.opval) = block_end((ps[(3) - (9)].val.ival), newFOROP(0, (ps[(4) - (9)].val.opval), (ps[(6) - (9)].val.opval), (ps[(8) - (9)].val.opval), (ps[(9) - (9)].val.opval)));
+-			  parser->copline = (line_t)(ps[(1) - (9)].val.ival);
++			  (yyval.opval) = block_end((ps[-6].val.ival), newFOROP(0, (ps[-5].val.opval), (ps[-3].val.opval), (ps[-1].val.opval), (ps[0].val.opval)));
++			  parser->copline = (line_t)(ps[-8].val.ival);
+ 			}
++
+     break;
+ 
+   case 47:
+-#line 416 "perly.y"
++#line 416 "perly.y" /* yacc.c:1646  */
+     {
+-			  (yyval.opval) = block_end((ps[(4) - (8)].val.ival), newFOROP(0,
+-				      op_lvalue((ps[(2) - (8)].val.opval), OP_ENTERLOOP), (ps[(5) - (8)].val.opval), (ps[(7) - (8)].val.opval), (ps[(8) - (8)].val.opval)));
+-			  parser->copline = (line_t)(ps[(1) - (8)].val.ival);
++			  (yyval.opval) = block_end((ps[-4].val.ival), newFOROP(0,
++				      op_lvalue((ps[-6].val.opval), OP_ENTERLOOP), (ps[-3].val.opval), (ps[-1].val.opval), (ps[0].val.opval)));
++			  parser->copline = (line_t)(ps[-7].val.ival);
+ 			}
++
+     break;
+ 
+   case 48:
+-#line 422 "perly.y"
+-    { parser->in_my = 0; (yyval.opval) = my((ps[(5) - (5)].val.opval)); }
++#line 422 "perly.y" /* yacc.c:1646  */
++    { parser->in_my = 0; (yyval.opval) = my((ps[0].val.opval)); }
++
+     break;
+ 
+   case 49:
+-#line 424 "perly.y"
++#line 424 "perly.y" /* yacc.c:1646  */
+     {
+ 			  (yyval.opval) = block_end(
+-				(ps[(4) - (11)].val.ival),
++				(ps[-7].val.ival),
+ 				newFOROP(0,
+ 					 op_lvalue(
+ 					    newUNOP(OP_REFGEN, 0,
+-						    (ps[(6) - (11)].val.opval)),
++						    (ps[-5].val.opval)),
+ 					    OP_ENTERLOOP),
+-					 (ps[(8) - (11)].val.opval), (ps[(10) - (11)].val.opval), (ps[(11) - (11)].val.opval))
++					 (ps[-3].val.opval), (ps[-1].val.opval), (ps[0].val.opval))
+ 			  );
+-			  parser->copline = (line_t)(ps[(1) - (11)].val.ival);
++			  parser->copline = (line_t)(ps[-10].val.ival);
+ 			}
++
+     break;
+ 
+   case 50:
+-#line 437 "perly.y"
++#line 437 "perly.y" /* yacc.c:1646  */
+     {
+-			  (yyval.opval) = block_end((ps[(5) - (9)].val.ival), newFOROP(
++			  (yyval.opval) = block_end((ps[-4].val.ival), newFOROP(
+ 				0, op_lvalue(newUNOP(OP_REFGEN, 0,
+-						     (ps[(3) - (9)].val.opval)),
+-					     OP_ENTERLOOP), (ps[(6) - (9)].val.opval), (ps[(8) - (9)].val.opval), (ps[(9) - (9)].val.opval)));
+-			  parser->copline = (line_t)(ps[(1) - (9)].val.ival);
++						     (ps[-6].val.opval)),
++					     OP_ENTERLOOP), (ps[-3].val.opval), (ps[-1].val.opval), (ps[0].val.opval)));
++			  parser->copline = (line_t)(ps[-8].val.ival);
+ 			}
++
+     break;
+ 
+   case 51:
+-#line 445 "perly.y"
++#line 445 "perly.y" /* yacc.c:1646  */
+     {
+-			  (yyval.opval) = block_end((ps[(3) - (7)].val.ival),
+-				  newFOROP(0, (OP*)NULL, (ps[(4) - (7)].val.opval), (ps[(6) - (7)].val.opval), (ps[(7) - (7)].val.opval)));
+-			  parser->copline = (line_t)(ps[(1) - (7)].val.ival);
++			  (yyval.opval) = block_end((ps[-4].val.ival),
++				  newFOROP(0, (OP*)NULL, (ps[-3].val.opval), (ps[-1].val.opval), (ps[0].val.opval)));
++			  parser->copline = (line_t)(ps[-6].val.ival);
+ 			}
++
+     break;
+ 
+   case 52:
+-#line 451 "perly.y"
++#line 451 "perly.y" /* yacc.c:1646  */
+     {
+ 			  /* a block is a loop that happens once */
+ 			  (yyval.opval) = newWHILEOP(0, 1, (LOOP*)(OP*)NULL,
+-				  (OP*)NULL, (ps[(1) - (2)].val.opval), (ps[(2) - (2)].val.opval), 0);
++				  (OP*)NULL, (ps[-1].val.opval), (ps[0].val.opval), 0);
+ 			}
++
+     break;
+ 
+   case 53:
+-#line 457 "perly.y"
++#line 457 "perly.y" /* yacc.c:1646  */
+     {
+-			  package((ps[(3) - (5)].val.opval));
+-			  if ((ps[(2) - (5)].val.opval)) {
+-			      package_version((ps[(2) - (5)].val.opval));
++			  package((ps[-2].val.opval));
++			  if ((ps[-3].val.opval)) {
++			      package_version((ps[-3].val.opval));
+ 			  }
+ 			}
++
+     break;
+ 
+   case 54:
+-#line 464 "perly.y"
++#line 464 "perly.y" /* yacc.c:1646  */
+     {
+ 			  /* a block is a loop that happens once */
+ 			  (yyval.opval) = newWHILEOP(0, 1, (LOOP*)(OP*)NULL,
+-				  (OP*)NULL, block_end((ps[(5) - (8)].val.ival), (ps[(7) - (8)].val.opval)), (OP*)NULL, 0);
+-			  if (parser->copline > (line_t)(ps[(4) - (8)].val.ival))
+-			      parser->copline = (line_t)(ps[(4) - (8)].val.ival);
++				  (OP*)NULL, block_end((ps[-3].val.ival), (ps[-1].val.opval)), (OP*)NULL, 0);
++			  if (parser->copline > (line_t)(ps[-4].val.ival))
++			      parser->copline = (line_t)(ps[-4].val.ival);
+ 			}
++
+     break;
+ 
+   case 55:
+-#line 472 "perly.y"
++#line 472 "perly.y" /* yacc.c:1646  */
+     {
+-			  (yyval.opval) = (ps[(1) - (2)].val.opval);
++			  (yyval.opval) = (ps[-1].val.opval);
+ 			}
++
+     break;
+ 
+   case 56:
+-#line 476 "perly.y"
++#line 476 "perly.y" /* yacc.c:1646  */
+     {
+ 			  (yyval.opval) = (OP*)NULL;
+ 			  parser->copline = NOLINE;
+ 			}
++
+     break;
+ 
+   case 57:
+-#line 484 "perly.y"
++#line 484 "perly.y" /* yacc.c:1646  */
+     { OP *list;
+-			  if ((ps[(2) - (2)].val.opval)) {
+-			      OP *term = (ps[(2) - (2)].val.opval);
+-			      list = op_append_elem(OP_LIST, (ps[(1) - (2)].val.opval), term);
++			  if ((ps[0].val.opval)) {
++			      OP *term = (ps[0].val.opval);
++			      list = op_append_elem(OP_LIST, (ps[-1].val.opval), term);
+ 			  }
+ 			  else {
+-			      list = (ps[(1) - (2)].val.opval);
++			      list = (ps[-1].val.opval);
+ 			  }
+ 			  if (parser->copline == NOLINE)
+ 			       parser->copline = CopLINE(PL_curcop)-1;
+@@ -524,186 +579,219 @@ case 2:
+ 			  (yyval.opval) = newSTATEOP(0, NULL,
+ 					  op_convert_list(OP_FORMLINE, 0, list));
+ 			}
++
+     break;
+ 
+   case 58:
+-#line 501 "perly.y"
++#line 501 "perly.y" /* yacc.c:1646  */
+     { (yyval.opval) = NULL; }
++
+     break;
+ 
+   case 59:
+-#line 503 "perly.y"
+-    { (yyval.opval) = op_unscope((ps[(2) - (3)].val.opval)); }
++#line 503 "perly.y" /* yacc.c:1646  */
++    { (yyval.opval) = op_unscope((ps[-1].val.opval)); }
++
+     break;
+ 
+   case 60:
+-#line 508 "perly.y"
++#line 508 "perly.y" /* yacc.c:1646  */
+     { (yyval.opval) = (OP*)NULL; }
++
+     break;
+ 
+   case 61:
+-#line 510 "perly.y"
+-    { (yyval.opval) = (ps[(1) - (1)].val.opval); }
++#line 510 "perly.y" /* yacc.c:1646  */
++    { (yyval.opval) = (ps[0].val.opval); }
++
+     break;
+ 
+   case 62:
+-#line 512 "perly.y"
+-    { (yyval.opval) = newLOGOP(OP_AND, 0, (ps[(3) - (3)].val.opval), (ps[(1) - (3)].val.opval)); }
++#line 512 "perly.y" /* yacc.c:1646  */
++    { (yyval.opval) = newLOGOP(OP_AND, 0, (ps[0].val.opval), (ps[-2].val.opval)); }
++
+     break;
+ 
+   case 63:
+-#line 514 "perly.y"
+-    { (yyval.opval) = newLOGOP(OP_OR, 0, (ps[(3) - (3)].val.opval), (ps[(1) - (3)].val.opval)); }
++#line 514 "perly.y" /* yacc.c:1646  */
++    { (yyval.opval) = newLOGOP(OP_OR, 0, (ps[0].val.opval), (ps[-2].val.opval)); }
++
+     break;
+ 
+   case 64:
+-#line 516 "perly.y"
+-    { (yyval.opval) = newLOOPOP(OPf_PARENS, 1, scalar((ps[(3) - (3)].val.opval)), (ps[(1) - (3)].val.opval)); }
++#line 516 "perly.y" /* yacc.c:1646  */
++    { (yyval.opval) = newLOOPOP(OPf_PARENS, 1, scalar((ps[0].val.opval)), (ps[-2].val.opval)); }
++
+     break;
+ 
+   case 65:
+-#line 518 "perly.y"
+-    { (yyval.opval) = newLOOPOP(OPf_PARENS, 1, (ps[(3) - (3)].val.opval), (ps[(1) - (3)].val.opval)); }
++#line 518 "perly.y" /* yacc.c:1646  */
++    { (yyval.opval) = newLOOPOP(OPf_PARENS, 1, (ps[0].val.opval), (ps[-2].val.opval)); }
++
+     break;
+ 
+   case 66:
+-#line 520 "perly.y"
+-    { (yyval.opval) = newFOROP(0, (OP*)NULL, (ps[(3) - (3)].val.opval), (ps[(1) - (3)].val.opval), (OP*)NULL);
+-			  parser->copline = (line_t)(ps[(2) - (3)].val.ival); }
++#line 520 "perly.y" /* yacc.c:1646  */
++    { (yyval.opval) = newFOROP(0, (OP*)NULL, (ps[0].val.opval), (ps[-2].val.opval), (OP*)NULL);
++			  parser->copline = (line_t)(ps[-1].val.ival); }
++
+     break;
+ 
+   case 67:
+-#line 523 "perly.y"
+-    { (yyval.opval) = newWHENOP((ps[(3) - (3)].val.opval), op_scope((ps[(1) - (3)].val.opval))); }
++#line 523 "perly.y" /* yacc.c:1646  */
++    { (yyval.opval) = newWHENOP((ps[0].val.opval), op_scope((ps[-2].val.opval))); }
++
+     break;
+ 
+   case 68:
+-#line 528 "perly.y"
++#line 528 "perly.y" /* yacc.c:1646  */
+     { (yyval.opval) = (OP*)NULL; }
++
+     break;
+ 
+   case 69:
+-#line 530 "perly.y"
++#line 530 "perly.y" /* yacc.c:1646  */
+     {
+-			  ((ps[(2) - (2)].val.opval))->op_flags |= OPf_PARENS;
+-			  (yyval.opval) = op_scope((ps[(2) - (2)].val.opval));
++			  ((ps[0].val.opval))->op_flags |= OPf_PARENS;
++			  (yyval.opval) = op_scope((ps[0].val.opval));
+ 			}
++
+     break;
+ 
+   case 70:
+-#line 535 "perly.y"
+-    { parser->copline = (line_t)(ps[(1) - (6)].val.ival);
++#line 535 "perly.y" /* yacc.c:1646  */
++    { parser->copline = (line_t)(ps[-5].val.ival);
+ 			    (yyval.opval) = newCONDOP(0,
+-				newSTATEOP(OPf_SPECIAL,NULL,(ps[(3) - (6)].val.opval)),
+-				op_scope((ps[(5) - (6)].val.opval)), (ps[(6) - (6)].val.opval));
++				newSTATEOP(OPf_SPECIAL,NULL,(ps[-3].val.opval)),
++				op_scope((ps[-1].val.opval)), (ps[0].val.opval));
+ 			  PL_hints |= HINT_BLOCK_SCOPE;
+ 			}
++
+     break;
+ 
+   case 71:
+-#line 545 "perly.y"
++#line 545 "perly.y" /* yacc.c:1646  */
+     { (yyval.opval) = (OP*)NULL; }
++
+     break;
+ 
+   case 72:
+-#line 547 "perly.y"
+-    { (yyval.opval) = op_scope((ps[(2) - (2)].val.opval)); }
++#line 547 "perly.y" /* yacc.c:1646  */
++    { (yyval.opval) = op_scope((ps[0].val.opval)); }
++
+     break;
+ 
+   case 73:
+-#line 552 "perly.y"
++#line 552 "perly.y" /* yacc.c:1646  */
+     { (yyval.ival) = (PL_min_intro_pending &&
+ 			    PL_max_intro_pending >=  PL_min_intro_pending);
+ 			  intro_my(); }
++
+     break;
+ 
+   case 74:
+-#line 558 "perly.y"
++#line 558 "perly.y" /* yacc.c:1646  */
+     { (yyval.opval) = (OP*)NULL; }
++
+     break;
+ 
+   case 76:
+-#line 564 "perly.y"
++#line 564 "perly.y" /* yacc.c:1646  */
+     { YYSTYPE tmplval;
+ 			  (void)scan_num("1", &tmplval);
+ 			  (yyval.opval) = tmplval.opval; }
++
+     break;
+ 
+   case 78:
+-#line 572 "perly.y"
+-    { (yyval.opval) = invert(scalar((ps[(1) - (1)].val.opval))); }
++#line 572 "perly.y" /* yacc.c:1646  */
++    { (yyval.opval) = invert(scalar((ps[0].val.opval))); }
++
+     break;
+ 
+   case 79:
+-#line 577 "perly.y"
+-    { (yyval.opval) = (ps[(1) - (1)].val.opval); intro_my(); }
++#line 577 "perly.y" /* yacc.c:1646  */
++    { (yyval.opval) = (ps[0].val.opval); intro_my(); }
++
+     break;
+ 
+   case 80:
+-#line 581 "perly.y"
+-    { (yyval.opval) = (ps[(1) - (1)].val.opval); intro_my(); }
++#line 581 "perly.y" /* yacc.c:1646  */
++    { (yyval.opval) = (ps[0].val.opval); intro_my(); }
++
+     break;
+ 
+   case 81:
+-#line 584 "perly.y"
+-    { (yyval.opval) = (ps[(1) - (1)].val.opval); }
++#line 584 "perly.y" /* yacc.c:1646  */
++    { (yyval.opval) = (ps[0].val.opval); }
++
+     break;
+ 
+   case 82:
+-#line 585 "perly.y"
++#line 585 "perly.y" /* yacc.c:1646  */
+     { (yyval.opval) = (OP*)NULL; }
++
+     break;
+ 
+   case 83:
+-#line 589 "perly.y"
++#line 589 "perly.y" /* yacc.c:1646  */
+     { (yyval.ival) = start_subparse(FALSE, 0);
+ 			    SAVEFREESV(PL_compcv); }
++
+     break;
+ 
+   case 84:
+-#line 595 "perly.y"
++#line 595 "perly.y" /* yacc.c:1646  */
+     { (yyval.ival) = start_subparse(FALSE, CVf_ANON);
+ 			    SAVEFREESV(PL_compcv); }
++
+     break;
+ 
+   case 85:
+-#line 600 "perly.y"
++#line 600 "perly.y" /* yacc.c:1646  */
+     { (yyval.ival) = start_subparse(TRUE, 0);
+ 			    SAVEFREESV(PL_compcv); }
++
+     break;
+ 
+   case 88:
+-#line 611 "perly.y"
++#line 611 "perly.y" /* yacc.c:1646  */
+     { (yyval.opval) = (OP*)NULL; }
++
+     break;
+ 
+   case 90:
+-#line 617 "perly.y"
++#line 617 "perly.y" /* yacc.c:1646  */
+     { (yyval.opval) = (OP*)NULL; }
++
+     break;
+ 
+   case 91:
+-#line 619 "perly.y"
+-    { (yyval.opval) = (ps[(2) - (2)].val.opval); }
++#line 619 "perly.y" /* yacc.c:1646  */
++    { (yyval.opval) = (ps[0].val.opval); }
++
+     break;
+ 
+   case 92:
+-#line 621 "perly.y"
++#line 621 "perly.y" /* yacc.c:1646  */
+     { (yyval.opval) = (OP*)NULL; }
++
+     break;
+ 
+   case 93:
+-#line 626 "perly.y"
+-    { (yyval.opval) = (ps[(2) - (2)].val.opval); }
++#line 626 "perly.y" /* yacc.c:1646  */
++    { (yyval.opval) = (ps[0].val.opval); }
++
+     break;
+ 
+   case 94:
+-#line 628 "perly.y"
++#line 628 "perly.y" /* yacc.c:1646  */
+     { (yyval.opval) = (OP*)NULL; }
++
+     break;
+ 
+   case 95:
+-#line 633 "perly.y"
++#line 633 "perly.y" /* yacc.c:1646  */
+     {
+ 			  /* We shouldn't get here otherwise */
+ 			  assert(FEATURE_SIGNATURES_IS_ENABLED);
+@@ -713,318 +801,382 @@ case 2:
+ 				"The signatures feature is experimental");
+ 			  (yyval.opval) = parse_subsignature();
+ 			}
++
+     break;
+ 
+   case 96:
+-#line 643 "perly.y"
++#line 643 "perly.y" /* yacc.c:1646  */
+     {
+-			  (yyval.opval) = op_append_list(OP_LINESEQ, (ps[(2) - (3)].val.opval),
++			  (yyval.opval) = op_append_list(OP_LINESEQ, (ps[-1].val.opval),
+ 				newSTATEOP(0, NULL, sawparens(newNULLLIST())));
+ 			  parser->expect = XATTRBLOCK;
+ 			}
++
+     break;
+ 
+   case 98:
+-#line 652 "perly.y"
++#line 652 "perly.y" /* yacc.c:1646  */
+     { (yyval.opval) = (OP*)NULL; }
++
+     break;
+ 
+   case 99:
+-#line 657 "perly.y"
+-    { (yyval.opval) = newLOGOP(OP_AND, 0, (ps[(1) - (3)].val.opval), (ps[(3) - (3)].val.opval)); }
++#line 657 "perly.y" /* yacc.c:1646  */
++    { (yyval.opval) = newLOGOP(OP_AND, 0, (ps[-2].val.opval), (ps[0].val.opval)); }
++
+     break;
+ 
+   case 100:
+-#line 659 "perly.y"
+-    { (yyval.opval) = newLOGOP((ps[(2) - (3)].val.ival), 0, (ps[(1) - (3)].val.opval), (ps[(3) - (3)].val.opval)); }
++#line 659 "perly.y" /* yacc.c:1646  */
++    { (yyval.opval) = newLOGOP((ps[-1].val.ival), 0, (ps[-2].val.opval), (ps[0].val.opval)); }
++
+     break;
+ 
+   case 101:
+-#line 661 "perly.y"
+-    { (yyval.opval) = newLOGOP(OP_DOR, 0, (ps[(1) - (3)].val.opval), (ps[(3) - (3)].val.opval)); }
++#line 661 "perly.y" /* yacc.c:1646  */
++    { (yyval.opval) = newLOGOP(OP_DOR, 0, (ps[-2].val.opval), (ps[0].val.opval)); }
++
+     break;
+ 
+   case 103:
+-#line 667 "perly.y"
+-    { (yyval.opval) = (ps[(1) - (2)].val.opval); }
++#line 667 "perly.y" /* yacc.c:1646  */
++    { (yyval.opval) = (ps[-1].val.opval); }
++
+     break;
+ 
+   case 104:
+-#line 669 "perly.y"
++#line 669 "perly.y" /* yacc.c:1646  */
+     {
+-			  OP* term = (ps[(3) - (3)].val.opval);
+-			  (yyval.opval) = op_append_elem(OP_LIST, (ps[(1) - (3)].val.opval), term);
++			  OP* term = (ps[0].val.opval);
++			  (yyval.opval) = op_append_elem(OP_LIST, (ps[-2].val.opval), term);
+ 			}
++
+     break;
+ 
+   case 106:
+-#line 678 "perly.y"
+-    { (yyval.opval) = op_convert_list((ps[(1) - (3)].val.ival), OPf_STACKED,
+-				op_prepend_elem(OP_LIST, newGVREF((ps[(1) - (3)].val.ival),(ps[(2) - (3)].val.opval)), (ps[(3) - (3)].val.opval)) );
++#line 678 "perly.y" /* yacc.c:1646  */
++    { (yyval.opval) = op_convert_list((ps[-2].val.ival), OPf_STACKED,
++				op_prepend_elem(OP_LIST, newGVREF((ps[-2].val.ival),(ps[-1].val.opval)), (ps[0].val.opval)) );
+ 			}
++
+     break;
+ 
+   case 107:
+-#line 682 "perly.y"
+-    { (yyval.opval) = op_convert_list((ps[(1) - (5)].val.ival), OPf_STACKED,
+-				op_prepend_elem(OP_LIST, newGVREF((ps[(1) - (5)].val.ival),(ps[(3) - (5)].val.opval)), (ps[(4) - (5)].val.opval)) );
++#line 682 "perly.y" /* yacc.c:1646  */
++    { (yyval.opval) = op_convert_list((ps[-4].val.ival), OPf_STACKED,
++				op_prepend_elem(OP_LIST, newGVREF((ps[-4].val.ival),(ps[-2].val.opval)), (ps[-1].val.opval)) );
+ 			}
++
+     break;
+ 
+   case 108:
+-#line 686 "perly.y"
++#line 686 "perly.y" /* yacc.c:1646  */
+     { (yyval.opval) = op_convert_list(OP_ENTERSUB, OPf_STACKED,
+ 				op_append_elem(OP_LIST,
+-				    op_prepend_elem(OP_LIST, scalar((ps[(1) - (6)].val.opval)), (ps[(5) - (6)].val.opval)),
+-				    newMETHOP(OP_METHOD, 0, (ps[(3) - (6)].val.opval))));
++				    op_prepend_elem(OP_LIST, scalar((ps[-5].val.opval)), (ps[-1].val.opval)),
++				    newMETHOP(OP_METHOD, 0, (ps[-3].val.opval))));
+ 			}
++
+     break;
+ 
+   case 109:
+-#line 692 "perly.y"
++#line 692 "perly.y" /* yacc.c:1646  */
+     { (yyval.opval) = op_convert_list(OP_ENTERSUB, OPf_STACKED,
+-				op_append_elem(OP_LIST, scalar((ps[(1) - (3)].val.opval)),
+-				    newMETHOP(OP_METHOD, 0, (ps[(3) - (3)].val.opval))));
++				op_append_elem(OP_LIST, scalar((ps[-2].val.opval)),
++				    newMETHOP(OP_METHOD, 0, (ps[0].val.opval))));
+ 			}
++
+     break;
+ 
+   case 110:
+-#line 697 "perly.y"
++#line 697 "perly.y" /* yacc.c:1646  */
+     { (yyval.opval) = op_convert_list(OP_ENTERSUB, OPf_STACKED,
+ 				op_append_elem(OP_LIST,
+-				    op_prepend_elem(OP_LIST, (ps[(2) - (3)].val.opval), (ps[(3) - (3)].val.opval)),
+-				    newMETHOP(OP_METHOD, 0, (ps[(1) - (3)].val.opval))));
++				    op_prepend_elem(OP_LIST, (ps[-1].val.opval), (ps[0].val.opval)),
++				    newMETHOP(OP_METHOD, 0, (ps[-2].val.opval))));
+ 			}
++
+     break;
+ 
+   case 111:
+-#line 703 "perly.y"
++#line 703 "perly.y" /* yacc.c:1646  */
+     { (yyval.opval) = op_convert_list(OP_ENTERSUB, OPf_STACKED,
+ 				op_append_elem(OP_LIST,
+-				    op_prepend_elem(OP_LIST, (ps[(2) - (5)].val.opval), (ps[(4) - (5)].val.opval)),
+-				    newMETHOP(OP_METHOD, 0, (ps[(1) - (5)].val.opval))));
++				    op_prepend_elem(OP_LIST, (ps[-3].val.opval), (ps[-1].val.opval)),
++				    newMETHOP(OP_METHOD, 0, (ps[-4].val.opval))));
+ 			}
++
+     break;
+ 
+   case 112:
+-#line 709 "perly.y"
+-    { (yyval.opval) = op_convert_list((ps[(1) - (2)].val.ival), 0, (ps[(2) - (2)].val.opval)); }
++#line 709 "perly.y" /* yacc.c:1646  */
++    { (yyval.opval) = op_convert_list((ps[-1].val.ival), 0, (ps[0].val.opval)); }
++
+     break;
+ 
+   case 113:
+-#line 711 "perly.y"
+-    { (yyval.opval) = op_convert_list((ps[(1) - (4)].val.ival), 0, (ps[(3) - (4)].val.opval)); }
++#line 711 "perly.y" /* yacc.c:1646  */
++    { (yyval.opval) = op_convert_list((ps[-3].val.ival), 0, (ps[-1].val.opval)); }
++
+     break;
+ 
+   case 114:
+-#line 713 "perly.y"
++#line 713 "perly.y" /* yacc.c:1646  */
+     { SvREFCNT_inc_simple_void(PL_compcv);
+-			  (yyval.opval) = newANONATTRSUB((ps[(2) - (3)].val.ival), 0, (OP*)NULL, (ps[(3) - (3)].val.opval)); }
++			  (yyval.opval) = newANONATTRSUB((ps[-1].val.ival), 0, (OP*)NULL, (ps[0].val.opval)); }
++
+     break;
+ 
+   case 115:
+-#line 716 "perly.y"
++#line 716 "perly.y" /* yacc.c:1646  */
+     { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
+ 				 op_append_elem(OP_LIST,
+-				   op_prepend_elem(OP_LIST, (ps[(4) - (5)].val.opval), (ps[(5) - (5)].val.opval)), (ps[(1) - (5)].val.opval)));
++				   op_prepend_elem(OP_LIST, (ps[-1].val.opval), (ps[0].val.opval)), (ps[-4].val.opval)));
+ 			}
++
+     break;
+ 
+   case 118:
+-#line 731 "perly.y"
+-    { (yyval.opval) = newBINOP(OP_GELEM, 0, (ps[(1) - (5)].val.opval), scalar((ps[(3) - (5)].val.opval))); }
++#line 731 "perly.y" /* yacc.c:1646  */
++    { (yyval.opval) = newBINOP(OP_GELEM, 0, (ps[-4].val.opval), scalar((ps[-2].val.opval))); }
++
+     break;
+ 
+   case 119:
+-#line 733 "perly.y"
+-    { (yyval.opval) = newBINOP(OP_AELEM, 0, oopsAV((ps[(1) - (4)].val.opval)), scalar((ps[(3) - (4)].val.opval)));
++#line 733 "perly.y" /* yacc.c:1646  */
++    { (yyval.opval) = newBINOP(OP_AELEM, 0, oopsAV((ps[-3].val.opval)), scalar((ps[-1].val.opval)));
+ 			}
++
+     break;
+ 
+   case 120:
+-#line 736 "perly.y"
++#line 736 "perly.y" /* yacc.c:1646  */
+     { (yyval.opval) = newBINOP(OP_AELEM, 0,
+-					ref(newAVREF((ps[(1) - (5)].val.opval)),OP_RV2AV),
+-					scalar((ps[(4) - (5)].val.opval)));
++					ref(newAVREF((ps[-4].val.opval)),OP_RV2AV),
++					scalar((ps[-1].val.opval)));
+ 			}
++
+     break;
+ 
+   case 121:
+-#line 741 "perly.y"
++#line 741 "perly.y" /* yacc.c:1646  */
+     { (yyval.opval) = newBINOP(OP_AELEM, 0,
+-					ref(newAVREF((ps[(1) - (4)].val.opval)),OP_RV2AV),
+-					scalar((ps[(3) - (4)].val.opval)));
++					ref(newAVREF((ps[-3].val.opval)),OP_RV2AV),
++					scalar((ps[-1].val.opval)));
+ 			}
++
+     break;
+ 
+   case 122:
+-#line 746 "perly.y"
+-    { (yyval.opval) = newBINOP(OP_HELEM, 0, oopsHV((ps[(1) - (5)].val.opval)), jmaybe((ps[(3) - (5)].val.opval)));
++#line 746 "perly.y" /* yacc.c:1646  */
++    { (yyval.opval) = newBINOP(OP_HELEM, 0, oopsHV((ps[-4].val.opval)), jmaybe((ps[-2].val.opval)));
+ 			}
++
+     break;
+ 
+   case 123:
+-#line 749 "perly.y"
++#line 749 "perly.y" /* yacc.c:1646  */
+     { (yyval.opval) = newBINOP(OP_HELEM, 0,
+-					ref(newHVREF((ps[(1) - (6)].val.opval)),OP_RV2HV),
+-					jmaybe((ps[(4) - (6)].val.opval))); }
++					ref(newHVREF((ps[-5].val.opval)),OP_RV2HV),
++					jmaybe((ps[-2].val.opval))); }
++
+     break;
+ 
+   case 124:
+-#line 753 "perly.y"
++#line 753 "perly.y" /* yacc.c:1646  */
+     { (yyval.opval) = newBINOP(OP_HELEM, 0,
+-					ref(newHVREF((ps[(1) - (5)].val.opval)),OP_RV2HV),
+-					jmaybe((ps[(3) - (5)].val.opval))); }
++					ref(newHVREF((ps[-4].val.opval)),OP_RV2HV),
++					jmaybe((ps[-2].val.opval))); }
++
+     break;
+ 
+   case 125:
+-#line 757 "perly.y"
++#line 757 "perly.y" /* yacc.c:1646  */
+     { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
+-				   newCVREF(0, scalar((ps[(1) - (4)].val.opval)))); }
++				   newCVREF(0, scalar((ps[-3].val.opval))));
++			  if (parser->expect == XBLOCK)
++			      parser->expect = XOPERATOR;
++			}
++
+     break;
+ 
+   case 126:
+-#line 760 "perly.y"
++#line 763 "perly.y" /* yacc.c:1646  */
+     { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
+-				   op_append_elem(OP_LIST, (ps[(4) - (5)].val.opval),
+-				       newCVREF(0, scalar((ps[(1) - (5)].val.opval))))); }
++				   op_append_elem(OP_LIST, (ps[-1].val.opval),
++				       newCVREF(0, scalar((ps[-4].val.opval)))));
++			  if (parser->expect == XBLOCK)
++			      parser->expect = XOPERATOR;
++			}
++
+     break;
+ 
+   case 127:
+-#line 765 "perly.y"
++#line 771 "perly.y" /* yacc.c:1646  */
+     { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
+-				   op_append_elem(OP_LIST, (ps[(3) - (4)].val.opval),
+-					       newCVREF(0, scalar((ps[(1) - (4)].val.opval))))); }
++				   op_append_elem(OP_LIST, (ps[-1].val.opval),
++					       newCVREF(0, scalar((ps[-3].val.opval)))));
++			  if (parser->expect == XBLOCK)
++			      parser->expect = XOPERATOR;
++			}
++
+     break;
+ 
+   case 128:
+-#line 769 "perly.y"
++#line 778 "perly.y" /* yacc.c:1646  */
+     { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
+-				   newCVREF(0, scalar((ps[(1) - (3)].val.opval)))); }
++				   newCVREF(0, scalar((ps[-2].val.opval))));
++			  if (parser->expect == XBLOCK)
++			      parser->expect = XOPERATOR;
++			}
++
+     break;
+ 
+   case 129:
+-#line 772 "perly.y"
+-    { (yyval.opval) = newSLICEOP(0, (ps[(5) - (6)].val.opval), (ps[(2) - (6)].val.opval)); }
++#line 784 "perly.y" /* yacc.c:1646  */
++    { (yyval.opval) = newSLICEOP(0, (ps[-1].val.opval), (ps[-4].val.opval)); }
++
+     break;
+ 
+   case 130:
+-#line 774 "perly.y"
+-    { (yyval.opval) = newSLICEOP(0, (ps[(3) - (4)].val.opval), (ps[(1) - (4)].val.opval)); }
++#line 786 "perly.y" /* yacc.c:1646  */
++    { (yyval.opval) = newSLICEOP(0, (ps[-1].val.opval), (ps[-3].val.opval)); }
++
+     break;
+ 
+   case 131:
+-#line 776 "perly.y"
+-    { (yyval.opval) = newSLICEOP(0, (ps[(4) - (5)].val.opval), (OP*)NULL); }
++#line 788 "perly.y" /* yacc.c:1646  */
++    { (yyval.opval) = newSLICEOP(0, (ps[-1].val.opval), (OP*)NULL); }
++
+     break;
+ 
+   case 132:
+-#line 781 "perly.y"
+-    { (yyval.opval) = newASSIGNOP(OPf_STACKED, (ps[(1) - (3)].val.opval), (ps[(2) - (3)].val.ival), (ps[(3) - (3)].val.opval)); }
++#line 793 "perly.y" /* yacc.c:1646  */
++    { (yyval.opval) = newASSIGNOP(OPf_STACKED, (ps[-2].val.opval), (ps[-1].val.ival), (ps[0].val.opval)); }
++
+     break;
+ 
+   case 133:
+-#line 783 "perly.y"
+-    { (yyval.opval) = newBINOP((ps[(2) - (3)].val.ival), 0, scalar((ps[(1) - (3)].val.opval)), scalar((ps[(3) - (3)].val.opval))); }
++#line 795 "perly.y" /* yacc.c:1646  */
++    { (yyval.opval) = newBINOP((ps[-1].val.ival), 0, scalar((ps[-2].val.opval)), scalar((ps[0].val.opval))); }
++
+     break;
+ 
+   case 134:
+-#line 785 "perly.y"
+-    {   if ((ps[(2) - (3)].val.ival) != OP_REPEAT)
+-				scalar((ps[(1) - (3)].val.opval));
+-			    (yyval.opval) = newBINOP((ps[(2) - (3)].val.ival), 0, (ps[(1) - (3)].val.opval), scalar((ps[(3) - (3)].val.opval)));
++#line 797 "perly.y" /* yacc.c:1646  */
++    {   if ((ps[-1].val.ival) != OP_REPEAT)
++				scalar((ps[-2].val.opval));
++			    (yyval.opval) = newBINOP((ps[-1].val.ival), 0, (ps[-2].val.opval), scalar((ps[0].val.opval)));
+ 			}
++
+     break;
+ 
+   case 135:
+-#line 790 "perly.y"
+-    { (yyval.opval) = newBINOP((ps[(2) - (3)].val.ival), 0, scalar((ps[(1) - (3)].val.opval)), scalar((ps[(3) - (3)].val.opval))); }
++#line 802 "perly.y" /* yacc.c:1646  */
++    { (yyval.opval) = newBINOP((ps[-1].val.ival), 0, scalar((ps[-2].val.opval)), scalar((ps[0].val.opval))); }
++
+     break;
+ 
+   case 136:
+-#line 792 "perly.y"
+-    { (yyval.opval) = newBINOP((ps[(2) - (3)].val.ival), 0, scalar((ps[(1) - (3)].val.opval)), scalar((ps[(3) - (3)].val.opval))); }
++#line 804 "perly.y" /* yacc.c:1646  */
++    { (yyval.opval) = newBINOP((ps[-1].val.ival), 0, scalar((ps[-2].val.opval)), scalar((ps[0].val.opval))); }
++
+     break;
+ 
+   case 137:
+-#line 794 "perly.y"
+-    { (yyval.opval) = newBINOP((ps[(2) - (3)].val.ival), 0, scalar((ps[(1) - (3)].val.opval)), scalar((ps[(3) - (3)].val.opval))); }
++#line 806 "perly.y" /* yacc.c:1646  */
++    { (yyval.opval) = newBINOP((ps[-1].val.ival), 0, scalar((ps[-2].val.opval)), scalar((ps[0].val.opval))); }
++
+     break;
+ 
+   case 138:
+-#line 796 "perly.y"
+-    { (yyval.opval) = newBINOP((ps[(2) - (3)].val.ival), 0, scalar((ps[(1) - (3)].val.opval)), scalar((ps[(3) - (3)].val.opval))); }
++#line 808 "perly.y" /* yacc.c:1646  */
++    { (yyval.opval) = newBINOP((ps[-1].val.ival), 0, scalar((ps[-2].val.opval)), scalar((ps[0].val.opval))); }
++
+     break;
+ 
+   case 139:
+-#line 798 "perly.y"
+-    { (yyval.opval) = newBINOP((ps[(2) - (3)].val.ival), 0, scalar((ps[(1) - (3)].val.opval)), scalar((ps[(3) - (3)].val.opval))); }
++#line 810 "perly.y" /* yacc.c:1646  */
++    { (yyval.opval) = newBINOP((ps[-1].val.ival), 0, scalar((ps[-2].val.opval)), scalar((ps[0].val.opval))); }
++
+     break;
+ 
+   case 140:
+-#line 800 "perly.y"
+-    { (yyval.opval) = newBINOP((ps[(2) - (3)].val.ival), 0, scalar((ps[(1) - (3)].val.opval)), scalar((ps[(3) - (3)].val.opval))); }
++#line 812 "perly.y" /* yacc.c:1646  */
++    { (yyval.opval) = newBINOP((ps[-1].val.ival), 0, scalar((ps[-2].val.opval)), scalar((ps[0].val.opval))); }
++
+     break;
+ 
+   case 141:
+-#line 802 "perly.y"
+-    { (yyval.opval) = newRANGE((ps[(2) - (3)].val.ival), scalar((ps[(1) - (3)].val.opval)), scalar((ps[(3) - (3)].val.opval))); }
++#line 814 "perly.y" /* yacc.c:1646  */
++    { (yyval.opval) = newRANGE((ps[-1].val.ival), scalar((ps[-2].val.opval)), scalar((ps[0].val.opval))); }
++
+     break;
+ 
+   case 142:
+-#line 804 "perly.y"
+-    { (yyval.opval) = newLOGOP(OP_AND, 0, (ps[(1) - (3)].val.opval), (ps[(3) - (3)].val.opval)); }
++#line 816 "perly.y" /* yacc.c:1646  */
++    { (yyval.opval) = newLOGOP(OP_AND, 0, (ps[-2].val.opval), (ps[0].val.opval)); }
++
+     break;
+ 
+   case 143:
+-#line 806 "perly.y"
+-    { (yyval.opval) = newLOGOP(OP_OR, 0, (ps[(1) - (3)].val.opval), (ps[(3) - (3)].val.opval)); }
++#line 818 "perly.y" /* yacc.c:1646  */
++    { (yyval.opval) = newLOGOP(OP_OR, 0, (ps[-2].val.opval), (ps[0].val.opval)); }
++
+     break;
+ 
+   case 144:
+-#line 808 "perly.y"
+-    { (yyval.opval) = newLOGOP(OP_DOR, 0, (ps[(1) - (3)].val.opval), (ps[(3) - (3)].val.opval)); }
++#line 820 "perly.y" /* yacc.c:1646  */
++    { (yyval.opval) = newLOGOP(OP_DOR, 0, (ps[-2].val.opval), (ps[0].val.opval)); }
++
+     break;
+ 
+   case 145:
+-#line 810 "perly.y"
+-    { (yyval.opval) = bind_match((ps[(2) - (3)].val.ival), (ps[(1) - (3)].val.opval), (ps[(3) - (3)].val.opval)); }
++#line 822 "perly.y" /* yacc.c:1646  */
++    { (yyval.opval) = bind_match((ps[-1].val.ival), (ps[-2].val.opval), (ps[0].val.opval)); }
++
+     break;
+ 
+   case 146:
+-#line 815 "perly.y"
+-    { (yyval.opval) = newUNOP(OP_NEGATE, 0, scalar((ps[(2) - (2)].val.opval))); }
++#line 827 "perly.y" /* yacc.c:1646  */
++    { (yyval.opval) = newUNOP(OP_NEGATE, 0, scalar((ps[0].val.opval))); }
++
+     break;
+ 
+   case 147:
+-#line 817 "perly.y"
+-    { (yyval.opval) = (ps[(2) - (2)].val.opval); }
++#line 829 "perly.y" /* yacc.c:1646  */
++    { (yyval.opval) = (ps[0].val.opval); }
++
+     break;
+ 
+   case 148:
+-#line 820 "perly.y"
+-    { (yyval.opval) = newUNOP(OP_NOT, 0, scalar((ps[(2) - (2)].val.opval))); }
++#line 832 "perly.y" /* yacc.c:1646  */
++    { (yyval.opval) = newUNOP(OP_NOT, 0, scalar((ps[0].val.opval))); }
++
+     break;
+ 
+   case 149:
+-#line 822 "perly.y"
+-    { (yyval.opval) = newUNOP((ps[(1) - (2)].val.ival), 0, scalar((ps[(2) - (2)].val.opval))); }
++#line 834 "perly.y" /* yacc.c:1646  */
++    { (yyval.opval) = newUNOP((ps[-1].val.ival), 0, scalar((ps[0].val.opval))); }
++
+     break;
+ 
+   case 150:
+-#line 824 "perly.y"
++#line 836 "perly.y" /* yacc.c:1646  */
+     { (yyval.opval) = newUNOP(OP_POSTINC, 0,
+-					op_lvalue(scalar((ps[(1) - (2)].val.opval)), OP_POSTINC)); }
++					op_lvalue(scalar((ps[-1].val.opval)), OP_POSTINC)); }
++
+     break;
+ 
+   case 151:
+-#line 827 "perly.y"
++#line 839 "perly.y" /* yacc.c:1646  */
+     { (yyval.opval) = newUNOP(OP_POSTDEC, 0,
+-					op_lvalue(scalar((ps[(1) - (2)].val.opval)), OP_POSTDEC));}
++					op_lvalue(scalar((ps[-1].val.opval)), OP_POSTDEC));}
++
+     break;
+ 
+   case 152:
+-#line 830 "perly.y"
++#line 842 "perly.y" /* yacc.c:1646  */
+     { (yyval.opval) = op_convert_list(OP_JOIN, 0,
+ 				       op_append_elem(
+ 					OP_LIST,
+@@ -1032,510 +1184,598 @@ case 2:
+ 					    newSVOP(OP_CONST,0,
+ 						    newSVpvs("\""))
+ 					)),
+-					(ps[(1) - (2)].val.opval)
++					(ps[-1].val.opval)
+ 				       ));
+ 			}
++
+     break;
+ 
+   case 153:
+-#line 841 "perly.y"
++#line 853 "perly.y" /* yacc.c:1646  */
+     { (yyval.opval) = newUNOP(OP_PREINC, 0,
+-					op_lvalue(scalar((ps[(2) - (2)].val.opval)), OP_PREINC)); }
++					op_lvalue(scalar((ps[0].val.opval)), OP_PREINC)); }
++
+     break;
+ 
+   case 154:
+-#line 844 "perly.y"
++#line 856 "perly.y" /* yacc.c:1646  */
+     { (yyval.opval) = newUNOP(OP_PREDEC, 0,
+-					op_lvalue(scalar((ps[(2) - (2)].val.opval)), OP_PREDEC)); }
++					op_lvalue(scalar((ps[0].val.opval)), OP_PREDEC)); }
++
+     break;
+ 
+   case 155:
+-#line 851 "perly.y"
+-    { (yyval.opval) = newANONLIST((ps[(2) - (3)].val.opval)); }
++#line 863 "perly.y" /* yacc.c:1646  */
++    { (yyval.opval) = newANONLIST((ps[-1].val.opval)); }
++
+     break;
+ 
+   case 156:
+-#line 853 "perly.y"
++#line 865 "perly.y" /* yacc.c:1646  */
+     { (yyval.opval) = newANONLIST((OP*)NULL);}
++
+     break;
+ 
+   case 157:
+-#line 855 "perly.y"
+-    { (yyval.opval) = newANONHASH((ps[(2) - (4)].val.opval)); }
++#line 867 "perly.y" /* yacc.c:1646  */
++    { (yyval.opval) = newANONHASH((ps[-2].val.opval)); }
++
+     break;
+ 
+   case 158:
+-#line 857 "perly.y"
++#line 869 "perly.y" /* yacc.c:1646  */
+     { (yyval.opval) = newANONHASH((OP*)NULL); }
++
+     break;
+ 
+   case 159:
+-#line 859 "perly.y"
++#line 871 "perly.y" /* yacc.c:1646  */
+     { SvREFCNT_inc_simple_void(PL_compcv);
+-			  (yyval.opval) = newANONATTRSUB((ps[(2) - (5)].val.ival), (ps[(3) - (5)].val.opval), (ps[(4) - (5)].val.opval), (ps[(5) - (5)].val.opval)); }
++			  (yyval.opval) = newANONATTRSUB((ps[-3].val.ival), (ps[-2].val.opval), (ps[-1].val.opval), (ps[0].val.opval)); }
++
+     break;
+ 
+   case 160:
+-#line 862 "perly.y"
++#line 874 "perly.y" /* yacc.c:1646  */
+     {
+ 			  OP *body;
+-			  if (parser->copline > (line_t)(ps[(6) - (8)].val.ival))
+-			      parser->copline = (line_t)(ps[(6) - (8)].val.ival);
+-			  body = block_end((ps[(3) - (8)].val.ival),
+-				op_append_list(OP_LINESEQ, (ps[(4) - (8)].val.opval), (ps[(7) - (8)].val.opval)));
++			  if (parser->copline > (line_t)(ps[-2].val.ival))
++			      parser->copline = (line_t)(ps[-2].val.ival);
++			  body = block_end((ps[-5].val.ival),
++				op_append_list(OP_LINESEQ, (ps[-4].val.opval), (ps[-1].val.opval)));
+ 			  SvREFCNT_inc_simple_void(PL_compcv);
+-			  (yyval.opval) = newANONATTRSUB((ps[(2) - (8)].val.ival), NULL, (ps[(5) - (8)].val.opval), body);
++			  (yyval.opval) = newANONATTRSUB((ps[-6].val.ival), NULL, (ps[-3].val.opval), body);
+ 			}
++
+     break;
+ 
+   case 161:
+-#line 876 "perly.y"
+-    { (yyval.opval) = dofile((ps[(2) - (2)].val.opval), (ps[(1) - (2)].val.ival));}
++#line 888 "perly.y" /* yacc.c:1646  */
++    { (yyval.opval) = dofile((ps[0].val.opval), (ps[-1].val.ival));}
++
+     break;
+ 
+   case 162:
+-#line 878 "perly.y"
+-    { (yyval.opval) = newUNOP(OP_NULL, OPf_SPECIAL, op_scope((ps[(2) - (2)].val.opval)));}
++#line 890 "perly.y" /* yacc.c:1646  */
++    { (yyval.opval) = newUNOP(OP_NULL, OPf_SPECIAL, op_scope((ps[0].val.opval)));}
++
+     break;
+ 
+   case 167:
+-#line 886 "perly.y"
+-    { (yyval.opval) = newCONDOP(0, (ps[(1) - (5)].val.opval), (ps[(3) - (5)].val.opval), (ps[(5) - (5)].val.opval)); }
++#line 898 "perly.y" /* yacc.c:1646  */
++    { (yyval.opval) = newCONDOP(0, (ps[-4].val.opval), (ps[-2].val.opval), (ps[0].val.opval)); }
++
+     break;
+ 
+   case 168:
+-#line 888 "perly.y"
+-    { (yyval.opval) = newUNOP(OP_REFGEN, 0, (ps[(2) - (2)].val.opval)); }
++#line 900 "perly.y" /* yacc.c:1646  */
++    { (yyval.opval) = newUNOP(OP_REFGEN, 0, (ps[0].val.opval)); }
++
+     break;
+ 
+   case 169:
+-#line 890 "perly.y"
+-    { (yyval.opval) = (ps[(1) - (1)].val.opval); }
++#line 902 "perly.y" /* yacc.c:1646  */
++    { (yyval.opval) = (ps[0].val.opval); }
++
+     break;
+ 
+   case 170:
+-#line 892 "perly.y"
+-    { (yyval.opval) = localize((ps[(2) - (2)].val.opval),(ps[(1) - (2)].val.ival)); }
++#line 904 "perly.y" /* yacc.c:1646  */
++    { (yyval.opval) = localize((ps[0].val.opval),(ps[-1].val.ival)); }
++
+     break;
+ 
+   case 171:
+-#line 894 "perly.y"
+-    { (yyval.opval) = sawparens((ps[(2) - (3)].val.opval)); }
++#line 906 "perly.y" /* yacc.c:1646  */
++    { (yyval.opval) = sawparens((ps[-1].val.opval)); }
++
+     break;
+ 
+   case 172:
+-#line 896 "perly.y"
+-    { (yyval.opval) = (ps[(1) - (1)].val.opval); }
++#line 908 "perly.y" /* yacc.c:1646  */
++    { (yyval.opval) = (ps[0].val.opval); }
++
+     break;
+ 
+   case 173:
+-#line 898 "perly.y"
++#line 910 "perly.y" /* yacc.c:1646  */
+     { (yyval.opval) = sawparens(newNULLLIST()); }
++
+     break;
+ 
+   case 174:
+-#line 900 "perly.y"
+-    { (yyval.opval) = (ps[(1) - (1)].val.opval); }
++#line 912 "perly.y" /* yacc.c:1646  */
++    { (yyval.opval) = (ps[0].val.opval); }
++
+     break;
+ 
+   case 175:
+-#line 902 "perly.y"
+-    { (yyval.opval) = (ps[(1) - (1)].val.opval); }
++#line 914 "perly.y" /* yacc.c:1646  */
++    { (yyval.opval) = (ps[0].val.opval); }
++
+     break;
+ 
+   case 176:
+-#line 904 "perly.y"
+-    { (yyval.opval) = (ps[(1) - (1)].val.opval); }
++#line 916 "perly.y" /* yacc.c:1646  */
++    { (yyval.opval) = (ps[0].val.opval); }
++
+     break;
+ 
+   case 177:
+-#line 906 "perly.y"
+-    { (yyval.opval) = (ps[(1) - (1)].val.opval); }
++#line 918 "perly.y" /* yacc.c:1646  */
++    { (yyval.opval) = (ps[0].val.opval); }
++
+     break;
+ 
+   case 178:
+-#line 908 "perly.y"
+-    { (yyval.opval) = newUNOP(OP_AV2ARYLEN, 0, ref((ps[(1) - (1)].val.opval), OP_AV2ARYLEN));}
++#line 920 "perly.y" /* yacc.c:1646  */
++    { (yyval.opval) = newUNOP(OP_AV2ARYLEN, 0, ref((ps[0].val.opval), OP_AV2ARYLEN));}
++
+     break;
+ 
+   case 179:
+-#line 910 "perly.y"
+-    { (yyval.opval) = (ps[(1) - (1)].val.opval); }
++#line 922 "perly.y" /* yacc.c:1646  */
++    { (yyval.opval) = (ps[0].val.opval); }
++
+     break;
+ 
+   case 180:
+-#line 912 "perly.y"
++#line 924 "perly.y" /* yacc.c:1646  */
+     { (yyval.opval) = op_prepend_elem(OP_ASLICE,
+ 				newOP(OP_PUSHMARK, 0),
+ 				    newLISTOP(OP_ASLICE, 0,
+-					list((ps[(3) - (4)].val.opval)),
+-					ref((ps[(1) - (4)].val.opval), OP_ASLICE)));
+-			  if ((yyval.opval) && (ps[(1) - (4)].val.opval))
++					list((ps[-1].val.opval)),
++					ref((ps[-3].val.opval), OP_ASLICE)));
++			  if ((yyval.opval) && (ps[-3].val.opval))
+ 			      (yyval.opval)->op_private |=
+-				  (ps[(1) - (4)].val.opval)->op_private & OPpSLICEWARNING;
++				  (ps[-3].val.opval)->op_private & OPpSLICEWARNING;
+ 			}
++
+     break;
+ 
+   case 181:
+-#line 922 "perly.y"
++#line 934 "perly.y" /* yacc.c:1646  */
+     { (yyval.opval) = op_prepend_elem(OP_KVASLICE,
+ 				newOP(OP_PUSHMARK, 0),
+ 				    newLISTOP(OP_KVASLICE, 0,
+-					list((ps[(3) - (4)].val.opval)),
+-					ref(oopsAV((ps[(1) - (4)].val.opval)), OP_KVASLICE)));
+-			  if ((yyval.opval) && (ps[(1) - (4)].val.opval))
++					list((ps[-1].val.opval)),
++					ref(oopsAV((ps[-3].val.opval)), OP_KVASLICE)));
++			  if ((yyval.opval) && (ps[-3].val.opval))
+ 			      (yyval.opval)->op_private |=
+-				  (ps[(1) - (4)].val.opval)->op_private & OPpSLICEWARNING;
++				  (ps[-3].val.opval)->op_private & OPpSLICEWARNING;
+ 			}
++
+     break;
+ 
+   case 182:
+-#line 932 "perly.y"
++#line 944 "perly.y" /* yacc.c:1646  */
+     { (yyval.opval) = op_prepend_elem(OP_HSLICE,
+ 				newOP(OP_PUSHMARK, 0),
+ 				    newLISTOP(OP_HSLICE, 0,
+-					list((ps[(3) - (5)].val.opval)),
+-					ref(oopsHV((ps[(1) - (5)].val.opval)), OP_HSLICE)));
+-			  if ((yyval.opval) && (ps[(1) - (5)].val.opval))
++					list((ps[-2].val.opval)),
++					ref(oopsHV((ps[-4].val.opval)), OP_HSLICE)));
++			  if ((yyval.opval) && (ps[-4].val.opval))
+ 			      (yyval.opval)->op_private |=
+-				  (ps[(1) - (5)].val.opval)->op_private & OPpSLICEWARNING;
++				  (ps[-4].val.opval)->op_private & OPpSLICEWARNING;
+ 			}
++
+     break;
+ 
+   case 183:
+-#line 942 "perly.y"
++#line 954 "perly.y" /* yacc.c:1646  */
+     { (yyval.opval) = op_prepend_elem(OP_KVHSLICE,
+ 				newOP(OP_PUSHMARK, 0),
+ 				    newLISTOP(OP_KVHSLICE, 0,
+-					list((ps[(3) - (5)].val.opval)),
+-					ref((ps[(1) - (5)].val.opval), OP_KVHSLICE)));
+-			  if ((yyval.opval) && (ps[(1) - (5)].val.opval))
++					list((ps[-2].val.opval)),
++					ref((ps[-4].val.opval), OP_KVHSLICE)));
++			  if ((yyval.opval) && (ps[-4].val.opval))
+ 			      (yyval.opval)->op_private |=
+-				  (ps[(1) - (5)].val.opval)->op_private & OPpSLICEWARNING;
++				  (ps[-4].val.opval)->op_private & OPpSLICEWARNING;
+ 			}
++
+     break;
+ 
+   case 184:
+-#line 952 "perly.y"
+-    { (yyval.opval) = (ps[(1) - (1)].val.opval); }
++#line 964 "perly.y" /* yacc.c:1646  */
++    { (yyval.opval) = (ps[0].val.opval); }
++
+     break;
+ 
+   case 185:
+-#line 954 "perly.y"
+-    { (yyval.opval) = newUNOP(OP_ENTERSUB, 0, scalar((ps[(1) - (1)].val.opval))); }
++#line 966 "perly.y" /* yacc.c:1646  */
++    { (yyval.opval) = newUNOP(OP_ENTERSUB, 0, scalar((ps[0].val.opval))); }
++
+     break;
+ 
+   case 186:
+-#line 956 "perly.y"
+-    { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED, scalar((ps[(1) - (3)].val.opval)));
++#line 968 "perly.y" /* yacc.c:1646  */
++    { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED, scalar((ps[-2].val.opval)));
+ 			}
++
+     break;
+ 
+   case 187:
+-#line 959 "perly.y"
++#line 971 "perly.y" /* yacc.c:1646  */
+     {
+ 			  (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
+-				op_append_elem(OP_LIST, (ps[(3) - (4)].val.opval), scalar((ps[(1) - (4)].val.opval))));
++				op_append_elem(OP_LIST, (ps[-1].val.opval), scalar((ps[-3].val.opval))));
+ 			}
++
+     break;
+ 
+   case 188:
+-#line 964 "perly.y"
++#line 976 "perly.y" /* yacc.c:1646  */
+     { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
+-			    op_append_elem(OP_LIST, (ps[(3) - (3)].val.opval), scalar((ps[(2) - (3)].val.opval))));
++			    op_append_elem(OP_LIST, (ps[0].val.opval), scalar((ps[-1].val.opval))));
+ 			}
++
+     break;
+ 
+   case 189:
+-#line 968 "perly.y"
+-    { (yyval.opval) = newSVREF((ps[(1) - (4)].val.opval)); }
++#line 980 "perly.y" /* yacc.c:1646  */
++    { (yyval.opval) = newSVREF((ps[-3].val.opval)); }
++
+     break;
+ 
+   case 190:
+-#line 970 "perly.y"
+-    { (yyval.opval) = newAVREF((ps[(1) - (4)].val.opval)); }
++#line 982 "perly.y" /* yacc.c:1646  */
++    { (yyval.opval) = newAVREF((ps[-3].val.opval)); }
++
+     break;
+ 
+   case 191:
+-#line 972 "perly.y"
+-    { (yyval.opval) = newHVREF((ps[(1) - (4)].val.opval)); }
++#line 984 "perly.y" /* yacc.c:1646  */
++    { (yyval.opval) = newHVREF((ps[-3].val.opval)); }
++
+     break;
+ 
+   case 192:
+-#line 974 "perly.y"
++#line 986 "perly.y" /* yacc.c:1646  */
+     { (yyval.opval) = newUNOP(OP_ENTERSUB, 0,
+-				       scalar(newCVREF((ps[(3) - (4)].val.ival),(ps[(1) - (4)].val.opval)))); }
++				       scalar(newCVREF((ps[-1].val.ival),(ps[-3].val.opval)))); }
++
+     break;
+ 
+   case 193:
+-#line 977 "perly.y"
+-    { (yyval.opval) = newGVREF(0,(ps[(1) - (4)].val.opval)); }
++#line 989 "perly.y" /* yacc.c:1646  */
++    { (yyval.opval) = newGVREF(0,(ps[-3].val.opval)); }
++
+     break;
+ 
+   case 194:
+-#line 979 "perly.y"
+-    { (yyval.opval) = newOP((ps[(1) - (1)].val.ival), OPf_SPECIAL);
++#line 991 "perly.y" /* yacc.c:1646  */
++    { (yyval.opval) = newOP((ps[0].val.ival), OPf_SPECIAL);
+ 			    PL_hints |= HINT_BLOCK_SCOPE; }
++
+     break;
+ 
+   case 195:
+-#line 982 "perly.y"
+-    { (yyval.opval) = newLOOPEX((ps[(1) - (2)].val.ival),(ps[(2) - (2)].val.opval)); }
++#line 994 "perly.y" /* yacc.c:1646  */
++    { (yyval.opval) = newLOOPEX((ps[-1].val.ival),(ps[0].val.opval)); }
++
+     break;
+ 
+   case 196:
+-#line 984 "perly.y"
+-    { (yyval.opval) = newUNOP(OP_NOT, 0, scalar((ps[(2) - (2)].val.opval))); }
++#line 996 "perly.y" /* yacc.c:1646  */
++    { (yyval.opval) = newUNOP(OP_NOT, 0, scalar((ps[0].val.opval))); }
++
+     break;
+ 
+   case 197:
+-#line 986 "perly.y"
+-    { (yyval.opval) = newOP((ps[(1) - (1)].val.ival), 0); }
++#line 998 "perly.y" /* yacc.c:1646  */
++    { (yyval.opval) = newOP((ps[0].val.ival), 0); }
++
+     break;
+ 
+   case 198:
+-#line 988 "perly.y"
+-    { (yyval.opval) = newUNOP((ps[(1) - (2)].val.ival), 0, (ps[(2) - (2)].val.opval)); }
++#line 1000 "perly.y" /* yacc.c:1646  */
++    { (yyval.opval) = newUNOP((ps[-1].val.ival), 0, (ps[0].val.opval)); }
++
+     break;
+ 
+   case 199:
+-#line 990 "perly.y"
+-    { (yyval.opval) = newUNOP((ps[(1) - (2)].val.ival), 0, (ps[(2) - (2)].val.opval)); }
++#line 1002 "perly.y" /* yacc.c:1646  */
++    { (yyval.opval) = newUNOP((ps[-1].val.ival), 0, (ps[0].val.opval)); }
++
+     break;
+ 
+   case 200:
+-#line 992 "perly.y"
+-    { (yyval.opval) = newOP(OP_REQUIRE, (ps[(1) - (1)].val.ival) ? OPf_SPECIAL : 0); }
++#line 1004 "perly.y" /* yacc.c:1646  */
++    { (yyval.opval) = newOP(OP_REQUIRE, (ps[0].val.ival) ? OPf_SPECIAL : 0); }
++
+     break;
+ 
+   case 201:
+-#line 994 "perly.y"
+-    { (yyval.opval) = newUNOP(OP_REQUIRE, (ps[(1) - (2)].val.ival) ? OPf_SPECIAL : 0, (ps[(2) - (2)].val.opval)); }
++#line 1006 "perly.y" /* yacc.c:1646  */
++    { (yyval.opval) = newUNOP(OP_REQUIRE, (ps[-1].val.ival) ? OPf_SPECIAL : 0, (ps[0].val.opval)); }
++
+     break;
+ 
+   case 202:
+-#line 996 "perly.y"
+-    { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED, scalar((ps[(1) - (1)].val.opval))); }
++#line 1008 "perly.y" /* yacc.c:1646  */
++    { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED, scalar((ps[0].val.opval))); }
++
+     break;
+ 
+   case 203:
+-#line 998 "perly.y"
++#line 1010 "perly.y" /* yacc.c:1646  */
+     { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED,
+-			    op_append_elem(OP_LIST, (ps[(2) - (2)].val.opval), scalar((ps[(1) - (2)].val.opval)))); }
++			    op_append_elem(OP_LIST, (ps[0].val.opval), scalar((ps[-1].val.opval)))); }
++
+     break;
+ 
+   case 204:
+-#line 1001 "perly.y"
+-    { (yyval.opval) = newOP((ps[(1) - (1)].val.ival), 0); }
++#line 1013 "perly.y" /* yacc.c:1646  */
++    { (yyval.opval) = newOP((ps[0].val.ival), 0); }
++
+     break;
+ 
+   case 205:
+-#line 1003 "perly.y"
+-    { (yyval.opval) = newOP((ps[(1) - (3)].val.ival), 0);}
++#line 1015 "perly.y" /* yacc.c:1646  */
++    { (yyval.opval) = newOP((ps[-2].val.ival), 0);}
++
+     break;
+ 
+   case 206:
+-#line 1005 "perly.y"
+-    { (yyval.opval) = (ps[(1) - (1)].val.opval); }
++#line 1017 "perly.y" /* yacc.c:1646  */
++    { (yyval.opval) = (ps[0].val.opval); }
++
+     break;
+ 
+   case 207:
+-#line 1007 "perly.y"
+-    { (yyval.opval) = (ps[(1) - (3)].val.opval); }
++#line 1019 "perly.y" /* yacc.c:1646  */
++    { (yyval.opval) = (ps[-2].val.opval); }
++
+     break;
+ 
+   case 208:
+-#line 1009 "perly.y"
+-    { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED, scalar((ps[(1) - (1)].val.opval))); }
++#line 1021 "perly.y" /* yacc.c:1646  */
++    { (yyval.opval) = newUNOP(OP_ENTERSUB, OPf_STACKED, scalar((ps[0].val.opval))); }
++
+     break;
+ 
+   case 209:
+-#line 1011 "perly.y"
+-    { (yyval.opval) = ((ps[(1) - (3)].val.ival) == OP_NOT)
+-                          ? newUNOP((ps[(1) - (3)].val.ival), 0, newSVOP(OP_CONST, 0, newSViv(0)))
+-                          : newOP((ps[(1) - (3)].val.ival), OPf_SPECIAL); }
++#line 1023 "perly.y" /* yacc.c:1646  */
++    { (yyval.opval) = ((ps[-2].val.ival) == OP_NOT)
++                          ? newUNOP((ps[-2].val.ival), 0, newSVOP(OP_CONST, 0, newSViv(0)))
++                          : newOP((ps[-2].val.ival), OPf_SPECIAL); }
++
+     break;
+ 
+   case 210:
+-#line 1015 "perly.y"
+-    { (yyval.opval) = newUNOP((ps[(1) - (4)].val.ival), 0, (ps[(3) - (4)].val.opval)); }
++#line 1027 "perly.y" /* yacc.c:1646  */
++    { (yyval.opval) = newUNOP((ps[-3].val.ival), 0, (ps[-1].val.opval)); }
++
+     break;
+ 
+   case 211:
+-#line 1017 "perly.y"
++#line 1029 "perly.y" /* yacc.c:1646  */
+     {
+-			    if (   (ps[(1) - (1)].val.opval)->op_type != OP_TRANS
+-			        && (ps[(1) - (1)].val.opval)->op_type != OP_TRANSR
+-				&& (((PMOP*)(ps[(1) - (1)].val.opval))->op_pmflags & PMf_HAS_CV))
++			    if (   (ps[0].val.opval)->op_type != OP_TRANS
++			        && (ps[0].val.opval)->op_type != OP_TRANSR
++				&& (((PMOP*)(ps[0].val.opval))->op_pmflags & PMf_HAS_CV))
+ 			    {
+ 				(yyval.ival) = start_subparse(FALSE, CVf_ANON);
+ 				SAVEFREESV(PL_compcv);
+ 			    } else
+ 				(yyval.ival) = 0;
+ 			}
++
+     break;
+ 
+   case 212:
+-#line 1028 "perly.y"
+-    { (yyval.opval) = pmruntime((ps[(1) - (6)].val.opval), (ps[(4) - (6)].val.opval), (ps[(5) - (6)].val.opval), 1, (ps[(2) - (6)].val.ival)); }
++#line 1040 "perly.y" /* yacc.c:1646  */
++    { (yyval.opval) = pmruntime((ps[-5].val.opval), (ps[-2].val.opval), (ps[-1].val.opval), 1, (ps[-4].val.ival)); }
++
+     break;
+ 
+   case 215:
+-#line 1032 "perly.y"
++#line 1044 "perly.y" /* yacc.c:1646  */
+     {
+ 			  (yyval.opval) = newLISTOP(OP_DIE, 0, newOP(OP_PUSHMARK, 0),
+ 				newSVOP(OP_CONST, 0, newSVpvs("Unimplemented")));
+ 			}
++
+     break;
+ 
+   case 217:
+-#line 1041 "perly.y"
+-    { (yyval.opval) = my_attrs((ps[(2) - (3)].val.opval),(ps[(3) - (3)].val.opval)); }
++#line 1053 "perly.y" /* yacc.c:1646  */
++    { (yyval.opval) = my_attrs((ps[-1].val.opval),(ps[0].val.opval)); }
++
+     break;
+ 
+   case 218:
+-#line 1043 "perly.y"
+-    { (yyval.opval) = localize((ps[(2) - (2)].val.opval),(ps[(1) - (2)].val.ival)); }
++#line 1055 "perly.y" /* yacc.c:1646  */
++    { (yyval.opval) = localize((ps[0].val.opval),(ps[-1].val.ival)); }
++
+     break;
+ 
+   case 219:
+-#line 1048 "perly.y"
+-    { (yyval.opval) = sawparens((ps[(2) - (3)].val.opval)); }
++#line 1060 "perly.y" /* yacc.c:1646  */
++    { (yyval.opval) = sawparens((ps[-1].val.opval)); }
++
+     break;
+ 
+   case 220:
+-#line 1050 "perly.y"
++#line 1062 "perly.y" /* yacc.c:1646  */
+     { (yyval.opval) = sawparens(newNULLLIST()); }
++
+     break;
+ 
+   case 221:
+-#line 1053 "perly.y"
+-    { (yyval.opval) = (ps[(1) - (1)].val.opval); }
++#line 1065 "perly.y" /* yacc.c:1646  */
++    { (yyval.opval) = (ps[0].val.opval); }
++
+     break;
+ 
+   case 222:
+-#line 1055 "perly.y"
+-    { (yyval.opval) = (ps[(1) - (1)].val.opval); }
++#line 1067 "perly.y" /* yacc.c:1646  */
++    { (yyval.opval) = (ps[0].val.opval); }
++
+     break;
+ 
+   case 223:
+-#line 1057 "perly.y"
+-    { (yyval.opval) = (ps[(1) - (1)].val.opval); }
++#line 1069 "perly.y" /* yacc.c:1646  */
++    { (yyval.opval) = (ps[0].val.opval); }
++
+     break;
+ 
+   case 224:
+-#line 1062 "perly.y"
++#line 1074 "perly.y" /* yacc.c:1646  */
+     { (yyval.opval) = (OP*)NULL; }
++
+     break;
+ 
+   case 225:
+-#line 1064 "perly.y"
+-    { (yyval.opval) = (ps[(1) - (1)].val.opval); }
++#line 1076 "perly.y" /* yacc.c:1646  */
++    { (yyval.opval) = (ps[0].val.opval); }
++
+     break;
+ 
+   case 226:
+-#line 1068 "perly.y"
++#line 1080 "perly.y" /* yacc.c:1646  */
+     { (yyval.opval) = (OP*)NULL; }
++
+     break;
+ 
+   case 227:
+-#line 1070 "perly.y"
+-    { (yyval.opval) = (ps[(1) - (1)].val.opval); }
++#line 1082 "perly.y" /* yacc.c:1646  */
++    { (yyval.opval) = (ps[0].val.opval); }
++
+     break;
+ 
+   case 228:
+-#line 1074 "perly.y"
++#line 1086 "perly.y" /* yacc.c:1646  */
+     { (yyval.opval) = (OP*)NULL; }
++
+     break;
+ 
+   case 229:
+-#line 1076 "perly.y"
+-    { (yyval.opval) = (ps[(2) - (2)].val.opval); }
++#line 1088 "perly.y" /* yacc.c:1646  */
++    { (yyval.opval) = (ps[0].val.opval); }
++
+     break;
+ 
+   case 230:
+-#line 1082 "perly.y"
+-    { parser->in_my = 0; (yyval.opval) = my((ps[(1) - (1)].val.opval)); }
++#line 1094 "perly.y" /* yacc.c:1646  */
++    { parser->in_my = 0; (yyval.opval) = my((ps[0].val.opval)); }
++
+     break;
+ 
+   case 236:
+-#line 1095 "perly.y"
+-    { (yyval.opval) = newCVREF((ps[(1) - (2)].val.ival),(ps[(2) - (2)].val.opval)); }
++#line 1107 "perly.y" /* yacc.c:1646  */
++    { (yyval.opval) = newCVREF((ps[-1].val.ival),(ps[0].val.opval)); }
++
+     break;
+ 
+   case 237:
+-#line 1099 "perly.y"
+-    { (yyval.opval) = newSVREF((ps[(2) - (2)].val.opval)); }
++#line 1111 "perly.y" /* yacc.c:1646  */
++    { (yyval.opval) = newSVREF((ps[0].val.opval)); }
++
+     break;
+ 
+   case 238:
+-#line 1103 "perly.y"
+-    { (yyval.opval) = newAVREF((ps[(2) - (2)].val.opval));
+-			  if ((yyval.opval)) (yyval.opval)->op_private |= (ps[(1) - (2)].val.ival);
++#line 1115 "perly.y" /* yacc.c:1646  */
++    { (yyval.opval) = newAVREF((ps[0].val.opval));
++			  if ((yyval.opval)) (yyval.opval)->op_private |= (ps[-1].val.ival);
+ 			}
++
+     break;
+ 
+   case 239:
+-#line 1109 "perly.y"
+-    { (yyval.opval) = newHVREF((ps[(2) - (2)].val.opval));
+-			  if ((yyval.opval)) (yyval.opval)->op_private |= (ps[(1) - (2)].val.ival);
++#line 1121 "perly.y" /* yacc.c:1646  */
++    { (yyval.opval) = newHVREF((ps[0].val.opval));
++			  if ((yyval.opval)) (yyval.opval)->op_private |= (ps[-1].val.ival);
+ 			}
++
+     break;
+ 
+   case 240:
+-#line 1115 "perly.y"
+-    { (yyval.opval) = newAVREF((ps[(2) - (2)].val.opval)); }
++#line 1127 "perly.y" /* yacc.c:1646  */
++    { (yyval.opval) = newAVREF((ps[0].val.opval)); }
++
+     break;
+ 
+   case 241:
+-#line 1117 "perly.y"
+-    { (yyval.opval) = newAVREF((ps[(1) - (4)].val.opval)); }
++#line 1129 "perly.y" /* yacc.c:1646  */
++    { (yyval.opval) = newAVREF((ps[-3].val.opval)); }
++
+     break;
+ 
+   case 242:
+-#line 1121 "perly.y"
+-    { (yyval.opval) = newGVREF(0,(ps[(2) - (2)].val.opval)); }
++#line 1133 "perly.y" /* yacc.c:1646  */
++    { (yyval.opval) = newGVREF(0,(ps[0].val.opval)); }
++
+     break;
+ 
+   case 244:
+-#line 1126 "perly.y"
+-    { (yyval.opval) = newAVREF((ps[(1) - (3)].val.opval)); }
++#line 1138 "perly.y" /* yacc.c:1646  */
++    { (yyval.opval) = newAVREF((ps[-2].val.opval)); }
++
+     break;
+ 
+   case 246:
+-#line 1131 "perly.y"
+-    { (yyval.opval) = newHVREF((ps[(1) - (3)].val.opval)); }
++#line 1143 "perly.y" /* yacc.c:1646  */
++    { (yyval.opval) = newHVREF((ps[-2].val.opval)); }
++
+     break;
+ 
+   case 248:
+-#line 1136 "perly.y"
+-    { (yyval.opval) = newGVREF(0,(ps[(1) - (3)].val.opval)); }
++#line 1148 "perly.y" /* yacc.c:1646  */
++    { (yyval.opval) = newGVREF(0,(ps[-2].val.opval)); }
++
+     break;
+ 
+   case 249:
+-#line 1141 "perly.y"
+-    { (yyval.opval) = scalar((ps[(1) - (1)].val.opval)); }
++#line 1153 "perly.y" /* yacc.c:1646  */
++    { (yyval.opval) = scalar((ps[0].val.opval)); }
++
+     break;
+ 
+   case 250:
+-#line 1143 "perly.y"
+-    { (yyval.opval) = scalar((ps[(1) - (1)].val.opval)); }
++#line 1155 "perly.y" /* yacc.c:1646  */
++    { (yyval.opval) = scalar((ps[0].val.opval)); }
++
+     break;
+ 
+   case 251:
+-#line 1145 "perly.y"
+-    { (yyval.opval) = op_scope((ps[(1) - (1)].val.opval)); }
++#line 1157 "perly.y" /* yacc.c:1646  */
++    { (yyval.opval) = op_scope((ps[0].val.opval)); }
++
+     break;
+ 
+   case 252:
+-#line 1148 "perly.y"
+-    { (yyval.opval) = (ps[(1) - (1)].val.opval); }
++#line 1160 "perly.y" /* yacc.c:1646  */
++    { (yyval.opval) = (ps[0].val.opval); }
++
+     break;
+ 
++
++
+       default: break;
+     
+ 
+ /* Generated from:
+- * 703ebd267cf8ca45f9dee9bc0f4b21511117a0c1dca1c8bc9438ce91950217ae perly.y
++ * 4fd37fdbff6285ba6e9096c2229255ecc6264d2f26835e535cf1c38f387ceae6 perly.y
+  * a4923588f219644801577c514014847e1e5240f49413fa3b89d3306fa4874d07 regen_perly.pl
+  * ex: set ro: */
+diff --git a/perly.h b/perly.h
+index acbdaae..4ecd16e 100644
+--- a/perly.h
++++ b/perly.h
+@@ -1,28 +1,28 @@
+ /* -*- buffer-read-only: t -*-
+    !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+-   This file is built by regen_perly.pl from perly.y.
++   This file is built by ./regen_perly.pl from perly.y.
+    Any changes made here will be lost!
+  */
+ 
+-#define PERL_BISON_VERSION  20007
++#define PERL_BISON_VERSION  30000
+ 
+ #ifdef PERL_CORE
+-/* A Bison parser, made by GNU Bison 2.7.  */
++/* A Bison parser, made by GNU Bison 3.0.4.  */
+ 
+ /* Bison interface for Yacc-like parsers in C
+-   
+-      Copyright (C) 1984, 1989-1990, 2000-2012 Free Software Foundation, Inc.
+-   
++
++   Copyright (C) 1984, 1989-1990, 2000-2015 Free Software Foundation, Inc.
++
+    This program is free software: you can redistribute it and/or modify
+    it under the terms of the GNU General Public License as published by
+    the Free Software Foundation, either version 3 of the License, or
+    (at your option) any later version.
+-   
++
+    This program is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+    GNU General Public License for more details.
+-   
++
+    You should have received a copy of the GNU General Public License
+    along with this program.  If not, see <http://www.gnu.org/licenses/>.  */
+ 
+@@ -35,11 +35,11 @@
+    special exception, which will cause the skeleton and the resulting
+    Bison output files to be licensed under the GNU General Public
+    License without this special exception.
+-   
++
+    This special exception was added by the Free Software Foundation in
+    version 2.2 of Bison.  */
+ 
+-/* Enabling traces.  */
++/* Debug traces.  */
+ #ifndef YYDEBUG
+ # define YYDEBUG 0
+ #endif
+@@ -47,178 +47,95 @@
+ extern int yydebug;
+ #endif
+ 
+-/* Tokens.  */
++/* Token type.  */
+ #ifndef YYTOKENTYPE
+ # define YYTOKENTYPE
+-   /* Put the tokens into the symbol table, so that GDB and other debuggers
+-      know about them.  */
+-   enum yytokentype {
+-     GRAMPROG = 258,
+-     GRAMEXPR = 259,
+-     GRAMBLOCK = 260,
+-     GRAMBARESTMT = 261,
+-     GRAMFULLSTMT = 262,
+-     GRAMSTMTSEQ = 263,
+-     WORD = 264,
+-     METHOD = 265,
+-     FUNCMETH = 266,
+-     THING = 267,
+-     PMFUNC = 268,
+-     PRIVATEREF = 269,
+-     QWLIST = 270,
+-     FUNC0OP = 271,
+-     FUNC0SUB = 272,
+-     UNIOPSUB = 273,
+-     LSTOPSUB = 274,
+-     PLUGEXPR = 275,
+-     PLUGSTMT = 276,
+-     LABEL = 277,
+-     FORMAT = 278,
+-     SUB = 279,
+-     ANONSUB = 280,
+-     PACKAGE = 281,
+-     USE = 282,
+-     WHILE = 283,
+-     UNTIL = 284,
+-     IF = 285,
+-     UNLESS = 286,
+-     ELSE = 287,
+-     ELSIF = 288,
+-     CONTINUE = 289,
+-     FOR = 290,
+-     GIVEN = 291,
+-     WHEN = 292,
+-     DEFAULT = 293,
+-     LOOPEX = 294,
+-     DOTDOT = 295,
+-     YADAYADA = 296,
+-     FUNC0 = 297,
+-     FUNC1 = 298,
+-     FUNC = 299,
+-     UNIOP = 300,
+-     LSTOP = 301,
+-     RELOP = 302,
+-     EQOP = 303,
+-     MULOP = 304,
+-     ADDOP = 305,
+-     DOLSHARP = 306,
+-     DO = 307,
+-     HASHBRACK = 308,
+-     NOAMP = 309,
+-     LOCAL = 310,
+-     MY = 311,
+-     REQUIRE = 312,
+-     COLONATTR = 313,
+-     FORMLBRACK = 314,
+-     FORMRBRACK = 315,
+-     PREC_LOW = 316,
+-     DOROP = 317,
+-     OROP = 318,
+-     ANDOP = 319,
+-     NOTOP = 320,
+-     ASSIGNOP = 321,
+-     DORDOR = 322,
+-     OROR = 323,
+-     ANDAND = 324,
+-     BITOROP = 325,
+-     BITANDOP = 326,
+-     SHIFTOP = 327,
+-     MATCHOP = 328,
+-     REFGEN = 329,
+-     UMINUS = 330,
+-     POWOP = 331,
+-     POSTJOIN = 332,
+-     POSTDEC = 333,
+-     POSTINC = 334,
+-     PREDEC = 335,
+-     PREINC = 336,
+-     ARROW = 337
+-   };
++  enum yytokentype
++  {
++    GRAMPROG = 258,
++    GRAMEXPR = 259,
++    GRAMBLOCK = 260,
++    GRAMBARESTMT = 261,
++    GRAMFULLSTMT = 262,
++    GRAMSTMTSEQ = 263,
++    WORD = 264,
++    METHOD = 265,
++    FUNCMETH = 266,
++    THING = 267,
++    PMFUNC = 268,
++    PRIVATEREF = 269,
++    QWLIST = 270,
++    FUNC0OP = 271,
++    FUNC0SUB = 272,
++    UNIOPSUB = 273,
++    LSTOPSUB = 274,
++    PLUGEXPR = 275,
++    PLUGSTMT = 276,
++    LABEL = 277,
++    FORMAT = 278,
++    SUB = 279,
++    ANONSUB = 280,
++    PACKAGE = 281,
++    USE = 282,
++    WHILE = 283,
++    UNTIL = 284,
++    IF = 285,
++    UNLESS = 286,
++    ELSE = 287,
++    ELSIF = 288,
++    CONTINUE = 289,
++    FOR = 290,
++    GIVEN = 291,
++    WHEN = 292,
++    DEFAULT = 293,
++    LOOPEX = 294,
++    DOTDOT = 295,
++    YADAYADA = 296,
++    FUNC0 = 297,
++    FUNC1 = 298,
++    FUNC = 299,
++    UNIOP = 300,
++    LSTOP = 301,
++    RELOP = 302,
++    EQOP = 303,
++    MULOP = 304,
++    ADDOP = 305,
++    DOLSHARP = 306,
++    DO = 307,
++    HASHBRACK = 308,
++    NOAMP = 309,
++    LOCAL = 310,
++    MY = 311,
++    REQUIRE = 312,
++    COLONATTR = 313,
++    FORMLBRACK = 314,
++    FORMRBRACK = 315,
++    PREC_LOW = 316,
++    OROP = 317,
++    DOROP = 318,
++    ANDOP = 319,
++    NOTOP = 320,
++    ASSIGNOP = 321,
++    OROR = 322,
++    DORDOR = 323,
++    ANDAND = 324,
++    BITOROP = 325,
++    BITANDOP = 326,
++    SHIFTOP = 327,
++    MATCHOP = 328,
++    UMINUS = 329,
++    REFGEN = 330,
++    POWOP = 331,
++    PREINC = 332,
++    PREDEC = 333,
++    POSTINC = 334,
++    POSTDEC = 335,
++    POSTJOIN = 336,
++    ARROW = 337
++  };
+ #endif
+ 
+-/* Tokens.  */
+-#define GRAMPROG 258
+-#define GRAMEXPR 259
+-#define GRAMBLOCK 260
+-#define GRAMBARESTMT 261
+-#define GRAMFULLSTMT 262
+-#define GRAMSTMTSEQ 263
+-#define WORD 264
+-#define METHOD 265
+-#define FUNCMETH 266
+-#define THING 267
+-#define PMFUNC 268
+-#define PRIVATEREF 269
+-#define QWLIST 270
+-#define FUNC0OP 271
+-#define FUNC0SUB 272
+-#define UNIOPSUB 273
+-#define LSTOPSUB 274
+-#define PLUGEXPR 275
+-#define PLUGSTMT 276
+-#define LABEL 277
+-#define FORMAT 278
+-#define SUB 279
+-#define ANONSUB 280
+-#define PACKAGE 281
+-#define USE 282
+-#define WHILE 283
+-#define UNTIL 284
+-#define IF 285
+-#define UNLESS 286
+-#define ELSE 287
+-#define ELSIF 288
+-#define CONTINUE 289
+-#define FOR 290
+-#define GIVEN 291
+-#define WHEN 292
+-#define DEFAULT 293
+-#define LOOPEX 294
+-#define DOTDOT 295
+-#define YADAYADA 296
+-#define FUNC0 297
+-#define FUNC1 298
+-#define FUNC 299
+-#define UNIOP 300
+-#define LSTOP 301
+-#define RELOP 302
+-#define EQOP 303
+-#define MULOP 304
+-#define ADDOP 305
+-#define DOLSHARP 306
+-#define DO 307
+-#define HASHBRACK 308
+-#define NOAMP 309
+-#define LOCAL 310
+-#define MY 311
+-#define REQUIRE 312
+-#define COLONATTR 313
+-#define FORMLBRACK 314
+-#define FORMRBRACK 315
+-#define PREC_LOW 316
+-#define DOROP 317
+-#define OROP 318
+-#define ANDOP 319
+-#define NOTOP 320
+-#define ASSIGNOP 321
+-#define DORDOR 322
+-#define OROR 323
+-#define ANDAND 324
+-#define BITOROP 325
+-#define BITANDOP 326
+-#define SHIFTOP 327
+-#define MATCHOP 328
+-#define REFGEN 329
+-#define UMINUS 330
+-#define POWOP 331
+-#define POSTJOIN 332
+-#define POSTDEC 333
+-#define POSTINC 334
+-#define PREDEC 335
+-#define PREINC 336
+-#define ARROW 337
+-
+-
++/* Value type.  */
+ #ifdef PERL_IN_TOKE_C
+ static bool
+ S_is_opval_token(int type) {
+@@ -243,9 +160,9 @@ S_is_opval_token(int type) {
+ #endif /* PERL_IN_TOKE_C */
+ #endif /* PERL_CORE */
+ #if ! defined YYSTYPE && ! defined YYSTYPE_IS_DECLARED
+-typedef union YYSTYPE
++
++union YYSTYPE
+ {
+-/* Line 2058 of yacc.c  */
+ 
+     I32	ival; /* __DEFAULT__ (marker for regen_perly.pl;
+ 				must always be 1st union member) */
+@@ -253,31 +170,19 @@ typedef union YYSTYPE
+     OP *opval;
+     GV *gvval;
+ 
++};
+ 
+-/* Line 2058 of yacc.c  */
+-} YYSTYPE;
++typedef union YYSTYPE YYSTYPE;
+ # define YYSTYPE_IS_TRIVIAL 1
+-# define yystype YYSTYPE /* obsolescent; will be withdrawn */
+ # define YYSTYPE_IS_DECLARED 1
+ #endif
+ 
+ 
+-#ifdef YYPARSE_PARAM
+-#if defined __STDC__ || defined __cplusplus
+-int yyparse (void *YYPARSE_PARAM);
+-#else
+-int yyparse ();
+-#endif
+-#else /* ! YYPARSE_PARAM */
+-#if defined __STDC__ || defined __cplusplus
++
+ int yyparse (void);
+-#else
+-int yyparse ();
+-#endif
+-#endif /* ! YYPARSE_PARAM */
+ 
+ 
+ /* Generated from:
+- * 703ebd267cf8ca45f9dee9bc0f4b21511117a0c1dca1c8bc9438ce91950217ae perly.y
++ * 4fd37fdbff6285ba6e9096c2229255ecc6264d2f26835e535cf1c38f387ceae6 perly.y
+  * a4923588f219644801577c514014847e1e5240f49413fa3b89d3306fa4874d07 regen_perly.pl
+  * ex: set ro: */
+diff --git a/perly.tab b/perly.tab
+index f5a9580..ac88c85 100644
+--- a/perly.tab
++++ b/perly.tab
+@@ -1,12 +1,12 @@
+ /* -*- buffer-read-only: t -*-
+    !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
+-   This file is built by regen_perly.pl from perly.y.
++   This file is built by ./regen_perly.pl from perly.y.
+    Any changes made here will be lost!
+  */
+ 
+ #define YYFINAL  14
+ /* YYLAST -- Last index in YYTABLE.  */
+-#define YYLAST   2913
++#define YYLAST   2896
+ 
+ /* YYNTOKENS -- Number of terminals.  */
+ #define YYNTOKENS  105
+@@ -14,17 +14,19 @@
+ #define YYNNTS  77
+ /* YYNRULES -- Number of rules.  */
+ #define YYNRULES  252
+-/* YYNRULES -- Number of states.  */
++/* YYNSTATES -- Number of states.  */
+ #define YYNSTATES  508
+ 
+-/* YYTRANSLATE(YYLEX) -- Bison symbol number corresponding to YYLEX.  */
++/* YYTRANSLATE[YYX] -- Symbol number corresponding to YYX as returned
++   by yylex, with out-of-bounds checking.  */
+ #define YYUNDEFTOK  2
+ #define YYMAXUTOK   337
+ 
+-#define YYTRANSLATE(YYX)						\
++#define YYTRANSLATE(YYX)                                                \
+   ((unsigned int) (YYX) <= YYMAXUTOK ? yytranslate[YYX] : YYUNDEFTOK)
+ 
+-/* YYTRANSLATE[YYLEX] -- Bison symbol number corresponding to YYLEX.  */
++/* YYTRANSLATE[TOKEN-NUM] -- Symbol number corresponding to TOKEN-NUM
++   as returned by yylex, without out-of-bounds checking.  */
+ static const yytype_uint8 yytranslate[] =
+ {
+        0,     2,     2,     2,     2,     2,     2,     2,     2,     2,
+@@ -64,133 +66,7 @@ static const yytype_uint8 yytranslate[] =
+ };
+ 
+ #if YYDEBUG
+-/* YYPRHS[YYN] -- Index of the first RHS symbol of rule number YYN in
+-   YYRHS.  */
+-static const yytype_uint16 yyprhs[] =
+-{
+-       0,     0,     3,     4,     9,    10,    14,    15,    19,    20,
+-      24,    25,    29,    30,    34,    39,    47,    48,    53,    54,
+-      55,    58,    59,    62,    64,    66,    69,    72,    74,    79,
+-      80,    88,    89,   100,   105,   106,   114,   122,   130,   137,
+-     144,   147,   156,   165,   166,   167,   181,   191,   200,   201,
+-     213,   223,   231,   234,   235,   244,   247,   249,   252,   253,
+-     257,   259,   261,   265,   269,   273,   277,   281,   285,   286,
+-     289,   296,   297,   300,   301,   302,   304,   305,   307,   309,
+-     311,   313,   315,   316,   317,   318,   319,   321,   323,   324,
+-     326,   327,   330,   332,   335,   337,   338,   342,   344,   346,
+-     350,   354,   358,   360,   363,   367,   369,   373,   379,   386,
+-     390,   394,   400,   403,   408,   409,   415,   417,   419,   425,
+-     430,   436,   441,   447,   454,   460,   465,   471,   476,   480,
+-     487,   492,   498,   502,   506,   510,   514,   518,   522,   526,
+-     530,   534,   538,   542,   546,   550,   554,   557,   560,   563,
+-     566,   569,   572,   575,   578,   581,   585,   588,   593,   597,
+-     603,   612,   615,   618,   620,   622,   624,   626,   632,   635,
+-     637,   640,   644,   646,   649,   651,   653,   655,   657,   659,
+-     661,   666,   671,   677,   683,   685,   687,   691,   696,   700,
+-     705,   710,   715,   720,   725,   727,   730,   733,   735,   738,
+-     741,   743,   746,   748,   751,   753,   757,   759,   763,   765,
+-     769,   774,   775,   782,   784,   786,   788,   790,   794,   797,
+-     801,   804,   806,   808,   810,   811,   813,   814,   816,   817,
+-     820,   822,   824,   826,   828,   830,   832,   835,   838,   841,
+-     844,   847,   852,   855,   857,   861,   863,   867,   869,   873,
+-     875,   877,   879
+-};
+-
+-/* YYRHS -- A `-1'-separated list of the rules' RHS.  */
+-static const yytype_int16 yyrhs[] =
+-{
+-     106,     0,    -1,    -1,     3,   107,   115,   118,    -1,    -1,
+-       4,   108,   167,    -1,    -1,     5,   109,   113,    -1,    -1,
+-       6,   110,   122,    -1,    -1,     7,   111,   120,    -1,    -1,
+-       8,   112,   118,    -1,     9,   115,   118,    10,    -1,    18,
+-     115,   101,    71,   119,   101,    19,    -1,    -1,     9,   117,
+-     118,    10,    -1,    -1,    -1,   118,   120,    -1,    -1,   119,
+-     130,    -1,   122,    -1,   121,    -1,    33,   122,    -1,    33,
+-     121,    -1,    32,    -1,    34,   144,   141,   114,    -1,    -1,
+-      35,   145,   142,   123,   146,   147,   151,    -1,    -1,    35,
+-     145,   142,   124,   115,   149,   147,     9,   118,    10,    -1,
+-      37,    20,    20,   101,    -1,    -1,    38,   142,   125,    20,
+-      20,   166,   101,    -1,    41,   100,   115,   139,    99,   116,
+-     133,    -1,    42,   100,   115,   139,    99,   116,   133,    -1,
+-      47,   100,   115,   139,    99,   116,    -1,    48,   100,   115,
+-     139,    99,   116,    -1,    49,   113,    -1,    39,   100,   115,
+-     137,    99,   135,   116,   134,    -1,    40,   100,   115,   138,
+-      99,   135,   116,   134,    -1,    -1,    -1,    46,   100,   115,
+-     140,   101,   126,   137,   101,   127,   135,   140,    99,   116,
+-      -1,    46,    67,   115,   169,   100,   139,    99,   116,   134,
+-      -1,    46,   173,   100,   115,   139,    99,   116,   134,    -1,
+-      -1,    46,    90,    67,   115,   170,   128,   100,   139,    99,
+-     116,   134,    -1,    46,    90,   171,   100,   115,   139,    99,
+-     116,   134,    -1,    46,   100,   115,   139,    99,   116,   134,
+-      -1,   113,   134,    -1,    -1,    37,    20,    20,     9,   115,
+-     129,   118,    10,    -1,   132,   101,    -1,   101,    -1,    23,
+-     131,    -1,    -1,    70,   118,    71,    -1,     1,    -1,   152,
+-      -1,   152,    41,   152,    -1,   152,    42,   152,    -1,   152,
+-      39,   152,    -1,   152,    40,   138,    -1,   152,    46,   152,
+-      -1,   152,    48,   152,    -1,    -1,    43,   116,    -1,    44,
+-     100,   139,    99,   116,   133,    -1,    -1,    45,   113,    -1,
+-      -1,    -1,   132,    -1,    -1,   152,    -1,   152,    -1,   152,
+-      -1,   136,    -1,    20,    -1,    -1,    -1,    -1,    -1,    20,
+-      -1,    25,    -1,    -1,    23,    -1,    -1,    69,    23,    -1,
+-      69,    -1,    69,    23,    -1,    69,    -1,    -1,   100,   150,
+-      99,    -1,   113,    -1,   101,    -1,   152,    75,   152,    -1,
+-     152,    74,   152,    -1,   152,    73,   152,    -1,   153,    -1,
+-     153,    77,    -1,   153,    77,   162,    -1,   162,    -1,    57,
+-     181,   153,    -1,    55,   100,   181,   152,    99,    -1,   162,
+-      98,   156,   100,   167,    99,    -1,   162,    98,   156,    -1,
+-      21,   181,   166,    -1,    22,   181,   100,   167,    99,    -1,
+-      57,   166,    -1,    55,   100,   167,    99,    -1,    -1,    30,
+-     143,   113,   155,   166,    -1,    21,    -1,   173,    -1,   180,
+-       9,   152,   101,    10,    -1,   173,    11,   152,    12,    -1,
+-     162,    98,    11,   152,    12,    -1,   157,    11,   152,    12,
+-      -1,   173,     9,   152,   101,    10,    -1,   162,    98,     9,
+-     152,   101,    10,    -1,   157,     9,   152,   101,    10,    -1,
+-     162,    98,   100,    99,    -1,   162,    98,   100,   152,    99,
+-      -1,   157,   100,   152,    99,    -1,   157,   100,    99,    -1,
+-     100,   152,    99,    11,   152,    12,    -1,    26,    11,   152,
+-      12,    -1,   100,    99,    11,   152,    12,    -1,   162,    78,
+-     162,    -1,   162,    92,   162,    -1,   162,    60,   162,    -1,
+-     162,    61,   162,    -1,   162,    86,   162,    -1,   162,    58,
+-     162,    -1,   162,    59,   162,    -1,   162,    85,   162,    -1,
+-     162,    84,   162,    -1,   162,    51,   162,    -1,   162,    83,
+-     162,    -1,   162,    82,   162,    -1,   162,    81,   162,    -1,
+-     162,    87,   162,    -1,    13,   162,    -1,    14,   162,    -1,
+-      88,   162,    -1,    89,   162,    -1,   162,    95,    -1,   162,
+-      94,    -1,   162,    93,    -1,    97,   162,    -1,    96,   162,
+-      -1,    11,   152,    12,    -1,    11,    12,    -1,    64,   152,
+-     101,    10,    -1,    64,   101,    10,    -1,    36,   143,   146,
+-     147,   113,    -1,    36,   143,   115,   149,   147,     9,   118,
+-      10,    -1,    63,   162,    -1,    63,   113,    -1,   158,    -1,
+-     159,    -1,   160,    -1,   161,    -1,   162,    79,   162,    80,
+-     162,    -1,    90,   162,    -1,   164,    -1,    66,   162,    -1,
+-     100,   152,    99,    -1,    26,    -1,   100,    99,    -1,   173,
+-      -1,   177,    -1,   175,    -1,   174,    -1,   176,    -1,   157,
+-      -1,   178,    11,   152,    12,    -1,   179,    11,   152,    12,
+-      -1,   178,     9,   152,   101,    10,    -1,   179,     9,   152,
+-     101,    10,    -1,    23,    -1,   172,    -1,   172,   100,    99,
+-      -1,   172,   100,   152,    99,    -1,    65,   145,   166,    -1,
+-     162,    98,   102,   103,    -1,   162,    98,    15,   103,    -1,
+-     162,    98,    16,   103,    -1,   162,    98,    17,   103,    -1,
+-     162,    98,   103,   103,    -1,    50,    -1,    50,   162,    -1,
+-      76,   153,    -1,    56,    -1,    56,   113,    -1,    56,   162,
+-      -1,    68,    -1,    68,   162,    -1,    29,    -1,    29,   162,
+-      -1,    53,    -1,    53,   100,    99,    -1,    27,    -1,    27,
+-     100,    99,    -1,    28,    -1,    54,   100,    99,    -1,    54,
+-     100,   152,    99,    -1,    -1,    24,   163,   100,   153,   168,
+-      99,    -1,    20,    -1,   154,    -1,    52,    -1,    31,    -1,
+-      67,   165,   148,    -1,    67,   165,    -1,   100,   152,    99,
+-      -1,   100,    99,    -1,   173,    -1,   175,    -1,   174,    -1,
+-      -1,   153,    -1,    -1,   152,    -1,    -1,   104,   152,    -1,
+-     173,    -1,   173,    -1,   174,    -1,   175,    -1,   170,    -1,
+-     172,    -1,    17,   181,    -1,   102,   181,    -1,    15,   181,
+-      -1,    16,   181,    -1,    62,   181,    -1,   162,    98,    62,
+-     103,    -1,   103,   181,    -1,   174,    -1,   162,    98,    15,
+-      -1,   175,    -1,   162,    98,    16,    -1,   177,    -1,   162,
+-      98,   103,    -1,    20,    -1,   173,    -1,   113,    -1,    25,
+-      -1
+-};
+-
+-/* YYRLINE[YYN] -- source line where rule number YYN was defined.  */
++  /* YYRLINE[YYN] -- Source line where rule number YYN was defined.  */
+ static const yytype_uint16 yyrline[] =
+ {
+        0,   115,   115,   114,   125,   124,   134,   133,   146,   145,
+@@ -205,20 +81,20 @@ static const yytype_uint16 yyrline[] =
+      617,   618,   620,   625,   627,   633,   632,   651,   652,   656,
+      658,   660,   662,   666,   668,   673,   677,   681,   685,   691,
+      696,   702,   708,   710,   713,   712,   723,   724,   728,   732,
+-     735,   740,   745,   748,   752,   756,   759,   764,   768,   771,
+-     773,   775,   780,   782,   784,   789,   791,   793,   795,   797,
+-     799,   801,   803,   805,   807,   809,   814,   816,   819,   821,
+-     823,   826,   829,   840,   843,   850,   852,   854,   856,   858,
+-     861,   875,   877,   881,   882,   883,   884,   885,   887,   889,
+-     891,   893,   895,   897,   899,   901,   903,   905,   907,   909,
+-     911,   921,   931,   941,   951,   953,   955,   958,   963,   967,
+-     969,   971,   973,   976,   978,   981,   983,   985,   987,   989,
+-     991,   993,   995,   997,  1000,  1002,  1004,  1006,  1008,  1010,
+-    1014,  1017,  1016,  1029,  1030,  1031,  1036,  1040,  1042,  1047,
+-    1049,  1052,  1054,  1056,  1061,  1063,  1068,  1069,  1074,  1075,
+-    1081,  1085,  1086,  1087,  1090,  1091,  1094,  1098,  1102,  1108,
+-    1114,  1116,  1120,  1124,  1125,  1129,  1130,  1134,  1135,  1140,
+-    1142,  1144,  1147
++     735,   740,   745,   748,   752,   756,   762,   770,   777,   783,
++     785,   787,   792,   794,   796,   801,   803,   805,   807,   809,
++     811,   813,   815,   817,   819,   821,   826,   828,   831,   833,
++     835,   838,   841,   852,   855,   862,   864,   866,   868,   870,
++     873,   887,   889,   893,   894,   895,   896,   897,   899,   901,
++     903,   905,   907,   909,   911,   913,   915,   917,   919,   921,
++     923,   933,   943,   953,   963,   965,   967,   970,   975,   979,
++     981,   983,   985,   988,   990,   993,   995,   997,   999,  1001,
++    1003,  1005,  1007,  1009,  1012,  1014,  1016,  1018,  1020,  1022,
++    1026,  1029,  1028,  1041,  1042,  1043,  1048,  1052,  1054,  1059,
++    1061,  1064,  1066,  1068,  1073,  1075,  1080,  1081,  1086,  1087,
++    1093,  1097,  1098,  1099,  1102,  1103,  1106,  1110,  1114,  1120,
++    1126,  1128,  1132,  1136,  1137,  1141,  1142,  1146,  1147,  1152,
++    1154,  1156,  1159
+ };
+ #endif
+ 
+@@ -237,10 +113,10 @@ static const char *const yytname[] =
+   "LOOPEX", "DOTDOT", "YADAYADA", "FUNC0", "FUNC1", "FUNC", "UNIOP",
+   "LSTOP", "RELOP", "EQOP", "MULOP", "ADDOP", "DOLSHARP", "DO",
+   "HASHBRACK", "NOAMP", "LOCAL", "MY", "REQUIRE", "COLONATTR",
+-  "FORMLBRACK", "FORMRBRACK", "PREC_LOW", "DOROP", "OROP", "ANDOP",
+-  "NOTOP", "','", "ASSIGNOP", "'?'", "':'", "DORDOR", "OROR", "ANDAND",
+-  "BITOROP", "BITANDOP", "SHIFTOP", "MATCHOP", "'!'", "'~'", "REFGEN",
+-  "UMINUS", "POWOP", "POSTJOIN", "POSTDEC", "POSTINC", "PREDEC", "PREINC",
++  "FORMLBRACK", "FORMRBRACK", "PREC_LOW", "OROP", "DOROP", "ANDOP",
++  "NOTOP", "','", "ASSIGNOP", "'?'", "':'", "OROR", "DORDOR", "ANDAND",
++  "BITOROP", "BITANDOP", "SHIFTOP", "MATCHOP", "'!'", "'~'", "UMINUS",
++  "REFGEN", "POWOP", "PREINC", "PREDEC", "POSTINC", "POSTDEC", "POSTJOIN",
+   "ARROW", "')'", "'('", "';'", "'$'", "'*'", "'/'", "$accept", "grammar",
+   "$@1", "$@2", "$@3", "$@4", "$@5", "$@6", "block", "formblock",
+   "remember", "mblock", "mremember", "stmtseq", "formstmtseq", "fullstmt",
+@@ -253,13 +129,13 @@ static const char *const yytname[] =
+   "anonymous", "termdo", "term", "@16", "myattrterm", "myterm",
+   "optlistexpr", "optexpr", "optrepl", "my_scalar", "my_var",
+   "refgen_topic", "amper", "scalar", "ary", "hsh", "arylen", "star",
+-  "sliceme", "kvslice", "gelem", "indirob", YY_NULL
++  "sliceme", "kvslice", "gelem", "indirob", YY_NULLPTR
+ };
+ #endif
+ 
+ # ifdef YYPRINT
+-/* YYTOKNUM[YYLEX-NUM] -- Internal token number corresponding to
+-   token YYLEX-NUM.  */
++/* YYTOKNUM[NUM] -- (External) token number corresponding to the
++   (internal) symbol number NUM (which must be that of a token).  */
+ static const yytype_uint16 yytoknum[] =
+ {
+        0,   256,   257,   258,   259,   260,   261,   262,   263,   123,
+@@ -276,71 +152,76 @@ static const yytype_uint16 yytoknum[] =
+ };
+ # endif
+ 
+-/* YYR1[YYN] -- Symbol number of symbol that rule YYN derives.  */
+-static const yytype_uint8 yyr1[] =
+-{
+-       0,   105,   107,   106,   108,   106,   109,   106,   110,   106,
+-     111,   106,   112,   106,   113,   114,   115,   116,   117,   118,
+-     118,   119,   119,   120,   120,   121,   121,   122,   122,   123,
+-     122,   124,   122,   122,   125,   122,   122,   122,   122,   122,
+-     122,   122,   122,   126,   127,   122,   122,   122,   128,   122,
+-     122,   122,   122,   129,   122,   122,   122,   130,   131,   131,
+-     132,   132,   132,   132,   132,   132,   132,   132,   133,   133,
+-     133,   134,   134,   135,   136,   136,   137,   137,   138,   139,
+-     140,   141,   141,   142,   143,   144,   145,   145,   146,   146,
+-     147,   147,   147,   148,   148,   150,   149,   151,   151,   152,
+-     152,   152,   152,   153,   153,   153,   154,   154,   154,   154,
+-     154,   154,   154,   154,   155,   154,   156,   156,   157,   157,
+-     157,   157,   157,   157,   157,   157,   157,   157,   157,   157,
+-     157,   157,   158,   158,   158,   158,   158,   158,   158,   158,
+-     158,   158,   158,   158,   158,   158,   159,   159,   159,   159,
+-     159,   159,   159,   159,   159,   160,   160,   160,   160,   160,
+-     160,   161,   161,   162,   162,   162,   162,   162,   162,   162,
+-     162,   162,   162,   162,   162,   162,   162,   162,   162,   162,
+-     162,   162,   162,   162,   162,   162,   162,   162,   162,   162,
+-     162,   162,   162,   162,   162,   162,   162,   162,   162,   162,
+-     162,   162,   162,   162,   162,   162,   162,   162,   162,   162,
+-     162,   163,   162,   162,   162,   162,   162,   164,   164,   165,
+-     165,   165,   165,   165,   166,   166,   167,   167,   168,   168,
+-     169,   170,   170,   170,   171,   171,   172,   173,   174,   175,
+-     176,   176,   177,   178,   178,   179,   179,   180,   180,   181,
+-     181,   181,   181
+-};
++#define YYPACT_NINF -400
+ 
+-/* YYR2[YYN] -- Number of symbols composing right hand side of rule YYN.  */
+-static const yytype_uint8 yyr2[] =
++#define yypact_value_is_default(Yystate) \
++  (!!((Yystate) == (-400)))
++
++#define YYTABLE_NINF -248
++
++#define yytable_value_is_error(Yytable_value) \
++  (!!((Yytable_value) == (-248)))
++
++  /* YYPACT[STATE-NUM] -- Index in YYTABLE of the portion describing
++     STATE-NUM.  */
++static const yytype_int16 yypact[] =
+ {
+-       0,     2,     0,     4,     0,     3,     0,     3,     0,     3,
+-       0,     3,     0,     3,     4,     7,     0,     4,     0,     0,
+-       2,     0,     2,     1,     1,     2,     2,     1,     4,     0,
+-       7,     0,    10,     4,     0,     7,     7,     7,     6,     6,
+-       2,     8,     8,     0,     0,    13,     9,     8,     0,    11,
+-       9,     7,     2,     0,     8,     2,     1,     2,     0,     3,
+-       1,     1,     3,     3,     3,     3,     3,     3,     0,     2,
+-       6,     0,     2,     0,     0,     1,     0,     1,     1,     1,
+-       1,     1,     0,     0,     0,     0,     1,     1,     0,     1,
+-       0,     2,     1,     2,     1,     0,     3,     1,     1,     3,
+-       3,     3,     1,     2,     3,     1,     3,     5,     6,     3,
+-       3,     5,     2,     4,     0,     5,     1,     1,     5,     4,
+-       5,     4,     5,     6,     5,     4,     5,     4,     3,     6,
+-       4,     5,     3,     3,     3,     3,     3,     3,     3,     3,
+-       3,     3,     3,     3,     3,     3,     2,     2,     2,     2,
+-       2,     2,     2,     2,     2,     3,     2,     4,     3,     5,
+-       8,     2,     2,     1,     1,     1,     1,     5,     2,     1,
+-       2,     3,     1,     2,     1,     1,     1,     1,     1,     1,
+-       4,     4,     5,     5,     1,     1,     3,     4,     3,     4,
+-       4,     4,     4,     4,     1,     2,     2,     1,     2,     2,
+-       1,     2,     1,     2,     1,     3,     1,     3,     1,     3,
+-       4,     0,     6,     1,     1,     1,     1,     3,     2,     3,
+-       2,     1,     1,     1,     0,     1,     0,     1,     0,     2,
+-       1,     1,     1,     1,     1,     1,     2,     2,     2,     2,
+-       2,     4,     2,     1,     3,     1,     3,     1,     3,     1,
+-       1,     1,     1
++     365,  -400,  -400,  -400,  -400,  -400,  -400,    73,  -400,  2688,
++      78,  1473,  1378,  -400,  -400,  -400,  1944,  2688,  2688,    49,
++      49,    49,  -400,    49,    49,  -400,  -400,    68,    -8,  -400,
++    2688,  -400,  -400,  -400,  2688,  -400,    -3,     8,    11,  1851,
++    1756,    49,  1851,  2037,    22,  2688,     1,  2688,  2688,  2688,
++    2688,  2688,  2688,  2688,  2130,    49,    49,   -19,    14,  -400,
++       9,  -400,  -400,  -400,  -400,  2756,  -400,  -400,    24,    67,
++      72,   106,  -400,   105,   118,   165,   109,  -400,  -400,  -400,
++    -400,  -400,    22,   111,  -400,    39,    50,    62,    65,   -14,
++      69,    77,    78,  -400,    87,  -400,    48,   506,  1378,  -400,
++    -400,  -400,   618,   713,  -400,    70,   398,   398,  -400,  -400,
++    -400,  -400,  -400,  -400,  -400,  2688,    95,    96,  2688,   102,
++     368,    78,    16,  2756,   107,  2223,  1756,  -400,   368,   516,
++      14,  -400,   440,  2688,  -400,  -400,   368,   195,    93,  -400,
++    -400,  2688,   368,  2316,   150,  -400,  -400,  -400,   368,    14,
++     398,   398,   398,   414,   414,   210,   152,  -400,  -400,  2688,
++    2688,  2688,  2688,  2688,  2688,  2409,  2688,  2688,  2688,  2688,
++    2688,  2688,  2688,  2688,  2688,  2688,  2688,  2688,  2688,  2688,
++    2688,  -400,  -400,  -400,   131,  2502,  2688,  2688,  2688,  2688,
++    2688,  2688,  2688,  -400,   200,  -400,   223,  -400,  -400,  -400,
++    -400,  -400,  -400,    55,  -400,   146,  -400,  -400,  -400,    78,
++    -400,  -400,  2688,  2688,  2688,  2688,  2688,  2688,  -400,  -400,
++    -400,  -400,  -400,  2688,  2688,    98,  -400,  -400,  -400,   148,
++     160,  -400,  -400,   163,   151,  2688,    14,  -400,   239,  -400,
++    -400,   292,   232,  -400,  2688,   245,   192,   192,  -400,  2756,
++     209,   125,  -400,   531,  1555,   473,  1927,   349,   203,  2756,
++    2714,  1647,  1647,  1741,  1836,  2020,   410,   398,   398,  2688,
++    2688,   170,   172,   182,  -400,   183,  2595,    32,   184,   168,
++    -400,  -400,   588,   249,   129,   273,   141,   278,   149,   357,
++     808,  -400,   252,   189,    -6,   276,  2688,  2688,  2688,  2688,
++     205,  -400,  -400,   197,  -400,  -400,  -400,  -400,  1567,  -400,
++    2688,  2688,  -400,   -19,  -400,   -19,   -19,   -19,   -19,   -19,
++     217,   -29,  -400,  2688,  -400,   160,   279,    78,  -400,  -400,
++     603,  -400,  -400,  -400,   167,  2688,   298,  -400,  -400,  2688,
++     509,   179,  -400,  -400,  -400,  -400,  -400,   616,  -400,  -400,
++    2688,  -400,   299,  -400,   308,  -400,   319,  -400,   328,  -400,
++    -400,  -400,   316,  -400,  -400,  -400,   322,   244,   -19,   250,
++     257,   -19,   258,   262,  -400,    21,  -400,  -400,  -400,   259,
++     275,   286,  2688,   264,   281,  -400,  2688,   284,  -400,   287,
++     378,  -400,  -400,  -400,  -400,   185,  -400,  2798,   380,  -400,
++    -400,   289,  -400,  -400,  -400,  -400,   291,   160,   148,  -400,
++    2688,  -400,  -400,   399,   399,  2688,  -400,  2688,   399,  -400,
++     318,   399,   399,   -19,  -400,  -400,  -400,  -400,  -400,  -400,
++     344,     6,   160,  -400,   320,   399,   399,  -400,    18,    18,
++     321,   323,   325,    87,  2688,   399,  -400,  -400,   903,  -400,
++    -400,  -400,  -400,   424,   998,  -400,    87,    87,  -400,   399,
++     334,  -400,  -400,   399,  2688,   399,  -400,   336,    87,  -400,
++       3,  -400,  -400,  -400,  -400,  1093,  -400,  2688,    87,   343,
++      87,  -400,  -400,   383,   438,  -400,  1188,  -400,   362,  -400,
++     399,  -400,  -400,  -400,  -400,  -400,  -400,   399,    87,  1661,
++    1283,    18,  -400,   363,  -400,  -400,   399,  -400
+ };
+ 
+-/* YYDEFACT[STATE-NAME] -- Default reduction number in state STATE-NUM.
+-   Performed when YYTABLE doesn't specify something else to do.  Zero
+-   means the default is an error.  */
++  /* YYDEFACT[STATE-NUM] -- Default reduction number in state STATE-NUM.
++     Performed when YYTABLE does not specify something else to do.  Zero
++     means the default is an error.  */
+ static const yytype_uint8 yydefact[] =
+ {
+        0,     2,     4,     6,     8,    10,    12,     0,    16,   226,
+@@ -358,18 +239,18 @@ static const yytype_uint8 yydefact[] =
+      203,     0,    88,   195,     0,     0,   226,   198,   199,   249,
+      225,   112,   250,     0,   240,   162,   161,     0,     0,    86,
+       87,   224,   170,     0,   218,   221,   223,   222,   201,   196,
+-     148,   149,   168,   154,   153,   173,     0,   237,   242,     0,
++     148,   149,   168,   153,   154,   173,     0,   237,   242,     0,
+        0,     0,   103,     0,     0,     0,     0,     0,     0,     0,
+        0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
+-       0,   152,   151,   150,     0,     0,     0,     0,     0,     0,
++       0,   150,   151,   152,     0,     0,     0,     0,     0,     0,
+        0,     0,     0,    19,    82,    83,     0,    34,    16,    16,
+       16,    16,    16,     0,    16,     0,    16,    16,    40,     0,
+       52,    55,     0,     0,     0,     0,     0,     0,    26,    25,
+       20,   155,   110,   226,     0,     0,   207,   114,    89,     0,
+       90,   205,   209,     0,     0,     0,   106,   158,     0,   188,
+-     220,     0,    94,   217,     0,   171,   101,   100,    99,   104,
++     220,     0,    94,   217,     0,   171,   100,   101,    99,   104,
+        0,     0,   128,     0,   141,   137,   138,   134,   135,   132,
+-       0,   144,   143,   142,   140,   139,   136,   145,   133,     0,
++       0,   143,   144,   142,   140,   139,   136,   145,   133,     0,
+        0,   244,   246,     0,   116,     0,     0,     0,   248,   109,
+      117,   186,     0,     0,     0,     0,     0,     0,     0,     0,
+        0,    81,     0,    29,     0,     0,    76,     0,     0,     0,
+@@ -396,7 +277,20 @@ static const yytype_uint8 yydefact[] =
+        0,    68,    49,     0,    59,    70,     0,    45
+ };
+ 
+-/* YYDEFGOTO[NTERM-NUM].  */
++  /* YYPGOTO[NTERM-NUM].  */
++static const yytype_int16 yypgoto[] =
++{
++    -400,  -400,  -400,  -400,  -400,  -400,  -400,  -400,     4,  -400,
++     113,   -81,  -400,   -15,  -400,   455,   371,    -9,  -400,  -400,
++    -400,  -400,  -400,  -400,  -400,  -400,  -400,  -307,  -399,   -30,
++    -380,  -400,    30,   178,  -289,   -16,  -400,   290,   451,  -400,
++     405,   130,  -313,  -400,   121,  -400,  -400,    -5,   -35,  -400,
++    -400,  -400,  -400,  -400,  -400,  -400,  -400,   227,  -400,  -400,
++    -400,  -106,  -118,  -400,  -400,   128,  -400,   301,    44,   -40,
++     -39,  -400,  -400,  -400,  -400,  -400,    10
++};
++
++  /* YYDEFGOTO[NTERM-NUM].  */
+ static const yytype_int16 yydefgoto[] =
+ {
+       -1,     7,     8,     9,    10,    11,    12,    13,    94,   361,
+@@ -409,81 +303,9 @@ static const yytype_int16 yydefgoto[] =
+       71,    72,    73,    74,    75,    76,   157
+ };
+ 
+-/* YYPACT[STATE-NUM] -- Index in YYTABLE of the portion describing
+-   STATE-NUM.  */
+-#define YYPACT_NINF -400
+-static const yytype_int16 yypact[] =
+-{
+-     565,  -400,  -400,  -400,  -400,  -400,  -400,    73,  -400,  2699,
+-      69,  1486,  1389,  -400,  -400,  -400,  1955,  2699,  2699,    49,
+-      49,    49,  -400,    49,    49,  -400,  -400,    76,    -8,  -400,
+-    2699,  -400,  -400,  -400,  2699,  -400,    -3,     8,    11,  1862,
+-    1767,    49,  1862,  2048,    22,  2699,     1,  2699,  2699,  2699,
+-    2699,  2699,  2699,  2699,  2141,    49,    49,   -19,    14,  -400,
+-       9,  -400,  -400,  -400,  -400,  2770,  -400,  -400,    24,    68,
+-      72,   106,  -400,   105,   118,   165,   109,  -400,  -400,  -400,
+-    -400,  -400,    22,   111,  -400,    39,    50,    62,    65,   -14,
+-      77,    95,    69,  -400,    87,  -400,    48,   506,  1389,  -400,
+-    -400,  -400,   612,   710,  -400,    70,   490,   490,  -400,  -400,
+-    -400,  -400,  -400,  -400,  -400,  2699,    96,   101,  2699,   107,
+-     410,    69,    16,  2770,   120,  2234,  1767,  -400,   410,   516,
+-      14,  -400,   440,  2699,  -400,  -400,   410,   159,    93,  -400,
+-    -400,  2699,   410,  2327,   136,  -400,  -400,  -400,   410,    14,
+-     490,   490,   490,   258,   258,   210,   152,  -400,  -400,  2699,
+-    2699,  2699,  2699,  2699,  2699,  2420,  2699,  2699,  2699,  2699,
+-    2699,  2699,  2699,  2699,  2699,  2699,  2699,  2699,  2699,  2699,
+-    2699,  -400,  -400,  -400,   131,  2513,  2699,  2699,  2699,  2699,
+-    2699,  2699,  2699,  -400,   200,  -400,   223,  -400,  -400,  -400,
+-    -400,  -400,  -400,    55,  -400,   146,  -400,  -400,  -400,    69,
+-    -400,  -400,  2699,  2699,  2699,  2699,  2699,  2699,  -400,  -400,
+-    -400,  -400,  -400,  2699,  2699,    98,  -400,  -400,  -400,   148,
+-     160,  -400,  -400,   163,   150,  2699,    14,  -400,   240,  -400,
+-    -400,   293,   232,  -400,  2699,   245,   192,   192,  -400,  2770,
+-     209,   125,  -400,   531,  1567,  2033,   371,   695,   203,  2770,
+-    2725,  1658,  1658,  1752,  1847,  1940,   278,   490,   490,  2699,
+-    2699,   170,   172,   182,  -400,   183,  2606,    32,   184,   168,
+-    -400,  -400,   597,   249,   129,   273,   141,   436,   149,   486,
+-     807,  -400,   252,   189,    -6,   279,  2699,  2699,  2699,  2699,
+-     198,  -400,  -400,   202,  -400,  -400,  -400,  -400,  1579,  -400,
+-    2699,  2699,  -400,   -19,  -400,   -19,   -19,   -19,   -19,   -19,
+-     208,   -29,  -400,  2699,  -400,   160,   285,    69,  -400,  -400,
+-     617,  -400,  -400,  -400,   167,  2699,   299,  -400,  -400,  2699,
+-     582,   179,  -400,  -400,  -400,  -400,  -400,   630,  -400,  -400,
+-    2699,  -400,   306,  -400,   308,  -400,   319,  -400,   332,  -400,
+-    -400,  -400,   320,  -400,  -400,  -400,   329,   259,   -19,   263,
+-     264,   -19,   270,   257,  -400,    21,  -400,  -400,  -400,   280,
+-     282,   286,  2699,   281,   287,  -400,  2699,   288,  -400,   289,
+-     381,  -400,  -400,  -400,  -400,   185,  -400,  2815,   398,  -400,
+-    -400,   292,  -400,  -400,  -400,  -400,   314,   160,   148,  -400,
+-    2699,  -400,  -400,   408,   408,  2699,  -400,  2699,   408,  -400,
+-     321,   408,   408,   -19,  -400,  -400,  -400,  -400,  -400,  -400,
+-     350,     6,   160,  -400,   322,   408,   408,  -400,    18,    18,
+-     325,   328,   334,    87,  2699,   408,  -400,  -400,   904,  -400,
+-    -400,  -400,  -400,   425,  1001,  -400,    87,    87,  -400,   408,
+-     336,  -400,  -400,   408,  2699,   408,  -400,   340,    87,  -400,
+-       3,  -400,  -400,  -400,  -400,  1098,  -400,  2699,    87,   338,
+-      87,  -400,  -400,   372,   426,  -400,  1195,  -400,   345,  -400,
+-     408,  -400,  -400,  -400,  -400,  -400,  -400,   408,    87,  1672,
+-    1292,    18,  -400,   347,  -400,  -400,   408,  -400
+-};
+-
+-/* YYPGOTO[NTERM-NUM].  */
+-static const yytype_int16 yypgoto[] =
+-{
+-    -400,  -400,  -400,  -400,  -400,  -400,  -400,  -400,     4,  -400,
+-     113,   -81,  -400,   -15,  -400,   435,   355,    -9,  -400,  -400,
+-    -400,  -400,  -400,  -400,  -400,  -400,  -400,  -307,  -399,   -30,
+-    -380,  -400,    17,   157,  -289,   -44,  -400,   265,   429,  -400,
+-     385,   112,  -313,  -400,    67,  -400,  -400,    -5,   -35,  -400,
+-    -400,  -400,  -400,  -400,  -400,  -400,  -400,   227,  -400,  -400,
+-    -400,  -106,  -118,  -400,  -400,   108,  -400,   284,    44,   -40,
+-     -39,  -400,  -400,  -400,  -400,  -400,    10
+-};
+-
+-/* YYTABLE[YYPACT[STATE-NUM]].  What to do in state STATE-NUM.  If
+-   positive, shift that token.  If negative, reduce the rule which
+-   number is the opposite.  If YYTABLE_NINF, syntax error.  */
+-#define YYTABLE_NINF -248
++  /* YYTABLE[YYPACT[STATE-NUM]] -- What to do in state STATE-NUM.  If
++     positive, shift that token.  If negative, reduce the rule whose
++     number is the opposite.  If YYTABLE_NINF, syntax error.  */
+ static const yytype_int16 yytable[] =
+ {
+      103,   377,    95,   364,    57,   130,   146,   147,   234,   222,
+@@ -493,8 +315,8 @@ static const yytype_int16 yytable[] =
+      462,    77,   139,   127,   110,   110,   135,   140,   162,   156,
+      133,   134,   108,   202,   159,   160,   161,   109,    77,   110,
+      110,   459,   460,   111,   111,   111,   158,   111,   111,   108,
+-      19,    20,    21,    14,   109,   386,   203,   186,    77,   187,
+-     130,  -243,   221,  -243,   132,   111,   204,   118,    55,   219,
++      19,    20,    21,    14,   109,   386,   186,   203,   187,   118,
++     130,  -243,   221,  -243,   132,   111,   204,    77,    55,   219,
+      145,   162,   119,   420,   431,   365,   208,   124,   236,   111,
+      111,   143,   505,    55,   484,   320,   130,   450,   125,   165,
+      322,   126,   499,   225,  -247,  -245,   -16,  -245,   192,   453,
+@@ -502,101 +324,72 @@ static const yytype_int16 yytable[] =
+      110,   196,   209,   205,    55,   348,   235,   337,   241,   198,
+      269,   353,   270,   159,   160,   161,   271,   272,   273,   211,
+      199,    55,   274,   355,   246,   247,   248,    55,   250,   251,
+-     253,   357,   200,   306,   307,   201,   159,   160,   161,   237,
+-     132,   159,   160,   161,   190,   479,   191,   206,   290,   394,
++     253,   357,   200,   306,   307,   201,   159,   160,   161,   206,
++     132,   159,   160,   161,   190,   479,   191,   207,   290,   394,
+      282,   283,   284,   285,   286,   287,   288,   289,   488,   321,
+-     193,   399,   377,   275,   238,   207,   223,   427,   159,   160,
+-     161,   224,   159,   160,   161,   242,   226,   313,   315,   316,
+-     317,   318,   319,   312,   159,   160,   161,   388,    57,   231,
++     193,   399,   377,   275,   238,   223,   224,   427,   159,   160,
++     161,   226,   159,   160,   161,   237,   231,   313,   315,   316,
++     317,   318,   319,   312,   159,   160,   161,   388,    57,   242,
+      291,   244,   159,   160,   161,   159,   160,   161,   280,   326,
+      330,   276,   401,   277,   278,   229,   159,   160,   161,   334,
+-     159,   160,   161,   294,   106,   107,   309,   305,   324,   329,
+-     331,   245,   159,   160,   161,   333,   335,   120,   159,   160,
++     159,   160,   161,   294,   106,   107,   309,   305,   324,   331,
++     329,   245,   159,   160,   161,   333,   335,   120,   159,   160,
+      161,   123,   328,   169,   340,   341,   128,   161,   350,   136,
+      360,   347,   142,   342,   148,   343,   150,   151,   152,   153,
+      154,   110,   159,   160,   161,   344,   345,   349,   130,   -31,
+-     179,   368,   315,   371,   371,   180,   181,   182,   183,   366,
+-      55,   184,   376,   381,   434,   371,   371,   385,   391,   396,
+-     336,   296,   297,   298,   299,   300,   402,   308,   403,   310,
++     179,   368,   315,   371,   371,   180,   366,   376,   181,   182,
++     183,   184,   391,   381,   434,   371,   371,    55,   396,   402,
++     336,   296,   297,   298,   299,   300,   385,   308,   403,   310,
+      311,   111,   159,   160,   161,   212,   213,   214,   215,   404,
+-     395,   392,   216,   439,   217,   306,   307,   443,   169,   170,
+-     446,   447,   405,   228,   374,    57,   159,   160,   161,   410,
+-     352,  -248,  -248,  -248,   456,   457,   184,   415,   411,   159,
+-     160,   161,   412,   413,   468,   179,   159,   160,   161,   414,
+-     180,   181,   182,   183,   354,   130,   184,   371,   476,   418,
+-     421,   423,   478,   419,   480,   -79,   422,   424,   425,   249,
+-     426,   429,   332,   254,   255,   256,   257,   258,   259,   260,
+-     261,   262,   263,   264,   265,   266,   267,   268,   428,   498,
+-     371,   448,   371,   466,   375,   430,   501,   437,   454,   305,
+-     445,   449,   382,   455,   463,   507,   473,   474,   464,   167,
+-    -248,   169,   170,   465,   471,   451,   477,   490,   482,   368,
+-    -174,   481,   493,   475,   497,   495,   506,    99,   489,   186,
+-     491,   187,  -174,   218,   369,   503,   486,   178,   179,   371,
+-     293,   467,   122,   180,   181,   182,   183,   195,   502,   184,
+-     169,   170,   371,   406,   407,   432,   408,   409,   500,  -174,
+-    -174,  -174,  -174,   416,     0,     0,  -174,   304,  -174,   417,
+-       0,  -174,     0,     0,     0,     0,   178,   179,  -174,  -174,
+-    -174,  -174,   180,   181,   182,   183,     0,     0,   184,   159,
+-     160,   161,     0,  -174,  -174,  -174,  -213,  -174,  -174,  -174,
+-    -174,  -174,  -174,  -174,  -174,  -174,  -174,  -174,  -213,     0,
+-       0,     0,  -174,  -174,  -174,  -174,     0,   356,  -174,  -174,
++     395,   392,   216,   439,   217,   306,   307,   443,   405,   228,
++     446,   447,   410,   411,   374,    57,   159,   160,   161,   412,
++     352,   159,   160,   161,   456,   457,   413,   414,   418,   159,
++     160,   161,   415,   421,   468,   159,   160,   161,     1,     2,
++       3,     4,     5,     6,   354,   130,   419,   371,   476,   356,
++     422,   423,   478,   424,   480,   -79,   425,   426,   429,   249,
++     428,   332,   430,   254,   255,   256,   257,   258,   259,   260,
++     261,   262,   263,   264,   265,   266,   267,   268,   437,   498,
++     371,   448,   371,   466,   375,   449,   501,   445,   454,   305,
++     463,   455,   382,   464,   465,   507,   473,   474,   169,   170,
++     159,   160,   161,   471,   477,   451,   179,   481,   482,   368,
++    -174,   180,   490,   475,   181,   182,   183,   184,   489,   186,
++     491,   187,  -174,   493,   178,   179,   486,   495,   358,   371,
++     180,   497,   506,   181,   182,   183,   184,    99,   502,   218,
++     169,   170,   371,   406,   467,   369,   408,   409,   500,  -174,
++    -174,  -174,  -174,   503,   122,   293,  -174,   195,  -174,   417,
++     180,  -174,   407,   181,   182,   183,   184,   179,  -174,  -174,
++    -174,  -174,   180,   416,   304,   181,   182,   183,   184,  -248,
++    -248,  -248,   184,  -174,  -174,  -174,  -213,  -174,  -174,  -174,
++    -174,  -174,  -174,  -174,  -174,  -174,  -174,  -174,  -213,   432,
++       0,  -248,  -174,   169,   170,  -174,  -174,  -174,  -174,  -174,
+        0,  -174,     0,     0,  -174,   212,   213,   214,   215,     0,
+-       0,     0,   216,     0,   217,  -213,  -213,  -213,  -213,   159,
+-     160,   161,  -213,     0,  -213,     0,   397,  -213,     1,     2,
+-       3,     4,     5,     6,  -213,  -213,  -213,  -213,     0,   159,
+-     160,   161,   180,   181,   182,   183,     0,   358,   184,  -213,
++       0,     0,   216,     0,   217,  -213,  -213,  -213,  -213,   178,
++     179,     0,  -213,     0,  -213,   180,   397,  -213,   181,   182,
++     183,   184,     0,     0,  -213,  -213,  -213,  -213,     0,   159,
++     160,   161,   159,   160,   161,     0,     0,     0,     0,  -213,
+     -213,  -213,     0,  -213,  -213,  -213,  -213,  -213,  -213,  -213,
+-    -213,  -213,  -213,  -213,   159,   160,   161,     0,  -213,  -213,
+-    -213,  -213,   -13,    79,  -213,  -213,     0,  -213,     0,     0,
+-    -213,    77,     0,    16,     0,    17,    18,    19,    20,    21,
+-     338,     0,    22,    23,    24,    25,    26,     0,    27,    28,
+-      29,    30,    31,    32,    80,    98,    81,    82,    33,    83,
+-      84,    85,    86,    87,    88,   159,   160,   161,    89,    90,
+-      91,    92,    34,     0,    35,    36,    37,    38,    39,    40,
+-     159,   160,   161,     0,    41,    42,    43,    44,    45,    46,
+-      47,     0,     0,   398,     0,     0,     0,     0,    48,     0,
+-     159,   160,   161,     0,     0,     0,   351,     0,     0,     0,
+-      49,    50,    51,   159,   160,   161,     0,     0,    52,    53,
+-      -3,    79,    54,    93,    55,    56,   393,     0,     0,    77,
+-       0,    16,     0,    17,    18,    19,    20,    21,     0,   400,
+-      22,    23,    24,    25,    26,     0,    27,    28,    29,    30,
+-      31,    32,    80,    98,    81,    82,    33,    83,    84,    85,
+-      86,    87,    88,     0,     0,     0,    89,    90,    91,    92,
+-      34,     0,    35,    36,    37,    38,    39,    40,     0,     0,
+-       0,     0,    41,    42,    43,    44,    45,    46,    47,     0,
+-       0,     0,   179,     0,     0,     0,    48,   180,   181,   182,
+-     183,     0,     0,   184,     0,     0,     0,     0,    49,    50,
+-      51,     0,     0,     0,     0,     0,    52,    53,    79,     0,
+-      54,    93,    55,    56,     0,     0,    77,   359,    16,     0,
+-      17,    18,    19,    20,    21,     0,     0,    22,    23,    24,
+-      25,    26,     0,    27,    28,    29,    30,    31,    32,    80,
+-      98,    81,    82,    33,    83,    84,    85,    86,    87,    88,
+-       0,     0,     0,    89,    90,    91,    92,    34,     0,    35,
+-      36,    37,    38,    39,    40,     0,     0,     0,     0,    41,
+-      42,    43,    44,    45,    46,    47,     0,     0,     0,     0,
+-       0,     0,     0,    48,     0,     0,     0,     0,     0,     0,
+-       0,     0,     0,     0,     0,    49,    50,    51,     0,     0,
+-       0,     0,     0,    52,    53,    79,     0,    54,    93,    55,
+-      56,     0,     0,    77,   469,    16,     0,    17,    18,    19,
+-      20,    21,     0,     0,    22,    23,    24,    25,    26,     0,
+-      27,    28,    29,    30,    31,    32,    80,    98,    81,    82,
+-      33,    83,    84,    85,    86,    87,    88,     0,     0,     0,
+-      89,    90,    91,    92,    34,     0,    35,    36,    37,    38,
+-      39,    40,     0,     0,     0,     0,    41,    42,    43,    44,
+-      45,    46,    47,     0,     0,     0,     0,     0,     0,     0,
+-      48,     0,     0,     0,     0,     0,     0,     0,     0,     0,
+-       0,     0,    49,    50,    51,     0,     0,     0,     0,     0,
+-      52,    53,    79,     0,    54,    93,    55,    56,     0,     0,
+-      77,   472,    16,     0,    17,    18,    19,    20,    21,     0,
+-       0,    22,    23,    24,    25,    26,     0,    27,    28,    29,
+-      30,    31,    32,    80,    98,    81,    82,    33,    83,    84,
+-      85,    86,    87,    88,     0,     0,     0,    89,    90,    91,
+-      92,    34,     0,    35,    36,    37,    38,    39,    40,     0,
+-       0,     0,     0,    41,    42,    43,    44,    45,    46,    47,
+-       0,     0,     0,     0,     0,     0,     0,    48,     0,     0,
+-       0,     0,     0,     0,     0,     0,     0,     0,     0,    49,
+-      50,    51,     0,     0,     0,     0,     0,    52,    53,    79,
+-       0,    54,    93,    55,    56,     0,     0,    77,   487,    16,
++    -213,  -213,  -213,  -213,   159,   160,   161,     0,  -213,     0,
++     398,  -213,  -213,  -213,  -213,  -213,     0,  -213,   -13,    79,
++    -213,     0,     0,     0,     0,     0,     0,    77,     0,    16,
++     338,    17,    18,    19,    20,    21,     0,     0,    22,    23,
++      24,    25,    26,     0,    27,    28,    29,    30,    31,    32,
++      80,    98,    81,    82,    33,    83,    84,    85,    86,    87,
++      88,   159,   160,   161,    89,    90,    91,    92,    34,     0,
++      35,    36,    37,    38,    39,    40,   159,   160,   161,     0,
++      41,    42,    43,    44,    45,    46,    47,   351,     0,   159,
++     160,   161,     0,     0,    48,     0,     0,     0,     0,     0,
++       0,     0,   393,     0,     0,     0,    49,    50,     0,    51,
++       0,    52,    53,    -3,    79,   400,     0,     0,    54,    93,
++      55,    56,    77,     0,    16,     0,    17,    18,    19,    20,
++      21,     0,     0,    22,    23,    24,    25,    26,     0,    27,
++      28,    29,    30,    31,    32,    80,    98,    81,    82,    33,
++      83,    84,    85,    86,    87,    88,     0,     0,     0,    89,
++      90,    91,    92,    34,     0,    35,    36,    37,    38,    39,
++      40,     0,     0,     0,     0,    41,    42,    43,    44,    45,
++      46,    47,     0,     0,     0,     0,     0,     0,     0,    48,
++       0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
++       0,    49,    50,     0,    51,     0,    52,    53,     0,    79,
++       0,     0,     0,    54,    93,    55,    56,    77,   359,    16,
+        0,    17,    18,    19,    20,    21,     0,     0,    22,    23,
+       24,    25,    26,     0,    27,    28,    29,    30,    31,    32,
+       80,    98,    81,    82,    33,    83,    84,    85,    86,    87,
+@@ -604,131 +397,131 @@ static const yytype_int16 yytable[] =
+       35,    36,    37,    38,    39,    40,     0,     0,     0,     0,
+       41,    42,    43,    44,    45,    46,    47,     0,     0,     0,
+        0,     0,     0,     0,    48,     0,     0,     0,     0,     0,
+-       0,     0,     0,     0,     0,     0,    49,    50,    51,     0,
+-       0,     0,     0,     0,    52,    53,    79,     0,    54,    93,
+-      55,    56,     0,     0,    77,   496,    16,     0,    17,    18,
+-      19,    20,    21,     0,     0,    22,    23,    24,    25,    26,
+-       0,    27,    28,    29,    30,    31,    32,    80,    98,    81,
+-      82,    33,    83,    84,    85,    86,    87,    88,     0,     0,
+-       0,    89,    90,    91,    92,    34,     0,    35,    36,    37,
+-      38,    39,    40,     0,     0,     0,     0,    41,    42,    43,
+-      44,    45,    46,    47,     0,     0,     0,     0,     0,     0,
+-       0,    48,     0,     0,     0,     0,     0,     0,     0,     0,
+-       0,     0,     0,    49,    50,    51,     0,     0,     0,     0,
+-       0,    52,    53,    79,     0,    54,    93,    55,    56,     0,
+-       0,    77,     0,    16,     0,    17,    18,    19,    20,    21,
+-       0,     0,    22,    23,    24,    25,    26,     0,    27,    28,
+-      29,    30,    31,    32,    80,    98,    81,    82,    33,    83,
+-      84,    85,    86,    87,    88,     0,     0,     0,    89,    90,
+-      91,    92,    34,     0,    35,    36,    37,    38,    39,    40,
+-       0,     0,     0,     0,    41,    42,    43,    44,    45,    46,
+-      47,     0,     0,   504,     0,     0,     0,     0,    48,     0,
++       0,     0,     0,     0,     0,     0,    49,    50,     0,    51,
++       0,    52,    53,     0,    79,     0,     0,     0,    54,    93,
++      55,    56,    77,   469,    16,     0,    17,    18,    19,    20,
++      21,     0,     0,    22,    23,    24,    25,    26,     0,    27,
++      28,    29,    30,    31,    32,    80,    98,    81,    82,    33,
++      83,    84,    85,    86,    87,    88,     0,     0,     0,    89,
++      90,    91,    92,    34,     0,    35,    36,    37,    38,    39,
++      40,     0,     0,     0,     0,    41,    42,    43,    44,    45,
++      46,    47,     0,     0,     0,     0,     0,     0,     0,    48,
+        0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
+-      49,    50,    51,     0,     0,     0,     0,     0,    52,    53,
+-      79,     0,    54,    93,    55,    56,     0,     0,    77,     0,
+-      16,     0,    17,    18,    19,    20,    21,     0,     0,    22,
+-      23,    24,    25,    26,     0,    27,    28,    29,    30,    31,
+-      32,    80,    98,    81,    82,    33,    83,    84,    85,    86,
+-      87,    88,     0,     0,     0,    89,    90,    91,    92,    34,
+-       0,    35,    36,    37,    38,    39,    40,     0,     0,     0,
+-       0,    41,    42,    43,    44,    45,    46,    47,     0,     0,
+-       0,     0,     0,     0,     0,    48,     0,     0,     0,     0,
+-       0,     0,     0,     0,     0,     0,     0,    49,    50,    51,
+-       0,     0,     0,     0,     0,    52,    53,    79,     0,    54,
+-      93,    55,    56,     0,     0,    77,     0,    16,     0,    17,
+-      18,    19,    20,    21,     0,     0,    22,    23,    24,    25,
+-      26,     0,    27,    28,    29,    30,    31,    32,    80,     0,
+-      81,    82,    33,    83,    84,    85,    86,    87,    88,     0,
+-       0,     0,    89,    90,    91,    92,    34,     0,    35,    36,
+-      37,    38,    39,    40,     0,     0,     0,     0,    41,    42,
+-      43,    44,    45,    46,    47,     0,     0,     0,     0,     0,
+-       0,     0,    48,     0,     0,     0,     0,     0,     0,     0,
+-       0,     0,     0,     0,    49,    50,    51,     0,     0,     0,
+-      79,     0,    52,    53,     0,     0,    54,    93,    55,    56,
+-      16,     0,    17,    18,    19,    20,    21,     0,     0,    22,
+-      23,    24,    25,    26,     0,    27,    28,    29,    30,    31,
+-      32,     0,     0,     0,     0,    33,     0,     0,  -248,     0,
+-       0,     0,     0,     0,     0,   167,   168,   169,   170,    34,
+-       0,    35,    36,    37,    38,    39,    40,     0,     0,     0,
+-       0,    41,    42,    43,    44,    45,    46,    47,   173,   174,
+-     175,   176,   177,   178,   179,    48,     0,     0,     0,   180,
+-     181,   182,   183,     0,     0,   184,     0,    49,    50,    51,
+-       0,     0,     0,    79,     0,    52,    53,     0,     0,    54,
+-     -74,    55,    56,    16,     0,    17,    18,    19,    20,    21,
+-       0,     0,    22,    23,    24,    25,    26,     0,    27,    28,
+-      29,    30,    31,    32,     0,     0,     0,     0,    33,     0,
+-       0,     0,     0,     0,     0,     0,   167,   168,   169,   170,
+-       0,     0,    34,     0,    35,    36,    37,    38,    39,    40,
+-       0,     0,     0,     0,    41,    42,    43,    44,    45,    46,
+-      47,   175,   176,   177,   178,   179,     0,     0,    48,     0,
+-     180,   181,   182,   183,     0,     0,   184,     0,     0,     0,
+-      49,    50,    51,     0,     0,     0,     0,     0,    52,    53,
+-       0,   -74,    54,     0,    55,    56,    77,     0,    16,     0,
+-      17,    18,    19,    20,    21,     0,     0,   129,    23,    24,
+-      25,    26,   109,    27,    28,    29,    30,    31,    32,     0,
+-       0,     0,     0,    33,     0,     0,     0,     0,     0,     0,
+-     167,   168,   169,   170,     0,     0,     0,    34,     0,    35,
+-      36,    37,    38,    39,    40,     0,     0,     0,     0,    41,
+-      42,    43,    44,    45,    46,    47,   176,   177,   178,   179,
+-       0,     0,     0,    48,   180,   181,   182,   183,     0,     0,
+-     184,     0,     0,     0,     0,    49,    50,    51,     0,     0,
+-       0,     0,     0,    52,    53,     0,     0,    54,     0,    55,
+-      56,    77,     0,    16,     0,    17,    18,    19,    20,    21,
+-       0,     0,    22,    23,    24,    25,    26,     0,    27,    28,
+-      29,    30,    31,    32,     0,     0,     0,     0,    33,     0,
+-       0,     0,     0,     0,     0,   167,   168,   169,   170,     0,
+-       0,     0,    34,     0,    35,    36,    37,    38,    39,    40,
+-       0,     0,     0,     0,    41,    42,    43,    44,    45,    46,
+-      47,     0,   177,   178,   179,     0,     0,     0,    48,   180,
+-     181,   182,   183,     0,     0,   184,     0,     0,     0,     0,
+-      49,    50,    51,     0,     0,     0,     0,     0,    52,    53,
+-       0,     0,    54,     0,    55,    56,    16,   104,    17,    18,
+-      19,    20,    21,     0,     0,    22,    23,    24,    25,    26,
+-       0,    27,    28,    29,    30,    31,    32,     0,     0,     0,
+-       0,    33,     0,     0,     0,     0,     0,     0,   167,   168,
+-     169,   170,     0,     0,     0,    34,     0,    35,    36,    37,
+-      38,    39,    40,     0,     0,     0,     0,    41,    42,    43,
+-      44,    45,    46,    47,     0,     0,   178,   179,     0,     0,
+-       0,    48,   180,   181,   182,   183,     0,     0,   184,     0,
+-       0,     0,     0,    49,    50,    51,     0,     0,     0,     0,
+-       0,    52,    53,     0,     0,    54,     0,    55,    56,    16,
++       0,    49,    50,     0,    51,     0,    52,    53,     0,    79,
++       0,     0,     0,    54,    93,    55,    56,    77,   472,    16,
+        0,    17,    18,    19,    20,    21,     0,     0,    22,    23,
+       24,    25,    26,     0,    27,    28,    29,    30,    31,    32,
+-       0,     0,     0,     0,    33,     0,     0,     0,     0,     0,
+-       0,  -248,     0,   169,   170,     0,     0,     0,    34,     0,
++      80,    98,    81,    82,    33,    83,    84,    85,    86,    87,
++      88,     0,     0,     0,    89,    90,    91,    92,    34,     0,
++      35,    36,    37,    38,    39,    40,     0,     0,     0,     0,
++      41,    42,    43,    44,    45,    46,    47,     0,     0,     0,
++       0,     0,     0,     0,    48,     0,     0,     0,     0,     0,
++       0,     0,     0,     0,     0,     0,    49,    50,     0,    51,
++       0,    52,    53,     0,    79,     0,     0,     0,    54,    93,
++      55,    56,    77,   487,    16,     0,    17,    18,    19,    20,
++      21,     0,     0,    22,    23,    24,    25,    26,     0,    27,
++      28,    29,    30,    31,    32,    80,    98,    81,    82,    33,
++      83,    84,    85,    86,    87,    88,     0,     0,     0,    89,
++      90,    91,    92,    34,     0,    35,    36,    37,    38,    39,
++      40,     0,     0,     0,     0,    41,    42,    43,    44,    45,
++      46,    47,     0,     0,     0,     0,     0,     0,     0,    48,
++       0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
++       0,    49,    50,     0,    51,     0,    52,    53,     0,    79,
++       0,     0,     0,    54,    93,    55,    56,    77,   496,    16,
++       0,    17,    18,    19,    20,    21,     0,     0,    22,    23,
++      24,    25,    26,     0,    27,    28,    29,    30,    31,    32,
++      80,    98,    81,    82,    33,    83,    84,    85,    86,    87,
++      88,     0,     0,     0,    89,    90,    91,    92,    34,     0,
+       35,    36,    37,    38,    39,    40,     0,     0,     0,     0,
+-      41,    42,    43,    44,    45,    46,    47,     0,     0,   178,
+-     179,     0,     0,     0,    48,   180,   181,   182,   183,     0,
+-       0,   184,     0,     0,     0,     0,    49,    50,    51,     0,
+-       0,     0,     0,     0,    52,    53,     0,     0,    54,   137,
+-      55,    56,    16,     0,    17,    18,    19,    20,    21,     0,
++      41,    42,    43,    44,    45,    46,    47,     0,     0,     0,
++       0,     0,     0,     0,    48,     0,     0,     0,     0,     0,
++       0,     0,     0,     0,     0,     0,    49,    50,     0,    51,
++       0,    52,    53,     0,    79,     0,     0,     0,    54,    93,
++      55,    56,    77,     0,    16,     0,    17,    18,    19,    20,
++      21,     0,     0,    22,    23,    24,    25,    26,     0,    27,
++      28,    29,    30,    31,    32,    80,    98,    81,    82,    33,
++      83,    84,    85,    86,    87,    88,     0,     0,     0,    89,
++      90,    91,    92,    34,     0,    35,    36,    37,    38,    39,
++      40,     0,     0,     0,     0,    41,    42,    43,    44,    45,
++      46,    47,     0,     0,   504,     0,     0,     0,     0,    48,
++       0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
++       0,    49,    50,     0,    51,     0,    52,    53,     0,    79,
++       0,     0,     0,    54,    93,    55,    56,    77,     0,    16,
++       0,    17,    18,    19,    20,    21,     0,     0,    22,    23,
++      24,    25,    26,     0,    27,    28,    29,    30,    31,    32,
++      80,    98,    81,    82,    33,    83,    84,    85,    86,    87,
++      88,     0,     0,     0,    89,    90,    91,    92,    34,     0,
++      35,    36,    37,    38,    39,    40,     0,     0,     0,     0,
++      41,    42,    43,    44,    45,    46,    47,     0,     0,     0,
++       0,     0,     0,     0,    48,     0,     0,     0,     0,     0,
++       0,     0,     0,     0,     0,     0,    49,    50,     0,    51,
++       0,    52,    53,     0,    79,     0,     0,     0,    54,    93,
++      55,    56,    77,     0,    16,     0,    17,    18,    19,    20,
++      21,     0,     0,    22,    23,    24,    25,    26,     0,    27,
++      28,    29,    30,    31,    32,    80,     0,    81,    82,    33,
++      83,    84,    85,    86,    87,    88,     0,     0,     0,    89,
++      90,    91,    92,    34,     0,    35,    36,    37,    38,    39,
++      40,     0,     0,     0,     0,    41,    42,    43,    44,    45,
++      46,    47,     0,     0,     0,     0,     0,     0,     0,    48,
++       0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
++       0,    49,    50,     0,    51,     0,    52,    53,    79,     0,
++       0,     0,     0,    54,    93,    55,    56,     0,    16,     0,
++      17,    18,    19,    20,    21,     0,     0,    22,    23,    24,
++      25,    26,     0,    27,    28,    29,    30,    31,    32,     0,
++       0,     0,     0,    33,     0,     0,  -248,     0,     0,     0,
++       0,     0,     0,   167,   168,   169,   170,    34,     0,    35,
++      36,    37,    38,    39,    40,     0,     0,     0,     0,    41,
++      42,    43,    44,    45,    46,    47,   173,   174,   175,   176,
++     177,   178,   179,    48,     0,     0,     0,   180,     0,     0,
++     181,   182,   183,   184,     0,    49,    50,     0,    51,     0,
++      52,    53,    79,     0,     0,     0,     0,    54,   -74,    55,
++      56,     0,    16,     0,    17,    18,    19,    20,    21,     0,
+        0,    22,    23,    24,    25,    26,     0,    27,    28,    29,
+       30,    31,    32,     0,     0,     0,     0,    33,     0,     0,
+-       0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
++       0,     0,     0,     0,     0,   167,   168,   169,   170,     0,
+        0,    34,     0,    35,    36,    37,    38,    39,    40,     0,
+        0,     0,     0,    41,    42,    43,    44,    45,    46,    47,
+-       0,     0,     0,     0,     0,     0,     0,    48,     0,     0,
+-       0,     0,     0,     0,     0,     0,     0,     0,     0,    49,
+-      50,    51,     0,     0,     0,     0,     0,    52,    53,     0,
+-     155,    54,     0,    55,    56,    16,     0,    17,    18,    19,
++     175,   176,   177,   178,   179,     0,     0,    48,     0,   180,
++       0,     0,   181,   182,   183,   184,     0,     0,     0,    49,
++      50,     0,    51,     0,    52,    53,     0,     0,     0,     0,
++     -74,    54,     0,    55,    56,    77,     0,    16,     0,    17,
++      18,    19,    20,    21,     0,     0,   129,    23,    24,    25,
++      26,   109,    27,    28,    29,    30,    31,    32,     0,     0,
++       0,     0,    33,     0,     0,     0,     0,     0,     0,   167,
++     168,   169,   170,     0,     0,     0,    34,     0,    35,    36,
++      37,    38,    39,    40,     0,     0,     0,     0,    41,    42,
++      43,    44,    45,    46,    47,   176,   177,   178,   179,     0,
++       0,     0,    48,   180,     0,     0,   181,   182,   183,   184,
++       0,     0,     0,     0,    49,    50,     0,    51,     0,    52,
++      53,     0,     0,     0,     0,     0,    54,     0,    55,    56,
++      77,     0,    16,     0,    17,    18,    19,    20,    21,     0,
++       0,    22,    23,    24,    25,    26,     0,    27,    28,    29,
++      30,    31,    32,     0,     0,     0,     0,    33,     0,     0,
++       0,     0,     0,     0,   167,   168,   169,   170,     0,     0,
++       0,    34,     0,    35,    36,    37,    38,    39,    40,     0,
++       0,     0,     0,    41,    42,    43,    44,    45,    46,    47,
++       0,   177,   178,   179,     0,     0,     0,    48,   180,     0,
++       0,   181,   182,   183,   184,     0,     0,     0,     0,    49,
++      50,     0,    51,     0,    52,    53,     0,     0,     0,     0,
++       0,    54,     0,    55,    56,    16,   104,    17,    18,    19,
+       20,    21,     0,     0,    22,    23,    24,    25,    26,     0,
+       27,    28,    29,    30,    31,    32,     0,     0,     0,     0,
+-      33,     0,     0,     0,     0,     0,     0,     0,     0,     0,
++      33,     0,     0,     0,     0,   167,  -248,   169,   170,     0,
+        0,     0,     0,     0,    34,     0,    35,    36,    37,    38,
+       39,    40,     0,     0,     0,     0,    41,    42,    43,    44,
+-      45,    46,    47,     0,     0,     0,     0,     0,     0,     0,
+-      48,     0,     0,     0,     0,     0,     0,     0,     0,     0,
+-       0,     0,    49,    50,    51,     0,     0,     0,     0,     0,
+-      52,    53,     0,   232,    54,     0,    55,    56,    16,     0,
++      45,    46,    47,   178,   179,     0,     0,     0,     0,   180,
++      48,     0,   181,   182,   183,   184,     0,     0,     0,     0,
++       0,     0,    49,    50,     0,    51,     0,    52,    53,     0,
++       0,     0,     0,     0,    54,     0,    55,    56,    16,     0,
+       17,    18,    19,    20,    21,     0,     0,    22,    23,    24,
+       25,    26,     0,    27,    28,    29,    30,    31,    32,     0,
+-       0,     0,     0,    33,     0,     0,     0,     0,     0,     0,
+-       0,     0,     0,     0,     0,     0,     0,    34,     0,    35,
++       0,     0,     0,    33,     0,     0,     0,     0,   167,   168,
++     169,   170,     0,     0,     0,     0,     0,    34,     0,    35,
+       36,    37,    38,    39,    40,     0,     0,     0,     0,    41,
+-      42,    43,    44,    45,    46,    47,     0,     0,     0,     0,
+-       0,     0,     0,    48,     0,     0,     0,     0,     0,     0,
+-       0,     0,     0,     0,     0,    49,    50,    51,     0,     0,
+-       0,     0,     0,    52,    53,     0,   240,    54,     0,    55,
++      42,    43,    44,    45,    46,    47,   178,   179,     0,     0,
++       0,     0,   180,    48,     0,   181,   182,   183,   184,     0,
++       0,     0,     0,     0,     0,    49,    50,     0,    51,     0,
++      52,    53,     0,     0,     0,     0,     0,    54,   137,    55,
+       56,    16,     0,    17,    18,    19,    20,    21,     0,     0,
+       22,    23,    24,    25,    26,     0,    27,    28,    29,    30,
+       31,    32,     0,     0,     0,     0,    33,     0,     0,     0,
+@@ -737,7 +530,7 @@ static const yytype_int16 yytable[] =
+        0,     0,    41,    42,    43,    44,    45,    46,    47,     0,
+        0,     0,     0,     0,     0,     0,    48,     0,     0,     0,
+        0,     0,     0,     0,     0,     0,     0,     0,    49,    50,
+-      51,     0,     0,     0,     0,     0,    52,    53,     0,   252,
++       0,    51,     0,    52,    53,     0,     0,     0,     0,   155,
+       54,     0,    55,    56,    16,     0,    17,    18,    19,    20,
+       21,     0,     0,    22,    23,    24,    25,    26,     0,    27,
+       28,    29,    30,    31,    32,     0,     0,     0,     0,    33,
+@@ -746,8 +539,8 @@ static const yytype_int16 yytable[] =
+       40,     0,     0,     0,     0,    41,    42,    43,    44,    45,
+       46,    47,     0,     0,     0,     0,     0,     0,     0,    48,
+        0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
+-       0,    49,    50,    51,     0,     0,     0,     0,     0,    52,
+-      53,     0,   281,    54,     0,    55,    56,    16,     0,    17,
++       0,    49,    50,     0,    51,     0,    52,    53,     0,     0,
++       0,     0,   232,    54,     0,    55,    56,    16,     0,    17,
+       18,    19,    20,    21,     0,     0,    22,    23,    24,    25,
+       26,     0,    27,    28,    29,    30,    31,    32,     0,     0,
+        0,     0,    33,     0,     0,     0,     0,     0,     0,     0,
+@@ -755,37 +548,58 @@ static const yytype_int16 yytable[] =
+       37,    38,    39,    40,     0,     0,     0,     0,    41,    42,
+       43,    44,    45,    46,    47,     0,     0,     0,     0,     0,
+        0,     0,    48,     0,     0,     0,     0,     0,     0,     0,
+-       0,     0,     0,     0,    49,    50,    51,     0,     0,     0,
+-       0,     0,    52,    53,     0,   346,    54,     0,    55,    56,
++       0,     0,     0,     0,    49,    50,     0,    51,     0,    52,
++      53,     0,     0,     0,     0,   240,    54,     0,    55,    56,
+       16,     0,    17,    18,    19,    20,    21,     0,     0,    22,
+       23,    24,    25,    26,     0,    27,    28,    29,    30,    31,
+       32,     0,     0,     0,     0,    33,     0,     0,     0,     0,
+        0,     0,     0,     0,     0,     0,     0,     0,     0,    34,
+        0,    35,    36,    37,    38,    39,    40,     0,     0,     0,
+        0,    41,    42,    43,    44,    45,    46,    47,     0,     0,
+-       0,     0,     0,     0,     0,    48,   166,     0,     0,     0,
+-       0,     0,     0,   167,   168,   169,   170,    49,    50,    51,
+-       0,     0,     0,     0,     0,    52,    53,     0,     0,    54,
+-       0,    55,    56,   171,   172,   339,   173,   174,   175,   176,
+-     177,   178,   179,     0,     0,     0,     0,   180,   181,   182,
+-     183,   166,     0,   184,     0,     0,     0,     0,   167,   168,
+-     169,   170,     0,     0,     0,     0,     0,     0,     0,     0,
+-       0,     0,     0,     0,     0,     0,     0,     0,   171,   172,
+-       0,   173,   174,   175,   176,   177,   178,   179,     0,     0,
+-       0,     0,   180,   181,   182,   183,   166,     0,   184,     0,
+-       0,     0,     0,   167,   168,   169,   170,     0,     0,     0,
++       0,     0,     0,     0,     0,    48,     0,     0,     0,     0,
++       0,     0,     0,     0,     0,     0,     0,    49,    50,     0,
++      51,     0,    52,    53,     0,     0,     0,     0,   252,    54,
++       0,    55,    56,    16,     0,    17,    18,    19,    20,    21,
++       0,     0,    22,    23,    24,    25,    26,     0,    27,    28,
++      29,    30,    31,    32,     0,     0,     0,     0,    33,     0,
+        0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
+-       0,     0,     0,     0,   172,     0,   173,   174,   175,   176,
+-     177,   178,   179,     0,     0,     0,     0,   180,   181,   182,
+-     183,     0,     0,   184
++       0,     0,    34,     0,    35,    36,    37,    38,    39,    40,
++       0,     0,     0,     0,    41,    42,    43,    44,    45,    46,
++      47,     0,     0,     0,     0,     0,     0,     0,    48,     0,
++       0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
++      49,    50,     0,    51,     0,    52,    53,     0,     0,     0,
++       0,   281,    54,     0,    55,    56,    16,     0,    17,    18,
++      19,    20,    21,     0,     0,    22,    23,    24,    25,    26,
++       0,    27,    28,    29,    30,    31,    32,     0,     0,     0,
++       0,    33,     0,     0,     0,     0,     0,     0,     0,     0,
++       0,     0,     0,     0,     0,    34,     0,    35,    36,    37,
++      38,    39,    40,     0,     0,     0,     0,    41,    42,    43,
++      44,    45,    46,    47,     0,     0,     0,     0,     0,     0,
++       0,    48,     0,     0,     0,     0,     0,     0,     0,     0,
++       0,     0,     0,    49,    50,     0,    51,     0,    52,    53,
++       0,     0,     0,     0,   346,    54,     0,    55,    56,    16,
++       0,    17,    18,    19,    20,    21,     0,     0,    22,    23,
++      24,    25,    26,     0,    27,    28,    29,    30,    31,    32,
++       0,     0,     0,     0,    33,     0,     0,     0,     0,     0,
++       0,     0,     0,     0,     0,     0,     0,     0,    34,     0,
++      35,    36,    37,    38,    39,    40,     0,     0,     0,     0,
++      41,    42,    43,    44,    45,    46,    47,     0,     0,     0,
++       0,     0,     0,     0,    48,   166,     0,     0,     0,     0,
++       0,     0,   167,   168,   169,   170,    49,    50,     0,    51,
++       0,    52,    53,     0,     0,     0,     0,     0,    54,     0,
++      55,    56,   171,   172,   339,   173,   174,   175,   176,   177,
++     178,   179,     0,     0,     0,     0,   180,   166,     0,   181,
++     182,   183,   184,     0,   167,   168,   169,   170,     0,     0,
++       0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
++       0,     0,     0,     0,   171,   172,     0,   173,   174,   175,
++     176,   177,   178,   179,     0,     0,     0,     0,   180,   166,
++       0,   181,   182,   183,   184,     0,   167,   168,   169,   170,
++       0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
++       0,     0,     0,     0,     0,     0,     0,   172,     0,   173,
++     174,   175,   176,   177,   178,   179,     0,     0,     0,     0,
++     180,     0,     0,   181,   182,   183,   184
+ };
+ 
+-#define yypact_value_is_default(Yystate) \
+-  (!!((Yystate) == (-400)))
+-
+-#define yytable_value_is_error(Yytable_value) \
+-  (!!((Yytable_value) == (-248)))
+-
+ static const yytype_int16 yycheck[] =
+ {
+       15,   308,    11,     9,     9,    40,    46,    46,   126,   115,
+@@ -795,8 +609,8 @@ static const yytype_int16 yycheck[] =
+      439,     9,    20,    39,    40,    41,    42,    25,    77,    54,
+       40,    41,    20,    67,    73,    74,    75,    25,     9,    55,
+       56,    43,    44,    19,    20,    21,    56,    23,    24,    20,
+-      15,    16,    17,     0,    25,   104,    90,     9,     9,    11,
+-     115,     9,    12,    11,    40,    41,   100,    11,   102,    98,
++      15,    16,    17,     0,    25,   104,     9,    91,    11,    11,
++     115,     9,    12,    11,    40,    41,   100,     9,   102,    98,
+       46,    77,   100,   382,   407,   101,    92,   100,   133,    55,
+       56,   100,   501,   102,   101,   223,   141,   101,   100,   100,
+       12,   100,   492,   118,     9,     9,   100,    11,     9,   432,
+@@ -804,101 +618,72 @@ static const yytype_int16 yycheck[] =
+      126,    20,    45,    89,   102,   103,   126,    12,   143,   100,
+        9,    12,    11,    73,    74,    75,    15,    16,    17,   101,
+      100,   102,    21,    12,   159,   160,   161,   102,   163,   164,
+-     165,    12,   100,   203,   203,   100,    73,    74,    75,    10,
++     165,    12,   100,   203,   203,   100,    73,    74,    75,   100,
+      126,    73,    74,    75,     9,   464,    11,   100,   193,    12,
+      185,   186,   187,   188,   189,   190,   191,   192,   477,   224,
+       77,    12,   499,    62,   101,   100,   100,    12,    73,    74,
+-      75,   100,    73,    74,    75,    69,    99,   212,   213,   214,
+-     215,   216,   217,   209,    73,    74,    75,   323,   223,    99,
++      75,    99,    73,    74,    75,    10,    99,   212,   213,   214,
++     215,   216,   217,   209,    73,    74,    75,   323,   223,    69,
+       20,    11,    73,    74,    75,    73,    74,    75,   184,    69,
+      235,   100,   350,   102,   103,   122,    73,    74,    75,   244,
+-      73,    74,    75,    20,    17,    18,   100,   203,   100,    99,
+-      10,    99,    73,    74,    75,    23,    11,    30,    73,    74,
++      73,    74,    75,    20,    17,    18,   100,   203,   100,    10,
++      99,    99,    73,    74,    75,    23,    11,    30,    73,    74,
+       75,    34,    99,    60,   269,   270,    39,    75,   100,    42,
+       18,   276,    45,   103,    47,   103,    49,    50,    51,    52,
+       53,   277,    73,    74,    75,   103,   103,   103,   323,   100,
+-      87,   296,   297,   298,   299,    92,    93,    94,    95,    20,
+-     102,    98,   100,   308,   410,   310,   311,    99,    23,    10,
+-     101,   198,   199,   200,   201,   202,    10,   204,    10,   206,
++      87,   296,   297,   298,   299,    92,    20,   100,    95,    96,
++      97,    98,    23,   308,   410,   310,   311,   102,    10,    10,
++     101,   198,   199,   200,   201,   202,    99,   204,    10,   206,
+      207,   277,    73,    74,    75,    39,    40,    41,    42,    10,
+-     335,   327,    46,   414,    48,   375,   375,   418,    60,    61,
+-     421,   422,    10,    23,   300,   350,    73,    74,    75,    20,
+-     101,    93,    94,    95,   435,   436,    98,   100,    99,    73,
+-      74,    75,    99,    99,   445,    87,    73,    74,    75,    99,
+-      92,    93,    94,    95,   101,   410,    98,   382,   459,    99,
+-      99,   386,   463,   101,   465,    99,    99,    99,    99,   162,
+-       9,    99,    99,   166,   167,   168,   169,   170,   171,   172,
+-     173,   174,   175,   176,   177,   178,   179,   180,    10,   490,
+-     415,   426,   417,   443,   301,   101,   497,     9,   433,   375,
+-      99,    71,   309,   101,    99,   506,   456,   457,   100,    58,
+-      59,    60,    61,    99,     9,   431,   100,    99,   468,   444,
+-       0,   101,    70,   458,    99,    19,    99,    12,   478,     9,
+-     480,    11,    12,    98,   297,   499,   471,    86,    87,   464,
+-     195,   444,    33,    92,    93,    94,    95,    82,   498,    98,
+-      60,    61,   477,   360,   362,   408,   363,   364,   493,    39,
+-      40,    41,    42,   375,    -1,    -1,    46,   203,    48,   376,
+-      -1,    51,    -1,    -1,    -1,    -1,    86,    87,    58,    59,
+-      60,    61,    92,    93,    94,    95,    -1,    -1,    98,    73,
+-      74,    75,    -1,    73,    74,    75,     0,    77,    78,    79,
+-      80,    81,    82,    83,    84,    85,    86,    87,    12,    -1,
+-      -1,    -1,    92,    93,    94,    95,    -1,   101,    98,    99,
++     335,   327,    46,   414,    48,   375,   375,   418,    10,    23,
++     421,   422,    20,    99,   300,   350,    73,    74,    75,    99,
++     101,    73,    74,    75,   435,   436,    99,    99,    99,    73,
++      74,    75,   100,    99,   445,    73,    74,    75,     3,     4,
++       5,     6,     7,     8,   101,   410,   101,   382,   459,   101,
++      99,   386,   463,    99,   465,    99,    99,     9,    99,   162,
++      10,    99,   101,   166,   167,   168,   169,   170,   171,   172,
++     173,   174,   175,   176,   177,   178,   179,   180,     9,   490,
++     415,   426,   417,   443,   301,    71,   497,    99,   433,   375,
++      99,   101,   309,   100,    99,   506,   456,   457,    60,    61,
++      73,    74,    75,     9,   100,   431,    87,   101,   468,   444,
++       0,    92,    99,   458,    95,    96,    97,    98,   478,     9,
++     480,    11,    12,    70,    86,    87,   471,    19,   101,   464,
++      92,    99,    99,    95,    96,    97,    98,    12,   498,    98,
++      60,    61,   477,   360,   444,   297,   363,   364,   493,    39,
++      40,    41,    42,   499,    33,   195,    46,    82,    48,   376,
++      92,    51,   362,    95,    96,    97,    98,    87,    58,    59,
++      60,    61,    92,   375,   203,    95,    96,    97,    98,    95,
++      96,    97,    98,    73,    74,    75,     0,    77,    78,    79,
++      80,    81,    82,    83,    84,    85,    86,    87,    12,   408,
++      -1,    58,    92,    60,    61,    95,    96,    97,    98,    99,
+       -1,   101,    -1,    -1,   104,    39,    40,    41,    42,    -1,
+-      -1,    -1,    46,    -1,    48,    39,    40,    41,    42,    73,
+-      74,    75,    46,    -1,    48,    -1,   339,    51,     3,     4,
+-       5,     6,     7,     8,    58,    59,    60,    61,    -1,    73,
+-      74,    75,    92,    93,    94,    95,    -1,   101,    98,    73,
++      -1,    -1,    46,    -1,    48,    39,    40,    41,    42,    86,
++      87,    -1,    46,    -1,    48,    92,   339,    51,    95,    96,
++      97,    98,    -1,    -1,    58,    59,    60,    61,    -1,    73,
++      74,    75,    73,    74,    75,    -1,    -1,    -1,    -1,    73,
+       74,    75,    -1,    77,    78,    79,    80,    81,    82,    83,
+-      84,    85,    86,    87,    73,    74,    75,    -1,    92,    93,
+-      94,    95,     0,     1,    98,    99,    -1,   101,    -1,    -1,
+-     104,     9,    -1,    11,    -1,    13,    14,    15,    16,    17,
+-      99,    -1,    20,    21,    22,    23,    24,    -1,    26,    27,
+-      28,    29,    30,    31,    32,    33,    34,    35,    36,    37,
+-      38,    39,    40,    41,    42,    73,    74,    75,    46,    47,
+-      48,    49,    50,    -1,    52,    53,    54,    55,    56,    57,
+-      73,    74,    75,    -1,    62,    63,    64,    65,    66,    67,
+-      68,    -1,    -1,   101,    -1,    -1,    -1,    -1,    76,    -1,
+-      73,    74,    75,    -1,    -1,    -1,    99,    -1,    -1,    -1,
+-      88,    89,    90,    73,    74,    75,    -1,    -1,    96,    97,
+-       0,     1,   100,   101,   102,   103,    99,    -1,    -1,     9,
+-      -1,    11,    -1,    13,    14,    15,    16,    17,    -1,    99,
+-      20,    21,    22,    23,    24,    -1,    26,    27,    28,    29,
+-      30,    31,    32,    33,    34,    35,    36,    37,    38,    39,
+-      40,    41,    42,    -1,    -1,    -1,    46,    47,    48,    49,
+-      50,    -1,    52,    53,    54,    55,    56,    57,    -1,    -1,
+-      -1,    -1,    62,    63,    64,    65,    66,    67,    68,    -1,
+-      -1,    -1,    87,    -1,    -1,    -1,    76,    92,    93,    94,
+-      95,    -1,    -1,    98,    -1,    -1,    -1,    -1,    88,    89,
+-      90,    -1,    -1,    -1,    -1,    -1,    96,    97,     1,    -1,
+-     100,   101,   102,   103,    -1,    -1,     9,    10,    11,    -1,
+-      13,    14,    15,    16,    17,    -1,    -1,    20,    21,    22,
+-      23,    24,    -1,    26,    27,    28,    29,    30,    31,    32,
+-      33,    34,    35,    36,    37,    38,    39,    40,    41,    42,
+-      -1,    -1,    -1,    46,    47,    48,    49,    50,    -1,    52,
+-      53,    54,    55,    56,    57,    -1,    -1,    -1,    -1,    62,
+-      63,    64,    65,    66,    67,    68,    -1,    -1,    -1,    -1,
+-      -1,    -1,    -1,    76,    -1,    -1,    -1,    -1,    -1,    -1,
+-      -1,    -1,    -1,    -1,    -1,    88,    89,    90,    -1,    -1,
+-      -1,    -1,    -1,    96,    97,     1,    -1,   100,   101,   102,
+-     103,    -1,    -1,     9,    10,    11,    -1,    13,    14,    15,
+-      16,    17,    -1,    -1,    20,    21,    22,    23,    24,    -1,
+-      26,    27,    28,    29,    30,    31,    32,    33,    34,    35,
+-      36,    37,    38,    39,    40,    41,    42,    -1,    -1,    -1,
+-      46,    47,    48,    49,    50,    -1,    52,    53,    54,    55,
+-      56,    57,    -1,    -1,    -1,    -1,    62,    63,    64,    65,
+-      66,    67,    68,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
+-      76,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
+-      -1,    -1,    88,    89,    90,    -1,    -1,    -1,    -1,    -1,
+-      96,    97,     1,    -1,   100,   101,   102,   103,    -1,    -1,
+-       9,    10,    11,    -1,    13,    14,    15,    16,    17,    -1,
+-      -1,    20,    21,    22,    23,    24,    -1,    26,    27,    28,
+-      29,    30,    31,    32,    33,    34,    35,    36,    37,    38,
+-      39,    40,    41,    42,    -1,    -1,    -1,    46,    47,    48,
+-      49,    50,    -1,    52,    53,    54,    55,    56,    57,    -1,
+-      -1,    -1,    -1,    62,    63,    64,    65,    66,    67,    68,
+-      -1,    -1,    -1,    -1,    -1,    -1,    -1,    76,    -1,    -1,
+-      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    88,
+-      89,    90,    -1,    -1,    -1,    -1,    -1,    96,    97,     1,
+-      -1,   100,   101,   102,   103,    -1,    -1,     9,    10,    11,
++      84,    85,    86,    87,    73,    74,    75,    -1,    92,    -1,
++     101,    95,    96,    97,    98,    99,    -1,   101,     0,     1,
++     104,    -1,    -1,    -1,    -1,    -1,    -1,     9,    -1,    11,
++      99,    13,    14,    15,    16,    17,    -1,    -1,    20,    21,
++      22,    23,    24,    -1,    26,    27,    28,    29,    30,    31,
++      32,    33,    34,    35,    36,    37,    38,    39,    40,    41,
++      42,    73,    74,    75,    46,    47,    48,    49,    50,    -1,
++      52,    53,    54,    55,    56,    57,    73,    74,    75,    -1,
++      62,    63,    64,    65,    66,    67,    68,    99,    -1,    73,
++      74,    75,    -1,    -1,    76,    -1,    -1,    -1,    -1,    -1,
++      -1,    -1,    99,    -1,    -1,    -1,    88,    89,    -1,    91,
++      -1,    93,    94,     0,     1,    99,    -1,    -1,   100,   101,
++     102,   103,     9,    -1,    11,    -1,    13,    14,    15,    16,
++      17,    -1,    -1,    20,    21,    22,    23,    24,    -1,    26,
++      27,    28,    29,    30,    31,    32,    33,    34,    35,    36,
++      37,    38,    39,    40,    41,    42,    -1,    -1,    -1,    46,
++      47,    48,    49,    50,    -1,    52,    53,    54,    55,    56,
++      57,    -1,    -1,    -1,    -1,    62,    63,    64,    65,    66,
++      67,    68,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    76,
++      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
++      -1,    88,    89,    -1,    91,    -1,    93,    94,    -1,     1,
++      -1,    -1,    -1,   100,   101,   102,   103,     9,    10,    11,
+       -1,    13,    14,    15,    16,    17,    -1,    -1,    20,    21,
+       22,    23,    24,    -1,    26,    27,    28,    29,    30,    31,
+       32,    33,    34,    35,    36,    37,    38,    39,    40,    41,
+@@ -906,131 +691,131 @@ static const yytype_int16 yycheck[] =
+       52,    53,    54,    55,    56,    57,    -1,    -1,    -1,    -1,
+       62,    63,    64,    65,    66,    67,    68,    -1,    -1,    -1,
+       -1,    -1,    -1,    -1,    76,    -1,    -1,    -1,    -1,    -1,
+-      -1,    -1,    -1,    -1,    -1,    -1,    88,    89,    90,    -1,
+-      -1,    -1,    -1,    -1,    96,    97,     1,    -1,   100,   101,
+-     102,   103,    -1,    -1,     9,    10,    11,    -1,    13,    14,
+-      15,    16,    17,    -1,    -1,    20,    21,    22,    23,    24,
+-      -1,    26,    27,    28,    29,    30,    31,    32,    33,    34,
+-      35,    36,    37,    38,    39,    40,    41,    42,    -1,    -1,
+-      -1,    46,    47,    48,    49,    50,    -1,    52,    53,    54,
+-      55,    56,    57,    -1,    -1,    -1,    -1,    62,    63,    64,
+-      65,    66,    67,    68,    -1,    -1,    -1,    -1,    -1,    -1,
+-      -1,    76,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
+-      -1,    -1,    -1,    88,    89,    90,    -1,    -1,    -1,    -1,
+-      -1,    96,    97,     1,    -1,   100,   101,   102,   103,    -1,
+-      -1,     9,    -1,    11,    -1,    13,    14,    15,    16,    17,
+-      -1,    -1,    20,    21,    22,    23,    24,    -1,    26,    27,
+-      28,    29,    30,    31,    32,    33,    34,    35,    36,    37,
+-      38,    39,    40,    41,    42,    -1,    -1,    -1,    46,    47,
+-      48,    49,    50,    -1,    52,    53,    54,    55,    56,    57,
+-      -1,    -1,    -1,    -1,    62,    63,    64,    65,    66,    67,
+-      68,    -1,    -1,    71,    -1,    -1,    -1,    -1,    76,    -1,
++      -1,    -1,    -1,    -1,    -1,    -1,    88,    89,    -1,    91,
++      -1,    93,    94,    -1,     1,    -1,    -1,    -1,   100,   101,
++     102,   103,     9,    10,    11,    -1,    13,    14,    15,    16,
++      17,    -1,    -1,    20,    21,    22,    23,    24,    -1,    26,
++      27,    28,    29,    30,    31,    32,    33,    34,    35,    36,
++      37,    38,    39,    40,    41,    42,    -1,    -1,    -1,    46,
++      47,    48,    49,    50,    -1,    52,    53,    54,    55,    56,
++      57,    -1,    -1,    -1,    -1,    62,    63,    64,    65,    66,
++      67,    68,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    76,
+       -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
+-      88,    89,    90,    -1,    -1,    -1,    -1,    -1,    96,    97,
+-       1,    -1,   100,   101,   102,   103,    -1,    -1,     9,    -1,
+-      11,    -1,    13,    14,    15,    16,    17,    -1,    -1,    20,
+-      21,    22,    23,    24,    -1,    26,    27,    28,    29,    30,
+-      31,    32,    33,    34,    35,    36,    37,    38,    39,    40,
+-      41,    42,    -1,    -1,    -1,    46,    47,    48,    49,    50,
+-      -1,    52,    53,    54,    55,    56,    57,    -1,    -1,    -1,
+-      -1,    62,    63,    64,    65,    66,    67,    68,    -1,    -1,
+-      -1,    -1,    -1,    -1,    -1,    76,    -1,    -1,    -1,    -1,
+-      -1,    -1,    -1,    -1,    -1,    -1,    -1,    88,    89,    90,
+-      -1,    -1,    -1,    -1,    -1,    96,    97,     1,    -1,   100,
+-     101,   102,   103,    -1,    -1,     9,    -1,    11,    -1,    13,
+-      14,    15,    16,    17,    -1,    -1,    20,    21,    22,    23,
+-      24,    -1,    26,    27,    28,    29,    30,    31,    32,    -1,
+-      34,    35,    36,    37,    38,    39,    40,    41,    42,    -1,
+-      -1,    -1,    46,    47,    48,    49,    50,    -1,    52,    53,
+-      54,    55,    56,    57,    -1,    -1,    -1,    -1,    62,    63,
+-      64,    65,    66,    67,    68,    -1,    -1,    -1,    -1,    -1,
+-      -1,    -1,    76,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
+-      -1,    -1,    -1,    -1,    88,    89,    90,    -1,    -1,    -1,
+-       1,    -1,    96,    97,    -1,    -1,   100,   101,   102,   103,
+-      11,    -1,    13,    14,    15,    16,    17,    -1,    -1,    20,
+-      21,    22,    23,    24,    -1,    26,    27,    28,    29,    30,
+-      31,    -1,    -1,    -1,    -1,    36,    -1,    -1,    51,    -1,
+-      -1,    -1,    -1,    -1,    -1,    58,    59,    60,    61,    50,
+-      -1,    52,    53,    54,    55,    56,    57,    -1,    -1,    -1,
+-      -1,    62,    63,    64,    65,    66,    67,    68,    81,    82,
+-      83,    84,    85,    86,    87,    76,    -1,    -1,    -1,    92,
+-      93,    94,    95,    -1,    -1,    98,    -1,    88,    89,    90,
+-      -1,    -1,    -1,     1,    -1,    96,    97,    -1,    -1,   100,
+-     101,   102,   103,    11,    -1,    13,    14,    15,    16,    17,
+-      -1,    -1,    20,    21,    22,    23,    24,    -1,    26,    27,
+-      28,    29,    30,    31,    -1,    -1,    -1,    -1,    36,    -1,
+-      -1,    -1,    -1,    -1,    -1,    -1,    58,    59,    60,    61,
+-      -1,    -1,    50,    -1,    52,    53,    54,    55,    56,    57,
+-      -1,    -1,    -1,    -1,    62,    63,    64,    65,    66,    67,
+-      68,    83,    84,    85,    86,    87,    -1,    -1,    76,    -1,
+-      92,    93,    94,    95,    -1,    -1,    98,    -1,    -1,    -1,
+-      88,    89,    90,    -1,    -1,    -1,    -1,    -1,    96,    97,
+-      -1,    99,   100,    -1,   102,   103,     9,    -1,    11,    -1,
+-      13,    14,    15,    16,    17,    -1,    -1,    20,    21,    22,
+-      23,    24,    25,    26,    27,    28,    29,    30,    31,    -1,
+-      -1,    -1,    -1,    36,    -1,    -1,    -1,    -1,    -1,    -1,
+-      58,    59,    60,    61,    -1,    -1,    -1,    50,    -1,    52,
+-      53,    54,    55,    56,    57,    -1,    -1,    -1,    -1,    62,
+-      63,    64,    65,    66,    67,    68,    84,    85,    86,    87,
+-      -1,    -1,    -1,    76,    92,    93,    94,    95,    -1,    -1,
+-      98,    -1,    -1,    -1,    -1,    88,    89,    90,    -1,    -1,
+-      -1,    -1,    -1,    96,    97,    -1,    -1,   100,    -1,   102,
+-     103,     9,    -1,    11,    -1,    13,    14,    15,    16,    17,
+-      -1,    -1,    20,    21,    22,    23,    24,    -1,    26,    27,
+-      28,    29,    30,    31,    -1,    -1,    -1,    -1,    36,    -1,
+-      -1,    -1,    -1,    -1,    -1,    58,    59,    60,    61,    -1,
+-      -1,    -1,    50,    -1,    52,    53,    54,    55,    56,    57,
+-      -1,    -1,    -1,    -1,    62,    63,    64,    65,    66,    67,
+-      68,    -1,    85,    86,    87,    -1,    -1,    -1,    76,    92,
+-      93,    94,    95,    -1,    -1,    98,    -1,    -1,    -1,    -1,
+-      88,    89,    90,    -1,    -1,    -1,    -1,    -1,    96,    97,
+-      -1,    -1,   100,    -1,   102,   103,    11,    12,    13,    14,
+-      15,    16,    17,    -1,    -1,    20,    21,    22,    23,    24,
+-      -1,    26,    27,    28,    29,    30,    31,    -1,    -1,    -1,
+-      -1,    36,    -1,    -1,    -1,    -1,    -1,    -1,    58,    59,
+-      60,    61,    -1,    -1,    -1,    50,    -1,    52,    53,    54,
+-      55,    56,    57,    -1,    -1,    -1,    -1,    62,    63,    64,
+-      65,    66,    67,    68,    -1,    -1,    86,    87,    -1,    -1,
+-      -1,    76,    92,    93,    94,    95,    -1,    -1,    98,    -1,
+-      -1,    -1,    -1,    88,    89,    90,    -1,    -1,    -1,    -1,
+-      -1,    96,    97,    -1,    -1,   100,    -1,   102,   103,    11,
++      -1,    88,    89,    -1,    91,    -1,    93,    94,    -1,     1,
++      -1,    -1,    -1,   100,   101,   102,   103,     9,    10,    11,
+       -1,    13,    14,    15,    16,    17,    -1,    -1,    20,    21,
+       22,    23,    24,    -1,    26,    27,    28,    29,    30,    31,
+-      -1,    -1,    -1,    -1,    36,    -1,    -1,    -1,    -1,    -1,
+-      -1,    58,    -1,    60,    61,    -1,    -1,    -1,    50,    -1,
++      32,    33,    34,    35,    36,    37,    38,    39,    40,    41,
++      42,    -1,    -1,    -1,    46,    47,    48,    49,    50,    -1,
++      52,    53,    54,    55,    56,    57,    -1,    -1,    -1,    -1,
++      62,    63,    64,    65,    66,    67,    68,    -1,    -1,    -1,
++      -1,    -1,    -1,    -1,    76,    -1,    -1,    -1,    -1,    -1,
++      -1,    -1,    -1,    -1,    -1,    -1,    88,    89,    -1,    91,
++      -1,    93,    94,    -1,     1,    -1,    -1,    -1,   100,   101,
++     102,   103,     9,    10,    11,    -1,    13,    14,    15,    16,
++      17,    -1,    -1,    20,    21,    22,    23,    24,    -1,    26,
++      27,    28,    29,    30,    31,    32,    33,    34,    35,    36,
++      37,    38,    39,    40,    41,    42,    -1,    -1,    -1,    46,
++      47,    48,    49,    50,    -1,    52,    53,    54,    55,    56,
++      57,    -1,    -1,    -1,    -1,    62,    63,    64,    65,    66,
++      67,    68,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    76,
++      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
++      -1,    88,    89,    -1,    91,    -1,    93,    94,    -1,     1,
++      -1,    -1,    -1,   100,   101,   102,   103,     9,    10,    11,
++      -1,    13,    14,    15,    16,    17,    -1,    -1,    20,    21,
++      22,    23,    24,    -1,    26,    27,    28,    29,    30,    31,
++      32,    33,    34,    35,    36,    37,    38,    39,    40,    41,
++      42,    -1,    -1,    -1,    46,    47,    48,    49,    50,    -1,
++      52,    53,    54,    55,    56,    57,    -1,    -1,    -1,    -1,
++      62,    63,    64,    65,    66,    67,    68,    -1,    -1,    -1,
++      -1,    -1,    -1,    -1,    76,    -1,    -1,    -1,    -1,    -1,
++      -1,    -1,    -1,    -1,    -1,    -1,    88,    89,    -1,    91,
++      -1,    93,    94,    -1,     1,    -1,    -1,    -1,   100,   101,
++     102,   103,     9,    -1,    11,    -1,    13,    14,    15,    16,
++      17,    -1,    -1,    20,    21,    22,    23,    24,    -1,    26,
++      27,    28,    29,    30,    31,    32,    33,    34,    35,    36,
++      37,    38,    39,    40,    41,    42,    -1,    -1,    -1,    46,
++      47,    48,    49,    50,    -1,    52,    53,    54,    55,    56,
++      57,    -1,    -1,    -1,    -1,    62,    63,    64,    65,    66,
++      67,    68,    -1,    -1,    71,    -1,    -1,    -1,    -1,    76,
++      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
++      -1,    88,    89,    -1,    91,    -1,    93,    94,    -1,     1,
++      -1,    -1,    -1,   100,   101,   102,   103,     9,    -1,    11,
++      -1,    13,    14,    15,    16,    17,    -1,    -1,    20,    21,
++      22,    23,    24,    -1,    26,    27,    28,    29,    30,    31,
++      32,    33,    34,    35,    36,    37,    38,    39,    40,    41,
++      42,    -1,    -1,    -1,    46,    47,    48,    49,    50,    -1,
+       52,    53,    54,    55,    56,    57,    -1,    -1,    -1,    -1,
+-      62,    63,    64,    65,    66,    67,    68,    -1,    -1,    86,
+-      87,    -1,    -1,    -1,    76,    92,    93,    94,    95,    -1,
+-      -1,    98,    -1,    -1,    -1,    -1,    88,    89,    90,    -1,
+-      -1,    -1,    -1,    -1,    96,    97,    -1,    -1,   100,   101,
+-     102,   103,    11,    -1,    13,    14,    15,    16,    17,    -1,
++      62,    63,    64,    65,    66,    67,    68,    -1,    -1,    -1,
++      -1,    -1,    -1,    -1,    76,    -1,    -1,    -1,    -1,    -1,
++      -1,    -1,    -1,    -1,    -1,    -1,    88,    89,    -1,    91,
++      -1,    93,    94,    -1,     1,    -1,    -1,    -1,   100,   101,
++     102,   103,     9,    -1,    11,    -1,    13,    14,    15,    16,
++      17,    -1,    -1,    20,    21,    22,    23,    24,    -1,    26,
++      27,    28,    29,    30,    31,    32,    -1,    34,    35,    36,
++      37,    38,    39,    40,    41,    42,    -1,    -1,    -1,    46,
++      47,    48,    49,    50,    -1,    52,    53,    54,    55,    56,
++      57,    -1,    -1,    -1,    -1,    62,    63,    64,    65,    66,
++      67,    68,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    76,
++      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
++      -1,    88,    89,    -1,    91,    -1,    93,    94,     1,    -1,
++      -1,    -1,    -1,   100,   101,   102,   103,    -1,    11,    -1,
++      13,    14,    15,    16,    17,    -1,    -1,    20,    21,    22,
++      23,    24,    -1,    26,    27,    28,    29,    30,    31,    -1,
++      -1,    -1,    -1,    36,    -1,    -1,    51,    -1,    -1,    -1,
++      -1,    -1,    -1,    58,    59,    60,    61,    50,    -1,    52,
++      53,    54,    55,    56,    57,    -1,    -1,    -1,    -1,    62,
++      63,    64,    65,    66,    67,    68,    81,    82,    83,    84,
++      85,    86,    87,    76,    -1,    -1,    -1,    92,    -1,    -1,
++      95,    96,    97,    98,    -1,    88,    89,    -1,    91,    -1,
++      93,    94,     1,    -1,    -1,    -1,    -1,   100,   101,   102,
++     103,    -1,    11,    -1,    13,    14,    15,    16,    17,    -1,
+       -1,    20,    21,    22,    23,    24,    -1,    26,    27,    28,
+       29,    30,    31,    -1,    -1,    -1,    -1,    36,    -1,    -1,
+-      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
++      -1,    -1,    -1,    -1,    -1,    58,    59,    60,    61,    -1,
++      -1,    50,    -1,    52,    53,    54,    55,    56,    57,    -1,
++      -1,    -1,    -1,    62,    63,    64,    65,    66,    67,    68,
++      83,    84,    85,    86,    87,    -1,    -1,    76,    -1,    92,
++      -1,    -1,    95,    96,    97,    98,    -1,    -1,    -1,    88,
++      89,    -1,    91,    -1,    93,    94,    -1,    -1,    -1,    -1,
++      99,   100,    -1,   102,   103,     9,    -1,    11,    -1,    13,
++      14,    15,    16,    17,    -1,    -1,    20,    21,    22,    23,
++      24,    25,    26,    27,    28,    29,    30,    31,    -1,    -1,
++      -1,    -1,    36,    -1,    -1,    -1,    -1,    -1,    -1,    58,
++      59,    60,    61,    -1,    -1,    -1,    50,    -1,    52,    53,
++      54,    55,    56,    57,    -1,    -1,    -1,    -1,    62,    63,
++      64,    65,    66,    67,    68,    84,    85,    86,    87,    -1,
++      -1,    -1,    76,    92,    -1,    -1,    95,    96,    97,    98,
++      -1,    -1,    -1,    -1,    88,    89,    -1,    91,    -1,    93,
++      94,    -1,    -1,    -1,    -1,    -1,   100,    -1,   102,   103,
++       9,    -1,    11,    -1,    13,    14,    15,    16,    17,    -1,
++      -1,    20,    21,    22,    23,    24,    -1,    26,    27,    28,
++      29,    30,    31,    -1,    -1,    -1,    -1,    36,    -1,    -1,
++      -1,    -1,    -1,    -1,    58,    59,    60,    61,    -1,    -1,
+       -1,    50,    -1,    52,    53,    54,    55,    56,    57,    -1,
+       -1,    -1,    -1,    62,    63,    64,    65,    66,    67,    68,
+-      -1,    -1,    -1,    -1,    -1,    -1,    -1,    76,    -1,    -1,
+-      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    88,
+-      89,    90,    -1,    -1,    -1,    -1,    -1,    96,    97,    -1,
+-      99,   100,    -1,   102,   103,    11,    -1,    13,    14,    15,
++      -1,    85,    86,    87,    -1,    -1,    -1,    76,    92,    -1,
++      -1,    95,    96,    97,    98,    -1,    -1,    -1,    -1,    88,
++      89,    -1,    91,    -1,    93,    94,    -1,    -1,    -1,    -1,
++      -1,   100,    -1,   102,   103,    11,    12,    13,    14,    15,
+       16,    17,    -1,    -1,    20,    21,    22,    23,    24,    -1,
+       26,    27,    28,    29,    30,    31,    -1,    -1,    -1,    -1,
+-      36,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
++      36,    -1,    -1,    -1,    -1,    58,    59,    60,    61,    -1,
+       -1,    -1,    -1,    -1,    50,    -1,    52,    53,    54,    55,
+       56,    57,    -1,    -1,    -1,    -1,    62,    63,    64,    65,
+-      66,    67,    68,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
+-      76,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
+-      -1,    -1,    88,    89,    90,    -1,    -1,    -1,    -1,    -1,
+-      96,    97,    -1,    99,   100,    -1,   102,   103,    11,    -1,
++      66,    67,    68,    86,    87,    -1,    -1,    -1,    -1,    92,
++      76,    -1,    95,    96,    97,    98,    -1,    -1,    -1,    -1,
++      -1,    -1,    88,    89,    -1,    91,    -1,    93,    94,    -1,
++      -1,    -1,    -1,    -1,   100,    -1,   102,   103,    11,    -1,
+       13,    14,    15,    16,    17,    -1,    -1,    20,    21,    22,
+       23,    24,    -1,    26,    27,    28,    29,    30,    31,    -1,
+-      -1,    -1,    -1,    36,    -1,    -1,    -1,    -1,    -1,    -1,
+-      -1,    -1,    -1,    -1,    -1,    -1,    -1,    50,    -1,    52,
++      -1,    -1,    -1,    36,    -1,    -1,    -1,    -1,    58,    59,
++      60,    61,    -1,    -1,    -1,    -1,    -1,    50,    -1,    52,
+       53,    54,    55,    56,    57,    -1,    -1,    -1,    -1,    62,
+-      63,    64,    65,    66,    67,    68,    -1,    -1,    -1,    -1,
+-      -1,    -1,    -1,    76,    -1,    -1,    -1,    -1,    -1,    -1,
+-      -1,    -1,    -1,    -1,    -1,    88,    89,    90,    -1,    -1,
+-      -1,    -1,    -1,    96,    97,    -1,    99,   100,    -1,   102,
++      63,    64,    65,    66,    67,    68,    86,    87,    -1,    -1,
++      -1,    -1,    92,    76,    -1,    95,    96,    97,    98,    -1,
++      -1,    -1,    -1,    -1,    -1,    88,    89,    -1,    91,    -1,
++      93,    94,    -1,    -1,    -1,    -1,    -1,   100,   101,   102,
+      103,    11,    -1,    13,    14,    15,    16,    17,    -1,    -1,
+       20,    21,    22,    23,    24,    -1,    26,    27,    28,    29,
+       30,    31,    -1,    -1,    -1,    -1,    36,    -1,    -1,    -1,
+@@ -1039,7 +824,7 @@ static const yytype_int16 yycheck[] =
+       -1,    -1,    62,    63,    64,    65,    66,    67,    68,    -1,
+       -1,    -1,    -1,    -1,    -1,    -1,    76,    -1,    -1,    -1,
+       -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    88,    89,
+-      90,    -1,    -1,    -1,    -1,    -1,    96,    97,    -1,    99,
++      -1,    91,    -1,    93,    94,    -1,    -1,    -1,    -1,    99,
+      100,    -1,   102,   103,    11,    -1,    13,    14,    15,    16,
+       17,    -1,    -1,    20,    21,    22,    23,    24,    -1,    26,
+       27,    28,    29,    30,    31,    -1,    -1,    -1,    -1,    36,
+@@ -1048,8 +833,8 @@ static const yytype_int16 yycheck[] =
+       57,    -1,    -1,    -1,    -1,    62,    63,    64,    65,    66,
+       67,    68,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    76,
+       -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
+-      -1,    88,    89,    90,    -1,    -1,    -1,    -1,    -1,    96,
+-      97,    -1,    99,   100,    -1,   102,   103,    11,    -1,    13,
++      -1,    88,    89,    -1,    91,    -1,    93,    94,    -1,    -1,
++      -1,    -1,    99,   100,    -1,   102,   103,    11,    -1,    13,
+       14,    15,    16,    17,    -1,    -1,    20,    21,    22,    23,
+       24,    -1,    26,    27,    28,    29,    30,    31,    -1,    -1,
+       -1,    -1,    36,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
+@@ -1057,33 +842,60 @@ static const yytype_int16 yycheck[] =
+       54,    55,    56,    57,    -1,    -1,    -1,    -1,    62,    63,
+       64,    65,    66,    67,    68,    -1,    -1,    -1,    -1,    -1,
+       -1,    -1,    76,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
+-      -1,    -1,    -1,    -1,    88,    89,    90,    -1,    -1,    -1,
+-      -1,    -1,    96,    97,    -1,    99,   100,    -1,   102,   103,
++      -1,    -1,    -1,    -1,    88,    89,    -1,    91,    -1,    93,
++      94,    -1,    -1,    -1,    -1,    99,   100,    -1,   102,   103,
+       11,    -1,    13,    14,    15,    16,    17,    -1,    -1,    20,
+       21,    22,    23,    24,    -1,    26,    27,    28,    29,    30,
+       31,    -1,    -1,    -1,    -1,    36,    -1,    -1,    -1,    -1,
+       -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    50,
+       -1,    52,    53,    54,    55,    56,    57,    -1,    -1,    -1,
+       -1,    62,    63,    64,    65,    66,    67,    68,    -1,    -1,
+-      -1,    -1,    -1,    -1,    -1,    76,    51,    -1,    -1,    -1,
+-      -1,    -1,    -1,    58,    59,    60,    61,    88,    89,    90,
+-      -1,    -1,    -1,    -1,    -1,    96,    97,    -1,    -1,   100,
+-      -1,   102,   103,    78,    79,    80,    81,    82,    83,    84,
+-      85,    86,    87,    -1,    -1,    -1,    -1,    92,    93,    94,
+-      95,    51,    -1,    98,    -1,    -1,    -1,    -1,    58,    59,
+-      60,    61,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
+-      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    78,    79,
+-      -1,    81,    82,    83,    84,    85,    86,    87,    -1,    -1,
+-      -1,    -1,    92,    93,    94,    95,    51,    -1,    98,    -1,
+-      -1,    -1,    -1,    58,    59,    60,    61,    -1,    -1,    -1,
++      -1,    -1,    -1,    -1,    -1,    76,    -1,    -1,    -1,    -1,
++      -1,    -1,    -1,    -1,    -1,    -1,    -1,    88,    89,    -1,
++      91,    -1,    93,    94,    -1,    -1,    -1,    -1,    99,   100,
++      -1,   102,   103,    11,    -1,    13,    14,    15,    16,    17,
++      -1,    -1,    20,    21,    22,    23,    24,    -1,    26,    27,
++      28,    29,    30,    31,    -1,    -1,    -1,    -1,    36,    -1,
++      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
++      -1,    -1,    50,    -1,    52,    53,    54,    55,    56,    57,
++      -1,    -1,    -1,    -1,    62,    63,    64,    65,    66,    67,
++      68,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    76,    -1,
++      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
++      88,    89,    -1,    91,    -1,    93,    94,    -1,    -1,    -1,
++      -1,    99,   100,    -1,   102,   103,    11,    -1,    13,    14,
++      15,    16,    17,    -1,    -1,    20,    21,    22,    23,    24,
++      -1,    26,    27,    28,    29,    30,    31,    -1,    -1,    -1,
++      -1,    36,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
++      -1,    -1,    -1,    -1,    -1,    50,    -1,    52,    53,    54,
++      55,    56,    57,    -1,    -1,    -1,    -1,    62,    63,    64,
++      65,    66,    67,    68,    -1,    -1,    -1,    -1,    -1,    -1,
++      -1,    76,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
++      -1,    -1,    -1,    88,    89,    -1,    91,    -1,    93,    94,
++      -1,    -1,    -1,    -1,    99,   100,    -1,   102,   103,    11,
++      -1,    13,    14,    15,    16,    17,    -1,    -1,    20,    21,
++      22,    23,    24,    -1,    26,    27,    28,    29,    30,    31,
++      -1,    -1,    -1,    -1,    36,    -1,    -1,    -1,    -1,    -1,
++      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    50,    -1,
++      52,    53,    54,    55,    56,    57,    -1,    -1,    -1,    -1,
++      62,    63,    64,    65,    66,    67,    68,    -1,    -1,    -1,
++      -1,    -1,    -1,    -1,    76,    51,    -1,    -1,    -1,    -1,
++      -1,    -1,    58,    59,    60,    61,    88,    89,    -1,    91,
++      -1,    93,    94,    -1,    -1,    -1,    -1,    -1,   100,    -1,
++     102,   103,    78,    79,    80,    81,    82,    83,    84,    85,
++      86,    87,    -1,    -1,    -1,    -1,    92,    51,    -1,    95,
++      96,    97,    98,    -1,    58,    59,    60,    61,    -1,    -1,
++      -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
++      -1,    -1,    -1,    -1,    78,    79,    -1,    81,    82,    83,
++      84,    85,    86,    87,    -1,    -1,    -1,    -1,    92,    51,
++      -1,    95,    96,    97,    98,    -1,    58,    59,    60,    61,
+       -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
+-      -1,    -1,    -1,    -1,    79,    -1,    81,    82,    83,    84,
+-      85,    86,    87,    -1,    -1,    -1,    -1,    92,    93,    94,
+-      95,    -1,    -1,    98
++      -1,    -1,    -1,    -1,    -1,    -1,    -1,    79,    -1,    81,
++      82,    83,    84,    85,    86,    87,    -1,    -1,    -1,    -1,
++      92,    -1,    -1,    95,    96,    97,    98
+ };
+ 
+-/* YYSTOS[STATE-NUM] -- The (internal number of the) accessing
+-   symbol of state STATE-NUM.  */
++  /* YYSTOS[STATE-NUM] -- The (internal number of the) accessing
++     symbol of state STATE-NUM.  */
+ static const yytype_uint8 yystos[] =
+ {
+        0,     3,     4,     5,     6,     7,     8,   106,   107,   108,
+@@ -1091,7 +903,7 @@ static const yytype_uint8 yystos[] =
+       16,    17,    20,    21,    22,    23,    24,    26,    27,    28,
+       29,    30,    31,    36,    50,    52,    53,    54,    55,    56,
+       57,    62,    63,    64,    65,    66,    67,    68,    76,    88,
+-      89,    90,    96,    97,   100,   102,   103,   152,   153,   154,
++      89,    91,    93,    94,   100,   102,   103,   152,   153,   154,
+      157,   158,   159,   160,   161,   162,   164,   167,   172,   173,
+      174,   175,   176,   177,   178,   179,   180,     9,   113,     1,
+       32,    34,    35,    37,    38,    39,    40,    41,    42,    46,
+@@ -1104,9 +916,9 @@ static const yytype_uint8 yystos[] =
+      162,   162,   162,   162,   162,    99,   152,   181,   181,    73,
+       74,    75,    77,     9,    11,   100,    51,    58,    59,    60,
+       61,    78,    79,    81,    82,    83,    84,    85,    86,    87,
+-      92,    93,    94,    95,    98,   100,     9,    11,     9,    11,
++      92,    95,    96,    97,    98,   100,     9,    11,     9,    11,
+        9,    11,     9,   115,   144,   145,    20,   142,   100,   100,
+-     100,   100,    67,    90,   100,   173,   100,   100,   113,    45,
++     100,   100,    67,    91,   100,   173,   100,   100,   113,    45,
+      134,   101,    39,    40,    41,    42,    46,    48,   121,   122,
+      120,    12,   166,   100,   100,   152,    99,   113,    23,   115,
+      146,    99,    99,   152,   167,   181,   153,    10,   101,   166,
+@@ -1139,6 +951,68 @@ static const yytype_uint8 yystos[] =
+      118,   116,   134,   140,    71,   133,    99,   116
+ };
+ 
++  /* YYR1[YYN] -- Symbol number of symbol that rule YYN derives.  */
++static const yytype_uint8 yyr1[] =
++{
++       0,   105,   107,   106,   108,   106,   109,   106,   110,   106,
++     111,   106,   112,   106,   113,   114,   115,   116,   117,   118,
++     118,   119,   119,   120,   120,   121,   121,   122,   122,   123,
++     122,   124,   122,   122,   125,   122,   122,   122,   122,   122,
++     122,   122,   122,   126,   127,   122,   122,   122,   128,   122,
++     122,   122,   122,   129,   122,   122,   122,   130,   131,   131,
++     132,   132,   132,   132,   132,   132,   132,   132,   133,   133,
++     133,   134,   134,   135,   136,   136,   137,   137,   138,   139,
++     140,   141,   141,   142,   143,   144,   145,   145,   146,   146,
++     147,   147,   147,   148,   148,   150,   149,   151,   151,   152,
++     152,   152,   152,   153,   153,   153,   154,   154,   154,   154,
++     154,   154,   154,   154,   155,   154,   156,   156,   157,   157,
++     157,   157,   157,   157,   157,   157,   157,   157,   157,   157,
++     157,   157,   158,   158,   158,   158,   158,   158,   158,   158,
++     158,   158,   158,   158,   158,   158,   159,   159,   159,   159,
++     159,   159,   159,   159,   159,   160,   160,   160,   160,   160,
++     160,   161,   161,   162,   162,   162,   162,   162,   162,   162,
++     162,   162,   162,   162,   162,   162,   162,   162,   162,   162,
++     162,   162,   162,   162,   162,   162,   162,   162,   162,   162,
++     162,   162,   162,   162,   162,   162,   162,   162,   162,   162,
++     162,   162,   162,   162,   162,   162,   162,   162,   162,   162,
++     162,   163,   162,   162,   162,   162,   162,   164,   164,   165,
++     165,   165,   165,   165,   166,   166,   167,   167,   168,   168,
++     169,   170,   170,   170,   171,   171,   172,   173,   174,   175,
++     176,   176,   177,   178,   178,   179,   179,   180,   180,   181,
++     181,   181,   181
++};
++
++  /* YYR2[YYN] -- Number of symbols on the right hand side of rule YYN.  */
++static const yytype_uint8 yyr2[] =
++{
++       0,     2,     0,     4,     0,     3,     0,     3,     0,     3,
++       0,     3,     0,     3,     4,     7,     0,     4,     0,     0,
++       2,     0,     2,     1,     1,     2,     2,     1,     4,     0,
++       7,     0,    10,     4,     0,     7,     7,     7,     6,     6,
++       2,     8,     8,     0,     0,    13,     9,     8,     0,    11,
++       9,     7,     2,     0,     8,     2,     1,     2,     0,     3,
++       1,     1,     3,     3,     3,     3,     3,     3,     0,     2,
++       6,     0,     2,     0,     0,     1,     0,     1,     1,     1,
++       1,     1,     0,     0,     0,     0,     1,     1,     0,     1,
++       0,     2,     1,     2,     1,     0,     3,     1,     1,     3,
++       3,     3,     1,     2,     3,     1,     3,     5,     6,     3,
++       3,     5,     2,     4,     0,     5,     1,     1,     5,     4,
++       5,     4,     5,     6,     5,     4,     5,     4,     3,     6,
++       4,     5,     3,     3,     3,     3,     3,     3,     3,     3,
++       3,     3,     3,     3,     3,     3,     2,     2,     2,     2,
++       2,     2,     2,     2,     2,     3,     2,     4,     3,     5,
++       8,     2,     2,     1,     1,     1,     1,     5,     2,     1,
++       2,     3,     1,     2,     1,     1,     1,     1,     1,     1,
++       4,     4,     5,     5,     1,     1,     3,     4,     3,     4,
++       4,     4,     4,     4,     1,     2,     2,     1,     2,     2,
++       1,     2,     1,     2,     1,     3,     1,     3,     1,     3,
++       4,     0,     6,     1,     1,     1,     1,     3,     2,     3,
++       2,     1,     1,     1,     0,     1,     0,     1,     0,     2,
++       1,     1,     1,     1,     1,     1,     2,     2,     2,     2,
++       2,     4,     2,     1,     3,     1,     3,     1,     3,     1,
++       1,     1,     1
++};
++
+ typedef enum {
+ 	toketype_ival, toketype_opval, toketype_pval
+ } toketypes;
+@@ -1176,6 +1050,6 @@ static const toketypes yy_type_tab[] =
+ };
+ 
+ /* Generated from:
+- * 703ebd267cf8ca45f9dee9bc0f4b21511117a0c1dca1c8bc9438ce91950217ae perly.y
++ * 4fd37fdbff6285ba6e9096c2229255ecc6264d2f26835e535cf1c38f387ceae6 perly.y
+  * a4923588f219644801577c514014847e1e5240f49413fa3b89d3306fa4874d07 regen_perly.pl
+  * ex: set ro: */
+diff --git a/perly.y b/perly.y
+index 200964d..8717258 100644
+--- a/perly.y
++++ b/perly.y
+@@ -755,19 +755,31 @@ subscripted:    gelem '{' expr ';' '}'        /* *main::{something} */
+ 					jmaybe($3)); }
+ 	|	term ARROW '(' ')'          /* $subref->() */
+ 			{ $$ = newUNOP(OP_ENTERSUB, OPf_STACKED,
+-				   newCVREF(0, scalar($1))); }
++				   newCVREF(0, scalar($1)));
++			  if (parser->expect == XBLOCK)
++			      parser->expect = XOPERATOR;
++			}
+ 	|	term ARROW '(' expr ')'     /* $subref->(@args) */
+ 			{ $$ = newUNOP(OP_ENTERSUB, OPf_STACKED,
+ 				   op_append_elem(OP_LIST, $4,
+-				       newCVREF(0, scalar($1)))); }
++				       newCVREF(0, scalar($1))));
++			  if (parser->expect == XBLOCK)
++			      parser->expect = XOPERATOR;
++			}
+ 
+ 	|	subscripted '(' expr ')'   /* $foo->{bar}->(@args) */
+ 			{ $$ = newUNOP(OP_ENTERSUB, OPf_STACKED,
+ 				   op_append_elem(OP_LIST, $3,
+-					       newCVREF(0, scalar($1)))); }
++					       newCVREF(0, scalar($1))));
++			  if (parser->expect == XBLOCK)
++			      parser->expect = XOPERATOR;
++			}
+ 	|	subscripted '(' ')'        /* $foo->{bar}->() */
+ 			{ $$ = newUNOP(OP_ENTERSUB, OPf_STACKED,
+-				   newCVREF(0, scalar($1))); }
++				   newCVREF(0, scalar($1)));
++			  if (parser->expect == XBLOCK)
++			      parser->expect = XOPERATOR;
++			}
+ 	|	'(' expr ')' '[' expr ']'            /* list slice */
+ 			{ $$ = newSLICEOP(0, $5, $2); }
+ 	|	QWLIST '[' expr ']'            /* list literal slice */
+diff --git a/t/op/postfixderef.t b/t/op/postfixderef.t
+index 77988bf..fa066aa 100644
+--- a/t/op/postfixderef.t
++++ b/t/op/postfixderef.t
+@@ -16,7 +16,7 @@ BEGIN {
+ 
+ use strict qw(refs subs);
+ 
+-plan(115);
++plan(129);
+ 
+ {
+     no strict 'refs';
+@@ -353,3 +353,26 @@ is "$_->@{foo}", "foo->7 8 9", '->@{ does not interpolate without feature';
+     is "@{[foo->@[0,1]]}", "7 8", '->@[ inside "@{...}"';
+     is "@{[foo->@{foo}]}", "oof", '->@{ inside "@{...}"';
+ }
++
++# parsing of {} subscript as subscript rather than block
++{
++    sub ppp { "qqq" }
++    my $h = { ppp => "pp", qqq => "qq", rrr => 7 };
++    is ${$h}{ppp}, "pp";
++    is ${$h}{"rrr"} - 2, 5;
++    my $ar = [$h];
++    is $ar->[0]->{ppp}, "pp";
++    is $ar->[0]->{"rrr"} - 2, 5;
++    is $ar->[0]{ppp}, "pp";
++    is $ar->[0]{"rrr"} - 2, 5;
++    my $hr = {h=>$h};
++    is $hr->{"h"}->{ppp}, "pp";
++    is $hr->{"h"}->{"rrr"} - 2, 5;
++    is $hr->{"h"}{ppp}, "pp";
++    is $hr->{"h"}{"rrr"} - 2, 5;
++    my $cr = sub { $h };
++    is $cr->()->{ppp}, "pp";
++    is $cr->()->{"rrr"} - 2, 5;
++    is $cr->(){ppp}, "pp";
++    is $cr->(){"rrr"} - 2, 5;
++}
+-- 
+2.13.6
+
diff --git a/perl-5.24.3-fix-tainting-of-s-with-overloaded-replacement.patch b/perl-5.24.3-fix-tainting-of-s-with-overloaded-replacement.patch
new file mode 100644
index 0000000..f01f478
--- /dev/null
+++ b/perl-5.24.3-fix-tainting-of-s-with-overloaded-replacement.patch
@@ -0,0 +1,594 @@
+From a56b6643ac9d2bae70dc93d49a08ba1eafa62c30 Mon Sep 17 00:00:00 2001
+From: Zefram <zefram@fysh.org>
+Date: Sun, 19 Nov 2017 09:15:53 +0000
+Subject: [PATCH] fix tainting of s/// with overloaded replacement
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+The substitution code was trying to track the taintedness of the
+replacement string itself, but it didn't account for the replacement
+being an untainted object with overloading that returns a tainted
+stringification.  It looked at the taintedness of the object value, not
+realising that taint could arise during the string concatenation per se.
+Change the taint checks to look at the actual TAINT_get flag after string
+concatenation.  This may falsely ascribe to the replacement taint that
+actually came from somewhere else, but the end result is the same anyway:
+there's no visible behaviour that distinguishes taint specifically from
+the replacement.  Also remove a related taint check that seems to be
+not needed at all.  Fixes [perl #115266].
+
+Petr Písař: Ported to 5.24.3.
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ pp_ctl.c     |   4 +-
+ pp_hot.c     |   4 +-
+ t/op/taint.t | 429 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++--
+ 3 files changed, 423 insertions(+), 14 deletions(-)
+
+diff --git a/pp_ctl.c b/pp_ctl.c
+index 9150142..97a4607 100644
+--- a/pp_ctl.c
++++ b/pp_ctl.c
+@@ -218,9 +218,9 @@ PP(pp_substcont)
+ 	SvGETMAGIC(TOPs); /* possibly clear taint on $1 etc: #67962 */
+ 
+     	/* See "how taint works" above pp_subst() */
+-	if (SvTAINTED(TOPs))
+-	    cx->sb_rxtainted |= SUBST_TAINT_REPL;
+ 	sv_catsv_nomg(dstr, POPs);
++	if (UNLIKELY(TAINT_get))
++	    cx->sb_rxtainted |= SUBST_TAINT_REPL;
+ 	if (CxONCE(cx) || s < orig ||
+                 !CALLREGEXEC(rx, s, cx->sb_strend, orig,
+ 			     (s == m), cx->sb_targ, NULL,
+diff --git a/pp_hot.c b/pp_hot.c
+index 243f43a..e80d991 100644
+--- a/pp_hot.c
++++ b/pp_hot.c
+@@ -3004,7 +3004,7 @@ PP(pp_subst)
+ 	    doutf8 = DO_UTF8(dstr);
+ 	}
+ 
+-	if (SvTAINTED(dstr))
++	if (UNLIKELY(TAINT_get))
+ 	    rxtainted |= SUBST_TAINT_REPL;
+     }
+     else {
+@@ -3181,8 +3181,6 @@ PP(pp_subst)
+ 		    sv_catsv(dstr, nsv);
+ 		}
+ 		else sv_catsv(dstr, repl);
+-		if (UNLIKELY(SvTAINTED(repl)))
+-		    rxtainted |= SUBST_TAINT_REPL;
+ 	    }
+ 	    if (once)
+ 		break;
+diff --git a/t/op/taint.t b/t/op/taint.t
+index 846ac23..dbcc418 100644
+--- a/t/op/taint.t
++++ b/t/op/taint.t
+@@ -17,7 +17,7 @@ BEGIN {
+ use strict;
+ use Config;
+ 
+-plan tests => 812;
++plan tests => 1024;
+ 
+ $| = 1;
+ 
+@@ -83,6 +83,8 @@ EndOfCleanup
+ # Sources of taint:
+ #   The empty tainted value, for tainting strings
+ my $TAINT = substr($^X, 0, 0);
++#   A tainted non-empty string
++my $TAINTXYZ = "xyz".$TAINT;
+ #   A tainted zero, useful for tainting numbers
+ my $TAINT0;
+ {
+@@ -565,7 +567,7 @@ my $TEST = 'TEST';
+         is($one, 'abcd',   "$desc: \$1 value");
+     }
+ 
+-    $desc = "substitution with replacement tainted";
++    $desc = "substitution with partial replacement tainted";
+ 
+     $s = 'abcd';
+     $res = $s =~ s/(.+)/xyz$TAINT/;
+@@ -577,7 +579,7 @@ my $TEST = 'TEST';
+     is($res, 1,        "$desc: res value");
+     is($one, 'abcd',   "$desc: \$1 value");
+ 
+-    $desc = "substitution /g with replacement tainted";
++    $desc = "substitution /g with partial replacement tainted";
+ 
+     $s = 'abcd';
+     $res = $s =~ s/(.)/x$TAINT/g;
+@@ -589,7 +591,7 @@ my $TEST = 'TEST';
+     is($res, 4,        "$desc: res value");
+     is($one, 'd',      "$desc: \$1 value");
+ 
+-    $desc = "substitution /ge with replacement tainted";
++    $desc = "substitution /ge with partial replacement tainted";
+ 
+     $s = 'abc';
+     {
+@@ -618,7 +620,7 @@ my $TEST = 'TEST';
+     is($res, 3,        "$desc: res value");
+     is($one, 'c',      "$desc: \$1 value");
+ 
+-    $desc = "substitution /r with replacement tainted";
++    $desc = "substitution /r with partial replacement tainted";
+ 
+     $s = 'abcd';
+     $res = $s =~ s/(.+)/xyz$TAINT/r;
+@@ -630,6 +632,71 @@ my $TEST = 'TEST';
+     is($res, 'xyz',    "$desc: res value");
+     is($one, 'abcd',   "$desc: \$1 value");
+ 
++    $desc = "substitution with whole replacement tainted";
++
++    $s = 'abcd';
++    $res = $s =~ s/(.+)/$TAINTXYZ/;
++    $one = $1;
++    is_tainted($s,     "$desc: s tainted");
++    isnt_tainted($res, "$desc: res not tainted");
++    isnt_tainted($one, "$desc: \$1 not tainted");
++    is($s,  'xyz',     "$desc: s value");
++    is($res, 1,        "$desc: res value");
++    is($one, 'abcd',   "$desc: \$1 value");
++
++    $desc = "substitution /g with whole replacement tainted";
++
++    $s = 'abcd';
++    $res = $s =~ s/(.)/$TAINTXYZ/g;
++    $one = $1;
++    is_tainted($s,     "$desc: s tainted");
++    isnt_tainted($res, "$desc: res not tainted");
++    isnt_tainted($one, "$desc: \$1 not tainted");
++    is($s,  'xyz' x 4, "$desc: s value");
++    is($res, 4,        "$desc: res value");
++    is($one, 'd',      "$desc: \$1 value");
++
++    $desc = "substitution /ge with whole replacement tainted";
++
++    $s = 'abc';
++    {
++	my $i = 0;
++	my $j;
++	$res = $s =~ s{(.)}{
++		    $j = $i; # make sure code not tainted
++		    $one = $1;
++		    isnt_tainted($j, "$desc: code not tainted within /e");
++		    $i++;
++		    if ($i == 1) {
++			isnt_tainted($s,   "$desc: s not tainted loop 1");
++		    }
++		    else {
++			is_tainted($s,     "$desc: s tainted loop $i");
++		    }
++		    isnt_tainted($one, "$desc: \$1 not tainted within /e");
++		    $TAINTXYZ;
++		}ge;
++	$one = $1;
++    }
++    is_tainted($s,     "$desc: s tainted");
++    isnt_tainted($res, "$desc: res tainted");
++    isnt_tainted($one, "$desc: \$1 not tainted");
++    is($s,  'xyz' x 3, "$desc: s value");
++    is($res, 3,        "$desc: res value");
++    is($one, 'c',      "$desc: \$1 value");
++
++    $desc = "substitution /r with whole replacement tainted";
++
++    $s = 'abcd';
++    $res = $s =~ s/(.+)/$TAINTXYZ/r;
++    $one = $1;
++    isnt_tainted($s,   "$desc: s not tainted");
++    is_tainted($res,   "$desc: res tainted");
++    isnt_tainted($one, "$desc: \$1 not tainted");
++    is($s,   'abcd',   "$desc: s value");
++    is($res, 'xyz',    "$desc: res value");
++    is($one, 'abcd',   "$desc: \$1 value");
++
+     {
+ 	# now do them all again with "use re 'taint"
+ 
+@@ -955,7 +1022,7 @@ my $TEST = 'TEST';
+         is($one, 'abcd',   "$desc: \$1 value");
+     }
+ 
+-	$desc = "use re 'taint': substitution with replacement tainted";
++	$desc = "use re 'taint': substitution with partial replacement tainted";
+ 
+ 	$s = 'abcd';
+ 	$res = $s =~ s/(.+)/xyz$TAINT/;
+@@ -967,7 +1034,7 @@ my $TEST = 'TEST';
+ 	is($res, 1,        "$desc: res value");
+ 	is($one, 'abcd',   "$desc: \$1 value");
+ 
+-	$desc = "use re 'taint': substitution /g with replacement tainted";
++	$desc = "use re 'taint': substitution /g with partial replacement tainted";
+ 
+ 	$s = 'abcd';
+ 	$res = $s =~ s/(.)/x$TAINT/g;
+@@ -979,7 +1046,7 @@ my $TEST = 'TEST';
+ 	is($res, 4,        "$desc: res value");
+ 	is($one, 'd',      "$desc: \$1 value");
+ 
+-	$desc = "use re 'taint': substitution /ge with replacement tainted";
++	$desc = "use re 'taint': substitution /ge with partial replacement tainted";
+ 
+ 	$s = 'abc';
+ 	{
+@@ -1008,7 +1075,7 @@ my $TEST = 'TEST';
+ 	is($res, 3,        "$desc: res value");
+ 	is($one, 'c',      "$desc: \$1 value");
+ 
+-	$desc = "use re 'taint': substitution /r with replacement tainted";
++	$desc = "use re 'taint': substitution /r with partial replacement tainted";
+ 
+ 	$s = 'abcd';
+ 	$res = $s =~ s/(.+)/xyz$TAINT/r;
+@@ -1020,6 +1087,71 @@ my $TEST = 'TEST';
+ 	is($res, 'xyz',    "$desc: res value");
+ 	is($one, 'abcd',   "$desc: \$1 value");
+ 
++	$desc = "use re 'taint': substitution with whole replacement tainted";
++
++	$s = 'abcd';
++	$res = $s =~ s/(.+)/$TAINTXYZ/;
++	$one = $1;
++	is_tainted($s,     "$desc: s tainted");
++	isnt_tainted($res, "$desc: res not tainted");
++	isnt_tainted($one, "$desc: \$1 not tainted");
++	is($s,  'xyz',     "$desc: s value");
++	is($res, 1,        "$desc: res value");
++	is($one, 'abcd',   "$desc: \$1 value");
++
++	$desc = "use re 'taint': substitution /g with whole replacement tainted";
++
++	$s = 'abcd';
++	$res = $s =~ s/(.)/$TAINTXYZ/g;
++	$one = $1;
++	is_tainted($s,     "$desc: s tainted");
++	isnt_tainted($res, "$desc: res not tainted");
++	isnt_tainted($one, "$desc: \$1 not tainted");
++	is($s,  'xyz' x 4, "$desc: s value");
++	is($res, 4,        "$desc: res value");
++	is($one, 'd',      "$desc: \$1 value");
++
++	$desc = "use re 'taint': substitution /ge with whole replacement tainted";
++
++	$s = 'abc';
++	{
++	    my $i = 0;
++	    my $j;
++	    $res = $s =~ s{(.)}{
++			$j = $i; # make sure code not tainted
++			$one = $1;
++			isnt_tainted($j, "$desc: code not tainted within /e");
++			$i++;
++			if ($i == 1) {
++			    isnt_tainted($s,   "$desc: s not tainted loop 1");
++			}
++			else {
++			    is_tainted($s,     "$desc: s tainted loop $i");
++			}
++			    isnt_tainted($one, "$desc: \$1 not tainted");
++			$TAINTXYZ;
++		    }ge;
++	    $one = $1;
++	}
++	is_tainted($s,     "$desc: s tainted");
++	isnt_tainted($res, "$desc: res tainted");
++	isnt_tainted($one, "$desc: \$1 not tainted");
++	is($s,  'xyz' x 3, "$desc: s value");
++	is($res, 3,        "$desc: res value");
++	is($one, 'c',      "$desc: \$1 value");
++
++	$desc = "use re 'taint': substitution /r with whole replacement tainted";
++
++	$s = 'abcd';
++	$res = $s =~ s/(.+)/$TAINTXYZ/r;
++	$one = $1;
++	isnt_tainted($s,   "$desc: s not tainted");
++	is_tainted($res,   "$desc: res tainted");
++	isnt_tainted($one, "$desc: \$1 not tainted");
++	is($s,   'abcd',   "$desc: s value");
++	is($res, 'xyz',    "$desc: res value");
++	is($one, 'abcd',   "$desc: \$1 value");
++
+         # [perl #121854] match taintedness became sticky
+         # when one match has a taintess result, subseqent matches
+         # using the same pattern shouldn't necessarily be tainted
+@@ -2408,6 +2540,285 @@ is eval { eval $::x.1 }, 1, 'reset does not taint undef';
+ }
+ 
+ 
++# taint passing through overloading
++package OvTaint {
++    sub new { bless({ t => $_[1] }, $_[0]) }
++    use overload '""' => sub { $_[0]->{t} ? "hi".$TAINT : "hello" };
++}
++my $ovclean = OvTaint->new(0);
++my $ovtaint = OvTaint->new(1);
++isnt_tainted("$ovclean", "overload preserves cleanliness");
++is_tainted("$ovtaint", "overload preserves taint");
++
++# substitutions with overloaded replacement
++{
++    my ($desc, $s, $res, $one);
++
++    $desc = "substitution with partial replacement overloaded and clean";
++    $s = 'abcd';
++    $res = $s =~ s/(.+)/xyz$ovclean/;
++    $one = $1;
++    isnt_tainted($s,   "$desc: s not tainted");
++    isnt_tainted($res, "$desc: res not tainted");
++    isnt_tainted($one, "$desc: \$1 not tainted");
++    is($s, 'xyzhello', "$desc: s value");
++    is($res, 1,        "$desc: res value");
++    is($one, 'abcd',   "$desc: \$1 value");
++
++    $desc = "substitution with partial replacement overloaded and tainted";
++    $s = 'abcd';
++    $res = $s =~ s/(.+)/xyz$ovtaint/;
++    $one = $1;
++    is_tainted($s,     "$desc: s tainted");
++    isnt_tainted($res, "$desc: res not tainted");
++    isnt_tainted($one, "$desc: \$1 not tainted");
++    is($s, 'xyzhi',    "$desc: s value");
++    is($res, 1,        "$desc: res value");
++    is($one, 'abcd',   "$desc: \$1 value");
++
++    $desc = "substitution with whole replacement overloaded and clean";
++    $s = 'abcd';
++    $res = $s =~ s/(.+)/$ovclean/;
++    $one = $1;
++    isnt_tainted($s,   "$desc: s not tainted");
++    isnt_tainted($res, "$desc: res not tainted");
++    isnt_tainted($one, "$desc: \$1 not tainted");
++    is($s, 'hello',    "$desc: s value");
++    is($res, 1,        "$desc: res value");
++    is($one, 'abcd',   "$desc: \$1 value");
++
++    $desc = "substitution with whole replacement overloaded and tainted";
++    $s = 'abcd';
++    $res = $s =~ s/(.+)/$ovtaint/;
++    $one = $1;
++    is_tainted($s,     "$desc: s tainted");
++    isnt_tainted($res, "$desc: res not tainted");
++    isnt_tainted($one, "$desc: \$1 not tainted");
++    is($s, 'hi',       "$desc: s value");
++    is($res, 1,        "$desc: res value");
++    is($one, 'abcd',   "$desc: \$1 value");
++
++    $desc = "substitution /e with partial replacement overloaded and clean";
++    $s = 'abcd';
++    $res = $s =~ s/(.+)/"xyz".$ovclean/e;
++    $one = $1;
++    isnt_tainted($s,   "$desc: s not tainted");
++    isnt_tainted($res, "$desc: res not tainted");
++    isnt_tainted($one, "$desc: \$1 not tainted");
++    is($s, 'xyzhello', "$desc: s value");
++    is($res, 1,        "$desc: res value");
++    is($one, 'abcd',   "$desc: \$1 value");
++
++    $desc = "substitution /e with partial replacement overloaded and tainted";
++    $s = 'abcd';
++    $res = $s =~ s/(.+)/"xyz".$ovtaint/e;
++    $one = $1;
++    is_tainted($s,     "$desc: s tainted");
++    isnt_tainted($res, "$desc: res not tainted");
++    isnt_tainted($one, "$desc: \$1 not tainted");
++    is($s, 'xyzhi',    "$desc: s value");
++    is($res, 1,        "$desc: res value");
++    is($one, 'abcd',   "$desc: \$1 value");
++
++    $desc = "substitution /e with whole replacement overloaded and clean";
++    $s = 'abcd';
++    $res = $s =~ s/(.+)/$ovclean/e;
++    $one = $1;
++    isnt_tainted($s,   "$desc: s not tainted");
++    isnt_tainted($res, "$desc: res not tainted");
++    isnt_tainted($one, "$desc: \$1 not tainted");
++    is($s, 'hello',    "$desc: s value");
++    is($res, 1,        "$desc: res value");
++    is($one, 'abcd',   "$desc: \$1 value");
++
++    $desc = "substitution /e with whole replacement overloaded and tainted";
++    $s = 'abcd';
++    $res = $s =~ s/(.+)/$ovtaint/e;
++    $one = $1;
++    is_tainted($s,     "$desc: s tainted");
++    isnt_tainted($res, "$desc: res not tainted");
++    isnt_tainted($one, "$desc: \$1 not tainted");
++    is($s, 'hi',       "$desc: s value");
++    is($res, 1,        "$desc: res value");
++    is($one, 'abcd',   "$desc: \$1 value");
++
++    $desc = "substitution /e with extra code and partial replacement overloaded and clean";
++    $s = 'abcd';
++    $res = $s =~ s/(.+)/(my $z++), "xyz".$ovclean/e;
++    $one = $1;
++    isnt_tainted($s,   "$desc: s not tainted");
++    isnt_tainted($res, "$desc: res not tainted");
++    isnt_tainted($one, "$desc: \$1 not tainted");
++    is($s, 'xyzhello', "$desc: s value");
++    is($res, 1,        "$desc: res value");
++    is($one, 'abcd',   "$desc: \$1 value");
++
++    $desc = "substitution /e with extra code and partial replacement overloaded and tainted";
++    $s = 'abcd';
++    $res = $s =~ s/(.+)/(my $z++), "xyz".$ovtaint/e;
++    $one = $1;
++    is_tainted($s,     "$desc: s tainted");
++    isnt_tainted($res, "$desc: res not tainted");
++    isnt_tainted($one, "$desc: \$1 not tainted");
++    is($s, 'xyzhi',    "$desc: s value");
++    is($res, 1,        "$desc: res value");
++    is($one, 'abcd',   "$desc: \$1 value");
++
++    $desc = "substitution /e with extra code and whole replacement overloaded and clean";
++    $s = 'abcd';
++    $res = $s =~ s/(.+)/(my $z++), $ovclean/e;
++    $one = $1;
++    isnt_tainted($s,   "$desc: s not tainted");
++    isnt_tainted($res, "$desc: res not tainted");
++    isnt_tainted($one, "$desc: \$1 not tainted");
++    is($s, 'hello',    "$desc: s value");
++    is($res, 1,        "$desc: res value");
++    is($one, 'abcd',   "$desc: \$1 value");
++
++    $desc = "substitution /e with extra code and whole replacement overloaded and tainted";
++    $s = 'abcd';
++    $res = $s =~ s/(.+)/(my $z++), $ovtaint/e;
++    $one = $1;
++    is_tainted($s,     "$desc: s tainted");
++    isnt_tainted($res, "$desc: res not tainted");
++    isnt_tainted($one, "$desc: \$1 not tainted");
++    is($s, 'hi',       "$desc: s value");
++    is($res, 1,        "$desc: res value");
++    is($one, 'abcd',   "$desc: \$1 value");
++
++    $desc = "substitution /r with partial replacement overloaded and clean";
++    $s = 'abcd';
++    $res = $s =~ s/(.+)/xyz$ovclean/r;
++    $one = $1;
++    isnt_tainted($s,   "$desc: s not tainted");
++    isnt_tainted($res, "$desc: res not tainted");
++    isnt_tainted($one, "$desc: \$1 not tainted");
++    is($s, 'abcd',     "$desc: s value");
++    is($res, 'xyzhello', "$desc: res value");
++    is($one, 'abcd',   "$desc: \$1 value");
++
++    $desc = "substitution /r with partial replacement overloaded and tainted";
++    $s = 'abcd';
++    $res = $s =~ s/(.+)/xyz$ovtaint/r;
++    $one = $1;
++    isnt_tainted($s,   "$desc: s not tainted");
++    is_tainted($res,   "$desc: res tainted");
++    isnt_tainted($one, "$desc: \$1 not tainted");
++    is($s, 'abcd',     "$desc: s value");
++    is($res, 'xyzhi',  "$desc: res value");
++    is($one, 'abcd',   "$desc: \$1 value");
++
++    $desc = "substitution /r with whole replacement overloaded and clean";
++    $s = 'abcd';
++    $res = $s =~ s/(.+)/$ovclean/r;
++    $one = $1;
++    isnt_tainted($s,   "$desc: s not tainted");
++    isnt_tainted($res, "$desc: res not tainted");
++    isnt_tainted($one, "$desc: \$1 not tainted");
++    is($s, 'abcd',     "$desc: s value");
++    is($res, 'hello',  "$desc: res value");
++    is($one, 'abcd',   "$desc: \$1 value");
++
++    $desc = "substitution /r with whole replacement overloaded and tainted";
++    $s = 'abcd';
++    $res = $s =~ s/(.+)/$ovtaint/r;
++    $one = $1;
++    isnt_tainted($s,   "$desc: s not tainted");
++    is_tainted($res,   "$desc: res tainted");
++    isnt_tainted($one, "$desc: \$1 not tainted");
++    is($s, 'abcd',     "$desc: s value");
++    is($res, 'hi',     "$desc: res value");
++    is($one, 'abcd',   "$desc: \$1 value");
++
++    $desc = "substitution /g with partial replacement overloaded and clean";
++    $s = 'abcd';
++    $res = $s =~ s/(.)/x$ovclean/g;
++    $one = $1;
++    isnt_tainted($s,   "$desc: s not tainted");
++    isnt_tainted($res, "$desc: res not tainted");
++    isnt_tainted($one, "$desc: \$1 not tainted");
++    is($s, 'xhello' x 4, "$desc: s value");
++    is($res, 4,        "$desc: res value");
++    is($one, 'd',      "$desc: \$1 value");
++
++    $desc = "substitution /g with partial replacement overloaded and tainted";
++    $s = 'abcd';
++    $res = $s =~ s/(.)/x$ovtaint/g;
++    $one = $1;
++    is_tainted($s,     "$desc: s tainted");
++    isnt_tainted($res, "$desc: res not tainted");
++    isnt_tainted($one, "$desc: \$1 not tainted");
++    is($s, 'xhi' x 4,  "$desc: s value");
++    is($res, 4,        "$desc: res value");
++    is($one, 'd',      "$desc: \$1 value");
++
++    $desc = "substitution /g with whole replacement overloaded and clean";
++    $s = 'abcd';
++    $res = $s =~ s/(.)/$ovclean/g;
++    $one = $1;
++    isnt_tainted($s,   "$desc: s not tainted");
++    isnt_tainted($res, "$desc: res not tainted");
++    isnt_tainted($one, "$desc: \$1 not tainted");
++    is($s, 'hello' x 4, "$desc: s value");
++    is($res, 4,        "$desc: res value");
++    is($one, 'd',      "$desc: \$1 value");
++
++    $desc = "substitution /g with whole replacement overloaded and tainted";
++    $s = 'abcd';
++    $res = $s =~ s/(.)/$ovtaint/g;
++    $one = $1;
++    is_tainted($s,     "$desc: s tainted");
++    isnt_tainted($res, "$desc: res not tainted");
++    isnt_tainted($one, "$desc: \$1 not tainted");
++    is($s, 'hi' x 4,   "$desc: s value");
++    is($res, 4,        "$desc: res value");
++    is($one, 'd',      "$desc: \$1 value");
++
++    $desc = "substitution /ge with partial replacement overloaded and clean";
++    $s = 'abcd';
++    $res = $s =~ s/(.)/"x".$ovclean/ge;
++    $one = $1;
++    isnt_tainted($s,   "$desc: s not tainted");
++    isnt_tainted($res, "$desc: res not tainted");
++    isnt_tainted($one, "$desc: \$1 not tainted");
++    is($s, 'xhello' x 4, "$desc: s value");
++    is($res, 4,        "$desc: res value");
++    is($one, 'd',      "$desc: \$1 value");
++
++    $desc = "substitution /ge with partial replacement overloaded and tainted";
++    $s = 'abcd';
++    $res = $s =~ s/(.)/"x".$ovtaint/ge;
++    $one = $1;
++    is_tainted($s,     "$desc: s tainted");
++    isnt_tainted($res, "$desc: res not tainted");
++    isnt_tainted($one, "$desc: \$1 not tainted");
++    is($s, 'xhi' x 4,  "$desc: s value");
++    is($res, 4,        "$desc: res value");
++    is($one, 'd',      "$desc: \$1 value");
++
++    $desc = "substitution /ge with whole replacement overloaded and clean";
++    $s = 'abcd';
++    $res = $s =~ s/(.)/$ovclean/ge;
++    $one = $1;
++    isnt_tainted($s,   "$desc: s not tainted");
++    isnt_tainted($res, "$desc: res not tainted");
++    isnt_tainted($one, "$desc: \$1 not tainted");
++    is($s, 'hello' x 4, "$desc: s value");
++    is($res, 4,        "$desc: res value");
++    is($one, 'd',      "$desc: \$1 value");
++
++    $desc = "substitution /ge with whole replacement overloaded and tainted";
++    $s = 'abcd';
++    $res = $s =~ s/(.)/$ovtaint/ge;
++    $one = $1;
++    is_tainted($s,     "$desc: s tainted");
++    isnt_tainted($res, "$desc: res not tainted");
++    isnt_tainted($one, "$desc: \$1 not tainted");
++    is($s, 'hi' x 4,   "$desc: s value");
++    is($res, 4,        "$desc: res value");
++    is($one, 'd',      "$desc: \$1 value");
++}
++
+ # This may bomb out with the alarm signal so keep it last
+ SKIP: {
+     skip "No alarm()"  unless $Config{d_alarm};
+-- 
+2.13.6
+
diff --git a/perl-5.24.3-perl-131597-ensure-the-GV-slot-is-filled-for-our-foo.patch b/perl-5.24.3-perl-131597-ensure-the-GV-slot-is-filled-for-our-foo.patch
new file mode 100644
index 0000000..6fc0fff
--- /dev/null
+++ b/perl-5.24.3-perl-131597-ensure-the-GV-slot-is-filled-for-our-foo.patch
@@ -0,0 +1,64 @@
+From b890486ff0c482cbdec59a0f9beb28275aeee19b Mon Sep 17 00:00:00 2001
+From: Tony Cook <tony@develop-help.com>
+Date: Mon, 19 Jun 2017 14:59:53 +1000
+Subject: [PATCH] (perl #131597) ensure the GV slot is filled for our [%$@]foo:
+ attr
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+Petr Písař: Ported to 5.24.3.
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ op.c         |  6 +++---
+ t/op/attrs.t | 18 ++++++++++++++++++
+ 2 files changed, 21 insertions(+), 3 deletions(-)
+
+diff --git a/op.c b/op.c
+index 2960dd5..8a5fc3f 100644
+--- a/op.c
++++ b/op.c
+@@ -3671,9 +3671,9 @@ S_my_kid(pTHX_ OP *o, OP *attrs, OP **imopsp)
+ 	    PL_parser->in_my = FALSE;
+ 	    PL_parser->in_my_stash = NULL;
+ 	    apply_attrs(GvSTASH(gv),
+-			(type == OP_RV2SV ? GvSV(gv) :
+-			 type == OP_RV2AV ? MUTABLE_SV(GvAV(gv)) :
+-			 type == OP_RV2HV ? MUTABLE_SV(GvHV(gv)) : MUTABLE_SV(gv)),
++			(type == OP_RV2SV ? GvSVn(gv) :
++			 type == OP_RV2AV ? MUTABLE_SV(GvAVn(gv)) :
++			 type == OP_RV2HV ? MUTABLE_SV(GvHVn(gv)) : MUTABLE_SV(gv)),
+ 			attrs);
+ 	}
+ 	o->op_private |= OPpOUR_INTRO;
+diff --git a/t/op/attrs.t b/t/op/attrs.t
+index 219db03..b038c87 100644
+--- a/t/op/attrs.t
++++ b/t/op/attrs.t
+@@ -447,4 +447,22 @@ package P126257 {
+     ::is $@, "", "RT 126257 sub";
+ }
+ 
++fresh_perl_is('sub dummy {} our $dummy : Dummy', <<EOS, {},
++Invalid SCALAR attribute: Dummy at - line 1.
++BEGIN failed--compilation aborted at - line 1.
++EOS
++              "attribute on our scalar with sub of same name");
++
++fresh_perl_is('sub dummy {} our @dummy : Dummy', <<EOS, {},
++Invalid ARRAY attribute: Dummy at - line 1.
++BEGIN failed--compilation aborted at - line 1.
++EOS
++              "attribute on our array with sub of same name");
++
++fresh_perl_is('sub dummy {} our %dummy : Dummy', <<EOS, {},
++Invalid HASH attribute: Dummy at - line 1.
++BEGIN failed--compilation aborted at - line 1.
++EOS
++              "attribute on our hash with sub of same name");
++
+ done_testing();
+-- 
+2.13.6
+
diff --git a/perl-5.24.3-perl-131895-fail-stat-on-names-with-0-embedded.patch b/perl-5.24.3-perl-131895-fail-stat-on-names-with-0-embedded.patch
new file mode 100644
index 0000000..fbe1197
--- /dev/null
+++ b/perl-5.24.3-perl-131895-fail-stat-on-names-with-0-embedded.patch
@@ -0,0 +1,223 @@
+From 9a4826e0881f8c5498a0fd5f24ed2a0fefb771b7 Mon Sep 17 00:00:00 2001
+From: Tony Cook <tony@develop-help.com>
+Date: Thu, 2 Nov 2017 20:18:56 +0000
+Subject: [PATCH] (perl #131895) fail stat on names with \0 embedded
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+Also lstat() and the file test ops.
+
+Petr Písař: Port to 5.24.3.
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ doio.c                | 21 ++++++++++++++++-----
+ pp_sys.c              | 29 +++++++++++++++++++++++------
+ t/lib/warnings/pp_sys | 14 ++++++++++++++
+ t/op/filetest.t       | 10 +++++++++-
+ t/op/stat.t           | 12 +++++++++++-
+ 5 files changed, 73 insertions(+), 13 deletions(-)
+
+diff --git a/doio.c b/doio.c
+index 6704862..2792c66 100644
+--- a/doio.c
++++ b/doio.c
+@@ -1458,7 +1458,7 @@ Perl_my_stat_flags(pTHX_ const U32 flags)
+ 	return PL_laststatval;
+     else {
+ 	SV* const sv = TOPs;
+-	const char *s;
++	const char *s, *d;
+ 	STRLEN len;
+ 	if ((gv = MAYBE_DEREF_GV_flags(sv,flags))) {
+ 	    goto do_fstat;
+@@ -1472,9 +1472,14 @@ Perl_my_stat_flags(pTHX_ const U32 flags)
+ 	s = SvPV_flags_const(sv, len, flags);
+ 	PL_statgv = NULL;
+ 	sv_setpvn(PL_statname, s, len);
+-	s = SvPVX_const(PL_statname);		/* s now NUL-terminated */
++	d = SvPVX_const(PL_statname);		/* s now NUL-terminated */
+ 	PL_laststype = OP_STAT;
+-	PL_laststatval = PerlLIO_stat(s, &PL_statcache);
++        if (!IS_SAFE_PATHNAME(s, len, OP_NAME(PL_op))) {
++            PL_laststatval = -1;
++        }
++        else {
++            PL_laststatval = PerlLIO_stat(d, &PL_statcache);
++        }
+ 	if (PL_laststatval < 0 && ckWARN(WARN_NEWLINE) && should_warn_nl(s)) {
+             GCC_DIAG_IGNORE(-Wformat-nonliteral); /* PL_warn_nl is constant */
+ 	    Perl_warner(aTHX_ packWARN(WARN_NEWLINE), PL_warn_nl, "stat");
+@@ -1491,6 +1496,7 @@ Perl_my_lstat_flags(pTHX_ const U32 flags)
+     static const char* const no_prev_lstat = "The stat preceding -l _ wasn't an lstat";
+     dSP;
+     const char *file;
++    STRLEN len;
+     SV* const sv = TOPs;
+     bool isio = FALSE;
+     if (PL_op->op_flags & OPf_REF) {
+@@ -1534,9 +1540,14 @@ Perl_my_lstat_flags(pTHX_ const U32 flags)
+                               HEKfARG(GvENAME_HEK((const GV *)
+                                           (SvROK(sv) ? SvRV(sv) : sv))));
+     }
+-    file = SvPV_flags_const_nolen(sv, flags);
++    file = SvPV_flags_const(sv, len, flags);
+     sv_setpv(PL_statname,file);
+-    PL_laststatval = PerlLIO_lstat(file,&PL_statcache);
++    if (!IS_SAFE_PATHNAME(file, len, OP_NAME(PL_op))) {
++        PL_laststatval = -1;
++    }
++    else {
++        PL_laststatval = PerlLIO_lstat(file,&PL_statcache);
++    }
+     if (PL_laststatval < 0 && ckWARN(WARN_NEWLINE) && should_warn_nl(file)) {
+         GCC_DIAG_IGNORE(-Wformat-nonliteral); /* PL_warn_nl is constant */
+         Perl_warner(aTHX_ packWARN(WARN_NEWLINE), PL_warn_nl, "lstat");
+diff --git a/pp_sys.c b/pp_sys.c
+index bd55043..1a72e60 100644
+--- a/pp_sys.c
++++ b/pp_sys.c
+@@ -2927,19 +2927,24 @@ PP(pp_stat)
+     }
+     else {
+         const char *file;
++        const char *temp;
++        STRLEN len;
+ 	if (SvROK(sv) && SvTYPE(SvRV(sv)) == SVt_PVIO) { 
+             io = MUTABLE_IO(SvRV(sv));
+             if (PL_op->op_type == OP_LSTAT)
+                 goto do_fstat_warning_check;
+             goto do_fstat_have_io; 
+         }
+-        
+ 	SvTAINTED_off(PL_statname); /* previous tainting irrelevant */
+-	sv_setpv(PL_statname, SvPV_nomg_const_nolen(sv));
++        temp = SvPV_nomg_const(sv, len);
++	sv_setpv(PL_statname, temp);
+ 	PL_statgv = NULL;
+ 	PL_laststype = PL_op->op_type;
+         file = SvPV_nolen_const(PL_statname);
+-	if (PL_op->op_type == OP_LSTAT)
++        if (!IS_SAFE_PATHNAME(temp, len, OP_NAME(PL_op))) {
++            PL_laststatval = -1;
++        }
++	else if (PL_op->op_type == OP_LSTAT)
+ 	    PL_laststatval = PerlLIO_lstat(file, &PL_statcache);
+ 	else
+ 	    PL_laststatval = PerlLIO_stat(file, &PL_statcache);
+@@ -3175,8 +3180,12 @@ PP(pp_ftrread)
+ 
+     if (use_access) {
+ #if defined(HAS_ACCESS) || defined (PERL_EFF_ACCESS)
+-	const char *name = SvPV_nolen(*PL_stack_sp);
+-	if (effective) {
++        STRLEN len;
++	const char *name = SvPV(*PL_stack_sp, len);
++        if (!IS_SAFE_PATHNAME(name, len, OP_NAME(PL_op))) {
++            result = -1;
++        }
++	else if (effective) {
+ #  ifdef PERL_EFF_ACCESS
+ 	    result = PERL_EFF_ACCESS(name, access_mode);
+ #  else
+@@ -3501,10 +3510,18 @@ PP(pp_fttext)
+     }
+     else {
+         const char *file;
++        const char *temp;
++        STRLEN temp_len;
+         int fd; 
+ 
+         assert(sv);
+-	sv_setpv(PL_statname, SvPV_nomg_const_nolen(sv));
++        temp = SvPV_nomg_const(sv, temp_len);
++	sv_setpv(PL_statname, temp);
++        if (!IS_SAFE_PATHNAME(temp, temp_len, OP_NAME(PL_op))) {
++            PL_laststatval = -1;
++            PL_laststype = OP_STAT;
++            FT_RETURNUNDEF;
++        }
+       really_filename:
+         file = SvPVX_const(PL_statname);
+ 	PL_statgv = NULL;
+diff --git a/t/lib/warnings/pp_sys b/t/lib/warnings/pp_sys
+index 6338964..ded5d7d 100644
+--- a/t/lib/warnings/pp_sys
++++ b/t/lib/warnings/pp_sys
+@@ -962,3 +962,17 @@ close $fh;
+ unlink $file;
+ EXPECT
+ syswrite() is deprecated on :utf8 handles at - line 6.
++########
++# NAME stat on name with \0
++use warnings;
++my @x = stat("./\0-");
++my @y = lstat("./\0-");
++-T ".\0-";
++-x ".\0-";
++-l ".\0-";
++EXPECT
++Invalid \0 character in pathname for stat: ./\0- at - line 2.
++Invalid \0 character in pathname for lstat: ./\0- at - line 3.
++Invalid \0 character in pathname for fttext: .\0- at - line 4.
++Invalid \0 character in pathname for fteexec: .\0- at - line 5.
++Invalid \0 character in pathname for ftlink: .\0- at - line 6.
+diff --git a/t/op/filetest.t b/t/op/filetest.t
+index 8883381..bd1d08c 100644
+--- a/t/op/filetest.t
++++ b/t/op/filetest.t
+@@ -9,7 +9,7 @@ BEGIN {
+     set_up_inc(qw '../lib ../cpan/Perl-OSType/lib');
+ }
+ 
+-plan(tests => 53 + 27*14);
++plan(tests => 57 + 27*14);
+ 
+ if ($^O =~ /MSWin32|cygwin|msys/ && !is_miniperl) {
+   require Win32; # for IsAdminUser()
+@@ -393,3 +393,11 @@ SKIP: {
+     is $failed_stat2, $failed_stat1,
+ 	'failed -r($gv_with_io_but_no_fp) with and w/out fatal warnings';
+ } 
++
++{
++    # [perl #131895] stat() doesn't fail on filenames containing \0 / NUL
++    ok(!-T "TEST\0-", '-T on name with \0');
++    ok(!-B "TEST\0-", '-B on name with \0');
++    ok(!-f "TEST\0-", '-f on name with \0');
++    ok(!-r "TEST\0-", '-r on name with \0');
++}
+diff --git a/t/op/stat.t b/t/op/stat.t
+index 637a902..71193ad 100644
+--- a/t/op/stat.t
++++ b/t/op/stat.t
+@@ -25,7 +25,7 @@ if ($^O eq 'MSWin32') {
+     ${^WIN32_SLOPPY_STAT} = 0;
+ }
+ 
+-plan tests => 118;
++plan tests => 120;
+ 
+ my $Perl = which_perl();
+ 
+@@ -651,6 +651,16 @@ SKIP:
+       'stat on an array of valid paths should return ENOENT';
+ }
+ 
++# [perl #131895] stat() doesn't fail on filenames containing \0 / NUL
++ok !stat("TEST\0-"), 'stat on filename with \0';
++SKIP: {
++    my $link = "TEST.symlink.$$";
++    my $can_symlink = eval { symlink "TEST", $link };
++    skip "cannot symlink", 1 unless $can_symlink;
++    ok !lstat("$link\0-"), 'lstat on filename with \0';
++    unlink $link;
++}
++
+ END {
+     chmod 0666, $tmpfile;
+     unlink_all $tmpfile;
+-- 
+2.13.6
+
diff --git a/perl-5.24.3-perl-132245-don-t-try-to-process-a-char-range-with-n.patch b/perl-5.24.3-perl-132245-don-t-try-to-process-a-char-range-with-n.patch
new file mode 100644
index 0000000..b2af6f4
--- /dev/null
+++ b/perl-5.24.3-perl-132245-don-t-try-to-process-a-char-range-with-n.patch
@@ -0,0 +1,52 @@
+From 86a48d83a7caf38c553000a250ed1359c235f55e Mon Sep 17 00:00:00 2001
+From: Tony Cook <tony@develop-help.com>
+Date: Thu, 19 Oct 2017 10:46:04 +1100
+Subject: [PATCH] (perl #132245) don't try to process a char range with no
+ preceding char
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+A range like \N{}-0 eventually results in compilation failing, but
+before that, get_and_check_backslash_N_name() attempts to treat
+the memory before the empty output of \N{} as a character.
+
+Petr Písař: Ported to 5.24.3.
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ t/lib/warnings/toke | 5 +++++
+ toke.c              | 4 ++--
+ 2 files changed, 7 insertions(+), 2 deletions(-)
+
+diff --git a/t/lib/warnings/toke b/t/lib/warnings/toke
+index 493c8a2..4a521e0 100644
+--- a/t/lib/warnings/toke
++++ b/t/lib/warnings/toke
+@@ -1509,3 +1509,8 @@ my $v = 𝛃 - 5;
+ EXPECT
+ OPTION regex
+ (Wide character.*\n)?Warning: Use of "𝛃" without parentheses is ambiguous
++########
++# NAME tr/// range with empty \N{} at the start
++tr//\N{}-0/;
++EXPECT
++Unknown charname '' is deprecated at - line 1.
+diff --git a/toke.c b/toke.c
+index f2310cc..3d93fac 100644
+--- a/toke.c
++++ b/toke.c
+@@ -2906,8 +2906,8 @@ S_scan_const(pTHX_ char *start)
+                  * at least one character, then see if this next one is a '-',
+                  * indicating the previous one was the start of a range.  But
+                  * don't bother if we're too close to the end for the minus to
+-                 * mean that. */
+-                if (*s != '-' || s >= send - 1 || s == start) {
++                 * mean that, or if we haven't output any characters yet. */
++                if (*s != '-' || s >= send - 1 || s == start || d == SvPVX(sv)) {
+ 
+                     /* A regular character.  Process like any other, but first
+                      * clear any flags */
+-- 
+2.13.6
+
diff --git a/perl-5.24.3-perl-132442-Fix-stack-with-do-my-sub-l-1.patch b/perl-5.24.3-perl-132442-Fix-stack-with-do-my-sub-l-1.patch
new file mode 100644
index 0000000..b3eda86
--- /dev/null
+++ b/perl-5.24.3-perl-132442-Fix-stack-with-do-my-sub-l-1.patch
@@ -0,0 +1,107 @@
+From 264472b6e83dd1a9d0e0e58d75f7162471a5b29b Mon Sep 17 00:00:00 2001
+From: Father Chrysostomos <sprout@cpan.org>
+Date: Tue, 14 Nov 2017 18:55:55 -0800
+Subject: [PATCH] Fix stack with do {my sub l; 1}
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+A block in perl usually compiles to a leave op with an enter inside
+it, followed by the statements:
+
+   leave
+     enter
+     nextstate
+     ... expr ...
+     nextstate
+     ... expr ...
+
+If a block contains only one statement, and that statement is suffic-
+iently innocuous, then the enter/leave pair to create the scope at run
+time get skipped, and instead we have a simple scope op which is not
+even executed:
+
+   scope
+     ex-nextstate
+     ... expr ...
+
+The nextstate in this case also gets nulled.
+
+In the case of do { my sub l; 1 } we were getting a variation of the
+latter, that looked like this:
+
+   scope
+     introcv
+     clonecv
+     nextstate
+     ... expr ...
+
+The problem here is that nextstate resets the stack, even though a new
+scope has not been pushed, so we end up with all existing stack items
+from the *outer* scope getting clobbered.
+
+One can have fun with this and erase everything pushed on to the stack
+so far in a given statement:
+
+$ ./perl -le 'print join "-", 1..10, do {my sub l; ","}, 11..20'
+11,12,13,14,15,16,17,18,19,20
+
+Here I replaced the first argument to join() from within the do{}
+block, after having cleared the stack.
+
+Why was the op tree was getting muddled up like this?  The ‘my sub’
+declaration does not immediately add any ops to the op tree; those ops
+get added when the current scope finishing compiling, since those ops
+must be inserted at the beginning of the block.
+
+I have not fully looked into the order that things happen, and why the
+nextstate op does not get nulled; but it did not matter, because of
+the simple fix: Treat lexical sub declarations as ‘not innocuous’ by
+setting the HINT_BLOCK_SCOPE flag when a lexical sub is declared.
+Thus, we end up with an enter/leave pair, which creates a
+proper scope.
+
+Petr Písař: Ported to 5.24.3.
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ op.c          | 2 ++
+ t/op/lexsub.t | 5 ++++-
+ 2 files changed, 6 insertions(+), 1 deletion(-)
+
+diff --git a/op.c b/op.c
+index 8a5fc3f..695bfa4 100644
+--- a/op.c
++++ b/op.c
+@@ -7936,6 +7936,8 @@ Perl_newMYSUB(pTHX_ I32 floor, OP *o, OP *proto, OP *attrs, OP *block)
+ 
+     PERL_ARGS_ASSERT_NEWMYSUB;
+ 
++    PL_hints |= HINT_BLOCK_SCOPE;
++
+     /* Find the pad slot for storing the new sub.
+        We cannot use PL_comppad, as it is the pad owned by the new sub.  We
+        need to look in CvOUTSIDE and find the pad belonging to the enclos-
+diff --git a/t/op/lexsub.t b/t/op/lexsub.t
+index adccf4c..cf90a76 100644
+--- a/t/op/lexsub.t
++++ b/t/op/lexsub.t
+@@ -7,7 +7,7 @@ BEGIN {
+     *bar::is = *is;
+     *bar::like = *like;
+ }
+-plan 151;
++plan 152;
+ 
+ # -------------------- Errors with feature disabled -------------------- #
+ 
+@@ -967,3 +967,6 @@ like runperl(
+ {
+   my sub h; sub{my $x; sub{h}}
+ }
++
++is join("-", qw(aa bb), do { my sub lleexx; 123 }, qw(cc dd)),
++  "aa-bb-123-cc-dd", 'do { my sub...} in a list [perl #132442]';
+-- 
+2.13.6
+
diff --git a/perl-5.24.3-set-when-statting-a-closed-filehandle.patch b/perl-5.24.3-set-when-statting-a-closed-filehandle.patch
new file mode 100644
index 0000000..a62c5ef
--- /dev/null
+++ b/perl-5.24.3-set-when-statting-a-closed-filehandle.patch
@@ -0,0 +1,211 @@
+From 0a41ca5a68626a0f44e0d552e460e86567e47140 Mon Sep 17 00:00:00 2001
+From: Zefram <zefram@fysh.org>
+Date: Wed, 15 Nov 2017 08:11:37 +0000
+Subject: [PATCH] set $! when statting a closed filehandle
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+When a stat fails because it's on a closed or otherwise invalid
+filehandle, $! was often not being set, depending on the operation
+and the nature of the invalidity.  Consistently set it to EBADF.
+Fixes [perl #108288].
+
+Petr Písař: Ported to 5.24.3.
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ MANIFEST           |  1 +
+ doio.c             | 10 +++++++++-
+ pp_sys.c           | 22 ++++++++++++---------
+ t/op/stat_errors.t | 57 ++++++++++++++++++++++++++++++++++++++++++++++++++++++
+ 4 files changed, 80 insertions(+), 10 deletions(-)
+ create mode 100644 t/op/stat_errors.t
+
+diff --git a/MANIFEST b/MANIFEST
+index fcf7eae..3077142 100644
+--- a/MANIFEST
++++ b/MANIFEST
+@@ -5394,6 +5394,7 @@ t/op/sselect.t			See if 4 argument select works
+ t/op/stash.t			See if %:: stashes work
+ t/op/state.t			See if state variables work
+ t/op/stat.t			See if stat works
++t/op/stat_errors.t		See if stat and file tests handle threshold errors
+ t/op/study.t			See if study works
+ t/op/studytied.t		See if study works with tied scalars
+ t/op/sub_lval.t			See if lvalue subroutines work
+diff --git a/doio.c b/doio.c
+index 2792c66..f2934c5 100644
+--- a/doio.c
++++ b/doio.c
+@@ -1429,8 +1429,11 @@ Perl_my_stat_flags(pTHX_ const U32 flags)
+     if (PL_op->op_flags & OPf_REF) {
+ 	gv = cGVOP_gv;
+       do_fstat:
+-        if (gv == PL_defgv)
++        if (gv == PL_defgv) {
++	    if (PL_laststatval < 0)
++		SETERRNO(EBADF,RMS_IFI);
+             return PL_laststatval;
++	}
+ 	io = GvIO(gv);
+         do_fstat_have_io:
+         PL_laststype = OP_STAT;
+@@ -1441,6 +1444,7 @@ Perl_my_stat_flags(pTHX_ const U32 flags)
+                 int fd = PerlIO_fileno(IoIFP(io));
+                 if (fd < 0) {
+                     /* E.g. PerlIO::scalar has no real fd. */
++		    SETERRNO(EBADF,RMS_IFI);
+                     return (PL_laststatval = -1);
+                 } else {
+                     return (PL_laststatval = PerlLIO_fstat(fd, &PL_statcache));
+@@ -1451,6 +1455,7 @@ Perl_my_stat_flags(pTHX_ const U32 flags)
+         }
+ 	PL_laststatval = -1;
+ 	report_evil_fh(gv);
++	SETERRNO(EBADF,RMS_IFI);
+ 	return -1;
+     }
+     else if ((PL_op->op_private & (OPpFT_STACKED|OPpFT_AFTER_t))
+@@ -1503,6 +1508,8 @@ Perl_my_lstat_flags(pTHX_ const U32 flags)
+ 	if (cGVOP_gv == PL_defgv) {
+ 	    if (PL_laststype != OP_LSTAT)
+ 		Perl_croak(aTHX_ "%s", no_prev_lstat);
++	    if (PL_laststatval < 0)
++		SETERRNO(EBADF,RMS_IFI);
+ 	    return PL_laststatval;
+ 	}
+ 	PL_laststatval = -1;
+@@ -1512,6 +1519,7 @@ Perl_my_lstat_flags(pTHX_ const U32 flags)
+ 		 	     "Use of -l on filehandle %"HEKf,
+ 			      HEKfARG(GvENAME_HEK(cGVOP_gv)));
+ 	}
++	SETERRNO(EBADF,RMS_IFI);
+ 	return -1;
+     }
+     if ((PL_op->op_private & (OPpFT_STACKED|OPpFT_AFTER_t))
+diff --git a/pp_sys.c b/pp_sys.c
+index 5e0993d..2fcc219 100644
+--- a/pp_sys.c
++++ b/pp_sys.c
+@@ -2889,10 +2889,11 @@ PP(pp_stat)
+ 		Perl_croak(aTHX_ "The stat preceding lstat() wasn't an lstat");
+ 	}
+ 
+-	if (gv != PL_defgv) {
+-	    bool havefp;
++	if (gv == PL_defgv) {
++	    if (PL_laststatval < 0)
++		SETERRNO(EBADF,RMS_IFI);
++	} else {
+           do_fstat_have_io:
+-	    havefp = FALSE;
+ 	    PL_laststype = OP_STAT;
+ 	    PL_statgv = gv ? gv : (GV *)io;
+ 	    sv_setpvs(PL_statname, "");
+@@ -2903,22 +2904,25 @@ PP(pp_stat)
+                     if (IoIFP(io)) {
+                         int fd = PerlIO_fileno(IoIFP(io));
+                         if (fd < 0) {
++			    report_evil_fh(gv);
+                             PL_laststatval = -1;
+                             SETERRNO(EBADF,RMS_IFI);
+                         } else {
+                             PL_laststatval = PerlLIO_fstat(fd, &PL_statcache);
+-                            havefp = TRUE;
+                         }
+                     } else if (IoDIRP(io)) {
+                         PL_laststatval =
+                             PerlLIO_fstat(my_dirfd(IoDIRP(io)), &PL_statcache);
+-                        havefp = TRUE;
+                     } else {
++			report_evil_fh(gv);
+                         PL_laststatval = -1;
++			SETERRNO(EBADF,RMS_IFI);
+                     }
+-            }
+-	    else PL_laststatval = -1;
+-	    if (PL_laststatval < 0 && !havefp) report_evil_fh(gv);
++            } else {
++		report_evil_fh(gv);
++		PL_laststatval = -1;
++		SETERRNO(EBADF,RMS_IFI);
++	    }
+         }
+ 
+ 	if (PL_laststatval < 0) {
+@@ -3415,7 +3419,7 @@ PP(pp_fttty)
+     else if (name && isDIGIT(*name) && grok_atoUV(name, &uv, NULL) && uv <= PERL_INT_MAX)
+         fd = (int)uv;
+     else
+-	FT_RETURNUNDEF;
++	fd = -1;
+     if (fd < 0) {
+         SETERRNO(EBADF,RMS_IFI);
+ 	FT_RETURNUNDEF;
+diff --git a/t/op/stat_errors.t b/t/op/stat_errors.t
+new file mode 100644
+index 0000000..e043c61
+--- /dev/null
++++ b/t/op/stat_errors.t
+@@ -0,0 +1,57 @@
++#!./perl
++
++BEGIN {
++    chdir 't' if -d 't';
++    require './test.pl';
++    set_up_inc('../lib');
++}
++
++plan(tests => 2*11*29);
++
++use Errno qw(EBADF ENOENT);
++
++open(SCALARFILE, "<", \"wibble") or die $!;
++open(CLOSEDFILE, "<", "./test.pl") or die $!;
++close(CLOSEDFILE) or die $!;
++opendir(CLOSEDDIR, "../lib") or die $!;
++closedir(CLOSEDDIR) or die $!;
++
++foreach my $op (
++    qw(stat lstat),
++    (map { "-$_" } qw(r w x o R W X O e z s f d l p S b c t u g k T B M A C)),
++) {
++    foreach my $arg (
++	(map { ($_, "\\*$_") }
++	    qw(NEVEROPENED SCALARFILE CLOSEDFILE CLOSEDDIR _)),
++	"\"tmpnotexist\"",
++    ) {
++	my $argdesc = $arg;
++	if ($arg eq "_") {
++	    my @z = lstat "tmpnotexist";
++	    $argdesc .= " with prior stat fail";
++	}
++	SKIP: {
++	    if ($op eq "-l" && $arg =~ /\A\\/) {
++		# The op weirdly stringifies the globref and uses it as
++		# a filename, rather than treating it as a file handle.
++		# That might be a bug, but while that behaviour exists it
++		# needs to be exempted from these tests.
++		skip "-l on globref", 2;
++	    }
++	    if ($op eq "-t" && $arg eq "\"tmpnotexist\"") {
++		# The op doesn't operate on filenames.
++		skip "-t on filename", 2;
++	    }
++	    $! = 0;
++	    my $res = eval "$op $arg";
++	    my $err = $!;
++	    is $res, $op =~ /\A-/ ? undef : !!0, "result of $op $arg";
++	    is 0+$err,
++		$arg eq "\"tmpnotexist\"" ||
++		    ($op =~ /\A-[TB]\z/ && $arg =~ /_\z/) ? ENOENT : EBADF,
++		"error from $op $arg";
++	}
++    }
++}
++
++1;
+-- 
+2.13.6
+
diff --git a/perl-5.24.4-Fix-131649-extended-charclass-can-trigger-assert.patch b/perl-5.24.4-Fix-131649-extended-charclass-can-trigger-assert.patch
new file mode 100644
index 0000000..b6cf161
--- /dev/null
+++ b/perl-5.24.4-Fix-131649-extended-charclass-can-trigger-assert.patch
@@ -0,0 +1,270 @@
+From 10ce49389ea9ee26a3b02b6494b0a3849d56c6fa Mon Sep 17 00:00:00 2001
+From: Yves Orton <demerphq@gmail.com>
+Date: Mon, 26 Jun 2017 13:19:55 +0200
+Subject: [PATCH] fix #131649 - extended charclass can trigger assert
+
+The extended charclass parser makes some assumptions during the
+first pass which are only true on well structured input, and it
+does not properly catch various errors. later on the code assumes
+that things the first pass will let through are valid, when in
+fact they should trigger errors.
+
+(cherry picked from commit 19a498a461d7c81ae3507c450953d1148efecf4f)
+---
+ pod/perldiag.pod        | 27 ++++++++++++++++++++++++++-
+ pod/perlrecharclass.pod |  4 ++--
+ regcomp.c               | 28 ++++++++++++++++++----------
+ t/lib/warnings/regcomp  |  6 +++---
+ t/re/reg_mesg.t         | 29 ++++++++++++++++-------------
+ t/re/regex_sets.t       |  6 +++---
+ 6 files changed, 68 insertions(+), 32 deletions(-)
+
+diff --git a/pod/perldiag.pod b/pod/perldiag.pod
+index 106fe41121..c29925a2a4 100644
+--- a/pod/perldiag.pod
++++ b/pod/perldiag.pod
+@@ -5904,7 +5904,7 @@ yourself.
+ a perl4 interpreter, especially if the next 2 tokens are "use strict"
+ or "my $var" or "our $var".
+ 
+-=item Syntax error in (?[...]) in regex m/%s/
++=item Syntax error in (?[...]) in regex; marked by <-- HERE in m/%s/
+ 
+ (F) Perl could not figure out what you meant inside this construct; this
+ notifies you that it is giving up trying.
+@@ -6402,6 +6402,31 @@ to find out why that isn't happening.
+ (F) The unexec() routine failed for some reason.  See your local FSF
+ representative, who probably put it there in the first place.
+ 
++=item Unexpected ']' with no following ')' in (?[... in regex; marked by <-- HERE in m/%s/
++
++(F) While parsing an extended character class a ']' character was encountered
++at a point in the definition where the only legal use of ']' is to close the
++character class definition as part of a '])', you may have forgotten the close
++paren, or otherwise confused the parser.
++
++=item Expecting close paren for nested extended charclass in regex; marked by <-- HERE in m/%s/
++
++(F) While parsing a nested extended character class like:
++
++    (?[ ... (?flags:(?[ ... ])) ... ])
++                             ^
++
++we expected to see a close paren ')' (marked by ^) but did not.
++
++=item Expecting close paren for wrapper for nested extended charclass in regex; marked by <-- HERE in m/%s/
++
++(F) While parsing a nested extended character class like:
++
++    (?[ ... (?flags:(?[ ... ])) ... ])
++                              ^
++
++we expected to see a close paren ')' (marked by ^) but did not.
++
+ =item Unexpected binary operator '%c' with no preceding operand in regex;
+ marked by S<<-- HERE> in m/%s/
+ 
+diff --git a/pod/perlrecharclass.pod b/pod/perlrecharclass.pod
+index 79480e4131..8c008507d1 100644
+--- a/pod/perlrecharclass.pod
++++ b/pod/perlrecharclass.pod
+@@ -1128,8 +1128,8 @@ hence both of the following work:
+ Any contained POSIX character classes, including things like C<\w> and C<\D>
+ respect the C<E<sol>a> (and C<E<sol>aa>) modifiers.
+ 
+-C<< (?[ ]) >> is a regex-compile-time construct.  Any attempt to use
+-something which isn't knowable at the time the containing regular
++Note that C<< (?[ ]) >> is a regex-compile-time construct.  Any attempt
++to use something which isn't knowable at the time the containing regular
+ expression is compiled is a fatal error.  In practice, this means
+ just three limitations:
+ 
+diff --git a/regcomp.c b/regcomp.c
+index 4ee48ede42..ddac290d2b 100644
+--- a/regcomp.c
++++ b/regcomp.c
+@@ -14840,8 +14840,9 @@ S_handle_regex_sets(pTHX_ RExC_state_t *pRExC_state, SV** return_invlist,
+                                     TRUE /* Force /x */ );
+ 
+             switch (*RExC_parse) {
+-                case '?':
+-                    if (RExC_parse[1] == '[') depth++, RExC_parse++;
++                case '(':
++                    if (RExC_parse[1] == '?' && RExC_parse[2] == '[')
++                        depth++, RExC_parse+=2;
+                     /* FALLTHROUGH */
+                 default:
+                     break;
+@@ -14898,9 +14899,9 @@ S_handle_regex_sets(pTHX_ RExC_state_t *pRExC_state, SV** return_invlist,
+                 }
+ 
+                 case ']':
+-                    if (depth--) break;
+-                    RExC_parse++;
+-                    if (*RExC_parse == ')') {
++                    if (RExC_parse[1] == ')') {
++                        RExC_parse++;
++                        if (depth--) break;
+                         node = reganode(pRExC_state, ANYOF, 0);
+                         RExC_size += ANYOF_SKIP;
+                         nextchar(pRExC_state);
+@@ -14912,20 +14913,25 @@ S_handle_regex_sets(pTHX_ RExC_state_t *pRExC_state, SV** return_invlist,
+ 
+                         return node;
+                     }
+-                    goto no_close;
++                    /* We output the messages even if warnings are off, because we'll fail
++                     * the very next thing, and these give a likely diagnosis for that */
++                    if (posix_warnings && av_tindex_nomg(posix_warnings) >= 0) {
++                        output_or_return_posix_warnings(pRExC_state, posix_warnings, NULL);
++                    }
++                    RExC_parse++;
++                    vFAIL("Unexpected ']' with no following ')' in (?[...");
+             }
+ 
+             RExC_parse += UTF ? UTF8SKIP(RExC_parse) : 1;
+         }
+ 
+-      no_close:
+         /* We output the messages even if warnings are off, because we'll fail
+          * the very next thing, and these give a likely diagnosis for that */
+         if (posix_warnings && av_tindex_nomg(posix_warnings) >= 0) {
+             output_or_return_posix_warnings(pRExC_state, posix_warnings, NULL);
+         }
+ 
+-        FAIL("Syntax error in (?[...])");
++        vFAIL("Syntax error in (?[...])");
+     }
+ 
+     /* Pass 2 only after this. */
+@@ -15105,12 +15111,14 @@ redo_curchar:
+                      * inversion list, and RExC_parse points to the trailing
+                      * ']'; the next character should be the ')' */
+                     RExC_parse++;
+-                    assert(UCHARAT(RExC_parse) == ')');
++                    if (UCHARAT(RExC_parse) != ')')
++                        vFAIL("Expecting close paren for nested extended charclass");
+ 
+                     /* Then the ')' matching the original '(' handled by this
+                      * case: statement */
+                     RExC_parse++;
+-                    assert(UCHARAT(RExC_parse) == ')');
++                    if (UCHARAT(RExC_parse) != ')')
++                        vFAIL("Expecting close paren for wrapper for nested extended charclass");
+ 
+                     RExC_parse++;
+                     RExC_flags = save_flags;
+diff --git a/t/lib/warnings/regcomp b/t/lib/warnings/regcomp
+index 2b084c59b0..51ad57ccbe 100644
+--- a/t/lib/warnings/regcomp
++++ b/t/lib/warnings/regcomp
+@@ -59,21 +59,21 @@ Unmatched [ in regex; marked by <-- HERE in m/abc[ <-- HERE fi[.00./ at - line
+ qr/(?[[[:word]]])/;
+ EXPECT
+ Assuming NOT a POSIX class since there is no terminating ':' in regex; marked by <-- HERE in m/(?[[[:word <-- HERE ]]])/ at - line 2.
+-syntax error in (?[...]) in regex m/(?[[[:word]]])/ at - line 2.
++Unexpected ']' with no following ')' in (?[... in regex; marked by <-- HERE in m/(?[[[:word]] <-- HERE ])/ at - line 2.
+ ########
+ # NAME qr/(?[ [[:digit: ])/
+ # OPTION fatal
+ qr/(?[[[:digit: ])/;
+ EXPECT
+ Assuming NOT a POSIX class since no blanks are allowed in one in regex; marked by <-- HERE in m/(?[[[:digit: ] <-- HERE )/ at - line 2.
+-syntax error in (?[...]) in regex m/(?[[[:digit: ])/ at - line 2.
++syntax error in (?[...]) in regex; marked by <-- HERE in m/(?[[[:digit: ]) <-- HERE / at - line 2.
+ ########
+ # NAME qr/(?[ [:digit: ])/
+ # OPTION fatal
+ qr/(?[[:digit: ])/
+ EXPECT
+ Assuming NOT a POSIX class since no blanks are allowed in one in regex; marked by <-- HERE in m/(?[[:digit: ] <-- HERE )/ at - line 2.
+-syntax error in (?[...]) in regex m/(?[[:digit: ])/ at - line 2.
++syntax error in (?[...]) in regex; marked by <-- HERE in m/(?[[:digit: ]) <-- HERE / at - line 2.
+ ########
+ # NAME [perl #126141]
+ # OPTION fatal
+diff --git a/t/re/reg_mesg.t b/t/re/reg_mesg.t
+index d26a7caf37..5194d93751 100644
+--- a/t/re/reg_mesg.t
++++ b/t/re/reg_mesg.t
+@@ -215,8 +215,9 @@ my @death =
+  '/\b{gc}/' => "'gc' is an unknown bound type {#} m/\\b{gc{#}}/",
+  '/\B{gc}/' => "'gc' is an unknown bound type {#} m/\\B{gc{#}}/",
+ 
+- '/(?[[[::]]])/' => "Syntax error in (?[...]) in regex m/(?[[[::]]])/",
+- '/(?[[[:w:]]])/' => "Syntax error in (?[...]) in regex m/(?[[[:w:]]])/",
++
++ '/(?[[[::]]])/' => "Unexpected ']' with no following ')' in (?[... {#} m/(?[[[::]]{#}])/",
++ '/(?[[[:w:]]])/' => "Unexpected ']' with no following ')' in (?[... {#} m/(?[[[:w:]]{#}])/",
+  '/(?[[:w:]])/' => "",
+  '/([.].*)[.]/'   => "",    # [perl #127582]
+  '/[.].*[.]/'     => "",    # [perl #127604]
+@@ -239,11 +240,12 @@ my @death =
+  '/(?[ \p{foo} ])/' => 'Can\'t find Unicode property definition "foo" {#} m/(?[ \p{foo}{#} ])/',
+  '/(?[ \p{ foo = bar } ])/' => 'Can\'t find Unicode property definition "foo = bar" {#} m/(?[ \p{ foo = bar }{#} ])/',
+  '/(?[ \8 ])/' => 'Unrecognized escape \8 in character class {#} m/(?[ \8{#} ])/',
+- '/(?[ \t ]/' => 'Syntax error in (?[...]) in regex m/(?[ \t ]/',
+- '/(?[ [ \t ]/' => 'Syntax error in (?[...]) in regex m/(?[ [ \t ]/',
+- '/(?[ \t ] ]/' => 'Syntax error in (?[...]) in regex m/(?[ \t ] ]/',
+- '/(?[ [ ] ]/' => 'Syntax error in (?[...]) in regex m/(?[ [ ] ]/',
+- '/(?[ \t + \e # This was supposed to be a comment ])/' => 'Syntax error in (?[...]) in regex m/(?[ \t + \e # This was supposed to be a comment ])/',
++ '/(?[ \t ]/' => "Unexpected ']' with no following ')' in (?[... {#} m/(?[ \\t ]{#}/",
++ '/(?[ [ \t ]/' => "Syntax error in (?[...]) {#} m/(?[ [ \\t ]{#}/",
++ '/(?[ \t ] ]/' => "Unexpected ']' with no following ')' in (?[... {#} m/(?[ \\t ]{#} ]/",
++ '/(?[ [ ] ]/' => "Syntax error in (?[...]) {#} m/(?[ [ ] ]{#}/",
++ '/(?[ \t + \e # This was supposed to be a comment ])/' =>
++    "Syntax error in (?[...]) {#} m/(?[ \\t + \\e # This was supposed to be a comment ]){#}/",
+  '/(?[ ])/' => 'Incomplete expression within \'(?[ ])\' {#} m/(?[ {#}])/',
+  'm/(?[[a-\d]])/' => 'False [] range "a-\d" {#} m/(?[[a-\d{#}]])/',
+  'm/(?[[\w-x]])/' => 'False [] range "\w-" {#} m/(?[[\w-{#}x]])/',
+@@ -431,10 +433,10 @@ my @death_utf8 = mark_as_utf8(
+ 
+  '/ネ\p{}ネ/' => 'Empty \p{} {#} m/ネ\p{{#}}ネ/',
+ 
+- '/ネ(?[[[:ネ]]])ネ/' => "Syntax error in (?[...]) in regex m/ネ(?[[[:ネ]]])ネ/",
+- '/ネ(?[[[:ネ: ])ネ/' => "Syntax error in (?[...]) in regex m/ネ(?[[[:ネ: ])ネ/",
+- '/ネ(?[[[::]]])ネ/' => "Syntax error in (?[...]) in regex m/ネ(?[[[::]]])ネ/",
+- '/ネ(?[[[:ネ:]]])ネ/' => "Syntax error in (?[...]) in regex m/ネ(?[[[:ネ:]]])ネ/",
++ '/ネ(?[[[:ネ]]])ネ/' => "Unexpected ']' with no following ')' in (?[... {#} m/ネ(?[[[:ネ]]{#}])ネ/",
++ '/ネ(?[[[:ネ: ])ネ/' => "Syntax error in (?[...]) {#} m/ネ(?[[[:ネ: ])ネ{#}/",
++ '/ネ(?[[[::]]])ネ/' => "Unexpected ']' with no following ')' in (?[... {#} m/ネ(?[[[::]]{#}])ネ/",
++ '/ネ(?[[[:ネ:]]])ネ/' => "Unexpected ']' with no following ')' in (?[... {#} m/ネ(?[[[:ネ:]]{#}])ネ/",
+  '/ネ(?[[:ネ:]])ネ/' => "",
+  '/ネ(?[ネ])ネ/' =>  'Unexpected character {#} m/ネ(?[ネ{#}])ネ/',
+  '/ネ(?[ + [ネ] ])/' => 'Unexpected binary operator \'+\' with no preceding operand {#} m/ネ(?[ +{#} [ネ] ])/',
+@@ -447,8 +449,9 @@ my @death_utf8 = mark_as_utf8(
+  '/(?[ \x{ネ} ])ネ/' => 'Non-hex character {#} m/(?[ \x{ネ{#}} ])ネ/',
+  '/(?[ \p{ネ} ])/' => 'Can\'t find Unicode property definition "ネ" {#} m/(?[ \p{ネ}{#} ])/',
+  '/(?[ \p{ ネ = bar } ])/' => 'Can\'t find Unicode property definition "ネ = bar" {#} m/(?[ \p{ ネ = bar }{#} ])/',
+- '/ネ(?[ \t ]/' => 'Syntax error in (?[...]) in regex m/ネ(?[ \t ]/',
+- '/(?[ \t + \e # ネ This was supposed to be a comment ])/' => 'Syntax error in (?[...]) in regex m/(?[ \t + \e # ネ This was supposed to be a comment ])/',
++ '/ネ(?[ \t ]/' => "Unexpected ']' with no following ')' in (?[... {#} m/ネ(?[ \\t ]{#}/",
++ '/(?[ \t + \e # ネ This was supposed to be a comment ])/' =>
++    "Syntax error in (?[...]) {#} m/(?[ \\t + \\e # ネ This was supposed to be a comment ]){#}/",
+  'm/(*ネ)ネ/' => q<Unknown verb pattern 'ネ' {#} m/(*ネ){#}ネ/>,
+  '/\cネ/' => "Character following \"\\c\" must be printable ASCII",
+  '/\b{ネ}/' => "'ネ' is an unknown bound type {#} m/\\b{ネ{#}}/",
+diff --git a/t/re/regex_sets.t b/t/re/regex_sets.t
+index 6a79f9d692..e9644bd4e6 100644
+--- a/t/re/regex_sets.t
++++ b/t/re/regex_sets.t
+@@ -158,13 +158,13 @@ for my $char ("٠", "٥", "٩") {
+ 	eval { $_ = '/(?[(\c]) /'; qr/$_/ };
+ 	like($@, qr/^Syntax error/, '/(?[(\c]) / should not panic');
+ 	eval { $_ = '(?[\c#]' . "\n])"; qr/$_/ };
+-	like($@, qr/^Syntax error/, '/(?[(\c]) / should not panic');
++	like($@, qr/^Unexpected/, '/(?[(\c]) / should not panic');
+ 	eval { $_ = '(?[(\c])'; qr/$_/ };
+ 	like($@, qr/^Syntax error/, '/(?[(\c])/ should be a syntax error');
+ 	eval { $_ = '(?[(\c]) ]\b'; qr/$_/ };
+-	like($@, qr/^Syntax error/, '/(?[(\c]) ]\b/ should be a syntax error');
++	like($@, qr/^Unexpected/, '/(?[(\c]) ]\b/ should be a syntax error');
+ 	eval { $_ = '(?[\c[]](])'; qr/$_/ };
+-	like($@, qr/^Syntax error/, '/(?[\c[]](])/ should be a syntax error');
++	like($@, qr/^Unexpected/, '/(?[\c[]](])/ should be a syntax error');
+ 	like("\c#", qr/(?[\c#])/, '\c# should match itself');
+ 	like("\c[", qr/(?[\c[])/, '\c[ should match itself');
+ 	like("\c\ ", qr/(?[\c\])/, '\c\ should match itself');
+-- 
+2.11.0
+
diff --git a/perl-5.24.4-Fix-heap-buffer-overflow-write-reg_node-overrun.patch b/perl-5.24.4-Fix-heap-buffer-overflow-write-reg_node-overrun.patch
new file mode 100644
index 0000000000000000000000000000000000000000..d76c039145868c3e8d939cdb1c03a4fc78e8cfde
GIT binary patch
literal 1983
zcmd5-ZBOGy5Wdg;6@zJITZx_ZOJWnq0iuWQbgfzeRV$GYZM@@`t7E6@4dhhrzjxN*
zfKb{G{d6lkp54s*Gc$WGn<a=WNQMdWAi+hD#>g0t7GlJQC=P}g#YvDQNf?IkQ&Ynw
zuE39hv2pi6z?g5GlbSJn<g$X_%Bm{)vL)7|KZ?7Pbj540k@;KW2d;3eb@U;KIz0jN
z6Y%}<Fd9cbxNO9jak*Z6!c>jn`j^wIv-iXr4CtLfx25A1l9hcw45J{NLDonZdcg>m
zysVXBxUOq}#5`@5D=&rZx(Cv3fEq}oC!a5|%{>M85J8WY0Rd!Xg)O87uX7ZA`lGB{
zl&Wm%*6uldQXsHGy|-P*FhrSU;JSIKfNPZx<`z%1QPu)Ckn$)Ni+C7^o)?8aV<Sw4
zL(oJNX>Xs)8{`Z;*Ku+Jt{)`_qkas%EinQ*lqi~cx|Zax92*Z&?taP)>|f8`pI)3^
z*%$9NXY&=8Ejq9_0n4$R*M+o-+w;>8KicNI&5B?s>m1UmX%R>q>n`1QlCKDaj;^s)
zC;&GKDO{lwDAS6!t?3*ZV7R+JZFf)J^m@ef+Ui)cisvm%pyjtX?>7I!oj0lhLQYgT
zZ^$#EUg7+*3);(KSPWjAJOCITq*<E9BJ({@1S1}&JPYGp0AEUOVSIV2!8{22Bk0j@
zqG4QqhVP0pFXqc~gJLd9T~8CRty2ps1s1a$IMyE+1D#P&S|V+#rk)p6T$G!Yq_WSz
z{GJ8Bn|)}cu+4Foe9fx(;=dTDY70|O^Dfr;wy8+1X&+zP$2Vj8OsCTgV>8E@PG_3B
z53X-+h)USE@XnkIZ#o^t%se!xkN5ZW3m@^bd&{e}uG&(z&}5J{0tYB1jf;mJsDdkK
zi)LL3s-9bfj4NJ2$JBbAG7VV}GmTjg2h@aH&`tz$RltOb*Ba<lIqu%f8CWoR3)Y8P
z4+EMNNNur_*tRq@;I33fS;N#Kc9=O+3;x>w0?Vy5ky{0Q-3<GWGcFhfESi0_vS&O0
z-v|kl6)oS{*tHTpSvi_KgmH;~uCY!L>|@XKpl%c>l*_WFDJ~wJKbnx%N1gv{<!7-Z
ze#~Y@56r<+sSQk>GV|wc({@QBOF&smQRvyzwX-77p0f3|EZ=lBse^j+jn?GA>>JR{
zLBjN^K$@a7M1gLfmgjWabOoqS?zpTe+7|8#nz1_7t&(M`4(Za-g|?>ID#2Ql0*Q2K
LfDw3p?D@vu`Z+1P

literal 0
HcmV?d00001

diff --git a/perl-5.24.4-Pass-CFLAGS-to-dtrace.patch b/perl-5.24.4-Pass-CFLAGS-to-dtrace.patch
new file mode 100644
index 0000000..069027c
--- /dev/null
+++ b/perl-5.24.4-Pass-CFLAGS-to-dtrace.patch
@@ -0,0 +1,44 @@
+diff -up perl-5.24.4/Makefile.SH.orig perl-5.24.4/Makefile.SH
+--- perl-5.24.4/Makefile.SH.orig	2018-10-02 12:18:23.627226701 +0200
++++ perl-5.24.4/Makefile.SH	2018-10-02 13:35:03.858920366 +0200
+@@ -451,6 +451,8 @@ CCCMD    = sh $(shellflags) cflags "opti
+ 
+ CCCMDSRC = sh $(shellflags) cflags "optimize='$(OPTIMIZE)'" $<
+ 
++DTRACEFLAGS = sh $(shellflags) cflags "optimize='$(OPTIMIZE)'" $@
++
+ CONFIGPM_FROM_CONFIG_SH = lib/Config.pm lib/Config_heavy.pl
+ CONFIGPM = $(CONFIGPM_FROM_CONFIG_SH) lib/Config_git.pl
+ 
+@@ -865,13 +867,13 @@ mydtrace.h: $(DTRACE_H)
+ 	define)
+ 		$spitshell >>$Makefile <<'!NO!SUBS!'
+ $(DTRACE_MINI_O): perldtrace.d $(miniperl_objs_nodt)
+-	$(DTRACE) -G -s perldtrace.d -o $(DTRACE_MINI_O) $(miniperl_objs_nodt)
++	CFLAGS="`$(DTRACEFLAGS)`" $(DTRACE) -G -s perldtrace.d -o $(DTRACE_MINI_O) $(miniperl_objs_nodt)
+ 
+ $(DTRACE_PERLLIB_O): perldtrace.d $(perllib_objs_nodt)
+-	$(DTRACE) -G -s perldtrace.d -o $(DTRACE_PERLLIB_O) $(perllib_objs_nodt)
++	CFLAGS="`$(DTRACEFLAGS)`" $(DTRACE) -G -s perldtrace.d -o $(DTRACE_PERLLIB_O) $(perllib_objs_nodt)
+ 
+ $(DTRACE_MAIN_O): perldtrace.d perlmain$(OBJ_EXT)
+-	$(DTRACE) -G -s perldtrace.d -o $(DTRACE_MAIN_O) perlmain$(OBJ_EXT)
++	CFLAGS="`$(DTRACEFLAGS)`" $(DTRACE) -G -s perldtrace.d -o $(DTRACE_MAIN_O) perlmain$(OBJ_EXT)
+ 
+ !NO!SUBS!
+ 		;;
+diff -up perl-5.24.4/cflags.SH.orig perl-5.24.4/cflags.SH
+--- perl-5.24.4/cflags.SH.orig	2018-10-02 14:37:09.368649895 +0200
++++ perl-5.24.4/cflags.SH	2018-10-02 14:39:10.785695193 +0200
+@@ -518,7 +518,10 @@ for file do
+     esac
+ 
+     # Can we perhaps use $ansi2knr here
+-    echo "$cc -c -DPERL_CORE $ccflags $stdflags $optimize $warn $extra"
++    case "$file" in
++    dtrace_*) echo "$ccflags $stdflags $optimize $warn $extra";;
++    *) echo "$cc -c -DPERL_CORE $ccflags $stdflags $optimize $warn $extra"
++    esac
+ 
+     . $TOP/config.sh
+ 
diff --git a/perl-5.24.4-Perl_my_setenv-handle-integer-wrap.patch b/perl-5.24.4-Perl_my_setenv-handle-integer-wrap.patch
new file mode 100644
index 0000000..78ead17
--- /dev/null
+++ b/perl-5.24.4-Perl_my_setenv-handle-integer-wrap.patch
@@ -0,0 +1,175 @@
+From 34716e2a6ee2af96078d62b065b7785c001194be Mon Sep 17 00:00:00 2001
+From: David Mitchell <davem@iabyn.com>
+Date: Fri, 29 Jun 2018 13:37:03 +0100
+Subject: [PATCH] Perl_my_setenv(); handle integer wrap
+
+RT #133204
+
+Wean this function off int/I32 and onto UV/Size_t.
+Also, replace all malloc-ish calls with a wrapper that does
+overflow checks,
+
+In particular, it was doing (nlen + vlen + 2) which could wrap when
+the combined length of the environment variable name and value
+exceeded around 0x7fffffff.
+
+The wrapper check function is probably overkill, but belt and braces...
+
+NB this function has several variant parts, #ifdef'ed by platform
+type; I have blindly changed the parts that aren't compiled under linux.
+---
+ util.c | 76 ++++++++++++++++++++++++++++++++++++++++------------------
+ 1 file changed, 53 insertions(+), 23 deletions(-)
+
+diff --git a/util.c b/util.c
+index 7282dd9cfe..c5c7becc0f 100644
+--- a/util.c
++++ b/util.c
+@@ -2162,8 +2162,40 @@ Perl_new_warnings_bitfield(pTHX_ STRLEN *buffer, const char *const bits,
+    *(s+(nlen+1+vlen)) = '\0'
+ 
+ #ifdef USE_ENVIRON_ARRAY
+-       /* VMS' my_setenv() is in vms.c */
++
++/* small wrapper for use by Perl_my_setenv that mallocs, or reallocs if
++ * 'current' is non-null, with up to three sizes that are added together.
++ * It handles integer overflow.
++ */
++static char *
++S_env_alloc(void *current, Size_t l1, Size_t l2, Size_t l3, Size_t size)
++{
++    void *p;
++    Size_t sl, l = l1 + l2;
++
++    if (l < l2)
++        goto panic;
++    l += l3;
++    if (l < l3)
++        goto panic;
++    sl = l * size;
++    if (sl < l)
++        goto panic;
++
++    p = current
++            ? safesysrealloc(current, sl)
++            : safesysmalloc(sl);
++    if (p)
++        return (char*)p;
++
++  panic:
++    croak_memory_wrap();
++}
++
++
++/* VMS' my_setenv() is in vms.c */
+ #if !defined(WIN32) && !defined(NETWARE)
++
+ void
+ Perl_my_setenv(pTHX_ const char *nam, const char *val)
+ {
+@@ -2179,28 +2211,27 @@ Perl_my_setenv(pTHX_ const char *nam, const char *val)
+ #ifndef PERL_USE_SAFE_PUTENV
+     if (!PL_use_safe_putenv) {
+         /* most putenv()s leak, so we manipulate environ directly */
+-        I32 i;
+-        const I32 len = strlen(nam);
+-        int nlen, vlen;
++        UV i;
++        Size_t vlen, nlen = strlen(nam);
+ 
+         /* where does it go? */
+         for (i = 0; environ[i]; i++) {
+-            if (strnEQ(environ[i],nam,len) && environ[i][len] == '=')
++            if (strnEQ(environ[i], nam, nlen) && environ[i][nlen] == '=')
+                 break;
+         }
+ 
+         if (environ == PL_origenviron) {   /* need we copy environment? */
+-            I32 j;
+-            I32 max;
++            UV j, max;
+             char **tmpenv;
+ 
+             max = i;
+             while (environ[max])
+                 max++;
+-            tmpenv = (char**)safesysmalloc((max+2) * sizeof(char*));
++            /* XXX shouldn't that be max+1 rather than max+2 ??? - DAPM */
++            tmpenv = (char**)S_env_alloc(NULL, max, 2, 0, sizeof(char*));
+             for (j=0; j<max; j++) {         /* copy environment */
+-                const int len = strlen(environ[j]);
+-                tmpenv[j] = (char*)safesysmalloc((len+1)*sizeof(char));
++                const Size_t len = strlen(environ[j]);
++                tmpenv[j] = S_env_alloc(NULL, len, 1, 0, 1);
+                 Copy(environ[j], tmpenv[j], len+1, char);
+             }
+             tmpenv[max] = NULL;
+@@ -2219,15 +2250,15 @@ Perl_my_setenv(pTHX_ const char *nam, const char *val)
+ #endif
+         }
+         if (!environ[i]) {                 /* does not exist yet */
+-            environ = (char**)safesysrealloc(environ, (i+2) * sizeof(char*));
++            environ = (char**)S_env_alloc(environ, i, 2, 0, sizeof(char*));
+             environ[i+1] = NULL;    /* make sure it's null terminated */
+         }
+         else
+             safesysfree(environ[i]);
+-        nlen = strlen(nam);
++
+         vlen = strlen(val);
+ 
+-        environ[i] = (char*)safesysmalloc((nlen+vlen+2) * sizeof(char));
++        environ[i] = S_env_alloc(NULL, nlen, vlen, 2, 1);
+         /* all that work just for this */
+         my_setenv_format(environ[i], nam, nlen, val, vlen);
+     } else {
+@@ -2252,22 +2283,21 @@ Perl_my_setenv(pTHX_ const char *nam, const char *val)
+             if (environ) /* old glibc can crash with null environ */
+                 (void)unsetenv(nam);
+         } else {
+-	    const int nlen = strlen(nam);
+-	    const int vlen = strlen(val);
+-	    char * const new_env =
+-                (char*)safesysmalloc((nlen + vlen + 2) * sizeof(char));
++	    const Size_t nlen = strlen(nam);
++	    const Size_t vlen = strlen(val);
++	    char * const new_env = S_env_alloc(NULL, nlen, vlen, 2, 1);
+             my_setenv_format(new_env, nam, nlen, val, vlen);
+             (void)putenv(new_env);
+         }
+ #       else /* ! HAS_UNSETENV */
+         char *new_env;
+-	const int nlen = strlen(nam);
+-	int vlen;
++	const Size_t nlen = strlen(nam);
++	Size_t vlen;
+         if (!val) {
+ 	   val = "";
+         }
+         vlen = strlen(val);
+-        new_env = (char*)safesysmalloc((nlen + vlen + 2) * sizeof(char));
++        new_env = S_env_alloc(NULL, nlen, vlen, 2, 1);
+         /* all that work just for this */
+         my_setenv_format(new_env, nam, nlen, val, vlen);
+         (void)putenv(new_env);
+@@ -2290,14 +2320,14 @@ Perl_my_setenv(pTHX_ const char *nam, const char *val)
+ {
+     dVAR;
+     char *envstr;
+-    const int nlen = strlen(nam);
+-    int vlen;
++    const Size_t nlen = strlen(nam);
++    Size_t vlen;
+ 
+     if (!val) {
+        val = "";
+     }
+     vlen = strlen(val);
+-    Newx(envstr, nlen+vlen+2, char);
++    envstr = S_env_alloc(NULL, nlen, vlen, 2, 1);
+     my_setenv_format(envstr, nam, nlen, val, vlen);
+     (void)PerlEnv_putenv(envstr);
+     Safefree(envstr);
+-- 
+2.17.1
+
diff --git a/perl-5.24.4-Remove-ext-GDBM_File-t-fatal.t.patch b/perl-5.24.4-Remove-ext-GDBM_File-t-fatal.t.patch
new file mode 100644
index 0000000..3d91e88
--- /dev/null
+++ b/perl-5.24.4-Remove-ext-GDBM_File-t-fatal.t.patch
@@ -0,0 +1,94 @@
+From 0711044bfd02bbd7d2967ba96c6fdcae5b7132d6 Mon Sep 17 00:00:00 2001
+From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= <ppisar@redhat.com>
+Date: Mon, 9 Jul 2018 16:18:36 +0200
+Subject: [PATCH] Remove ext/GDBM_File/t/fatal.t
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+gdbm-1.15 defaults to a memory-mapped I/O and does not report any I/O
+errors on store and close operations. Thus ext/GDBM_File/t/fatal.t
+test that expects these fatal error reports fails. Because there is
+no other way to provoke a fatal error in gdbm-1.15 this patch
+removes the test. Future gdbm version promisses reporting a regular
+error on closing a database.
+
+RT#133295
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ MANIFEST                |  1 -
+ ext/GDBM_File/t/fatal.t | 49 -------------------------------------------------
+ 2 files changed, 50 deletions(-)
+ delete mode 100644 ext/GDBM_File/t/fatal.t
+
+diff --git a/MANIFEST b/MANIFEST
+index a1a5320..ed5d05f 100644
+--- a/MANIFEST
++++ b/MANIFEST
+@@ -3719,7 +3719,6 @@ ext/GDBM_File/GDBM_File.pm	GDBM extension Perl module
+ ext/GDBM_File/GDBM_File.xs	GDBM extension external subroutines
+ ext/GDBM_File/hints/sco.pl	Hint for GDBM_File for named architecture
+ ext/GDBM_File/Makefile.PL	GDBM extension makefile writer
+-ext/GDBM_File/t/fatal.t		Test the fatal_func argument to gdbm_open
+ ext/GDBM_File/t/gdbm.t		See if GDBM_File works
+ ext/GDBM_File/typemap		GDBM extension interface types
+ ext/Hash-Util/Changes		Change history of Hash::Util
+diff --git a/ext/GDBM_File/t/fatal.t b/ext/GDBM_File/t/fatal.t
+deleted file mode 100644
+index b7045ba..0000000
+--- a/ext/GDBM_File/t/fatal.t
++++ /dev/null
+@@ -1,49 +0,0 @@
+-#!./perl -w
+-use strict;
+-
+-use Test::More;
+-use Config;
+-
+-BEGIN {
+-    plan(skip_all => "GDBM_File was not built")
+-	unless $Config{extensions} =~ /\bGDBM_File\b/;
+-
+-    # https://rt.perl.org/Public/Bug/Display.html?id=117967
+-    plan(skip_all => "GDBM_File is flaky in $^O")
+-        if $^O =~ /darwin/;
+-
+-    plan(tests => 8);
+-    use_ok('GDBM_File');
+-}
+-
+-unlink <Op_dbmx*>;
+-
+-open my $fh, $^X or die "Can't open $^X: $!";
+-my $fileno = fileno $fh;
+-isnt($fileno, undef, "Can find next available file descriptor");
+-close $fh or die $!;
+-
+-is((open $fh, "<&=$fileno"), undef,
+-   "Check that we cannot open fileno $fileno. \$! is $!");
+-
+-umask(0);
+-my %h;
+-isa_ok(tie(%h, 'GDBM_File', 'Op_dbmx', GDBM_WRCREAT, 0640), 'GDBM_File');
+-
+-isnt((open $fh, "<&=$fileno"), undef, "dup fileno $fileno")
+-    or diag("\$! = $!");
+-isnt(close $fh, undef,
+-     "close fileno $fileno, out from underneath the GDBM_File");
+-is(eval {
+-    $h{Perl} = 'Rules';
+-    untie %h;
+-    1;
+-}, undef, 'Trapped error when attempting to write to knobbled GDBM_File');
+-
+-# Observed "File write error" and "lseek error" from two different systems.
+-# So there might be more variants. Important part was that we trapped the error
+-# via croak.
+-like($@, qr/ at .*\bfatal\.t line \d+\.\n\z/,
+-     'expected error message from GDBM_File');
+-
+-unlink <Op_dbmx*>;
+-- 
+2.14.4
+
diff --git a/perl-5.24.4-perform-system-arg-processing-before-fork.patch b/perl-5.24.4-perform-system-arg-processing-before-fork.patch
new file mode 100644
index 0000000..bc986d0
--- /dev/null
+++ b/perl-5.24.4-perform-system-arg-processing-before-fork.patch
@@ -0,0 +1,90 @@
+From bee36f5b5aad82c566311cf8785aa67ba3696155 Mon Sep 17 00:00:00 2001
+From: Zefram <zefram@fysh.org>
+Date: Sat, 16 Dec 2017 05:33:20 +0000
+Subject: [PATCH] perform system() arg processing before fork
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+A lot of things can happen when stringifying an argument list: side
+effects, warnings, exceptions.  In the case of system(), these effects
+should happen in the context of the parent process.  The stringification
+can also depend on which process it happens in, as in the case of
+$$, and in that case it should also happen in the parent process.
+Therefore reduce the argument scalars to strings first thing in pp_system.
+Fixes [perl #121105].
+
+Petr Písař: Ported to 5.24.4 from
+64def2aeaeb63f92dadc6dfa33486c1d7b311963.
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ pp_sys.c    | 16 ++++++++++------
+ t/op/exec.t | 15 ++++++++++++++-
+ 2 files changed, 24 insertions(+), 7 deletions(-)
+
+diff --git a/pp_sys.c b/pp_sys.c
+index 2fcc219..4ce8540 100644
+--- a/pp_sys.c
++++ b/pp_sys.c
+@@ -4343,14 +4343,18 @@ PP(pp_system)
+     int result;
+ # endif
+ 
++    while (++MARK <= SP) {
++	SV *origsv = *MARK;
++	STRLEN len;
++	char *pv;
++	pv = SvPV(origsv, len);
++	*MARK = newSVpvn_flags(pv, len,
++		    (SvFLAGS(origsv) & SVf_UTF8) | SVs_TEMP);
++    }
++    MARK = ORIGMARK;
++
+     if (TAINTING_get) {
+ 	TAINT_ENV();
+-	while (++MARK <= SP) {
+-	    (void)SvPV_nolen_const(*MARK);      /* stringify for taint check */
+-	    if (TAINT_get)
+-		break;
+-	}
+-	MARK = ORIGMARK;
+ 	TAINT_PROPER("system");
+     }
+     PERL_FLUSHALL_FOR_CHILD;
+diff --git a/t/op/exec.t b/t/op/exec.t
+index 726f548..e43dd6e 100644
+--- a/t/op/exec.t
++++ b/t/op/exec.t
+@@ -36,7 +36,7 @@ $ENV{LANGUAGE} = 'C';		# Ditto in GNU.
+ my $Is_VMS   = $^O eq 'VMS';
+ my $Is_Win32 = $^O eq 'MSWin32';
+ 
+-plan(tests => 33);
++plan(tests => 36);
+ 
+ my $Perl = which_perl();
+ 
+@@ -173,6 +173,19 @@ TODO: {
+         "exec failure doesn't terminate process");
+ }
+ 
++package CountRead {
++    sub TIESCALAR { bless({ n => 0 }, $_[0]) }
++    sub FETCH { ++$_[0]->{n} }
++}
++my $cr;
++tie $cr, "CountRead";
++is system($^X, "-e", "exit(\$ARGV[0] eq '1' ? 0 : 1)", $cr), 0,
++    "system args have magic processed exactly once";
++is tied($cr)->{n}, 1, "system args have magic processed before fork";
++
++is system($^X, "-e", "exit(\$ARGV[0] eq \$ARGV[1] ? 0 : 1)", "$$", $$), 0,
++    "system args have magic processed before fork";
++
+ my $test = curr_test();
+ exec $Perl, '-le', qq{${quote}print 'ok $test - exec PROG, LIST'${quote}};
+ fail("This should never be reached if the exec() worked");
+-- 
+2.14.3
+
diff --git a/perl-5.24.4-perl-129149-avoid-a-heap-buffer-overflow-with-pack-W.patch b/perl-5.24.4-perl-129149-avoid-a-heap-buffer-overflow-with-pack-W.patch
new file mode 100644
index 0000000..76337e8
--- /dev/null
+++ b/perl-5.24.4-perl-129149-avoid-a-heap-buffer-overflow-with-pack-W.patch
@@ -0,0 +1,65 @@
+From cd6b0f4e030d55ff077e9bc8fbcf156ab79dceb1 Mon Sep 17 00:00:00 2001
+From: Tony Cook <tony@develop-help.com>
+Date: Wed, 7 Sep 2016 16:51:39 +1000
+Subject: [PATCH] (perl #129149) avoid a heap buffer overflow with pack "W"...
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+Petr Písař: Ported to 5.24.4:
+
+From bf4a926a29374161655548b149d1cb37300bcc05 Mon Sep 17 00:00:00 2001
+From: Tony Cook <tony@develop-help.com>
+Date: Wed, 7 Sep 2016 16:51:39 +1000
+Subject: [PATCH] (perl #129149) avoid a heap buffer overflow with pack "W"...
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ pp_pack.c   |  2 +-
+ t/op/pack.t | 13 ++++++++++++-
+ 2 files changed, 13 insertions(+), 2 deletions(-)
+
+diff --git a/pp_pack.c b/pp_pack.c
+index c0de5ab..29fdb01 100644
+--- a/pp_pack.c
++++ b/pp_pack.c
+@@ -2598,7 +2598,7 @@ S_pack_rec(pTHX_ SV *cat, tempsym_t* symptr, SV **beglist, SV **endlist )
+ 		if (in_bytes) auv = auv % 0x100;
+ 		if (utf8) {
+ 		  W_utf8:
+-		    if (cur > end) {
++		    if (cur >= end) {
+ 			*cur = '\0';
+ 			SvCUR_set(cat, cur - start);
+ 
+diff --git a/t/op/pack.t b/t/op/pack.t
+index a480c3a..cf5ae78 100644
+--- a/t/op/pack.t
++++ b/t/op/pack.t
+@@ -12,7 +12,7 @@ my $no_endianness = $] > 5.009 ? '' :
+ my $no_signedness = $] > 5.009 ? '' :
+   "Signed/unsigned pack modifiers not available on this perl";
+ 
+-plan tests => 14716;
++plan tests => 14717;
+ 
+ use strict;
+ use warnings qw(FATAL all);
+@@ -2066,3 +2066,14 @@ SKIP:
+     fresh_perl_like('pack "c10f1073741824"', qr/Out of memory during pack/, { stderr => 1 },
+ 		    "integer overflow calculating allocation (multiply)");
+ }
++
++{
++    # [perl #129149] the code below would write one past the end of the output
++    # buffer, only detected by ASAN, not by valgrind
++    $Config{ivsize} >= 8
++      or skip "[perl #129149] need 64-bit for this test", 1;
++    fresh_perl_is(<<'EOS', "ok\n", { stderr => 1 }, "pack W overflow");
++print pack("ucW", "0000", 0, 140737488355327) eq "\$,#`P,```\n\0\x{7fffffffffff}"
++ ? "ok\n" : "not ok\n";
++EOS
++}
+-- 
+2.14.3
+
diff --git a/perl-5.24.4-perl-129149-fix-the-test-so-skip-has-a-SKIP-to-work-.patch b/perl-5.24.4-perl-129149-fix-the-test-so-skip-has-a-SKIP-to-work-.patch
new file mode 100644
index 0000000..026d329
--- /dev/null
+++ b/perl-5.24.4-perl-129149-fix-the-test-so-skip-has-a-SKIP-to-work-.patch
@@ -0,0 +1,37 @@
+From 308112b17f3d093c11cc25408a421c86364de828 Mon Sep 17 00:00:00 2001
+From: Tony Cook <tony@develop-help.com>
+Date: Tue, 17 Jan 2017 15:36:31 +1100
+Subject: [PATCH] (perl #129149) fix the test so skip has a SKIP: to work with
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+Thanks to bulk88 for pointing this out.
+
+Petr Písař: Ported to 5.24.4 from:
+
+From 30be69c851a7fa7e29d85c9b6e070273df82f3e7 Mon Sep 17 00:00:00 2001
+From: Tony Cook <tony@develop-help.com>
+Date: Tue, 17 Jan 2017 15:36:31 +1100
+Subject: [PATCH] (perl #129149) fix the test so skip has a SKIP: to work with
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ t/op/pack.t | 1 +
+ 1 file changed, 1 insertion(+)
+
+diff --git a/t/op/pack.t b/t/op/pack.t
+index cf5ae78..e399f7e 100644
+--- a/t/op/pack.t
++++ b/t/op/pack.t
+@@ -2067,6 +2067,7 @@ SKIP:
+ 		    "integer overflow calculating allocation (multiply)");
+ }
+ 
++SKIP:
+ {
+     # [perl #129149] the code below would write one past the end of the output
+     # buffer, only detected by ASAN, not by valgrind
+-- 
+2.14.3
+
diff --git a/perl-5.24.4-perl-129350-anchored-floating-substrings-must-be-utf.patch b/perl-5.24.4-perl-129350-anchored-floating-substrings-must-be-utf.patch
new file mode 100644
index 0000000..9fa716d
--- /dev/null
+++ b/perl-5.24.4-perl-129350-anchored-floating-substrings-must-be-utf.patch
@@ -0,0 +1,56 @@
+From f34cc5af94622240abbf730ac82c4f91cc4ffb83 Mon Sep 17 00:00:00 2001
+From: Hugo van der Sanden <hv@crypt.org>
+Date: Tue, 4 Oct 2016 14:40:11 +0100
+Subject: [PATCH] anchored/floating substrings must be utf8 if target is
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+Ported to 5.24.4:
+
+commit 2814f4b3549f665a6f9203ac9e890ae1e415e0dc
+Author: Hugo van der Sanden <hv@crypt.org>
+Date:   Tue Oct 4 14:40:11 2016 +0100
+
+    [perl #129350] anchored/floating substrings must be utf8 if target is
+
+    If the target is utf8 and either the anchored or floating substrings
+    are not, we need to create utf8 copies to check against. The state
+    of the two substrings may not be the same, but we were only testing
+    whichever we planned to check first.
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ regexec.c     | 3 ++-
+ t/re/re_tests | 1 +
+ 2 files changed, 3 insertions(+), 1 deletion(-)
+
+diff --git a/regexec.c b/regexec.c
+index ff8e89c..6904546 100644
+--- a/regexec.c
++++ b/regexec.c
+@@ -703,7 +703,8 @@ Perl_re_intuit_start(pTHX_
+     reginfo->poscache_maxiter = 0;
+ 
+     if (utf8_target) {
+-	if (!prog->check_utf8 && prog->check_substr)
++        if ((!prog->anchored_utf8 && prog->anchored_substr)
++                || (!prog->float_utf8 && prog->float_substr))
+ 	    to_utf8_substr(prog);
+ 	check = prog->check_utf8;
+     } else {
+diff --git a/t/re/re_tests b/t/re/re_tests
+index ab7ddbb..8b0feaa 100644
+--- a/t/re/re_tests
++++ b/t/re/re_tests
+@@ -1969,6 +1969,7 @@ ab(?#Comment){2}c	abbc	y	$&	abbc
+ aa$|a(?R)a|a	aaa	y	$&	aaa		# [perl 128420] recursive matches
+ (?:\1|a)([bcd])\1(?:(?R)|e)\1	abbaccaddedcb	y	$&	abbaccaddedcb		# [perl 128420] recursive match with backreferences
+ (?il)\x{100}|\x{100}|\x{FF}	\xFF	y	$&	\xFF
++\b\z0*\x{100}	.\x{100}	n	-	-	# [perl #129350] crashed in intuit_start
+ 
+ # Keep these lines at the end of the file
+ # vim: softtabstop=0 noexpandtab
+-- 
+2.14.3
+
diff --git a/perl-5.24.4-perl-130307-Correctly-unwind-on-cache-hit.patch b/perl-5.24.4-perl-130307-Correctly-unwind-on-cache-hit.patch
new file mode 100644
index 0000000..58c8e2f
--- /dev/null
+++ b/perl-5.24.4-perl-130307-Correctly-unwind-on-cache-hit.patch
@@ -0,0 +1,53 @@
+From 7ec44a7b6adbc0221150969fc61134322fd5ed85 Mon Sep 17 00:00:00 2001
+From: Hugo van der Sanden <hv@crypt.org>
+Date: Mon, 12 Dec 2016 15:15:06 +0000
+Subject: [PATCH] Correctly unwind on cache hit
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+Petr Pisar: Ported to 5.24.4:
+
+commit d3c48e81594c1d64ba9833495e45d8951b42027c
+Author: Hugo van der Sanden <hv@crypt.org>
+Date:   Mon Dec 12 15:15:06 2016 +0000
+
+    [perl #130307] Correctly unwind on cache hit
+
+    We've already incremented curlyx.count in the WHILEM branch before
+    we check for a hit in the super-linear cache, so must reverse that
+    on the sayNO.
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ regexec.c     | 1 +
+ t/re/re_tests | 1 +
+ 2 files changed, 2 insertions(+)
+
+diff --git a/regexec.c b/regexec.c
+index 6904546..25ea3a3 100644
+--- a/regexec.c
++++ b/regexec.c
+@@ -7334,6 +7334,7 @@ NULL
+                         DEBUG_EXECUTE_r( Perl_re_exec_indentf( aTHX_  "whilem: (cache) already tried at this position...\n",
+                             depth)
+ 			);
++                        cur_curlyx->u.curlyx.count--;
+ 			sayNO; /* cache records failure */
+ 		    }
+ 		    ST.cache_offset = offset;
+diff --git a/t/re/re_tests b/t/re/re_tests
+index 8b0feaa..6717b85 100644
+--- a/t/re/re_tests
++++ b/t/re/re_tests
+@@ -1970,6 +1970,7 @@ aa$|a(?R)a|a	aaa	y	$&	aaa		# [perl 128420] recursive matches
+ (?:\1|a)([bcd])\1(?:(?R)|e)\1	abbaccaddedcb	y	$&	abbaccaddedcb		# [perl 128420] recursive match with backreferences
+ (?il)\x{100}|\x{100}|\x{FF}	\xFF	y	$&	\xFF
+ \b\z0*\x{100}	.\x{100}	n	-	-	# [perl #129350] crashed in intuit_start
++(X{2,}[-X]{1,4}){3,}X{2,}	XXX-XXX-XXX--	n	-	-	# [perl #130307]
+ 
+ # Keep these lines at the end of the file
+ # vim: softtabstop=0 noexpandtab
+-- 
+2.14.3
+
diff --git a/perl-5.25.10-fix-VMS-test-fail.patch b/perl-5.25.10-fix-VMS-test-fail.patch
new file mode 100644
index 0000000..38cc190
--- /dev/null
+++ b/perl-5.25.10-fix-VMS-test-fail.patch
@@ -0,0 +1,44 @@
+From bce4a2abeb8652d19e97d3bf07dd2580a3cc2e6c Mon Sep 17 00:00:00 2001
+From: Hugo van der Sanden <hv@crypt.org>
+Date: Sat, 25 Feb 2017 10:42:17 +0000
+Subject: [PATCH] fix VMS test fail
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+d7186add added a runperl() test that breaks command line length limits for
+VMS. Switch to fresh_perl() instead, so the prog is put in a file for us.
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ t/comp/parser_run.t | 12 ++++++------
+ 1 file changed, 6 insertions(+), 6 deletions(-)
+
+diff --git a/t/comp/parser_run.t b/t/comp/parser_run.t
+index 2543f49..e74644d 100644
+--- a/t/comp/parser_run.t
++++ b/t/comp/parser_run.t
+@@ -14,14 +14,14 @@ plan(1);
+ 
+ # [perl #130814] can reallocate lineptr while looking ahead for
+ # "Missing $ on loop variable" diagnostic.
+-my $result = runperl(
+-    prog => " foreach m0\n\$" . ("0" x 0x2000),
+-    stderr => 1,
++my $result = fresh_perl(
++    " foreach m0\n\$" . ("0" x 0x2000),
++    { stderr => 1 },
+ );
+-is($result, <<EXPECT);
+-syntax error at -e line 3, near "foreach m0
++is($result . "\n", <<EXPECT);
++syntax error at - line 3, near "foreach m0
+ "
+-Identifier too long at -e line 3.
++Identifier too long at - line 3.
+ EXPECT
+ 
+ __END__
+-- 
+2.7.4
+
diff --git a/perl-5.25.10-perl-130814-Add-testcase-and-new-testfile-t-comp-par.patch b/perl-5.25.10-perl-130814-Add-testcase-and-new-testfile-t-comp-par.patch
new file mode 100644
index 0000000..570df14
--- /dev/null
+++ b/perl-5.25.10-perl-130814-Add-testcase-and-new-testfile-t-comp-par.patch
@@ -0,0 +1,55 @@
+From d7186addd1b477f6bdcef5e9d24f2125691a9082 Mon Sep 17 00:00:00 2001
+From: Hugo van der Sanden <hv@crypt.org>
+Date: Sun, 19 Feb 2017 11:15:38 +0000
+Subject: [PATCH] [perl #130814] Add testcase, and new testfile
+ t/comp/parser_run.t
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+Sometimes it's useful to have test.pl around, but it seems inappropriate
+to pollute the existing t/comp/parser.t with that.
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ t/comp/parser_run.t | 28 ++++++++++++++++++++++++++++
+ 1 file changed, 28 insertions(+)
+ create mode 100644 t/comp/parser_run.t
+
+diff --git a/t/comp/parser_run.t b/t/comp/parser_run.t
+new file mode 100644
+index 0000000..2543f49
+--- /dev/null
++++ b/t/comp/parser_run.t
+@@ -0,0 +1,28 @@
++#!./perl
++
++# Parser tests that want test.pl, eg to use runperl() for tests to show
++# reads through invalid pointers.
++# Note that this should still be runnable under miniperl.
++
++BEGIN {
++    @INC = qw(. ../lib );
++    chdir 't' if -d 't';
++}
++
++require './test.pl';
++plan(1);
++
++# [perl #130814] can reallocate lineptr while looking ahead for
++# "Missing $ on loop variable" diagnostic.
++my $result = runperl(
++    prog => " foreach m0\n\$" . ("0" x 0x2000),
++    stderr => 1,
++);
++is($result, <<EXPECT);
++syntax error at -e line 3, near "foreach m0
++"
++Identifier too long at -e line 3.
++EXPECT
++
++__END__
++# ex: set ts=8 sts=4 sw=4 et:
+-- 
+2.7.4
+
diff --git a/perl-5.25.2-SEGV-in-Subroutine-redefined-warning.patch b/perl-5.25.2-SEGV-in-Subroutine-redefined-warning.patch
new file mode 100644
index 0000000..273cb29
--- /dev/null
+++ b/perl-5.25.2-SEGV-in-Subroutine-redefined-warning.patch
@@ -0,0 +1,76 @@
+From fc0fe26a7d286480c1bb25f57e469ece575bb68d Mon Sep 17 00:00:00 2001
+From: David Mitchell <davem@iabyn.com>
+Date: Thu, 7 Jul 2016 17:03:29 +0100
+Subject: [PATCH] SEGV in "Subroutine redefined" warning
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+RT #128257
+
+The following SEGVed:
+
+    sub P::f{}
+    undef *P::;
+    *P::f =sub{};
+
+due to the code which generates the "Subroutine STASH::NAME redefined"
+warning assuming that the GV always has a stash. Make it so that if it
+hasn't, the message changes to  "Subroutine NAME redefined" rather than
+just crashing.
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ sv.c              | 18 +++++++++++-------
+ t/lib/warnings/sv |  8 ++++++++
+ 2 files changed, 19 insertions(+), 7 deletions(-)
+
+diff --git a/sv.c b/sv.c
+index 1b7a283..0cbe371 100644
+--- a/sv.c
++++ b/sv.c
+@@ -4074,14 +4074,18 @@ Perl_gv_setref(pTHX_ SV *const dstr, SV *const sstr)
+ 			    CvCONST((const CV *)sref)
+ 				 ? cv_const_sv((const CV *)sref)
+ 				 : NULL;
++                        HV * const stash = GvSTASH((const GV *)dstr);
+ 			report_redefined_cv(
+-			   sv_2mortal(Perl_newSVpvf(aTHX_
+-				"%"HEKf"::%"HEKf,
+-				HEKfARG(
+-				 HvNAME_HEK(GvSTASH((const GV *)dstr))
+-				),
+-				HEKfARG(GvENAME_HEK(MUTABLE_GV(dstr)))
+-			   )),
++			   sv_2mortal(
++                             stash
++                               ? Perl_newSVpvf(aTHX_
++				    "%"HEKf"::%"HEKf,
++				    HEKfARG(HvNAME_HEK(stash)),
++				    HEKfARG(GvENAME_HEK(MUTABLE_GV(dstr))))
++                               : Perl_newSVpvf(aTHX_
++				    "%"HEKf,
++				    HEKfARG(GvENAME_HEK(MUTABLE_GV(dstr))))
++			   ),
+ 			   cv,
+ 			   CvCONST((const CV *)sref) ? &new_const_sv : NULL
+ 			);
+diff --git a/t/lib/warnings/sv b/t/lib/warnings/sv
+index 5ddd4fe..c8e0e62 100644
+--- a/t/lib/warnings/sv
++++ b/t/lib/warnings/sv
+@@ -413,3 +413,11 @@ Argument "a_c" isn't numeric in preincrement (++) at - line 5.
+ Argument "(?^:abc)" isn't numeric in preincrement (++) at - line 6.
+ Argument "123x" isn't numeric in preincrement (++) at - line 7.
+ Argument "123e" isn't numeric in preincrement (++) at - line 8.
++########
++# RT #128257 This used to SEGV
++use warnings;
++sub Foo::f {}
++undef *Foo::;
++*Foo::f =sub {};
++EXPECT
++Subroutine f redefined at - line 5.
+-- 
+2.5.5
+
diff --git a/perl-5.25.2-only-treat-stash-entries-with-.-as-sub-stashes.patch b/perl-5.25.2-only-treat-stash-entries-with-.-as-sub-stashes.patch
new file mode 100644
index 0000000..57e96c2
--- /dev/null
+++ b/perl-5.25.2-only-treat-stash-entries-with-.-as-sub-stashes.patch
@@ -0,0 +1,64 @@
+From e7acdfe976f01ee0d1ba31b3b1db61454a72d6c9 Mon Sep 17 00:00:00 2001
+From: David Mitchell <davem@iabyn.com>
+Date: Tue, 21 Jun 2016 17:06:52 +0100
+Subject: [PATCH] only treat stash entries with  .*:: as sub-stashes
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+RT #128238
+
+%: = 0 would cause an assertion failure in Perl_gv_check(), since when
+it searched a stash for substashes, it assumed anything ending in ':' was
+a substash, whereas substashes end in '::'. So check for a double colon
+before recursing.
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ gv.c         | 5 ++++-
+ t/op/stash.t | 9 ++++++++-
+ 2 files changed, 12 insertions(+), 2 deletions(-)
+
+diff --git a/gv.c b/gv.c
+index 4df3bce..2b3bdfa 100644
+--- a/gv.c
++++ b/gv.c
+@@ -2423,7 +2423,10 @@ Perl_gv_check(pTHX_ HV *stash)
+ 	for (entry = HvARRAY(stash)[i]; entry; entry = HeNEXT(entry)) {
+             GV *gv;
+             HV *hv;
+-	    if (HeKEY(entry)[HeKLEN(entry)-1] == ':' &&
++	    STRLEN keylen = HeKLEN(entry);
++            const char * const key = HeKEY(entry);
++
++	    if (keylen >= 2 && key[keylen-2] == ':'  && key[keylen-1] == ':' &&
+ 		(gv = MUTABLE_GV(HeVAL(entry))) && isGV(gv) && (hv = GvHV(gv)))
+ 	    {
+ 		if (hv != PL_defstash && hv != stash
+diff --git a/t/op/stash.t b/t/op/stash.t
+index b8e0f34..ec795a9 100644
+--- a/t/op/stash.t
++++ b/t/op/stash.t
+@@ -7,7 +7,7 @@ BEGIN {
+ 
+ BEGIN { require "./test.pl"; }
+ 
+-plan( tests => 52 );
++plan( tests => 53 );
+ 
+ # Used to segfault (bug #15479)
+ fresh_perl_like(
+@@ -341,3 +341,10 @@ is runperl(
+    ),
+    "ok\n",
+    '[perl #128086] no crash from assigning hash to *:::::: & deleting it';
++
++is runperl(
++    prog => 'BEGIN { %: = 0; $^W=1}; print qq|ok\n|',
++    stderr => 1,
++   ),
++   "ok\n",
++   "[perl #128238] don't treat %: as a stash (needs 2 colons)"
+-- 
+2.5.5
+
diff --git a/perl-5.25.2-perl-128238-Crash-with-non-stash-in-stash.patch b/perl-5.25.2-perl-128238-Crash-with-non-stash-in-stash.patch
new file mode 100644
index 0000000..b6f007e
--- /dev/null
+++ b/perl-5.25.2-perl-128238-Crash-with-non-stash-in-stash.patch
@@ -0,0 +1,66 @@
+From 9e5cda6b852ca831004628051cf32c1576146452 Mon Sep 17 00:00:00 2001
+From: Father Chrysostomos <sprout@cpan.org>
+Date: Thu, 23 Jun 2016 21:57:09 -0700
+Subject: [PATCH] [perl #128238] Crash with non-stash in stash
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+This is a follow-up to e7acdfe976f.  Even if the name of the stash
+entry ends with ::, it may not itself contain a real stash (though
+this only happens with code that assigns directly to stash entries,
+which has undefined behaviour according to perlmod), so skip hashes
+that are not stashes.
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ gv.c         |  4 ++--
+ t/op/stash.t | 11 +++++++++--
+ 2 files changed, 11 insertions(+), 4 deletions(-)
+
+diff --git a/gv.c b/gv.c
+index 2b3bdfa..dff611e 100644
+--- a/gv.c
++++ b/gv.c
+@@ -2411,10 +2411,10 @@ Perl_gv_check(pTHX_ HV *stash)
+ 
+     PERL_ARGS_ASSERT_GV_CHECK;
+ 
+-    if (!HvARRAY(stash))
++    if (!SvOOK(stash))
+ 	return;
+ 
+-    assert(SvOOK(stash));
++    assert(HvARRAY(stash));
+ 
+     for (i = 0; i <= (I32) HvMAX(stash); i++) {
+         const HE *entry;
+diff --git a/t/op/stash.t b/t/op/stash.t
+index 1591dbf..fe42700 100644
+--- a/t/op/stash.t
++++ b/t/op/stash.t
+@@ -7,7 +7,7 @@ BEGIN {
+ 
+ BEGIN { require "./test.pl"; }
+ 
+-plan( tests => 53 );
++plan( tests => 54 );
+ 
+ # Used to segfault (bug #15479)
+ fresh_perl_like(
+@@ -342,4 +342,11 @@ is runperl(
+     stderr => 1,
+    ),
+    "ok\n",
+-   "[perl #128238] don't treat %: as a stash (needs 2 colons)"
++   "[perl #128238] don't treat %: as a stash (needs 2 colons)";
++
++is runperl(
++    prog => 'BEGIN { $::{q|foo::|}=*ENV; $^W=1}; print qq|ok\n|',
++    stderr => 1,
++   ),
++   "ok\n",
++   "[perl #128238] non-stashes in stashes";
+-- 
+2.5.5
+
diff --git a/perl-5.25.2-perl-128532-Crash-vivifying-stub-in-deleted-pkg.patch b/perl-5.25.2-perl-128532-Crash-vivifying-stub-in-deleted-pkg.patch
new file mode 100644
index 0000000..fc517b9
--- /dev/null
+++ b/perl-5.25.2-perl-128532-Crash-vivifying-stub-in-deleted-pkg.patch
@@ -0,0 +1,60 @@
+From 63aab7ecaa6e826f845c405894bd8c4b6f601b39 Mon Sep 17 00:00:00 2001
+From: Father Chrysostomos <sprout@cpan.org>
+Date: Sun, 3 Jul 2016 22:23:34 -0700
+Subject: [PATCH] [perl #128532] Crash vivifying stub in deleted pkg
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+v5.17.0-515-g186a5ba, which added newSTUB, did not take into account
+that a GV may have a null GvSTASH pointer, if its stash has been
+freed, so this crashes:
+
+delete $My::{"Foo::"}; \&My::Foo::foo
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ op.c       | 2 +-
+ t/op/ref.t | 6 +++++-
+ 2 files changed, 6 insertions(+), 2 deletions(-)
+
+diff --git a/op.c b/op.c
+index 46e76ac..4735d1b 100644
+--- a/op.c
++++ b/op.c
+@@ -9081,7 +9081,7 @@ Perl_newSTUB(pTHX_ GV *gv, bool fake)
+     assert(!GvCVu(gv));
+     GvCV_set(gv, cv);
+     GvCVGEN(gv) = 0;
+-    if (!fake && HvENAME_HEK(GvSTASH(gv)))
++    if (!fake && GvSTASH(gv) && HvENAME_HEK(GvSTASH(gv)))
+ 	gv_method_changed(gv);
+     if (SvFAKE(gv)) {
+ 	cvgv = gv_fetchsv((SV *)gv, GV_ADDMULTI, SVt_PVCV);
+diff --git a/t/op/ref.t b/t/op/ref.t
+index 19a44bb..84d9217 100644
+--- a/t/op/ref.t
++++ b/t/op/ref.t
+@@ -8,7 +8,7 @@ BEGIN {
+ 
+ use strict qw(refs subs);
+ 
+-plan(235);
++plan(236);
+ 
+ # 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.
+@@ -124,6 +124,10 @@ is (join(':',@{$spring2{"foo"}}), "1:2:3:4");
+     is ($called, 1);
+ }
+ is ref eval {\&{""}}, "CODE", 'reference to &{""} [perl #94476]';
++delete $My::{"Foo::"}; 
++is ref \&My::Foo::foo, "CODE",
++  'creating stub with \&deleted_stash::foo [perl #128532]';
++
+ 
+ # Test references to return values of operators (TARGs/PADTMPs)
+ {
+-- 
+2.5.5
+
diff --git a/perl-5.25.2-t-test.pl-Add-fresh_perl-function.patch b/perl-5.25.2-t-test.pl-Add-fresh_perl-function.patch
new file mode 100644
index 0000000..24d7f60
--- /dev/null
+++ b/perl-5.25.2-t-test.pl-Add-fresh_perl-function.patch
@@ -0,0 +1,74 @@
+From f6203e997f3012b8aab4cd35fe49f58e4d71fb8c Mon Sep 17 00:00:00 2001
+From: Karl Williamson <khw@cpan.org>
+Date: Sun, 10 Jul 2016 22:06:12 -0600
+Subject: [PATCH] t/test.pl: Add fresh_perl() function
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+This will be useful for cases where the results don't readily fall into
+fresh_perl_is and fresh_perl_like, such as when a bunch of massaging of
+the results is needed before it is convenient to test them.
+fresh_perl_like() could be used, but in the case of failure there could
+be lines and lines of noise output.
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ t/test.pl | 25 +++++++++++++++++++++----
+ 1 file changed, 21 insertions(+), 4 deletions(-)
+
+diff --git a/t/test.pl b/t/test.pl
+index 41b77f4..20d08e9 100644
+--- a/t/test.pl
++++ b/t/test.pl
+@@ -953,11 +953,16 @@ sub register_tempfile {
+     return $count;
+ }
+ 
+-# This is the temporary file for _fresh_perl
++# This is the temporary file for fresh_perl
+ my $tmpfile = tempfile();
+ 
+-sub _fresh_perl {
+-    my($prog, $action, $expect, $runperl_args, $name) = @_;
++sub fresh_perl {
++    my($prog, $runperl_args) = @_;
++
++    # Run 'runperl' with the complete perl program contained in '$prog', and
++    # arguments in the hash referred to by '$runperl_args'.  The results are
++    # returned, with $? set to the exit code.  Unless overridden, stderr is
++    # redirected to stdout.
+ 
+     # Given the choice of the mis-parsable {}
+     # (we want an anon hash, but a borked lexer might think that it's a block)
+@@ -975,7 +980,8 @@ sub _fresh_perl {
+     close TEST or die "Cannot close $tmpfile: $!";
+ 
+     my $results = runperl(%$runperl_args);
+-    my $status = $?;
++    my $status = $?;    # Not necessary to save this, but it makes it clear to
++                        # future maintainers.
+ 
+     # Clean up the results into something a bit more predictable.
+     $results  =~ s/\n+$//;
+@@ -994,6 +1000,17 @@ sub _fresh_perl {
+         $results =~ s/\n\n/\n/g;
+     }
+ 
++    $? = $status;
++    return $results;
++}
++
++
++sub _fresh_perl {
++    my($prog, $action, $expect, $runperl_args, $name) = @_;
++
++    my $results = fresh_perl($prog, $runperl_args);
++    my $status = $?;
++
+     # Use the first line of the program as a name if none was given
+     unless( $name ) {
+         ($first_line, $name) = $prog =~ /^((.{1,50}).*)/;
+-- 
+2.7.4
+
diff --git a/perl-5.25.2-uninit-warning-from-h-const-coredumped.patch b/perl-5.25.2-uninit-warning-from-h-const-coredumped.patch
new file mode 100644
index 0000000..1433a9f
--- /dev/null
+++ b/perl-5.25.2-uninit-warning-from-h-const-coredumped.patch
@@ -0,0 +1,74 @@
+From 55b6481ff87f84626ba01275708297a42a6537b1 Mon Sep 17 00:00:00 2001
+From: David Mitchell <davem@iabyn.com>
+Date: Tue, 21 Jun 2016 15:23:20 +0100
+Subject: [PATCH] uninit warning from $h{\const} coredumped
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+The code that printed the the name and subscript of a hash element
+in an "uninitialized variable" warning assumed that a constant
+hash subscript would be SvPOK. Something like \1 is a constant,
+but is ROK, not POK. SEGVs ensured.
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ sv.c            |  5 ++++-
+ t/op/hashwarn.t | 19 ++++++++++++++++++-
+ 2 files changed, 22 insertions(+), 2 deletions(-)
+
+diff --git a/sv.c b/sv.c
+index 535ee8d..b0fdd15 100644
+--- a/sv.c
++++ b/sv.c
+@@ -15683,9 +15683,12 @@ Perl_varname(pTHX_ const GV *const gv, const char gvtype, PADOFFSET targ,
+ 
+     if (subscript_type == FUV_SUBSCRIPT_HASH) {
+ 	SV * const sv = newSV(0);
++        STRLEN len;
++        const char * const pv = SvPV_nomg_const((SV*)keyname, len);
++
+ 	*SvPVX(name) = '$';
+ 	Perl_sv_catpvf(aTHX_ name, "{%s}",
+-	    pv_pretty(sv, SvPVX_const(keyname), SvCUR(keyname), 32, NULL, NULL,
++	    pv_pretty(sv, pv, len, 32, NULL, NULL,
+ 		    PERL_PV_PRETTY_DUMP | PERL_PV_ESCAPE_UNI_DETECT ));
+ 	SvREFCNT_dec_NN(sv);
+     }
+diff --git a/t/op/hashwarn.t b/t/op/hashwarn.t
+index a6a1de9..6d72244 100644
+--- a/t/op/hashwarn.t
++++ b/t/op/hashwarn.t
+@@ -6,7 +6,7 @@ BEGIN {
+ }
+ 
+ require './test.pl';
+-plan( tests => 16 );
++plan( tests => 18 );
+ 
+ use strict;
+ use warnings;
+@@ -71,3 +71,20 @@ my $fail_not_hr   = 'Not a HASH reference at ';
+     cmp_ok(scalar(@warnings),'==',0,'pseudo-hash 2 count');
+     cmp_ok(substr($@,0,length($fail_not_hr)),'eq',$fail_not_hr,'pseudo-hash 2 msg');
+ }
++
++# RT #128189
++# this used to coredump
++
++{
++    @warnings = ();
++    my %h;
++
++    no warnings;
++    use warnings qw(uninitialized);
++
++    my $x = "$h{\1}";
++    is(scalar @warnings, 1, "RT #128189 - 1 warning");
++    like("@warnings",
++        qr/Use of uninitialized value \$h\{"SCALAR\(0x[\da-f]+\)"\}/,
++        "RT #128189 correct warning");
++}
+-- 
+2.5.5
+
diff --git a/perl-5.25.4-clean-up-gv_fetchmethod_pvn_flags-move-origname-init.patch b/perl-5.25.4-clean-up-gv_fetchmethod_pvn_flags-move-origname-init.patch
new file mode 100644
index 0000000..957009d
--- /dev/null
+++ b/perl-5.25.4-clean-up-gv_fetchmethod_pvn_flags-move-origname-init.patch
@@ -0,0 +1,32 @@
+From d5ea0ef8623c7d7ba5f42d239787aa71393e2054 Mon Sep 17 00:00:00 2001
+From: Yves Orton <demerphq@gmail.com>
+Date: Tue, 13 Sep 2016 23:06:58 +0200
+Subject: [PATCH 2/5] clean up gv_fetchmethod_pvn_flags: move origname init to
+ function start
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+so it is more obvious that it is a constant copy of the
+original name.
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ gv.c | 1 -
+ 1 file changed, 1 deletion(-)
+
+diff --git a/gv.c b/gv.c
+index b0221e0..fe38d44 100644
+--- a/gv.c
++++ b/gv.c
+@@ -1014,7 +1014,6 @@ Perl_gv_fetchmethod_pvn_flags(pTHX_ HV *stash, const char *name, const STRLEN le
+     const char *nsplit = NULL;
+     GV* gv;
+     HV* ostash = stash;
+-    const char * const origname = name;
+     SV *const error_report = MUTABLE_SV(stash);
+     const U32 autoload = flags & GV_AUTOLOAD;
+     const U32 do_croak = flags & GV_CROAK;
+-- 
+2.7.4
+
diff --git a/perl-5.25.4-clean-up-gv_fetchmethod_pvn_flags-rename-nsplit-to-l.patch b/perl-5.25.4-clean-up-gv_fetchmethod_pvn_flags-rename-nsplit-to-l.patch
new file mode 100644
index 0000000..9938704
--- /dev/null
+++ b/perl-5.25.4-clean-up-gv_fetchmethod_pvn_flags-rename-nsplit-to-l.patch
@@ -0,0 +1,92 @@
+From e2cace1e9e89525afbca257742ddb36630b7fbc3 Mon Sep 17 00:00:00 2001
+From: Yves Orton <demerphq@gmail.com>
+Date: Tue, 13 Sep 2016 23:10:48 +0200
+Subject: [PATCH 3/5] clean up gv_fetchmethod_pvn_flags: rename nsplit to
+ last_separator
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+nsplit if set points at the first char of the last separator
+in name, so rename it so it is more comprehensible what it means.
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ gv.c | 24 ++++++++++++------------
+ 1 file changed, 12 insertions(+), 12 deletions(-)
+
+diff --git a/gv.c b/gv.c
+index fe38d44..07709a0 100644
+--- a/gv.c
++++ b/gv.c
+@@ -1011,7 +1011,7 @@ Perl_gv_fetchmethod_pvn_flags(pTHX_ HV *stash, const char *name, const STRLEN le
+     const char * const origname = name;
+     const char * const name_end = name + len;
+     const char *nend;
+-    const char *nsplit = NULL;
++    const char *last_separator = NULL;
+     GV* gv;
+     HV* ostash = stash;
+     SV *const error_report = MUTABLE_SV(stash);
+@@ -1024,38 +1024,38 @@ Perl_gv_fetchmethod_pvn_flags(pTHX_ HV *stash, const char *name, const STRLEN le
+     if (SvTYPE(stash) < SVt_PVHV)
+ 	stash = NULL;
+     else {
+-	/* The only way stash can become NULL later on is if nsplit is set,
++	/* The only way stash can become NULL later on is if last_separator is set,
+ 	   which in turn means that there is no need for a SVt_PVHV case
+ 	   the error reporting code.  */
+     }
+ 
+     for (nend = name; *nend || nend != name_end; nend++) {
+ 	if (*nend == '\'') {
+-	    nsplit = nend;
++	    last_separator = nend;
+ 	    name = nend + 1;
+ 	}
+ 	else if (*nend == ':' && *(nend + 1) == ':') {
+-	    nsplit = nend++;
++	    last_separator = nend++;
+ 	    name = nend + 1;
+ 	}
+     }
+-    if (nsplit) {
+-	if ((nsplit - origname) == 5 && memEQ(origname, "SUPER", 5)) {
++    if (last_separator) {
++	if ((last_separator - origname) == 5 && memEQ(origname, "SUPER", 5)) {
+ 	    /* ->SUPER::method should really be looked up in original stash */
+ 	    stash = CopSTASH(PL_curcop);
+ 	    flags |= GV_SUPER;
+ 	    DEBUG_o( Perl_deb(aTHX_ "Treating %s as %s::%s\n",
+ 			 origname, HvENAME_get(stash), name) );
+ 	}
+-	else if ((nsplit - origname) >= 7 &&
+-		 strnEQ(nsplit - 7, "::SUPER", 7)) {
++	else if ((last_separator - origname) >= 7 &&
++		 strnEQ(last_separator - 7, "::SUPER", 7)) {
+             /* don't autovifify if ->NoSuchStash::SUPER::method */
+-	    stash = gv_stashpvn(origname, nsplit - origname - 7, is_utf8);
++	    stash = gv_stashpvn(origname, last_separator - origname - 7, is_utf8);
+ 	    if (stash) flags |= GV_SUPER;
+ 	}
+ 	else {
+             /* don't autovifify if ->NoSuchStash::method */
+-            stash = gv_stashpvn(origname, nsplit - origname, is_utf8);
++            stash = gv_stashpvn(origname, last_separator - origname, is_utf8);
+ 	}
+ 	ostash = stash;
+     }
+@@ -1098,8 +1098,8 @@ Perl_gv_fetchmethod_pvn_flags(pTHX_ HV *stash, const char *name, const STRLEN le
+ 	    else {
+                 SV* packnamesv;
+ 
+-		if (nsplit) {
+-		    packnamesv = newSVpvn_flags(origname, nsplit - origname,
++		if (last_separator) {
++		    packnamesv = newSVpvn_flags(origname, last_separator - origname,
+                                                     SVs_TEMP | is_utf8);
+ 		} else {
+ 		    packnamesv = error_report;
+-- 
+2.7.4
+
diff --git a/perl-5.25.4-fix-129267-rework-gv_fetchmethod_pvn_flags-separator.patch b/perl-5.25.4-fix-129267-rework-gv_fetchmethod_pvn_flags-separator.patch
new file mode 100644
index 0000000..bd36af5
--- /dev/null
+++ b/perl-5.25.4-fix-129267-rework-gv_fetchmethod_pvn_flags-separator.patch
@@ -0,0 +1,81 @@
+From cfb736762c1becf344ce6beaa701ff2e1abd5f9c Mon Sep 17 00:00:00 2001
+From: Yves Orton <demerphq@gmail.com>
+Date: Tue, 13 Sep 2016 23:14:49 +0200
+Subject: [PATCH 4/5] fix #129267: rework gv_fetchmethod_pvn_flags separator
+ parsing
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+With previous code we could overrun the end of the name when
+the last char in the string was a colon. This reworks the code
+so it is more clear what is going on, and so it more similar
+to other code that also parses out package separaters in gv.c.
+
+This is a rework of the reverted patches:
+243ca72 rename "nend" name_cursor in Perl_gv_fetchmethod_pvn_flags
+b053c93 fix: [perl #129267] Possible string overrun with invalid len in gv.c
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ gv.c | 36 ++++++++++++++++++++++++++----------
+ 1 file changed, 26 insertions(+), 10 deletions(-)
+
+diff --git a/gv.c b/gv.c
+index 07709a0..3237c53 100644
+--- a/gv.c
++++ b/gv.c
+@@ -1010,7 +1010,6 @@ Perl_gv_fetchmethod_pvn_flags(pTHX_ HV *stash, const char *name, const STRLEN le
+ {
+     const char * const origname = name;
+     const char * const name_end = name + len;
+-    const char *nend;
+     const char *last_separator = NULL;
+     GV* gv;
+     HV* ostash = stash;
+@@ -1029,16 +1028,33 @@ Perl_gv_fetchmethod_pvn_flags(pTHX_ HV *stash, const char *name, const STRLEN le
+ 	   the error reporting code.  */
+     }
+ 
+-    for (nend = name; *nend || nend != name_end; nend++) {
+-	if (*nend == '\'') {
+-	    last_separator = nend;
+-	    name = nend + 1;
+-	}
+-	else if (*nend == ':' && *(nend + 1) == ':') {
+-	    last_separator = nend++;
+-	    name = nend + 1;
+-	}
++    {
++        /* check if the method name is fully qualified or
++         * not, and separate the package name from the actual
++         * method name.
++         *
++         * leaves last_separator pointing to the beginning of the
++         * last package separator (either ' or ::) or 0
++         * if none was found.
++         *
++         * leaves name pointing at the beginning of the
++         * method name.
++         */
++        const char *name_cursor = name;
++        const char * const name_em1 = name_end - 1; /* name_end minus 1 */
++        for (name_cursor = name; name_cursor < name_end ; name_cursor++) {
++            if (*name_cursor == '\'') {
++                last_separator = name_cursor;
++                name = name_cursor + 1;
++            }
++            else if (name_cursor < name_em1 && *name_cursor == ':' && name_cursor[1] == ':') {
++                last_separator = name_cursor++;
++                name = name_cursor + 1;
++            }
++        }
+     }
++
++    /* did we find a separator? */
+     if (last_separator) {
+ 	if ((last_separator - origname) == 5 && memEQ(origname, "SUPER", 5)) {
+ 	    /* ->SUPER::method should really be looked up in original stash */
+-- 
+2.7.4
+
diff --git a/perl-5.25.4-perl-129267-Test-for-gv_fetchmethod-buffer-overrun.patch b/perl-5.25.4-perl-129267-Test-for-gv_fetchmethod-buffer-overrun.patch
new file mode 100644
index 0000000..6998f71
--- /dev/null
+++ b/perl-5.25.4-perl-129267-Test-for-gv_fetchmethod-buffer-overrun.patch
@@ -0,0 +1,44 @@
+From 1665b718d8fbd58705dbe6376fa51f8c1a02d887 Mon Sep 17 00:00:00 2001
+From: Father Chrysostomos <sprout@cpan.org>
+Date: Tue, 13 Sep 2016 22:38:59 -0700
+Subject: [PATCH 5/5] [perl #129267] Test for gv_fetchmethod buffer overrun
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ ext/XS-APItest/APItest.xs               | 3 +++
+ ext/XS-APItest/t/gv_fetchmethod_flags.t | 5 +++++
+ 2 files changed, 8 insertions(+)
+
+diff --git a/ext/XS-APItest/APItest.xs b/ext/XS-APItest/APItest.xs
+index 992b6a5..4602cee 100644
+--- a/ext/XS-APItest/APItest.xs
++++ b/ext/XS-APItest/APItest.xs
+@@ -2571,6 +2571,9 @@ gv_fetchmethod_flags_type(stash, methname, type, flags)
+                gv = gv_fetchmethod_pvn_flags(stash, name, len, flags | SvUTF8(methname));
+                break;
+             }
++           case 4:
++               gv = gv_fetchmethod_pvn_flags(stash, SvPV_nolen(methname),
++                                             flags, SvUTF8(methname));
+         }
+ 	XPUSHs( gv ? (SV*)gv : &PL_sv_undef);
+ 
+diff --git a/ext/XS-APItest/t/gv_fetchmethod_flags.t b/ext/XS-APItest/t/gv_fetchmethod_flags.t
+index 15d1c41..2da3b70 100644
+--- a/ext/XS-APItest/t/gv_fetchmethod_flags.t
++++ b/ext/XS-APItest/t/gv_fetchmethod_flags.t
+@@ -49,3 +49,8 @@ is XS::APItest::gv_fetchmethod_flags_type(\%::, "method\0not quite!", 2, 0), "*m
+         }
+     }
+ }
++
++# [perl #129267] Buffer overrun when argument name ends with colon and
++#                there is a colon past the end.  This used to segv.
++XS::APItest::gv_fetchmethod_flags_type(\%::, "method:::::", 4, 7);
++                                             # With type 4, 7 is the length
+-- 
+2.7.4
+
diff --git a/perl-5.25.4-perl-129287-Make-UTF8-append-null.patch b/perl-5.25.4-perl-129287-Make-UTF8-append-null.patch
new file mode 100644
index 0000000..3709505
--- /dev/null
+++ b/perl-5.25.4-perl-129287-Make-UTF8-append-null.patch
@@ -0,0 +1,64 @@
+From b43665fffa48dd179eba1b5616d4ca35b4def876 Mon Sep 17 00:00:00 2001
+From: Father Chrysostomos <sprout@cpan.org>
+Date: Sun, 18 Sep 2016 20:17:08 -0700
+Subject: [PATCH] [perl #129287] Make UTF8 & append null
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+The & and &. operators were not appending a null byte to the string
+in utf8 mode.
+
+(The internal function that they use is the same.  I used &. in the
+test just because its intent is clearer.)
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ doop.c     |  1 +
+ t/op/bop.t | 14 +++++++++++++-
+ 2 files changed, 14 insertions(+), 1 deletion(-)
+
+diff --git a/doop.c b/doop.c
+index ad9172a..234a425 100644
+--- a/doop.c
++++ b/doop.c
+@@ -1093,6 +1093,7 @@ Perl_do_vop(pTHX_ I32 optype, SV *sv, SV *left, SV *right)
+ 	    if (sv == left || sv == right)
+ 		(void)sv_usepvn(sv, dcorig, needlen);
+ 	    SvCUR_set(sv, dc - dcorig);
++	    *SvEND(sv) = 0;
+ 	    break;
+ 	case OP_BIT_XOR:
+ 	    while (lulen && rulen) {
+diff --git a/t/op/bop.t b/t/op/bop.t
+index 2afb8d7..1f96e9b 100644
+--- a/t/op/bop.t
++++ b/t/op/bop.t
+@@ -19,7 +19,7 @@ BEGIN {
+ # If you find tests are failing, please try adding names to tests to track
+ # down where the failure is, and supply your new names as a patch.
+ # (Just-in-time test naming)
+-plan tests => 192 + (10*13*2) + 5 + 29;
++plan tests => 192 + (10*13*2) + 5 + 30;
+ 
+ # numerics
+ ok ((0xdead & 0xbeef) == 0x9ead);
+@@ -664,3 +664,15 @@ is $^A, "123", '~v0 clears vstring magic on retval';
+         is(-1 >> $w + 1, -1, "IV -1 right shift $w + 1 == -1");
+     }
+ }
++
++# [perl #129287] UTF8 & was not providing a trailing null byte.
++# This test is a bit convoluted, as we want to make sure that the string
++# allocated for &’s target contains memory initialised to something other
++# than a null byte.  Uninitialised memory does not make for a reliable
++# test.  So we do &. on a longer non-utf8 string first.
++for (["aaa","aaa"],[substr ("a\x{100}",0,1), "a"]) {
++    use feature "bitwise";
++    no warnings "experimental::bitwise", "pack";
++    $byte = substr unpack("P2", pack "P", $$_[0] &. $$_[1]), -1;
++}
++is $byte, "\0", "utf8 &. appends null byte";
+-- 
+2.7.4
+
diff --git a/perl-5.25.6-perl-130001-h2xs-avoid-infinite-loop-for-enums.patch b/perl-5.25.6-perl-130001-h2xs-avoid-infinite-loop-for-enums.patch
new file mode 100644
index 0000000..9b4f197
--- /dev/null
+++ b/perl-5.25.6-perl-130001-h2xs-avoid-infinite-loop-for-enums.patch
@@ -0,0 +1,32 @@
+From 9ce5bf4c39e28441410672f39b5ee1c4569967f8 Mon Sep 17 00:00:00 2001
+From: Hugo van der Sanden <hv@crypt.org>
+Date: Fri, 28 Oct 2016 13:27:23 +0100
+Subject: [PATCH] [perl #130001] h2xs: avoid infinite loop for enums
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+'typedef enum x { ... } x' causes h2xs to enter a substitution loop while
+trying to write the typemap file.
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ utils/h2xs.PL | 2 +-
+ 1 file changed, 1 insertion(+), 1 deletion(-)
+
+diff --git a/utils/h2xs.PL b/utils/h2xs.PL
+index 8fda87b..f9063cb 100644
+--- a/utils/h2xs.PL
++++ b/utils/h2xs.PL
+@@ -1034,7 +1034,7 @@ if( ! $opt_X ){  # use XS, unless it was disabled
+       }
+     }
+     { local $" = '|';
+-      $typedef_rex = qr(\b(?<!struct )(?:@good_td)\b) if @good_td;
++      $typedef_rex = qr(\b(?<!struct )(?<!enum )(?:@good_td)\b) if @good_td;
+     }
+     %known_fnames = map @$_[1,3], @$fdecls_parsed; # [1,3] is NAME, FULLTEXT
+     if ($fmask) {
+-- 
+2.7.4
+
diff --git a/perl-5.25.7-Fix-Storable-segfaults.patch b/perl-5.25.7-Fix-Storable-segfaults.patch
new file mode 100644
index 0000000..8934a13
--- /dev/null
+++ b/perl-5.25.7-Fix-Storable-segfaults.patch
@@ -0,0 +1,61 @@
+From fecd3be8dbdb747b9cbf4cbb9299ce40faabc8e6 Mon Sep 17 00:00:00 2001
+From: John Lightsey <lightsey@debian.org>
+Date: Mon, 14 Nov 2016 11:56:15 +0100
+Subject: [PATCH] Fix Storable segfaults.
+
+Fix a null pointed dereference segfault in storable when the
+retrieve_code logic was unable to read the string that contained
+the code.
+
+Also fix several locations where retrieve_other was called with a
+null context pointer. This also resulted in a null pointer
+dereference.
+---
+ dist/Storable/Storable.xs | 10 +++++++---
+ 1 file changed, 7 insertions(+), 3 deletions(-)
+
+diff --git a/dist/Storable/Storable.xs b/dist/Storable/Storable.xs
+index 053951c..caa489c 100644
+--- a/dist/Storable/Storable.xs
++++ b/dist/Storable/Storable.xs
+@@ -5647,6 +5647,10 @@ static SV *retrieve_code(pTHX_ stcxt_t *cxt, const char *cname)
+ 		CROAK(("Unexpected type %d in retrieve_code\n", type));
+ 	}
+ 
++	if (!text) {
++		CROAK(("Unable to retrieve code\n"));
++	}
++
+ 	/*
+ 	 * prepend "sub " to the source
+ 	 */
+@@ -5767,7 +5771,7 @@ static SV *old_retrieve_array(pTHX_ stcxt_t *cxt, const char *cname)
+ 			continue;			/* av_extend() already filled us with undef */
+ 		}
+ 		if (c != SX_ITEM)
+-			(void) retrieve_other(aTHX_ (stcxt_t *) 0, 0);	/* Will croak out */
++			(void) retrieve_other(aTHX_ cxt, 0);	/* Will croak out */
+ 		TRACEME(("(#%d) item", i));
+ 		sv = retrieve(aTHX_ cxt, 0);						/* Retrieve item */
+ 		if (!sv)
+@@ -5844,7 +5848,7 @@ static SV *old_retrieve_hash(pTHX_ stcxt_t *cxt, const char *cname)
+ 			if (!sv)
+ 				return (SV *) 0;
+ 		} else
+-			(void) retrieve_other(aTHX_ (stcxt_t *) 0, 0);	/* Will croak out */
++			(void) retrieve_other(aTHX_ cxt, 0);	/* Will croak out */
+ 
+ 		/*
+ 		 * Get key.
+@@ -5855,7 +5859,7 @@ static SV *old_retrieve_hash(pTHX_ stcxt_t *cxt, const char *cname)
+ 
+ 		GETMARK(c);
+ 		if (c != SX_KEY)
+-			(void) retrieve_other(aTHX_ (stcxt_t *) 0, 0);	/* Will croak out */
++			(void) retrieve_other(aTHX_ cxt, 0);	/* Will croak out */
+ 		RLEN(size);						/* Get key size */
+ 		KBUFCHK((STRLEN)size);					/* Grow hash key read pool if needed */
+ 		if (size)
+-- 
+2.10.2
+
diff --git a/perl-5.25.7-Fix-const-correctness-in-hv_func.h.patch b/perl-5.25.7-Fix-const-correctness-in-hv_func.h.patch
new file mode 100644
index 0000000..5f2a428
--- /dev/null
+++ b/perl-5.25.7-Fix-const-correctness-in-hv_func.h.patch
@@ -0,0 +1,124 @@
+From 463ddf34c08f2c97199b1bb242da1f17494d4d1a Mon Sep 17 00:00:00 2001
+From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= <ppisar@redhat.com>
+Date: Thu, 24 Nov 2016 16:34:09 +0100
+Subject: [PATCH] Fix const correctness in hv_func.h
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+Building an XS code with -Wcast-qual yielded warnings about discarding
+const qualifiers from pointer targets like:
+
+$ printf '#include "EXTERN.h"\n#include "perl.h"\n' | gcc -Wcast-qual -I/usr/lib64/perl5/CORE -c -x c -
+In file included from /usr/lib64/perl5/CORE/hv.h:629:0,
+                 from /usr/lib64/perl5/CORE/perl.h:3740,
+                 from <stdin>:2:
+/usr/lib64/perl5/CORE/hv_func.h: In function ‘S_perl_hash_siphash_2_4’:
+/usr/lib64/perl5/CORE/hv_func.h:213:17: warning: cast discards ‘const’ qualifier from pointer target type [-Wcast-qual]
+   U64TYPE k0 = ((U64TYPE*)seed)[0];
+                 ^
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ hv_func.h | 22 +++++++++++-----------
+ 1 file changed, 11 insertions(+), 11 deletions(-)
+
+diff --git a/hv_func.h b/hv_func.h
+index 8866db9..57b1ed1 100644
+--- a/hv_func.h
++++ b/hv_func.h
+@@ -118,7 +118,7 @@
+ 
+ #if (BYTEORDER == 0x1234 || BYTEORDER == 0x12345678) && U32SIZE == 4
+   /* CPU endian matches murmurhash algorithm, so read 32-bit word directly */
+-  #define U8TO32_LE(ptr)   (*((U32*)(ptr)))
++  #define U8TO32_LE(ptr)   (*((const U32*)(ptr)))
+ #elif BYTEORDER == 0x4321 || BYTEORDER == 0x87654321
+   /* TODO: Add additional cases below where a compiler provided bswap32 is available */
+   #if defined(__GNUC__) && (__GNUC__>4 || (__GNUC__==4 && __GNUC_MINOR__>=3))
+@@ -210,8 +210,8 @@ S_perl_hash_siphash_2_4(const unsigned char * const seed, const unsigned char *i
+   U64 v3 = UINT64_C(0x7465646279746573);
+ 
+   U64 b;
+-  U64 k0 = ((U64*)seed)[0];
+-  U64 k1 = ((U64*)seed)[1];
++  U64 k0 = ((const U64*)seed)[0];
++  U64 k1 = ((const U64*)seed)[1];
+   U64 m;
+   const int left = inlen & 7;
+   const U8 *end = in + inlen - left;
+@@ -269,7 +269,7 @@ S_perl_hash_siphash_2_4(const unsigned char * const seed, const unsigned char *i
+ 
+ PERL_STATIC_INLINE U32
+ S_perl_hash_superfast(const unsigned char * const seed, const unsigned char *str, STRLEN len) {
+-    U32 hash = *((U32*)seed) + (U32)len;
++    U32 hash = *((const U32*)seed) + (U32)len;
+     U32 tmp;
+     int rem= len & 3;
+     len >>= 2;
+@@ -373,7 +373,7 @@ S_perl_hash_superfast(const unsigned char * const seed, const unsigned char *str
+ /* now we create the hash function */
+ PERL_STATIC_INLINE U32
+ S_perl_hash_murmur3(const unsigned char * const seed, const unsigned char *ptr, STRLEN len) {
+-    U32 h1 = *((U32*)seed);
++    U32 h1 = *((const U32*)seed);
+     U32 k1;
+     U32 carry = 0;
+ 
+@@ -467,7 +467,7 @@ S_perl_hash_murmur3(const unsigned char * const seed, const unsigned char *ptr,
+ PERL_STATIC_INLINE U32
+ S_perl_hash_djb2(const unsigned char * const seed, const unsigned char *str, const STRLEN len) {
+     const unsigned char * const end = (const unsigned char *)str + len;
+-    U32 hash = *((U32*)seed) + (U32)len;
++    U32 hash = *((const U32*)seed) + (U32)len;
+     while (str < end) {
+         hash = ((hash << 5) + hash) + *str++;
+     }
+@@ -477,7 +477,7 @@ S_perl_hash_djb2(const unsigned char * const seed, const unsigned char *str, con
+ PERL_STATIC_INLINE U32
+ S_perl_hash_sdbm(const unsigned char * const seed, const unsigned char *str, const STRLEN len) {
+     const unsigned char * const end = (const unsigned char *)str + len;
+-    U32 hash = *((U32*)seed) + (U32)len;
++    U32 hash = *((const U32*)seed) + (U32)len;
+     while (str < end) {
+         hash = (hash << 6) + (hash << 16) - hash + *str++;
+     }
+@@ -503,7 +503,7 @@ S_perl_hash_sdbm(const unsigned char * const seed, const unsigned char *str, con
+ PERL_STATIC_INLINE U32
+ S_perl_hash_one_at_a_time(const unsigned char * const seed, const unsigned char *str, const STRLEN len) {
+     const unsigned char * const end = (const unsigned char *)str + len;
+-    U32 hash = *((U32*)seed) + (U32)len;
++    U32 hash = *((const U32*)seed) + (U32)len;
+     while (str < end) {
+         hash += *str++;
+         hash += (hash << 10);
+@@ -518,7 +518,7 @@ S_perl_hash_one_at_a_time(const unsigned char * const seed, const unsigned char
+ PERL_STATIC_INLINE U32
+ S_perl_hash_one_at_a_time_hard(const unsigned char * const seed, const unsigned char *str, const STRLEN len) {
+     const unsigned char * const end = (const unsigned char *)str + len;
+-    U32 hash = *((U32*)seed) + (U32)len;
++    U32 hash = *((const U32*)seed) + (U32)len;
+     
+     while (str < end) {
+         hash += (hash << 10);
+@@ -553,7 +553,7 @@ S_perl_hash_one_at_a_time_hard(const unsigned char * const seed, const unsigned
+ PERL_STATIC_INLINE U32
+ S_perl_hash_old_one_at_a_time(const unsigned char * const seed, const unsigned char *str, const STRLEN len) {
+     const unsigned char * const end = (const unsigned char *)str + len;
+-    U32 hash = *((U32*)seed);
++    U32 hash = *((const U32*)seed);
+     while (str < end) {
+         hash += *str++;
+         hash += (hash << 10);
+@@ -581,7 +581,7 @@ S_perl_hash_murmur_hash_64a (const unsigned char * const seed, const unsigned ch
+ {
+         const U64 m = UINT64_C(0xc6a4a7935bd1e995);
+         const int r = 47;
+-        U64 h = *((U64*)seed) ^ len;
++        U64 h = *((const U64*)seed) ^ len;
+         const U64 * data = (const U64 *)str;
+         const U64 * end = data + (len/8);
+         const unsigned char * data2;
+-- 
+2.7.4
+
diff --git a/perl-5.25.9-only-mess-with-NEXT_OFF-when-we-are-in-PASS2.patch b/perl-5.25.9-only-mess-with-NEXT_OFF-when-we-are-in-PASS2.patch
new file mode 100644
index 0000000..1eb9183
--- /dev/null
+++ b/perl-5.25.9-only-mess-with-NEXT_OFF-when-we-are-in-PASS2.patch
@@ -0,0 +1,38 @@
+From bb78386f13c18a1a7dae932b9b36e977056b13c7 Mon Sep 17 00:00:00 2001
+From: Yves Orton <demerphq@gmail.com>
+Date: Fri, 27 Jan 2017 16:57:40 +0100
+Subject: [PATCH] only mess with NEXT_OFF() when we are in PASS2
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+In 31fc93954d1f379c7a49889d91436ce99818e1f6 I added code that would modify
+NEXT_OFF() when we were not in PASS2, when we should not do so. Strangly this
+did not segfault when I tested, but this fix is required.
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ regcomp.c | 4 ++--
+ 1 file changed, 2 insertions(+), 2 deletions(-)
+
+diff --git a/regcomp.c b/regcomp.c
+index 322d230..d5ce63f 100644
+--- a/regcomp.c
++++ b/regcomp.c
+@@ -11709,11 +11709,11 @@ S_regpiece(pTHX_ RExC_state_t *pRExC_state, I32 *flagp, U32 depth)
+ 	    nextchar(pRExC_state);
+             if (max < min) {    /* If can't match, warn and optimize to fail
+                                    unconditionally */
++                reginsert(pRExC_state, OPFAIL, orig_emit, depth+1);
+                 if (PASS2) {
+                     ckWARNreg(RExC_parse, "Quantifier {n,m} with n > m can't match");
++                    NEXT_OFF(orig_emit)= regarglen[OPFAIL] + NODE_STEP_REGNODE;
+                 }
+-                reginsert(pRExC_state, OPFAIL, orig_emit, depth+1);
+-                NEXT_OFF(orig_emit)= regarglen[OPFAIL] + NODE_STEP_REGNODE;
+                 return ret;
+             }
+             else if (min == max && *RExC_parse == '?')
+-- 
+2.7.4
+
diff --git a/perl-5.25.9-perl-129061-CURLYX-nodes-can-be-studied-more-than-on.patch b/perl-5.25.9-perl-129061-CURLYX-nodes-can-be-studied-more-than-on.patch
new file mode 100644
index 0000000..d7b9c6b
--- /dev/null
+++ b/perl-5.25.9-perl-129061-CURLYX-nodes-can-be-studied-more-than-on.patch
@@ -0,0 +1,69 @@
+From 42e9b60980bb8e29e76629e14c6aa945194c0647 Mon Sep 17 00:00:00 2001
+From: Hugo van der Sanden <hv@crypt.org>
+Date: Wed, 5 Oct 2016 02:20:26 +0100
+Subject: [PATCH] [perl #129061] CURLYX nodes can be studied more than once
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+study_chunk() for CURLYX is used to set flags on the linked WHILEM
+node to say it is the whilem_c'th of whilem_seen. However it assumes
+each CURLYX can be studied only once, which is not the case - there
+are various cases such as GOSUB which call study_chunk() recursively
+on already-visited parts of the program.
+
+Storing the wrong index can cause the super-linear cache handling in
+regmatch() to read/write the byte after the end of poscache.
+
+Also reported in [perl #129281].
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ regcomp.c  | 12 +++++++++---
+ t/re/pat.t |  1 -
+ 2 files changed, 9 insertions(+), 4 deletions(-)
+
+diff --git a/regcomp.c b/regcomp.c
+index 850a6c1..48c8d8d 100644
+--- a/regcomp.c
++++ b/regcomp.c
+@@ -5218,15 +5218,21 @@ S_study_chunk(pTHX_ RExC_state_t *pRExC_state, regnode **scanp,
+ 			    However, this time it's not a subexpression
+ 			    we care about, but the expression itself. */
+ 			 && (maxcount == REG_INFTY)
+-			 && data && ++data->whilem_c < 16) {
++			 && data) {
+ 		    /* This stays as CURLYX, we can put the count/of pair. */
+ 		    /* Find WHILEM (as in regexec.c) */
+ 		    regnode *nxt = oscan + NEXT_OFF(oscan);
+ 
+ 		    if (OP(PREVOPER(nxt)) == NOTHING) /* LONGJMP */
+ 			nxt += ARG(nxt);
+-		    PREVOPER(nxt)->flags = (U8)(data->whilem_c
+-			| (RExC_whilem_seen << 4)); /* On WHILEM */
++                    nxt = PREVOPER(nxt);
++                    if (nxt->flags & 0xf) {
++                        /* we've already set whilem count on this node */
++                    } else if (++data->whilem_c < 16) {
++                        assert(data->whilem_c <= RExC_whilem_seen);
++                        nxt->flags = (U8)(data->whilem_c
++                            | (RExC_whilem_seen << 4)); /* On WHILEM */
++                    }
+ 		}
+ 		if (data && fl & (SF_HAS_PAR|SF_IN_PAR))
+ 		    pars++;
+diff --git a/t/re/pat.t b/t/re/pat.t
+index ecd3af1..16bfc8e 100644
+--- a/t/re/pat.t
++++ b/t/re/pat.t
+@@ -1909,7 +1909,6 @@ EOP
+     }
+     {
+         # [perl #129281] buffer write overflow, detected by ASAN, valgrind
+-        local $::TODO = "whilem_c  bumped too much";
+         fresh_perl_is('/0(?0)|^*0(?0)|^*(^*())0|/', '', {}, "don't bump whilem_c too much");
+     }
+ } # End of sub run_tests
+-- 
+2.7.4
+
diff --git a/perl-5.25.9-silence-warnings-from-tests-about-impossible-quantif.patch b/perl-5.25.9-silence-warnings-from-tests-about-impossible-quantif.patch
new file mode 100644
index 0000000..2cfe7ed
--- /dev/null
+++ b/perl-5.25.9-silence-warnings-from-tests-about-impossible-quantif.patch
@@ -0,0 +1,34 @@
+From 923e23bad0514e1bd29112650fb78aa4ea69e1b7 Mon Sep 17 00:00:00 2001
+From: Yves Orton <demerphq@gmail.com>
+Date: Sat, 28 Jan 2017 15:13:17 +0100
+Subject: [PATCH] silence warnings from tests about impossible quantifiers
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+thanks to Dave M for noticing....
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ t/re/pat_rt_report.t | 3 ++-
+ 1 file changed, 2 insertions(+), 1 deletion(-)
+
+diff --git a/t/re/pat_rt_report.t b/t/re/pat_rt_report.t
+index 21aff58..dd740e7 100644
+--- a/t/re/pat_rt_report.t
++++ b/t/re/pat_rt_report.t
+@@ -1134,9 +1134,10 @@ EOP
+     {
+         # rt
+         fresh_perl_is(
+-            '"foo"=~/((?1)){8,0}/; print "ok"',
++            'no warnings "regexp"; "foo"=~/((?1)){8,0}/; print "ok"',
+             "ok", {},  'RT #130561 - allowing impossible quantifier should not cause SEGVs');
+         my $s= "foo";
++        no warnings 'regexp';
+         ok($s=~/(foo){1,0}|(?1)/,
+             "RT #130561 - allowing impossible quantifier should not break recursion");
+     }
+-- 
+2.7.4
+
diff --git a/perl-5.26.1-fix-do-dir-returning-no.patch b/perl-5.26.1-fix-do-dir-returning-no.patch
new file mode 100644
index 0000000..aa44d7d
--- /dev/null
+++ b/perl-5.26.1-fix-do-dir-returning-no.patch
@@ -0,0 +1,111 @@
+From 3dfcac940930a8aa6779f5debea6ea6357372419 Mon Sep 17 00:00:00 2001
+From: Daniel Dragan <bulk88@hotmail.com>
+Date: Sun, 16 Aug 2015 04:30:23 -0400
+Subject: [PATCH] fix do dir returning no $!
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+do()ing a directory was returning false/empty string in $!, which isn't
+an error, yet documentation says $! should have the error code in it.
+Fix this by returning EISDIR for dirs, and EINVAL for block devices.
+[perl #125774]
+
+Remove "errno = 0" and comment added in b2da7ead68, since now there is no
+scenario where errno is uninitialized, since the dir and block device
+failure branches now set errno, where previously they didn't.
+
+Petr Písař: Ported to 5.26.1.
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ pp_ctl.c  | 25 +++++++++++++++++--------
+ t/op/do.t | 14 +++++++++++++-
+ 2 files changed, 30 insertions(+), 9 deletions(-)
+
+diff --git a/pp_ctl.c b/pp_ctl.c
+index e24d7b6..f136f91 100644
+--- a/pp_ctl.c
++++ b/pp_ctl.c
+@@ -3534,15 +3534,22 @@ S_check_type_and_open(pTHX_ SV *name)
+        errno EACCES, so only do a stat to separate a dir from a real EACCES
+        caused by user perms */
+ #ifndef WIN32
+-    /* we use the value of errno later to see how stat() or open() failed.
+-     * We don't want it set if the stat succeeded but we still failed,
+-     * such as if the name exists, but is a directory */
+-    errno = 0;
+-
+     st_rc = PerlLIO_stat(p, &st);
+ 
+-    if (st_rc < 0 || S_ISDIR(st.st_mode) || S_ISBLK(st.st_mode)) {
++    if (st_rc < 0)
+ 	return NULL;
++    else {
++	int eno;
++	if(S_ISBLK(st.st_mode)) {
++	    eno = EINVAL;
++	    goto not_file;
++	}
++	else if(S_ISDIR(st.st_mode)) {
++	    eno = EISDIR;
++	    not_file:
++	    errno = eno;
++	    return NULL;
++	}
+     }
+ #endif
+ 
+@@ -3554,8 +3561,10 @@ S_check_type_and_open(pTHX_ SV *name)
+ 	int eno;
+ 	st_rc = PerlLIO_stat(p, &st);
+ 	if (st_rc >= 0) {
+-	    if(S_ISDIR(st.st_mode) || S_ISBLK(st.st_mode))
+-		eno = 0;
++	    if(S_ISDIR(st.st_mode))
++		eno = EISDIR;
++	    else if(S_ISBLK(st.st_mode))
++		eno = EINVAL;
+ 	    else
+ 		eno = EACCES;
+ 	    errno = eno;
+diff --git a/t/op/do.t b/t/op/do.t
+index 78d8800..1c54f0b 100644
+--- a/t/op/do.t
++++ b/t/op/do.t
+@@ -7,6 +7,7 @@ BEGIN {
+ }
+ use strict;
+ no warnings 'void';
++use Errno qw(ENOENT EISDIR);
+ 
+ my $called;
+ my $result = do{ ++$called; 'value';};
+@@ -247,7 +248,7 @@ SKIP: {
+     my $saved_errno = $!;
+     ok(!$rv,          "do returns false on io errror");
+     ok(!$saved_error, "\$\@ not set on io error");
+-    ok($saved_errno,  "\$! set on io error");
++    ok($saved_errno == ENOENT, "\$! is ENOENT for nonexistent file");
+ }
+ 
+ # do subname should not be do "subname"
+@@ -305,4 +306,15 @@ SKIP: {
+ }
+ 
+ 
++# do file $!s must be correct
++{
++    local @INC = ('.'); #want EISDIR not ENOENT
++    my $rv = do 'op'; # /t/op dir
++    my $saved_error = $@;
++    my $saved_errno = $!+0;
++    ok(!$rv,                    "do dir returns false");
++    ok(!$saved_error,           "\$\@ is false on do dir");
++    ok($saved_errno == EISDIR,  "\$! is EISDIR on do dir");
++}
++
+ done_testing();
+-- 
+2.13.6
+
diff --git a/perl-5.26.1-guard_old_libcrypt_fix.patch b/perl-5.26.1-guard_old_libcrypt_fix.patch
new file mode 100644
index 0000000..2d34cfe
--- /dev/null
+++ b/perl-5.26.1-guard_old_libcrypt_fix.patch
@@ -0,0 +1,24 @@
+commit 13e70b397dcb0d1bf4a869b670f041c1d7b730d0
+Author: Björn Esser <besser82@fedoraproject.org>
+Date:   Sat Jan 20 20:22:53 2018 +0100
+
+    pp: Guard fix for really old bug in glibc libcrypt
+
+diff --git a/pp.c b/pp.c
+index d50ad7ddbf..6510c7b15c 100644
+--- a/pp.c
++++ b/pp.c
+@@ -3650,8 +3650,12 @@ PP(pp_crypt)
+ #if defined(__GLIBC__) || defined(__EMX__)
+ 	if (PL_reentrant_buffer->_crypt_struct_buffer) {
+ 	    PL_reentrant_buffer->_crypt_struct_buffer->initialized = 0;
+-	    /* work around glibc-2.2.5 bug */
++#if (defined(__GLIBC__) && __GLIBC__ == 2) && \
++    (defined(__GLIBC_MINOR__) && __GLIBC_MINOR__ >= 2 && __GLIBC_MINOR__ < 4)
++	    /* work around glibc-2.2.5 bug, has been fixed at some
++	     * time in glibc-2.3.X */
+ 	    PL_reentrant_buffer->_crypt_struct_buffer->current_saltbits = 0;
++#endif
+ 	}
+ #endif
+     }
diff --git a/perl-5.26.1-perl-131746-avoid-undefined-behaviour-in-Copy-etc.patch b/perl-5.26.1-perl-131746-avoid-undefined-behaviour-in-Copy-etc.patch
new file mode 100644
index 0000000..d6471a8
--- /dev/null
+++ b/perl-5.26.1-perl-131746-avoid-undefined-behaviour-in-Copy-etc.patch
@@ -0,0 +1,107 @@
+From 7a962424149cc60f3a187d0213a12689dd5e806b Mon Sep 17 00:00:00 2001
+From: Tony Cook <tony@develop-help.com>
+Date: Mon, 14 Aug 2017 11:52:39 +1000
+Subject: [PATCH] (perl #131746) avoid undefined behaviour in Copy() etc
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+These functions depend on C library functions which have undefined
+behaviour when passed NULL pointers, even when passed a zero 'n' value.
+
+Some compilers use this information, ie. assume the pointers are
+non-NULL when optimizing any following code, so we do need to
+prevent such unguarded calls.
+
+My initial thought was to add conditionals to each macro to skip the
+call to the library function when n is zero, but this adds a cost to
+every use of these macros, even when the n value is always true.
+
+So instead I added asserts() which will give us a much more visible
+indicator of such broken code and revealed the pp_caller and Glob.xs
+issues also patched here.
+
+Petr Písař: Ported to 5.26.1 from
+f14cf3632059d421de83cf901c7e849adc1fcd03.
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ ext/File-Glob/Glob.xs |  2 +-
+ handy.h               | 14 +++++++-------
+ pp_ctl.c              |  3 ++-
+ pp_hot.c              |  3 ++-
+ 4 files changed, 12 insertions(+), 10 deletions(-)
+
+diff --git a/ext/File-Glob/Glob.xs b/ext/File-Glob/Glob.xs
+index e0a3681..9779d54 100644
+--- a/ext/File-Glob/Glob.xs
++++ b/ext/File-Glob/Glob.xs
+@@ -121,7 +121,7 @@ iterate(pTHX_ bool(*globber)(pTHX_ AV *entries, const char *pat, STRLEN len, boo
+ 
+     /* chuck it all out, quick or slow */
+     if (gimme == G_ARRAY) {
+-	if (!on_stack) {
++	if (!on_stack && AvFILLp(entries) + 1) {
+ 	    EXTEND(SP, AvFILLp(entries)+1);
+ 	    Copy(AvARRAY(entries), SP+1, AvFILLp(entries)+1, SV *);
+ 	    SP += AvFILLp(entries)+1;
+diff --git a/handy.h b/handy.h
+index 80f9cf4..88b5b55 100644
+--- a/handy.h
++++ b/handy.h
+@@ -2409,17 +2409,17 @@ void Perl_mem_log_del_sv(const SV *sv, const char *filename, const int linenumbe
+ #define Safefree(d)	safefree(MEM_LOG_FREE((Malloc_t)(d)))
+ #endif
+ 
+-#define Move(s,d,n,t)	(MEM_WRAP_CHECK_(n,t) (void)memmove((char*)(d),(const char*)(s), (n) * sizeof(t)))
+-#define Copy(s,d,n,t)	(MEM_WRAP_CHECK_(n,t) (void)memcpy((char*)(d),(const char*)(s), (n) * sizeof(t)))
+-#define Zero(d,n,t)	(MEM_WRAP_CHECK_(n,t) (void)memzero((char*)(d), (n) * sizeof(t)))
++#define Move(s,d,n,t)	(MEM_WRAP_CHECK_(n,t) assert(d), assert(s), (void)memmove((char*)(d),(const char*)(s), (n) * sizeof(t)))
++#define Copy(s,d,n,t)	(MEM_WRAP_CHECK_(n,t) assert(d), assert(s), (void)memcpy((char*)(d),(const char*)(s), (n) * sizeof(t)))
++#define Zero(d,n,t)	(MEM_WRAP_CHECK_(n,t) assert(d), (void)memzero((char*)(d), (n) * sizeof(t)))
+ 
+-#define MoveD(s,d,n,t)	(MEM_WRAP_CHECK_(n,t) memmove((char*)(d),(const char*)(s), (n) * sizeof(t)))
+-#define CopyD(s,d,n,t)	(MEM_WRAP_CHECK_(n,t) memcpy((char*)(d),(const char*)(s), (n) * sizeof(t)))
++#define MoveD(s,d,n,t)	(MEM_WRAP_CHECK_(n,t) assert(d), assert(s), memmove((char*)(d),(const char*)(s), (n) * sizeof(t)))
++#define CopyD(s,d,n,t)	(MEM_WRAP_CHECK_(n,t) assert(d), assert(s), memcpy((char*)(d),(const char*)(s), (n) * sizeof(t)))
+ #ifdef HAS_MEMSET
+-#define ZeroD(d,n,t)	(MEM_WRAP_CHECK_(n,t) memzero((char*)(d), (n) * sizeof(t)))
++#define ZeroD(d,n,t)	(MEM_WRAP_CHECK_(n,t) assert(d), memzero((char*)(d), (n) * sizeof(t)))
+ #else
+ /* Using bzero(), which returns void.  */
+-#define ZeroD(d,n,t)	(MEM_WRAP_CHECK_(n,t) memzero((char*)(d), (n) * sizeof(t)),d)
++#define ZeroD(d,n,t)	(MEM_WRAP_CHECK_(n,t) assert(d), memzero((char*)(d), (n) * sizeof(t)),d)
+ #endif
+ 
+ #define PoisonWith(d,n,t,b)	(MEM_WRAP_CHECK_(n,t) (void)memset((char*)(d), (U8)(b), (n) * sizeof(t)))
+diff --git a/pp_ctl.c b/pp_ctl.c
+index 15c193b..f1c57bc 100644
+--- a/pp_ctl.c
++++ b/pp_ctl.c
+@@ -1971,7 +1971,8 @@ PP(pp_caller)
+ 
+ 	if (AvMAX(PL_dbargs) < AvFILLp(ary) + off)
+ 	    av_extend(PL_dbargs, AvFILLp(ary) + off);
+-	Copy(AvALLOC(ary), AvARRAY(PL_dbargs), AvFILLp(ary) + 1 + off, SV*);
++        if (AvFILLp(ary) + 1 + off)
++            Copy(AvALLOC(ary), AvARRAY(PL_dbargs), AvFILLp(ary) + 1 + off, SV*);
+ 	AvFILLp(PL_dbargs) = AvFILLp(ary) + off;
+     }
+     mPUSHi(CopHINTS_get(cx->blk_oldcop));
+diff --git a/pp_hot.c b/pp_hot.c
+index 5899413..66b79ea 100644
+--- a/pp_hot.c
++++ b/pp_hot.c
+@@ -4138,7 +4138,8 @@ PP(pp_entersub)
+                 AvARRAY(av) = ary;
+             }
+ 
+-	    Copy(MARK+1,AvARRAY(av),items,SV*);
++            if (items)
++                Copy(MARK+1,AvARRAY(av),items,SV*);
+ 	    AvFILLp(av) = items - 1;
+ 	}
+ 	if (UNLIKELY((cx->blk_u16 & OPpENTERSUB_LVAL_MASK) == OPpLVAL_INTRO &&
+-- 
+2.13.6
+
diff --git a/perl-5.27.0-Fix-131190-UTF8-code-improperly-casting-negative-int.patch b/perl-5.27.0-Fix-131190-UTF8-code-improperly-casting-negative-int.patch
new file mode 100644
index 0000000..f248720
--- /dev/null
+++ b/perl-5.27.0-Fix-131190-UTF8-code-improperly-casting-negative-int.patch
@@ -0,0 +1,33 @@
+From 2c2da8e7f0f6325fab643997a536072633fa0cf8 Mon Sep 17 00:00:00 2001
+From: Yves Orton <demerphq@gmail.com>
+Date: Thu, 1 Jun 2017 14:51:44 +0200
+Subject: [PATCH] Fix #131190 - UTF8 code improperly casting negative integer
+ to U8 in comparison
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+This reverts commit b4972372a75776de3c9e6bd234a398d103677316,
+effectively restoring commit ca7eb79a236b41b7722c6800527f95cd76843eed,
+and commit 85fde2b7c3f5631fd982f5db735b84dc9224bec0.
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ regexec.c | 1 +
+ 1 file changed, 1 insertion(+)
+
+diff --git a/regexec.c b/regexec.c
+index 82128a7..35b88d7 100644
+--- a/regexec.c
++++ b/regexec.c
+@@ -5593,6 +5593,7 @@ S_regmatch(pTHX_ regmatch_info *reginfo, char *startpos, regnode *prog)
+                 if (scan->flags == EXACTL || scan->flags == EXACTFLU8) {
+                     _CHECK_AND_WARN_PROBLEMATIC_LOCALE;
+                     if (utf8_target
++                        && nextchr >= 0 /* guard against negative EOS value in nextchr */
+                         && UTF8_IS_ABOVE_LATIN1(nextchr)
+                         && scan->flags == EXACTL)
+                     {
+-- 
+2.9.4
+
diff --git a/perl-5.27.0-Resolve-Perl-131522-Spurious-Assuming-NOT-a-POSIX-cl.patch b/perl-5.27.0-Resolve-Perl-131522-Spurious-Assuming-NOT-a-POSIX-cl.patch
new file mode 100644
index 0000000..8f05cc7
--- /dev/null
+++ b/perl-5.27.0-Resolve-Perl-131522-Spurious-Assuming-NOT-a-POSIX-cl.patch
@@ -0,0 +1,135 @@
+From bab0f8e933b383b6bef406d79c2da340bbcded33 Mon Sep 17 00:00:00 2001
+From: Yves Orton <demerphq@gmail.com>
+Date: Sun, 18 Jun 2017 20:45:30 +0200
+Subject: [PATCH 1/2] Resolve Perl #131522: Spurious "Assuming NOT a POSIX
+ class" warning
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ regcomp.c | 30 ++++++++++++++++++------------
+ 1 file changed, 18 insertions(+), 12 deletions(-)
+
+diff --git a/regcomp.c b/regcomp.c
+index 8921eed..0a4ea78 100644
+--- a/regcomp.c
++++ b/regcomp.c
+@@ -13991,6 +13991,13 @@ S_populate_ANYOF_from_invlist(pTHX_ regnode *node, SV** invlist_ptr)
+                                              REPORT_LOCATION_ARGS(p)));     \
+         }                                                                   \
+     } STMT_END
++#define CLEAR_POSIX_WARNINGS()                                              \
++    if (posix_warnings && RExC_warn_text)                                   \
++        av_clear(RExC_warn_text)
++
++#define CLEAR_POSIX_WARNINGS_AND_RETURN(ret)                                \
++    CLEAR_POSIX_WARNINGS();                                                 \
++    return ret
+ 
+ STATIC int
+ S_handle_possible_posix(pTHX_ RExC_state_t *pRExC_state,
+@@ -14063,7 +14070,7 @@ S_handle_possible_posix(pTHX_ RExC_state_t *pRExC_state,
+      *
+      * The syntax for a legal posix class is:
+      *
+-     * qr/(?xa: \[ : \^? [:lower:]{4,6} : \] )/
++     * qr/(?xa: \[ : \^? [[:lower:]]{4,6} : \] )/
+      *
+      * What this routine considers syntactically to be an intended posix class
+      * is this (the comments indicate some restrictions that the pattern
+@@ -14088,7 +14095,7 @@ S_handle_possible_posix(pTHX_ RExC_state_t *pRExC_state,
+      *                                      # for it to be considered to be
+      *                                      # an intended posix class.
+      *          \h*
+-     *          [:punct:]?                  # The closing class character,
++     *          [[:punct:]]?                # The closing class character,
+      *                                      # possibly omitted.  If not a colon
+      *                                      # nor semi colon, the class name
+      *                                      # must be even closer to a valid
+@@ -14131,8 +14138,7 @@ S_handle_possible_posix(pTHX_ RExC_state_t *pRExC_state,
+ 
+     PERL_ARGS_ASSERT_HANDLE_POSSIBLE_POSIX;
+ 
+-    if (posix_warnings && RExC_warn_text)
+-        av_clear(RExC_warn_text);
++    CLEAR_POSIX_WARNINGS();
+ 
+     if (p >= e) {
+         return NOT_MEANT_TO_BE_A_POSIX_CLASS;
+@@ -14224,7 +14230,7 @@ S_handle_possible_posix(pTHX_ RExC_state_t *pRExC_state,
+                     *updated_parse_ptr = (char *) temp_ptr;
+                 }
+ 
+-                return OOB_NAMEDCLASS;
++                CLEAR_POSIX_WARNINGS_AND_RETURN(OOB_NAMEDCLASS);
+             }
+         }
+ 
+@@ -14294,7 +14300,7 @@ S_handle_possible_posix(pTHX_ RExC_state_t *pRExC_state,
+         /* We consider something like [^:^alnum:]] to not have been intended to
+          * be a posix class, but XXX maybe we should */
+         if (complement) {
+-            return NOT_MEANT_TO_BE_A_POSIX_CLASS;
++            CLEAR_POSIX_WARNINGS_AND_RETURN(NOT_MEANT_TO_BE_A_POSIX_CLASS);
+         }
+ 
+         complement = 1;
+@@ -14321,7 +14327,7 @@ S_handle_possible_posix(pTHX_ RExC_state_t *pRExC_state,
+          * this leaves this construct looking like [:] or [:^], which almost
+          * certainly weren't intended to be posix classes */
+         if (has_opening_bracket) {
+-            return NOT_MEANT_TO_BE_A_POSIX_CLASS;
++            CLEAR_POSIX_WARNINGS_AND_RETURN(NOT_MEANT_TO_BE_A_POSIX_CLASS);
+         }
+ 
+         /* But this function can be called when we parse the colon for
+@@ -14338,7 +14344,7 @@ S_handle_possible_posix(pTHX_ RExC_state_t *pRExC_state,
+             /* XXX We are currently very restrictive here, so this code doesn't
+              * consider the possibility that, say, /[alpha.]]/ was intended to
+              * be a posix class. */
+-            return NOT_MEANT_TO_BE_A_POSIX_CLASS;
++            CLEAR_POSIX_WARNINGS_AND_RETURN(NOT_MEANT_TO_BE_A_POSIX_CLASS);
+         }
+ 
+         /* Here we have something like 'foo:]'.  There was no initial colon,
+@@ -14508,7 +14514,7 @@ S_handle_possible_posix(pTHX_ RExC_state_t *pRExC_state,
+             }
+ 
+             /* Otherwise, it can't have meant to have been a class */
+-            return NOT_MEANT_TO_BE_A_POSIX_CLASS;
++            CLEAR_POSIX_WARNINGS_AND_RETURN(NOT_MEANT_TO_BE_A_POSIX_CLASS);
+         }
+ 
+         /* If we ran off the end, and the final character was a punctuation
+@@ -14558,7 +14564,7 @@ S_handle_possible_posix(pTHX_ RExC_state_t *pRExC_state,
+          * class name.  (We can do this on the first pass, as any second pass
+          * will yield an even shorter name) */
+         if (name_len < 3) {
+-            return NOT_MEANT_TO_BE_A_POSIX_CLASS;
++            CLEAR_POSIX_WARNINGS_AND_RETURN(NOT_MEANT_TO_BE_A_POSIX_CLASS);
+         }
+ 
+         /* Find which class it is.  Initially switch on the length of the name.
+@@ -14717,7 +14723,7 @@ S_handle_possible_posix(pTHX_ RExC_state_t *pRExC_state,
+             }
+ 
+             /* Here neither pass found a close-enough class name */
+-            return NOT_MEANT_TO_BE_A_POSIX_CLASS;
++            CLEAR_POSIX_WARNINGS_AND_RETURN(NOT_MEANT_TO_BE_A_POSIX_CLASS);
+         }
+ 
+     probably_meant_to_be:
+@@ -14759,7 +14765,7 @@ S_handle_possible_posix(pTHX_ RExC_state_t *pRExC_state,
+             /* If it is a known class, return the class.  The class number
+              * #defines are structured so each complement is +1 to the normal
+              * one */
+-            return class_number + complement;
++            CLEAR_POSIX_WARNINGS_AND_RETURN(class_number + complement);
+         }
+         else if (! check_only) {
+ 
+-- 
+2.9.4
+
diff --git a/perl-5.27.0-add-test-for-perl-131522-and-fix-test-for-related-pe.patch b/perl-5.27.0-add-test-for-perl-131522-and-fix-test-for-related-pe.patch
new file mode 100644
index 0000000..7a465d9
--- /dev/null
+++ b/perl-5.27.0-add-test-for-perl-131522-and-fix-test-for-related-pe.patch
@@ -0,0 +1,39 @@
+From d730a80128abafff1e47e2506c23a8c1a06cfef4 Mon Sep 17 00:00:00 2001
+From: Yves Orton <demerphq@gmail.com>
+Date: Sun, 18 Jun 2017 23:44:07 +0200
+Subject: [PATCH 2/2] add test for [perl #131522] and fix test for (related)
+ [perl #127581]
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ t/re/reg_mesg.t | 4 ++--
+ 1 file changed, 2 insertions(+), 2 deletions(-)
+
+diff --git a/t/re/reg_mesg.t b/t/re/reg_mesg.t
+index 090eccb..a0b78c4 100644
+--- a/t/re/reg_mesg.t
++++ b/t/re/reg_mesg.t
+@@ -221,7 +221,6 @@ my @death =
+  '/(?[[[::]]])/' => "Syntax error in (?[...]) in regex m/(?[[[::]]])/",
+  '/(?[[[:w:]]])/' => "Syntax error in (?[...]) in regex m/(?[[[:w:]]])/",
+  '/(?[[:w:]])/' => "",
+- '/[][[:alpha:]]' => "",    # [perl #127581]
+  '/([.].*)[.]/'   => "",    # [perl #127582]
+  '/[.].*[.]/'     => "",    # [perl #127604]
+  '/(?[a])/' =>  'Unexpected character {#} m/(?[a{#}])/',
+@@ -587,7 +586,8 @@ my @warning = (
+                                   'Assuming NOT a POSIX class since a semi-colon was found instead of a colon {#} m/[foo;{#}punct;]]\x{100}/',
+                                   'Assuming NOT a POSIX class since a semi-colon was found instead of a colon {#} m/[foo;punct;]{#}]\x{100}/',
+                                 ],
+-
++   '/[][[:alpha:]]/' => "",        # [perl #127581]
++   '/[][[:alpha:]\\@\\\\^_?]/' => "", # [perl #131522]
+ ); # See comments before this for why '\x{100}' is generally needed
+ 
+ # These need the character 'ネ' as a marker for mark_as_utf8()
+-- 
+2.9.4
+
diff --git a/perl-5.27.0-perl-129183-don-t-treat-as-an-escape-in-PATH-for-S.patch b/perl-5.27.0-perl-129183-don-t-treat-as-an-escape-in-PATH-for-S.patch
new file mode 100644
index 0000000..8889451
--- /dev/null
+++ b/perl-5.27.0-perl-129183-don-t-treat-as-an-escape-in-PATH-for-S.patch
@@ -0,0 +1,32 @@
+From e80af1fd276d83858d27742ea887415e3263960b Mon Sep 17 00:00:00 2001
+From: Tony Cook <tony@develop-help.com>
+Date: Wed, 12 Oct 2016 10:42:47 +1100
+Subject: [PATCH] (perl 129183) don't treat \ as an escape in PATH for -S
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ util.c | 5 ++---
+ 1 file changed, 2 insertions(+), 3 deletions(-)
+
+diff --git a/util.c b/util.c
+index 5bb0dfc..6bc2fe5 100644
+--- a/util.c
++++ b/util.c
+@@ -3352,9 +3352,8 @@ Perl_find_script(pTHX_ const char *scriptname, bool dosearch,
+ 	    if (len < sizeof tmpbuf)
+ 		tmpbuf[len] = '\0';
+ #  else
+-	    s = delimcpy(tmpbuf, tmpbuf + sizeof tmpbuf, s, bufend,
+-			':',
+-			&len);
++	    s = delimcpy_no_escape(tmpbuf, tmpbuf + sizeof tmpbuf, s, bufend,
++                                   ':', &len);
+ #  endif
+ 	    if (s < bufend)
+ 		s++;
+-- 
+2.9.4
+
diff --git a/perl-5.27.0-perl-131221-improve-duplication-of-via-handles.patch b/perl-5.27.0-perl-131221-improve-duplication-of-via-handles.patch
new file mode 100644
index 0000000..37da371
--- /dev/null
+++ b/perl-5.27.0-perl-131221-improve-duplication-of-via-handles.patch
@@ -0,0 +1,299 @@
+From 99b847695211f825df6299aa9da91f9494f741e2 Mon Sep 17 00:00:00 2001
+From: Tony Cook <tony@develop-help.com>
+Date: Thu, 1 Jun 2017 15:11:27 +1000
+Subject: [PATCH] [perl #131221] improve duplication of :via handles
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+Previously duplication (as with open ... ">&...") would fail
+unless the user supplied a GETARG, which wasn't documented, and
+resulted in an attempt to free and unreferened scalar if supplied.
+
+Cloning on thread creation was simply broken.
+
+We now handle GETARG correctly, and provide a useful default if it
+returns nothing.
+
+Cloning on thread creation now duplicates the appropriate parts of the
+parent thread's handle.
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ MANIFEST                  |  1 +
+ ext/PerlIO-via/t/thread.t | 73 +++++++++++++++++++++++++++++++++++++++++++++++
+ ext/PerlIO-via/t/via.t    | 56 +++++++++++++++++++++++++++++++++++-
+ ext/PerlIO-via/via.pm     |  2 +-
+ ext/PerlIO-via/via.xs     | 55 +++++++++++++++++++++++++++++++----
+ 5 files changed, 179 insertions(+), 8 deletions(-)
+ create mode 100644 ext/PerlIO-via/t/thread.t
+
+diff --git a/MANIFEST b/MANIFEST
+index 8c4950e..d39f992 100644
+--- a/MANIFEST
++++ b/MANIFEST
+@@ -4056,6 +4056,7 @@ ext/PerlIO-scalar/scalar.xs	PerlIO layer for scalars
+ ext/PerlIO-scalar/t/scalar.t	See if PerlIO::scalar works
+ ext/PerlIO-scalar/t/scalar_ungetc.t	Tests for PerlIO layer for scalars
+ ext/PerlIO-via/hints/aix.pl	Hint for PerlIO::via for named architecture
++ext/PerlIO-via/t/thread.t		See if PerlIO::via works with threads
+ ext/PerlIO-via/t/via.t		See if PerlIO::via works
+ ext/PerlIO-via/via.pm		PerlIO layer for layers in perl
+ ext/PerlIO-via/via.xs		PerlIO layer for layers in perl
+diff --git a/ext/PerlIO-via/t/thread.t b/ext/PerlIO-via/t/thread.t
+new file mode 100644
+index 0000000..e4358f9
+--- /dev/null
++++ b/ext/PerlIO-via/t/thread.t
+@@ -0,0 +1,73 @@
++#!perl
++BEGIN {
++    unless (find PerlIO::Layer 'perlio') {
++	print "1..0 # Skip: not perlio\n";
++	exit 0;
++    }
++    require Config;
++    unless ($Config::Config{'usethreads'}) {
++        print "1..0 # Skip -- need threads for this test\n";
++        exit 0;
++    }
++    if (($Config::Config{'extensions'} !~ m!\bPerlIO/via\b!) ){
++        print "1..0 # Skip -- Perl configured without PerlIO::via module\n";
++        exit 0;
++    }
++}
++
++use strict;
++use warnings;
++use threads;
++
++my $tmp = "via$$";
++
++END {
++    1 while unlink $tmp;
++}
++
++use Test::More tests => 2;
++
++our $push_count = 0;
++
++{
++    open my $fh, ">:via(Test1)", $tmp
++      or die "Cannot open $tmp: $!";
++    $fh->autoflush;
++
++    print $fh "AXAX";
++
++    # previously this would crash
++    threads->create(
++        sub {
++            print $fh "XZXZ";
++        })->join;
++
++    print $fh "BXBX";
++    close $fh;
++
++    open my $in, "<", $tmp;
++    my $line = <$in>;
++    close $in;
++
++    is($line, "AYAYYZYZBYBY", "check thread data delivered");
++
++    is($push_count, 1, "PUSHED not called for dup on thread creation");
++}
++
++package PerlIO::via::Test1;
++
++sub PUSHED {
++    my ($class) = @_;
++    ++$main::push_count;
++    bless {}, $class;
++}
++
++sub WRITE {
++    my ($self, $data, $fh) = @_;
++    $data =~ tr/X/Y/;
++    $fh->autoflush;
++    print $fh $data;
++    return length $data;
++}
++
++
+diff --git a/ext/PerlIO-via/t/via.t b/ext/PerlIO-via/t/via.t
+index 6787e11..80577df 100644
+--- a/ext/PerlIO-via/t/via.t
++++ b/ext/PerlIO-via/t/via.t
+@@ -17,7 +17,7 @@ use warnings;
+ 
+ my $tmp = "via$$";
+ 
+-use Test::More tests => 18;
++use Test::More tests => 26;
+ 
+ my $fh;
+ my $a = join("", map { chr } 0..255) x 10;
+@@ -84,6 +84,60 @@ is( $obj, 'Foo', 'search for package Foo' );
+ open $fh, '<:via(Bar)', "bar";
+ is( $obj, 'PerlIO::via::Bar', 'search for package PerlIO::via::Bar' );
+ 
++{
++    # [perl #131221]
++    ok(open(my $fh1, ">", $tmp), "open $tmp");
++    ok(binmode($fh1, ":via(XXX)"), "binmode :via(XXX) onto it");
++    ok(open(my $fh2, ">&", $fh1), "dup it");
++    close $fh1;
++    close $fh2;
++
++    # make sure the old workaround still works
++    ok(open($fh1, ">", $tmp), "open $tmp");
++    ok(binmode($fh1, ":via(YYY)"), "binmode :via(YYY) onto it");
++    ok(open($fh2, ">&", $fh1), "dup it");
++    print $fh2 "XZXZ";
++    close $fh1;
++    close $fh2;
++
++    ok(open($fh1, "<", $tmp), "open $tmp for check");
++    { local $/; $b = <$fh1> }
++    close $fh1;
++    is($b, "XZXZ", "check result is from non-filtering class");
++
++    package PerlIO::via::XXX;
++
++    sub PUSHED {
++        my $class = shift;
++        bless {}, $class;
++    }
++
++    sub WRITE {
++        my ($self, $buffer, $handle) = @_;
++
++        print $handle $buffer;
++        return length($buffer);
++    }
++    package PerlIO::via::YYY;
++
++    sub PUSHED {
++        my $class = shift;
++        bless {}, $class;
++    }
++
++    sub WRITE {
++        my ($self, $buffer, $handle) = @_;
++
++        $buffer =~ tr/X/Y/;
++        print $handle $buffer;
++        return length($buffer);
++    }
++
++    sub GETARG {
++        "XXX";
++    }
++}
++
+ END {
+     1 while unlink $tmp;
+ }
+diff --git a/ext/PerlIO-via/via.pm b/ext/PerlIO-via/via.pm
+index e477dcc..30083fe 100644
+--- a/ext/PerlIO-via/via.pm
++++ b/ext/PerlIO-via/via.pm
+@@ -1,5 +1,5 @@
+ package PerlIO::via;
+-our $VERSION = '0.16';
++our $VERSION = '0.17';
+ require XSLoader;
+ XSLoader::load();
+ 1;
+diff --git a/ext/PerlIO-via/via.xs b/ext/PerlIO-via/via.xs
+index 8a7f1fc..61953c8 100644
+--- a/ext/PerlIO-via/via.xs
++++ b/ext/PerlIO-via/via.xs
+@@ -38,6 +38,8 @@ typedef struct
+  CV *UTF8;
+ } PerlIOVia;
+ 
++static const MGVTBL PerlIOVia_tag = { 0, 0, 0, 0, 0, 0, 0, 0 };
++
+ #define MYMethod(x) #x,&s->x
+ 
+ static CV *
+@@ -131,8 +133,14 @@ PerlIOVia_pushed(pTHX_ PerlIO * f, const char *mode, SV * arg,
+ 		 PerlIO_funcs * tab)
+ {
+     IV code = PerlIOBase_pushed(aTHX_ f, mode, Nullsv, tab);
++
++    if (SvTYPE(arg) >= SVt_PVMG
++		&& mg_findext(arg, PERL_MAGIC_ext, &PerlIOVia_tag)) {
++	return code;
++    }
++
+     if (code == 0) {
+-	PerlIOVia *s = PerlIOSelf(f, PerlIOVia);
++        PerlIOVia *s = PerlIOSelf(f, PerlIOVia);
+ 	if (!arg) {
+ 	    if (ckWARN(WARN_LAYER))
+ 		Perl_warner(aTHX_ packWARN(WARN_LAYER),
+@@ -583,20 +591,55 @@ static SV *
+ PerlIOVia_getarg(pTHX_ PerlIO * f, CLONE_PARAMS * param, int flags)
+ {
+     PerlIOVia *s = PerlIOSelf(f, PerlIOVia);
+-    PERL_UNUSED_ARG(param);
++    SV *arg;
+     PERL_UNUSED_ARG(flags);
+-    return PerlIOVia_method(aTHX_ f, MYMethod(GETARG), G_SCALAR, Nullsv);
++
++    /* During cloning, return an undef token object so that _pushed() knows
++     * that it should not call methods and wait for _dup() to actually dup the
++     * object. */
++    if (param) {
++	SV *sv = newSV(0);
++	sv_magicext(sv, NULL, PERL_MAGIC_ext, &PerlIOVia_tag, 0, 0);
++	return sv;
++    }
++
++    arg = PerlIOVia_method(aTHX_ f, MYMethod(GETARG), G_SCALAR, Nullsv);
++    if (arg) {
++        /* arg is a temp, and PerlIOBase_dup() will explicitly free it */
++        SvREFCNT_inc(arg);
++    }
++    else {
++        arg = newSVpvn(HvNAME(s->stash), HvNAMELEN(s->stash));
++    }
++
++    return arg;
+ }
+ 
+ static PerlIO *
+ PerlIOVia_dup(pTHX_ PerlIO * f, PerlIO * o, CLONE_PARAMS * param,
+ 	      int flags)
+ {
+-    if ((f = PerlIOBase_dup(aTHX_ f, o, param, flags))) {
+-	/* Most of the fields will lazily set themselves up as needed
+-	   stash and obj have been set up by the implied push
++    if ((f = PerlIOBase_dup(aTHX_ f, o, param, flags)) && param) {
++	/* For a non-interpreter dup stash and obj have been set up
++	   by the implied push.
++
++           But if this is a clone for a new interpreter we need to
++           translate the objects to their dups.
+ 	 */
++
++        PerlIOVia *fs = PerlIOSelf(f, PerlIOVia);
++        PerlIOVia *os = PerlIOSelf(o, PerlIOVia);
++
++        fs->obj = sv_dup_inc(os->obj, param);
++        fs->stash = (HV*)sv_dup((SV*)os->stash, param);
++        fs->var = sv_dup_inc(os->var, param);
++        fs->cnt = os->cnt;
++
++        /* fh, io, cached CVs left as NULL, PerlIOVia_method()
++           will reinitialize them if needed */
+     }
++    /* for a non-threaded dup fs->obj and stash should be set by _pushed() */
++
+     return f;
+ }
+ 
+-- 
+2.9.4
+
diff --git a/perl-5.27.0-perl-131221-sv_dup-sv_dup_inc-are-only-available-und.patch b/perl-5.27.0-perl-131221-sv_dup-sv_dup_inc-are-only-available-und.patch
new file mode 100644
index 0000000..f0e89da
--- /dev/null
+++ b/perl-5.27.0-perl-131221-sv_dup-sv_dup_inc-are-only-available-und.patch
@@ -0,0 +1,71 @@
+From 7b3443d31f11c15859593e5b710c301795a6de01 Mon Sep 17 00:00:00 2001
+From: Tony Cook <tony@develop-help.com>
+Date: Thu, 8 Jun 2017 11:06:39 +1000
+Subject: [PATCH] [perl #131221] sv_dup/sv_dup_inc are only available under
+ threads
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ ext/PerlIO-via/via.xs | 42 +++++++++++++++++++++++-------------------
+ 1 file changed, 23 insertions(+), 19 deletions(-)
+
+diff --git a/ext/PerlIO-via/via.xs b/ext/PerlIO-via/via.xs
+index 61953c8..d91c685 100644
+--- a/ext/PerlIO-via/via.xs
++++ b/ext/PerlIO-via/via.xs
+@@ -619,26 +619,30 @@ static PerlIO *
+ PerlIOVia_dup(pTHX_ PerlIO * f, PerlIO * o, CLONE_PARAMS * param,
+ 	      int flags)
+ {
+-    if ((f = PerlIOBase_dup(aTHX_ f, o, param, flags)) && param) {
+-	/* For a non-interpreter dup stash and obj have been set up
+-	   by the implied push.
+-
+-           But if this is a clone for a new interpreter we need to
+-           translate the objects to their dups.
+-	 */
+-
+-        PerlIOVia *fs = PerlIOSelf(f, PerlIOVia);
+-        PerlIOVia *os = PerlIOSelf(o, PerlIOVia);
+-
+-        fs->obj = sv_dup_inc(os->obj, param);
+-        fs->stash = (HV*)sv_dup((SV*)os->stash, param);
+-        fs->var = sv_dup_inc(os->var, param);
+-        fs->cnt = os->cnt;
+-
+-        /* fh, io, cached CVs left as NULL, PerlIOVia_method()
+-           will reinitialize them if needed */
++    if ((f = PerlIOBase_dup(aTHX_ f, o, param, flags))) {
++#ifdef USE_ITHREADS
++        if (param) {
++            /* For a non-interpreter dup stash and obj have been set up
++               by the implied push.
++
++               But if this is a clone for a new interpreter we need to
++               translate the objects to their dups.
++            */
++
++            PerlIOVia *fs = PerlIOSelf(f, PerlIOVia);
++            PerlIOVia *os = PerlIOSelf(o, PerlIOVia);
++
++            fs->obj = sv_dup_inc(os->obj, param);
++            fs->stash = (HV*)sv_dup((SV*)os->stash, param);
++            fs->var = sv_dup_inc(os->var, param);
++            fs->cnt = os->cnt;
++
++            /* fh, io, cached CVs left as NULL, PerlIOVia_method()
++               will reinitialize them if needed */
++        }
++#endif
++        /* for a non-threaded dup fs->obj and stash should be set by _pushed() */
+     }
+-    /* for a non-threaded dup fs->obj and stash should be set by _pushed() */
+ 
+     return f;
+ }
+-- 
+2.9.4
+
diff --git a/perl-5.27.0-perl-131526-don-t-go-beyond-the-end-of-the-NUL-in-my.patch b/perl-5.27.0-perl-131526-don-t-go-beyond-the-end-of-the-NUL-in-my.patch
new file mode 100644
index 0000000..05b2c80
--- /dev/null
+++ b/perl-5.27.0-perl-131526-don-t-go-beyond-the-end-of-the-NUL-in-my.patch
@@ -0,0 +1,37 @@
+From 9604fbf0722bd97ca6031a263c50ad52b6633db7 Mon Sep 17 00:00:00 2001
+From: Tony Cook <tony@develop-help.com>
+Date: Wed, 14 Jun 2017 09:42:31 +1000
+Subject: [PATCH] (perl #131526) don't go beyond the end of the NUL in my_atof2
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+Perl_my_atof2() calls GROK_NUMERIC_RADIX() to detect and skip past
+a decimal point and then can increment the parse pointer (s) before
+checking what it points at, so skipping the terminating NUL if the
+decimal point is immediately before the NUL.
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ numeric.c | 4 ++--
+ 1 file changed, 2 insertions(+), 2 deletions(-)
+
+diff --git a/numeric.c b/numeric.c
+index 6ea6968..5771907 100644
+--- a/numeric.c
++++ b/numeric.c
+@@ -1485,9 +1485,9 @@ Perl_my_atof2(pTHX_ const char* orig, NV* value)
+ 	else if (!seen_dp && GROK_NUMERIC_RADIX(&s, send)) {
+ 	    seen_dp = 1;
+ 	    if (sig_digits > MAX_SIG_DIGITS) {
+-		do {
++		while (isDIGIT(*s)) {
+ 		    ++s;
+-		} while (isDIGIT(*s));
++		}
+ 		break;
+ 	    }
+ 	}
+-- 
+2.9.4
+
diff --git a/perl-5.27.3-avoid-the-address-of-.-will-always-evaluate-as-.-war.patch b/perl-5.27.3-avoid-the-address-of-.-will-always-evaluate-as-.-war.patch
new file mode 100644
index 0000000..7f2a9f4
--- /dev/null
+++ b/perl-5.27.3-avoid-the-address-of-.-will-always-evaluate-as-.-war.patch
@@ -0,0 +1,60 @@
+From 45908e4d120d33a558a8b052036c56cd0c90b898 Mon Sep 17 00:00:00 2001
+From: Yves Orton <demerphq@gmail.com>
+Date: Wed, 13 Sep 2017 13:30:25 +0200
+Subject: [PATCH] avoid  'the address of ... will always evaluate as ...' warns
+ in mem macros
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+In f14cf363205 we added asserts to our memory macros (Copy(), Zero() etc)
+to ensure that the target is non-null. These asserts throw warnings like
+
+    perl.c: In function ‘Perl_eval_sv’:
+    perl.c:2976:264: warning: the address of ‘myop’ will always evaluate
+    as ‘true’ [-Waddress]
+         Zero(&myop, 1, UNOP);
+
+which is annoying. This patch changes how these asserts are coded so
+we avoid the warning. Thanks to Zefram for the fix.
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ handy.h | 17 ++++++++++-------
+ 1 file changed, 10 insertions(+), 7 deletions(-)
+
+diff --git a/handy.h b/handy.h
+index 31afaae65e..85e8f70721 100644
+--- a/handy.h
++++ b/handy.h
+@@ -2409,17 +2409,20 @@ void Perl_mem_log_del_sv(const SV *sv, const char *filename, const int linenumbe
+ #define Safefree(d)	safefree(MEM_LOG_FREE((Malloc_t)(d)))
+ #endif
+ 
+-#define Move(s,d,n,t)	(MEM_WRAP_CHECK_(n,t) assert(d), assert(s), (void)memmove((char*)(d),(const char*)(s), (n) * sizeof(t)))
+-#define Copy(s,d,n,t)	(MEM_WRAP_CHECK_(n,t) assert(d), assert(s), (void)memcpy((char*)(d),(const char*)(s), (n) * sizeof(t)))
+-#define Zero(d,n,t)	(MEM_WRAP_CHECK_(n,t) assert(d), (void)memzero((char*)(d), (n) * sizeof(t)))
++#define perl_assert_ptr(p) assert( ((void*)(p)) != 0 )
+ 
+-#define MoveD(s,d,n,t)	(MEM_WRAP_CHECK_(n,t) assert(d), assert(s), memmove((char*)(d),(const char*)(s), (n) * sizeof(t)))
+-#define CopyD(s,d,n,t)	(MEM_WRAP_CHECK_(n,t) assert(d), assert(s), memcpy((char*)(d),(const char*)(s), (n) * sizeof(t)))
++
++#define Move(s,d,n,t)	(MEM_WRAP_CHECK_(n,t) perl_assert_ptr(d), perl_assert_ptr(s), (void)memmove((char*)(d),(const char*)(s), (n) * sizeof(t)))
++#define Copy(s,d,n,t)	(MEM_WRAP_CHECK_(n,t) perl_assert_ptr(d), perl_assert_ptr(s), (void)memcpy((char*)(d),(const char*)(s), (n) * sizeof(t)))
++#define Zero(d,n,t)	(MEM_WRAP_CHECK_(n,t) perl_assert_ptr(d), (void)memzero((char*)(d), (n) * sizeof(t)))
++
++#define MoveD(s,d,n,t)	(MEM_WRAP_CHECK_(n,t) perl_assert_ptr(d), perl_assert_ptr(s), memmove((char*)(d),(const char*)(s), (n) * sizeof(t)))
++#define CopyD(s,d,n,t)	(MEM_WRAP_CHECK_(n,t) perl_assert_ptr(d), perl_assert_ptr(s), memcpy((char*)(d),(const char*)(s), (n) * sizeof(t)))
+ #ifdef HAS_MEMSET
+-#define ZeroD(d,n,t)	(MEM_WRAP_CHECK_(n,t) assert(d), memzero((char*)(d), (n) * sizeof(t)))
++#define ZeroD(d,n,t)	(MEM_WRAP_CHECK_(n,t) perl_assert_ptr(d), memzero((char*)(d), (n) * sizeof(t)))
+ #else
+ /* Using bzero(), which returns void.  */
+-#define ZeroD(d,n,t)	(MEM_WRAP_CHECK_(n,t) assert(d), memzero((char*)(d), (n) * sizeof(t)),d)
++#define ZeroD(d,n,t)	(MEM_WRAP_CHECK_(n,t) perl_assert_ptr(d), memzero((char*)(d), (n) * sizeof(t)),d)
+ #endif
+ 
+ #define PoisonWith(d,n,t,b)	(MEM_WRAP_CHECK_(n,t) (void)memset((char*)(d), (U8)(b), (n) * sizeof(t)))
+-- 
+2.13.6
+
diff --git a/perl-5.27.5-Avoid-a-segfault-when-untying-an-object.patch b/perl-5.27.5-Avoid-a-segfault-when-untying-an-object.patch
new file mode 100644
index 0000000..ba8cdfa
--- /dev/null
+++ b/perl-5.27.5-Avoid-a-segfault-when-untying-an-object.patch
@@ -0,0 +1,32 @@
+From e7e69c85c7e8e0cb75b831e606ad4f26f18b11ff Mon Sep 17 00:00:00 2001
+From: Nicolas R <atoomic@cpan.org>
+Date: Mon, 31 Oct 2016 11:53:17 -0600
+Subject: [PATCH] Avoid a segfault when untying an object
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+Check if the tied object has a stash set
+before calling UNTIE method.
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ pp_sys.c | 2 +-
+ 1 file changed, 1 insertion(+), 1 deletion(-)
+
+diff --git a/pp_sys.c b/pp_sys.c
+index 672e7de08e..6d4dd86b7f 100644
+--- a/pp_sys.c
++++ b/pp_sys.c
+@@ -1017,7 +1017,7 @@ PP(pp_untie)
+ 
+     if ((mg = SvTIED_mg(sv, how))) {
+ 	SV * const obj = SvRV(SvTIED_obj(sv, mg));
+-        if (obj) {
++        if (obj && SvSTASH(obj)) {
+ 	    GV * const gv = gv_fetchmethod_autoload(SvSTASH(obj), "UNTIE", FALSE);
+ 	    CV *cv;
+ 	    if (gv && isGV(gv) && (cv = GvCV(gv))) {
+-- 
+2.13.6
+
diff --git a/perl-5.27.7-Reenable-numeric-first-argument-of-system-on-VMS.patch b/perl-5.27.7-Reenable-numeric-first-argument-of-system-on-VMS.patch
new file mode 100644
index 0000000..74cb681
--- /dev/null
+++ b/perl-5.27.7-Reenable-numeric-first-argument-of-system-on-VMS.patch
@@ -0,0 +1,34 @@
+From 8e7c2faafb74d3b07e8a5818608dfe065e361604 Mon Sep 17 00:00:00 2001
+From: "Craig A. Berry" <craigberry@mac.com>
+Date: Mon, 1 Jan 2018 10:10:33 -0600
+Subject: [PATCH] Reenable numeric first argument of system() on VMS.
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+This was broken in 64def2aeaeb63f92dadc6dfa334, and fixed for Win32
+only in 8fe3452cc6ac7af8c08.  But VMS also uses a numeric first
+argument to system() as a flag indicating spawn without waiting for
+completion.
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ pp_sys.c | 2 +-
+ 1 file changed, 1 insertion(+), 1 deletion(-)
+
+diff --git a/pp_sys.c b/pp_sys.c
+index 0c9147bc4e..5154b9baa8 100644
+--- a/pp_sys.c
++++ b/pp_sys.c
+@@ -4375,7 +4375,7 @@ PP(pp_system)
+ 	STRLEN len;
+ 	char *pv;
+ 	SvGETMAGIC(origsv);
+-#ifdef WIN32
++#if defined(WIN32) || defined(__VMS)
+ 	/*
+ 	 * Because of a nasty platform-specific variation on the meaning
+ 	 * of arguments to this op, we must preserve numeric arguments
+-- 
+2.13.6
+
diff --git a/perl-5.27.7-preserve-numericness-of-system-args-on-Win32.patch b/perl-5.27.7-preserve-numericness-of-system-args-on-Win32.patch
new file mode 100644
index 0000000..ab61f96
--- /dev/null
+++ b/perl-5.27.7-preserve-numericness-of-system-args-on-Win32.patch
@@ -0,0 +1,73 @@
+From 8fe3452cc6ac7af8c08c2044cd3757018a9c8887 Mon Sep 17 00:00:00 2001
+From: Zefram <zefram@fysh.org>
+Date: Fri, 22 Dec 2017 05:32:41 +0000
+Subject: [PATCH] preserve numericness of system() args on Win32
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+On Windows there's a nasty variation in the meaning of arguments
+to Perl's system(), in which a numeric first argument isn't used as
+part of the command to run, but instead selects between two different
+operations to perform with the command (whether to wait for the command
+to complete or not).  Therefore the reduction of argument scalars to
+their operative values in the parent process, which was added in commit
+64def2aeaeb63f92dadc6dfa33486c1d7b311963, needs to preserve numericness
+of arguments on Windows.  Fixes [perl #132633].
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ pp_sys.c | 35 +++++++++++++++++++++++++++++++----
+ 1 file changed, 31 insertions(+), 4 deletions(-)
+
+diff --git a/pp_sys.c b/pp_sys.c
+index beb60da4c6..0649794104 100644
+--- a/pp_sys.c
++++ b/pp_sys.c
+@@ -4393,12 +4393,39 @@ PP(pp_system)
+ # endif
+ 
+     while (++MARK <= SP) {
+-	SV *origsv = *MARK;
++	SV *origsv = *MARK, *copysv;
+ 	STRLEN len;
+ 	char *pv;
+-	pv = SvPV(origsv, len);
+-	*MARK = newSVpvn_flags(pv, len,
+-		    (SvFLAGS(origsv) & SVf_UTF8) | SVs_TEMP);
++	SvGETMAGIC(origsv);
++#ifdef WIN32
++	/*
++	 * Because of a nasty platform-specific variation on the meaning
++	 * of arguments to this op, we must preserve numeric arguments
++	 * as numeric, not just retain the string value.
++	 */
++	if (SvNIOK(origsv) || SvNIOKp(origsv)) {
++	    copysv = newSV_type(SVt_PVNV);
++	    sv_2mortal(copysv);
++	    if (SvPOK(origsv) || SvPOKp(origsv)) {
++		pv = SvPV_nomg(origsv, len);
++		sv_setpvn(copysv, pv, len);
++		SvPOK_off(copysv);
++	    }
++	    if (SvIOK(origsv) || SvIOKp(origsv))
++		SvIV_set(copysv, SvIVX(origsv));
++	    if (SvNOK(origsv) || SvNOKp(origsv))
++		SvNV_set(copysv, SvNVX(origsv));
++	    SvFLAGS(copysv) |= SvFLAGS(origsv) &
++		(SVf_IOK|SVf_NOK|SVf_POK|SVp_IOK|SVp_NOK|SVp_POK|
++		    SVf_UTF8|SVf_IVisUV);
++	} else
++#endif
++	{
++	    pv = SvPV_nomg(origsv, len);
++	    copysv = newSVpvn_flags(pv, len,
++			(SvFLAGS(origsv) & SVf_UTF8) | SVs_TEMP);
++	}
++	*MARK = copysv;
+     }
+     MARK = ORIGMARK;
+ 
+-- 
+2.13.6
+
diff --git a/perl-5.27.8-hints-linux-Add-lphtread-to-lddlflags.patch b/perl-5.27.8-hints-linux-Add-lphtread-to-lddlflags.patch
new file mode 100644
index 0000000..f68569f
--- /dev/null
+++ b/perl-5.27.8-hints-linux-Add-lphtread-to-lddlflags.patch
@@ -0,0 +1,61 @@
+From f6bc8fb3d26892ba1a84ba2df76beedd51998dd2 Mon Sep 17 00:00:00 2001
+From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= <ppisar@redhat.com>
+Date: Mon, 29 Jan 2018 16:34:17 +0100
+Subject: [PATCH] hints/linux: Add -lphtread to lddlflags
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+Passing -z defs to linker flags causes perl to fail to build if threads are
+enabled:
+
+gcc  -shared -Wl,-z,relro -Wl,-z,defs -specs=/usr/lib/rpm/redhat/redhat-hardened-ld -L/usr/local/lib -fstack-protector-strong Bzip2.o  -o ../../lib/auto/Compress/Raw/Bzip2/Bzip2.so  \
+   -L/usr/lib64 -lbz2 "-L../.." -lperl   \
+
+Bzip2.o: In function `deRef':
+/builddir/build/BUILD/perl-5.26.1/cpan/Compress-Raw-Bzip2/Bzip2.xs:256: undefined reference to `pthread_getspecific'
+
+The reason is Bzip2.xs calls dTHX macro included from thread.h via perl.h that
+expands to pthread_getspecific() function call that is defined in pthread
+library. But the pthread library is not explicitly linked to Bzip.so (see the
+gcc command). This is exactly what -z defs linker flag enforces.
+
+Underlinking ELFs can be dangerous because in case of versioned
+symbols it can cause run-time binding to an improper version symbol or
+even to an symbold from different library.
+
+This patch fixes hints for Linux by adding -lpthreads to lddlflags. It
+also adds -shared there because Configure.sh adds it only hints return
+lddlflags empty.
+
+<https://lists.fedoraproject.org/archives/list/devel@lists.fedoraproject.org/message/3RHZEHLRUHJFF2XGHI5RB6YPDNLDR4HG/>
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ hints/linux.sh | 4 ++++
+ 1 file changed, 4 insertions(+)
+
+diff --git a/hints/linux.sh b/hints/linux.sh
+index 3f38ea07f1..9ec3bc02ef 100644
+--- a/hints/linux.sh
++++ b/hints/linux.sh
+@@ -353,12 +353,16 @@ if [ -f /etc/synoinfo.conf -a -d /usr/syno ]; then
+     echo "$libswanted" >&4
+ fi
+ 
++# Flags needed to produce shared libraries.
++lddlflags='-shared'
++
+ # This script UU/usethreads.cbu will get 'called-back' by Configure
+ # after it has prompted the user for whether to use threads.
+ cat > UU/usethreads.cbu <<'EOCBU'
+ case "$usethreads" in
+ $define|true|[yY]*)
+         ccflags="-D_REENTRANT -D_GNU_SOURCE $ccflags"
++        lddlflags="-lpthread $lddlflags"
+         if echo $libswanted | grep -v pthread >/dev/null
+         then
+             set `echo X "$libswanted "| sed -e 's/ c / pthread c /'`
+-- 
+2.13.6
+
diff --git a/perl-5.28.0-Pass-CFLAGS-to-dtrace.patch b/perl-5.28.0-Pass-CFLAGS-to-dtrace.patch
new file mode 100644
index 0000000..2e9a36d
--- /dev/null
+++ b/perl-5.28.0-Pass-CFLAGS-to-dtrace.patch
@@ -0,0 +1,63 @@
+Subject: [PATCH] Pass CFLAGS to dtrace
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ Makefile.SH | 8 +++++---
+ cflags.SH   | 5 ++++-
+ 2 files changed, 9 insertions(+), 4 deletions(-)
+
+diff --git a/Makefile.SH b/Makefile.SH
+index 5fc6d1c..e89ad70 100755
+--- a/Makefile.SH
++++ b/Makefile.SH
+@@ -462,6 +462,8 @@ CCCMD    = sh $(shellflags) cflags "optimize='$(OPTIMIZE)'" $@
+ 
+ CCCMDSRC = sh $(shellflags) cflags "optimize='$(OPTIMIZE)'" $<
+ 
++DTRACEFLAGS = sh $(shellflags) cflags "optimize='$(OPTIMIZE)'" $@
++
+ CONFIGPM_FROM_CONFIG_SH = lib/Config.pm lib/Config_heavy.pl
+ CONFIGPM = $(CONFIGPM_FROM_CONFIG_SH) lib/Config_git.pl
+ 
+@@ -895,19 +897,19 @@ $(DTRACE_MINI_O): perldtrace.d $(miniperl_objs_nodt)
+ 	-rm -rf mpdtrace
+ 	mkdir mpdtrace
+ 	cp $(miniperl_objs_nodt) mpdtrace/
+-	$(DTRACE) -G -s perldtrace.d -o $(DTRACE_MINI_O) $(miniperl_dtrace_objs)
++	CFLAGS="`$(DTRACEFLAGS)`" $(DTRACE) -G -s perldtrace.d -o $(DTRACE_MINI_O) $(miniperl_dtrace_objs)
+ 
+ $(DTRACE_PERLLIB_O): perldtrace.d $(perllib_objs_nodt)
+ 	-rm -rf libpdtrace
+ 	mkdir libpdtrace
+ 	cp $(perllib_objs_nodt) libpdtrace/
+-	$(DTRACE) -G -s perldtrace.d -o $(DTRACE_PERLLIB_O) $(perllib_dtrace_objs)
++	CFLAGS="`$(DTRACEFLAGS)`" $(DTRACE) -G -s perldtrace.d -o $(DTRACE_PERLLIB_O) $(perllib_dtrace_objs)
+ 
+ $(DTRACE_MAIN_O): perldtrace.d perlmain$(OBJ_EXT)
+ 	-rm -rf maindtrace
+ 	mkdir maindtrace
+ 	cp perlmain$(OBJ_EXT) maindtrace/
+-	$(DTRACE) -G -s perldtrace.d -o $(DTRACE_MAIN_O) $(perlmain_dtrace_objs) ||	      \
++	CFLAGS="`$(DTRACEFLAGS)`" $(DTRACE) -G -s perldtrace.d -o $(DTRACE_MAIN_O) $(perlmain_dtrace_objs) ||	      \
+ 	  ( $(ECHO) "No probes in perlmain$(OBJ_EXT), generating a dummy $(DTRACE_MAIN_O)" && \
+ 	    $(ECHO) >dtrace_main.c &&							      \
+ 	    `$(CCCMD)` $(PLDLFLAGS) dtrace_main.c &&					      \
+diff --git a/cflags.SH b/cflags.SH
+index 3af1e97..b845127 100755
+--- a/cflags.SH
++++ b/cflags.SH
+@@ -519,7 +519,10 @@ for file do
+     toke) optimize=-O0 ;;
+     esac
+ 
+-    echo "$cc -c -DPERL_CORE $ccflags $stdflags $optimize $warn $extra"
++    case "$file" in
++    dtrace_*) echo "$ccflags $stdflags $optimize $warn $extra";;
++    *) echo "$cc -c -DPERL_CORE $ccflags $stdflags $optimize $warn $extra";;
++    esac
+ 
+     . $TOP/config.sh
+ 
+-- 
+2.17.1
+
diff --git a/perl-5.28.1-regcomp.c-Convert-some-strchr-to-memchr.patch b/perl-5.28.1-regcomp.c-Convert-some-strchr-to-memchr.patch
new file mode 100644
index 0000000..bfdadde
--- /dev/null
+++ b/perl-5.28.1-regcomp.c-Convert-some-strchr-to-memchr.patch
@@ -0,0 +1,53 @@
+From cc56be313c7d4e7c266c01dabc762a153d5b2c28 Mon Sep 17 00:00:00 2001
+From: Karl Williamson <khw@cpan.org>
+Date: Sat, 25 Mar 2017 15:00:22 -0600
+Subject: [PATCH] regcomp.c: Convert some strchr to memchr
+
+This allows things to work properly in the face of embedded NULs.
+See the branch merge message for more information.
+
+(cherry picked from commit 43b2f4ef399e2fd7240b4eeb0658686ad95f8e62)
+---
+ regcomp.c | 11 +++++++----
+ 1 file changed, 7 insertions(+), 4 deletions(-)
+
+diff --git a/regcomp.c b/regcomp.c
+index d0d08352c0..2bee9d4460 100644
+--- a/regcomp.c
++++ b/regcomp.c
+@@ -11793,7 +11793,8 @@ S_grok_bslash_N(pTHX_ RExC_state_t *pRExC_state,
+ 
+     RExC_parse++;	/* Skip past the '{' */
+ 
+-    if (! (endbrace = strchr(RExC_parse, '}'))  /* no trailing brace */
++    endbrace = (char *) memchr(RExC_parse, '}', RExC_end - RExC_parse);
++    if (! endbrace                             /* no trailing brace */
+ 	|| ! (endbrace == RExC_parse		/* nothing between the {} */
+               || (endbrace - RExC_parse >= 2	/* U+ (bad hex is checked... */
+                   && strnEQ(RExC_parse, "U+", 2)))) /* ... below for a better
+@@ -12493,9 +12494,11 @@ S_regatom(pTHX_ RExC_state_t *pRExC_state, I32 *flagp, U32 depth)
+             else {
+                 STRLEN length;
+                 char name = *RExC_parse;
+-                char * endbrace;
++                char * endbrace = NULL;
+                 RExC_parse += 2;
+-                endbrace = strchr(RExC_parse, '}');
++                if (RExC_parse < RExC_end) {
++                    endbrace = (char *) memchr(RExC_parse, '}', RExC_end - RExC_parse);
++                }
+ 
+                 if (! endbrace) {
+                     vFAIL2("Missing right brace on \\%c{}", name);
+@@ -15963,7 +15966,7 @@ S_regclass(pTHX_ RExC_state_t *pRExC_state, I32 *flagp, U32 depth,
+ 		    vFAIL2("Empty \\%c", (U8)value);
+ 		if (*RExC_parse == '{') {
+ 		    const U8 c = (U8)value;
+-		    e = strchr(RExC_parse, '}');
++		    e = (char *) memchr(RExC_parse, '}', RExC_end - RExC_parse);
+                     if (!e) {
+                         RExC_parse++;
+                         vFAIL2("Missing right brace on \\%c{}", c);
+-- 
+2.11.0
+
diff --git a/perl-5.32.0-Add-av_count.patch b/perl-5.32.0-Add-av_count.patch
new file mode 100644
index 0000000..fccdd9c
--- /dev/null
+++ b/perl-5.32.0-Add-av_count.patch
@@ -0,0 +1,175 @@
+From bafffe7f2ca587960177ed03216e2d5692fe6143 Mon Sep 17 00:00:00 2001
+From: Karl Williamson <khw@cpan.org>
+Date: Wed, 19 Aug 2020 11:57:17 -0600
+Subject: [PATCH] Add av_count()
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+This returns the number of elements in an array in a clearly named
+function.
+
+av_top_index(), av_tindex() are clearly named, but are less than ideal,
+and came about because no one back then thought of this one, until now
+Paul Evans did.
+
+Petr Písař: Port 87306e0674dfe3af29804b4641347cd5ac9b0521 to 5.32.0.
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ av.c      | 17 ++++++++++++++---
+ av.h      |  3 ++-
+ embed.fnc |  3 ++-
+ embed.h   |  2 +-
+ inline.h  | 16 ++++++++++++----
+ proto.h   | 11 ++++++++---
+ 6 files changed, 39 insertions(+), 13 deletions(-)
+
+diff --git a/av.c b/av.c
+index 27b2f12..b5ddaca 100644
+--- a/av.c
++++ b/av.c
+@@ -814,9 +814,10 @@ The Perl equivalent for this is C<$#myarray>.
+ =for apidoc av_len
+ 
+ Same as L</av_top_index>.  Note that, unlike what the name implies, it returns
+-the highest index in the array, so to get the size of the array you need to use
+-S<C<av_len(av) + 1>>.  This is unlike L</sv_len>, which returns what you would
+-expect.
++the highest index in the array.  This is unlike L</sv_len>, which returns what
++you would expect.
++
++B<To get the true number of elements in the array, instead use C<L</av_count>>>.
+ 
+ =cut
+ */
+@@ -1089,6 +1090,16 @@ Perl_av_nonelem(pTHX_ AV *av, SSize_t ix) {
+     return sv;
+ }
+ 
++SSize_t
++Perl_av_top_index(pTHX_ AV *av)
++{
++    PERL_ARGS_ASSERT_AV_TOP_INDEX;
++    assert(SvTYPE(av) == SVt_PVAV);
++
++    return AvFILL(av);
++}
++
++
+ /*
+  * ex: set ts=8 sts=4 sw=4 et:
+  */
+diff --git a/av.h b/av.h
+index 5e39c42..90ebfff 100644
+--- a/av.h
++++ b/av.h
+@@ -81,7 +81,8 @@ Same as C<av_top_index()>.
+                                           
+ #define AvFILL(av)	((SvRMAGICAL((const SV *) (av))) \
+ 			 ? mg_size(MUTABLE_SV(av)) : AvFILLp(av))
+-#define av_tindex(av)   av_top_index(av)
++#define av_top_index(av) AvFILL(av)
++#define av_tindex(av)    av_top_index(av)
+ 
+ /* Note that it doesn't make sense to do this:
+  *      SvGETMAGIC(av); IV x = av_tindex_nomg(av);
+diff --git a/embed.fnc b/embed.fnc
+index 589ab1a..789cd3c 100644
+--- a/embed.fnc
++++ b/embed.fnc
+@@ -541,7 +541,8 @@ Apd	|void	|av_push	|NN AV *av|NN SV *val
+ EXp	|void	|av_reify	|NN AV *av
+ ApdR	|SV*	|av_shift	|NN AV *av
+ Apd	|SV**	|av_store	|NN AV *av|SSize_t key|NULLOK SV *val
+-AidRp	|SSize_t|av_top_index	|NN AV *av
++AMdRp	|SSize_t|av_top_index	|NN AV *av
++AidRp	|Size_t	|av_count	|NN AV *av
+ AmdR	|SSize_t|av_tindex	|NN AV *av
+ Apd	|void	|av_undef	|NN AV *av
+ Apdoex	|SV**	|av_create_and_unshift_one|NN AV **const avp|NN SV *const val
+diff --git a/embed.h b/embed.h
+index 182b12a..329ac40 100644
+--- a/embed.h
++++ b/embed.h
+@@ -48,6 +48,7 @@
+ #define atfork_lock		Perl_atfork_lock
+ #define atfork_unlock		Perl_atfork_unlock
+ #define av_clear(a)		Perl_av_clear(aTHX_ a)
++#define av_count(a)		Perl_av_count(aTHX_ a)
+ #define av_delete(a,b,c)	Perl_av_delete(aTHX_ a,b,c)
+ #define av_exists(a,b)		Perl_av_exists(aTHX_ a,b)
+ #define av_extend(a,b)		Perl_av_extend(aTHX_ a,b)
+@@ -59,7 +60,6 @@
+ #define av_push(a,b)		Perl_av_push(aTHX_ a,b)
+ #define av_shift(a)		Perl_av_shift(aTHX_ a)
+ #define av_store(a,b,c)		Perl_av_store(aTHX_ a,b,c)
+-#define av_top_index(a)		Perl_av_top_index(aTHX_ a)
+ #define av_undef(a)		Perl_av_undef(aTHX_ a)
+ #define av_unshift(a,b)		Perl_av_unshift(aTHX_ a,b)
+ #define block_end(a,b)		Perl_block_end(aTHX_ a,b)
+diff --git a/inline.h b/inline.h
+index 27005d2..35af18a 100644
+--- a/inline.h
++++ b/inline.h
+@@ -39,13 +39,21 @@ SOFTWARE.
+ 
+ /* ------------------------------- av.h ------------------------------- */
+ 
+-PERL_STATIC_INLINE SSize_t
+-Perl_av_top_index(pTHX_ AV *av)
++/*
++=for apidoc av_count
++Returns the number of elements in the array C<av>.  This is the true length of
++the array, including any undefined elements.  It is always the same as
++S<C<av_top_index(av) + 1>>.
++
++=cut
++*/
++PERL_STATIC_INLINE Size_t
++Perl_av_count(pTHX_ AV *av)
+ {
+-    PERL_ARGS_ASSERT_AV_TOP_INDEX;
++    PERL_ARGS_ASSERT_AV_COUNT;
+     assert(SvTYPE(av) == SVt_PVAV);
+ 
+-    return AvFILL(av);
++    return AvFILL(av) + 1;
+ }
+ 
+ /* ------------------------------- cv.h ------------------------------- */
+diff --git a/proto.h b/proto.h
+index 02ef4ed..83ba098 100644
+--- a/proto.h
++++ b/proto.h
+@@ -219,6 +219,13 @@ PERL_CALLCONV SV**	Perl_av_arylen_p(pTHX_ AV *av);
+ PERL_CALLCONV void	Perl_av_clear(pTHX_ AV *av);
+ #define PERL_ARGS_ASSERT_AV_CLEAR	\
+ 	assert(av)
++#ifndef PERL_NO_INLINE_FUNCTIONS
++PERL_STATIC_INLINE Size_t	Perl_av_count(pTHX_ AV *av)
++			__attribute__warn_unused_result__;
++#define PERL_ARGS_ASSERT_AV_COUNT	\
++	assert(av)
++#endif
++
+ PERL_CALLCONV void	Perl_av_create_and_push(pTHX_ AV **const avp, SV *const val);
+ #define PERL_ARGS_ASSERT_AV_CREATE_AND_PUSH	\
+ 	assert(avp); assert(val)
+@@ -284,12 +291,10 @@ PERL_CALLCONV SV**	Perl_av_store(pTHX_ AV *av, SSize_t key, SV *val);
+ 			__attribute__warn_unused_result__; */
+ #define PERL_ARGS_ASSERT_AV_TINDEX
+ 
+-#ifndef PERL_NO_INLINE_FUNCTIONS
+-PERL_STATIC_INLINE SSize_t	Perl_av_top_index(pTHX_ AV *av)
++PERL_CALLCONV SSize_t	Perl_av_top_index(pTHX_ AV *av)
+ 			__attribute__warn_unused_result__;
+ #define PERL_ARGS_ASSERT_AV_TOP_INDEX	\
+ 	assert(av)
+-#endif
+ 
+ PERL_CALLCONV void	Perl_av_undef(pTHX_ AV *av);
+ #define PERL_ARGS_ASSERT_AV_UNDEF	\
+-- 
+2.25.4
+
diff --git a/perl-5.32.0-Fix-404-and-text-in-New-Unicode-properties-section.patch b/perl-5.32.0-Fix-404-and-text-in-New-Unicode-properties-section.patch
new file mode 100644
index 0000000..aec15b8
--- /dev/null
+++ b/perl-5.32.0-Fix-404-and-text-in-New-Unicode-properties-section.patch
@@ -0,0 +1,49 @@
+From b0d826f28ae47d22229949e754709e68afe5d83d Mon Sep 17 00:00:00 2001
+From: raiph <raiph.mellor@gmail.com>
+Date: Thu, 2 Jul 2020 17:30:07 +0100
+Subject: [PATCH] Fix 404 and text in New Unicode properties section
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+See https://github.com/Perl/perl5/issues/17881
+
+I found a 404, and an "old" link. I investigated.
+
+My conclusion was UC have landed new TR18 and TR39 since text in section
+  New Unicode properties Identifier_Status and Identifier_Type supported
+was written.
+
+I've guessed at a suitable update.
+
+Petr Písař: Ported from e02f7c069a8e7dd98b0ec010e9b3c6619b46baf3
+upstream commmit.
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ pod/perldelta.pod | 6 +++---
+ 1 file changed, 3 insertions(+), 3 deletions(-)
+
+diff --git a/pod/perldelta.pod b/pod/perldelta.pod
+index b92ea53..bb3d1ef 100644
+--- a/pod/perldelta.pod
++++ b/pod/perldelta.pod
+@@ -48,12 +48,12 @@ L<perlop/Operator Precedence and Associativity>.
+ 
+ =head2 New Unicode properties C<Identifier_Status> and C<Identifier_Type> supported
+ 
+-Unicode is in the process of revising its regular expression
+-requirements: L<https://www.unicode.org/draft/reports/tr18/tr18.html>.
++Unicode has revised its regular expression requirements:
++L<https://www.unicode.org/reports/tr18/tr18-21.html>.
+ As part of that they are wanting more properties to be exposed, ones
+ that aren't part of the strict UCD (Unicode character database). These
+ two are used for examining inputs for security purposes. Details on
+-their usage is at L<https://www.unicode.org/reports/tr39/proposed.html>.
++their usage is at L<https://www.unicode.org/reports/tr39/>.
+ 
+ =head2 It is now possible to write C<qr/\p{Name=...}/>, or
+ C<qr!\p{na=/(SMILING|GRINNING) FACE/}!>
+-- 
+2.25.4
+
diff --git a/perl-5.32.0-pp_split-no-SWITCHSTACK-in-ary-split-.-optimisation.patch b/perl-5.32.0-pp_split-no-SWITCHSTACK-in-ary-split-.-optimisation.patch
new file mode 100644
index 0000000..d4ee4bb
--- /dev/null
+++ b/perl-5.32.0-pp_split-no-SWITCHSTACK-in-ary-split-.-optimisation.patch
@@ -0,0 +1,196 @@
+From d7504df2a5d8985f2a8b04f17acff5e324572c39 Mon Sep 17 00:00:00 2001
+From: Richard Leach <richardleach@users.noreply.github.com>
+Date: Sun, 11 Oct 2020 12:26:27 +0100
+Subject: [PATCH] pp_split: no SWITCHSTACK in @ary = split(...) optimisation
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+Petr Písař: 607eaf26a99ff76ab48877e68f1d7b005dc51575 ported to 5.32.0.
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ pp.c         | 89 +++++++++++++++++++++++++++++-----------------------
+ t/op/split.t | 23 +++++++++++++-
+ 2 files changed, 72 insertions(+), 40 deletions(-)
+
+diff --git a/pp.c b/pp.c
+index df80830..e4863d3 100644
+--- a/pp.c
++++ b/pp.c
+@@ -5985,6 +5985,7 @@ PP(pp_split)
+ 
+     /* handle @ary = split(...) optimisation */
+     if (PL_op->op_private & OPpSPLIT_ASSIGN) {
++	realarray = 1;
+         if (!(PL_op->op_flags & OPf_STACKED)) {
+             if (PL_op->op_private & OPpSPLIT_LEX) {
+                 if (PL_op->op_private & OPpLVAL_INTRO)
+@@ -6007,26 +6008,10 @@ PP(pp_split)
+             oldsave = PL_savestack_ix;
+         }
+ 
+-	realarray = 1;
+-	PUTBACK;
+-	av_extend(ary,0);
+-	(void)sv_2mortal(SvREFCNT_inc_simple_NN(sv));
+-	av_clear(ary);
+-	SPAGAIN;
+ 	if ((mg = SvTIED_mg((const SV *)ary, PERL_MAGIC_tied))) {
+ 	    PUSHMARK(SP);
+ 	    XPUSHs(SvTIED_obj(MUTABLE_SV(ary), mg));
+-	}
+-	else {
+-	    if (!AvREAL(ary)) {
+-		I32 i;
+-		AvREAL_on(ary);
+-		AvREIFY_off(ary);
+-		for (i = AvFILLp(ary); i >= 0; i--)
+-		    AvARRAY(ary)[i] = &PL_sv_undef; /* don't free mere refs */
+-	    }
+-	    /* temporarily switch stacks */
+-	    SAVESWITCHSTACK(PL_curstack, ary);
++	} else {
+ 	    make_mortal = 0;
+ 	}
+     }
+@@ -6358,29 +6343,56 @@ PP(pp_split)
+     LEAVE_SCOPE(oldsave); /* may undo an earlier SWITCHSTACK */
+     SPAGAIN;
+     if (realarray) {
+-	if (!mg) {
+-	    if (SvSMAGICAL(ary)) {
+-		PUTBACK;
++        if (!mg) {
++            PUTBACK;
++            if(AvREAL(ary)) {
++                if (av_count(ary) > 0)
++                    av_clear(ary);
++            } else {
++                AvREAL_on(ary);
++                AvREIFY_off(ary);
++
++                if (AvMAX(ary) > -1) {
++                    /* don't free mere refs */
++                    Zero(AvARRAY(ary), AvMAX(ary), SV*);
++                }
++            }
++            if(AvMAX(ary) < iters)
++                av_extend(ary,iters);
++            SPAGAIN;
++
++            /* Need to copy the SV*s from the stack into ary */
++            Copy(SP + 1 - iters, AvARRAY(ary), iters, SV*);
++            AvFILLp(ary) = iters - 1;
++
++            if (SvSMAGICAL(ary)) {
++                PUTBACK;
+ 		mg_set(MUTABLE_SV(ary));
+ 		SPAGAIN;
+-	    }
+-	    if (gimme == G_ARRAY) {
+-		EXTEND(SP, iters);
+-		Copy(AvARRAY(ary), SP + 1, iters, SV*);
+-		SP += iters;
+-		RETURN;
+-	    }
++            }
++
++            if (gimme != G_ARRAY) {
++                /* SP points to the final SV* pushed to the stack. But the SV*  */
++                /* are not going to be used from the stack. Point SP to below   */
++                /* the first of these SV*.                                      */
++                SP -= iters;
++                PUTBACK;
++            }
+ 	}
+ 	else {
+-	    PUTBACK;
+-	    ENTER_with_name("call_PUSH");
+-	    call_sv(SV_CONST(PUSH),G_SCALAR|G_DISCARD|G_METHOD_NAMED);
+-	    LEAVE_with_name("call_PUSH");
+-	    SPAGAIN;
++            PUTBACK;
++            av_extend(ary,iters);
++            av_clear(ary);
++
++            ENTER_with_name("call_PUSH");
++            call_sv(SV_CONST(PUSH),G_SCALAR|G_DISCARD|G_METHOD_NAMED);
++            LEAVE_with_name("call_PUSH");
++            SPAGAIN;
++
+ 	    if (gimme == G_ARRAY) {
+ 		SSize_t i;
+ 		/* EXTEND should not be needed - we just popped them */
+-		EXTEND(SP, iters);
++		EXTEND_SKIP(SP, iters);
+ 		for (i=0; i < iters; i++) {
+ 		    SV **svp = av_fetch(ary, i, FALSE);
+ 		    PUSHs((svp) ? *svp : &PL_sv_undef);
+@@ -6389,13 +6401,12 @@ PP(pp_split)
+ 	    }
+ 	}
+     }
+-    else {
+-	if (gimme == G_ARRAY)
+-	    RETURN;
+-    }
+ 
+-    GETTARGET;
+-    XPUSHi(iters);
++    if (gimme != G_ARRAY) {
++        GETTARGET;
++        XPUSHi(iters);
++     }
++
+     RETURN;
+ }
+ 
+diff --git a/t/op/split.t b/t/op/split.t
+index 14f9158..7f37512 100644
+--- a/t/op/split.t
++++ b/t/op/split.t
+@@ -7,7 +7,7 @@ BEGIN {
+     set_up_inc('../lib');
+ }
+ 
+-plan tests => 176;
++plan tests => 182;
+ 
+ $FS = ':';
+ 
+@@ -648,6 +648,19 @@ is "@a", '1 2 3', 'assignment to split-to-array (stacked)';
+     is (+@a, 0, "empty utf8 string");
+ }
+ 
++# correct stack adjustments (gh#18232)
++{
++    sub foo { return @_ }
++    my @a = foo(1, scalar split " ", "a b");
++    is(join('', @a), "12", "Scalar split to a sub parameter");
++}
++
++{
++    sub foo { return @_ }
++    my @a = foo(1, scalar(@x = split " ", "a b"));
++    is(join('', @a), "12", "Split to @x then use scalar result as a sub parameter");
++}
++
+ fresh_perl_is(<<'CODE', '', {}, "scalar split stack overflow");
+ map{int"";split//.0>60for"0000000000000000"}split// for"00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000"
+ CODE
+@@ -667,3 +680,11 @@ CODE
+         ok(eq_array(\@result,['a','b']), "Resulting in ('a','b')");
+     }
+ }
++
++# check that the (@ary = split) optimisation survives @ary being modified
++
++fresh_perl_is('my @ary; @ary = split(/\w(?{ @ary[1000] = 1 })/, "abc");',
++        '',{},'(@ary = split ...) survives @ary being Renew()ed');
++fresh_perl_is('my @ary; @ary = split(/\w(?{ undef @ary })/, "abc");',
++        '',{},'(@ary = split ...) survives an (undef @ary)');
++
+-- 
+2.25.4
+
diff --git a/perl-5.32.1-DynaLoader-use-PerlEnv_getenv.patch b/perl-5.32.1-DynaLoader-use-PerlEnv_getenv.patch
new file mode 100644
index 0000000..c07fab9
--- /dev/null
+++ b/perl-5.32.1-DynaLoader-use-PerlEnv_getenv.patch
@@ -0,0 +1,34 @@
+From ab72b7bd043df0f0ad6090a4c95f378624fad9fc Mon Sep 17 00:00:00 2001
+From: Karl Williamson <khw@cpan.org>
+Date: Sat, 7 Mar 2020 12:54:19 -0700
+Subject: [PATCH] DynaLoader: use PerlEnv_getenv()
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+Doing so invokes thread-safe guards
+
+Petr Písař: Ported from b0312014d6c1804920d2b687a5fa5645b445ce9f to
+5.32.1.
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ ext/DynaLoader/dlutils.c | 2 +-
+ 1 file changed, 1 insertion(+), 1 deletion(-)
+
+diff --git a/ext/DynaLoader/dlutils.c b/ext/DynaLoader/dlutils.c
+index 8584f89..1a27fbd 100644
+--- a/ext/DynaLoader/dlutils.c
++++ b/ext/DynaLoader/dlutils.c
+@@ -115,7 +115,7 @@ dl_generic_private_init(pTHX)	/* called by dl_*.xs dl_private_init() */
+ #endif
+ 
+ #if defined(PERL_IN_DL_HPUX_XS) || defined(PERL_IN_DL_DLOPEN_XS)
+-    if ( (perl_dl_nonlazy = getenv("PERL_DL_NONLAZY")) != NULL
++    if ( (perl_dl_nonlazy = PerlEnv_getenv("PERL_DL_NONLAZY")) != NULL
+ 	&& grok_atoUV(perl_dl_nonlazy, &uv, NULL)
+ 	&& uv <= INT_MAX
+     ) {
+-- 
+2.26.2
+
diff --git a/perl-5.32.1-Perl_do_sv_dump-handle-PL_strtab.patch b/perl-5.32.1-Perl_do_sv_dump-handle-PL_strtab.patch
new file mode 100644
index 0000000..9e04761
--- /dev/null
+++ b/perl-5.32.1-Perl_do_sv_dump-handle-PL_strtab.patch
@@ -0,0 +1,44 @@
+From 2ce7bf1ad5fd7aee21975b3dd1c8dceef3aab7e4 Mon Sep 17 00:00:00 2001
+From: David Mitchell <davem@iabyn.com>
+Date: Tue, 9 Mar 2021 16:42:11 +0000
+Subject: [PATCH] Perl_do_sv_dump(): handle PL_strtab
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+When dumping this special hash, the values in the HE entry are refcounts
+rather than SV pointers. sv_dump() used to crash here.
+
+Petr Písař: Ported to 5.32.1 from upstream
+a9bb6a62ae45bb372a5cca98a76d1a79edd89ccb.
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ dump.c | 11 +++++++++--
+ 1 file changed, 9 insertions(+), 2 deletions(-)
+
+diff --git a/dump.c b/dump.c
+index f03c3f6..0f15d77 100644
+--- a/dump.c
++++ b/dump.c
+@@ -2224,8 +2224,15 @@ Perl_do_sv_dump(pTHX_ I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, bo
+                             PerlIO_printf(file, "[UTF8 \"%s\"] ", sv_uni_display(d, keysv, 6 * SvCUR(keysv), UNI_DISPLAY_QQ));
+ 			if (HvEITER_get(hv) == he)
+ 			    PerlIO_printf(file, "[CURRENT] ");
+-                        PerlIO_printf(file, "HASH = 0x%" UVxf "\n", (UV) hash);
+-                        do_sv_dump(level+1, file, elt, nest+1, maxnest, dumpops, pvlim);
++                        PerlIO_printf(file, "HASH = 0x%" UVxf, (UV) hash);
++
++                        if (sv == (SV*)PL_strtab)
++                            PerlIO_printf(file, " REFCNT = 0x%" UVxf "\n",
++                                (UV)he->he_valu.hent_refcount );
++                        else {
++                            (void)PerlIO_putc(file, '\n');
++                            do_sv_dump(level+1, file, elt, nest+1, maxnest, dumpops, pvlim);
++                        }
+                     }
+ 		}
+ 	      DONEHV:;
+-- 
+2.26.3
+
diff --git a/perl-5.32.1-hv.c-add-a-guard-clause-to-prevent-the-number-of-buc.patch b/perl-5.32.1-hv.c-add-a-guard-clause-to-prevent-the-number-of-buc.patch
new file mode 100644
index 0000000..de7652e
--- /dev/null
+++ b/perl-5.32.1-hv.c-add-a-guard-clause-to-prevent-the-number-of-buc.patch
@@ -0,0 +1,53 @@
+From c5eed6e541fe27d9e9dfd31f42c43f4dfa1f486b Mon Sep 17 00:00:00 2001
+From: Yves Orton <demerphq@gmail.com>
+Date: Sat, 11 Jul 2020 09:26:21 +0200
+Subject: [PATCH] hv.c: add a guard clause to prevent the number of buckets in
+ a hash from getting too large
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+This caps it at 1<<28 buckets, eg, ~268M. In theory without a guard clause like
+this we could grow to the point of possibly wrapping around in terms of size,
+not to mention being ridiculously wasteful of memory at larger sizes.
+Even this cap is probably too high. It should probably be something like 1<<24.
+
+Petr Písař: Ported to 5.32.1 from
+aae087f7cec022be14a17deb95cb2208e16b7891.
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ hv.c | 10 +++++++++-
+ 1 file changed, 9 insertions(+), 1 deletion(-)
+
+diff --git a/hv.c b/hv.c
+index eccae62..32dbd19 100644
+--- a/hv.c
++++ b/hv.c
+@@ -38,7 +38,13 @@ holds the key and hash value.
+  * NOTE if you change this formula so we split earlier than previously
+  * you MUST change the logic in hv_ksplit()
+  */
+-#define DO_HSPLIT(xhv) ( ((xhv)->xhv_keys + ((xhv)->xhv_keys >> 1))  > (xhv)->xhv_max )
++
++/*  MAX_BUCKET_MAX is the maximum max bucket index, at which point we stop growing the
++ *  number of buckets,
++ */
++#define MAX_BUCKET_MAX ((1<<26)-1)
++#define DO_HSPLIT(xhv) ( ( ((xhv)->xhv_keys + ((xhv)->xhv_keys >> 1)) > (xhv)->xhv_max ) && \
++                           ((xhv)->xhv_max < MAX_BUCKET_MAX) )
+ #define HV_FILL_THRESHOLD 31
+ 
+ static const char S_strtab_error[]
+@@ -1426,6 +1432,8 @@ S_hsplit(pTHX_ HV *hv, STRLEN const oldsize, STRLEN newsize)
+     );
+ 
+     PERL_ARGS_ASSERT_HSPLIT;
++    if (newsize > MAX_BUCKET_MAX+1)
++            return;
+ 
+     PL_nomemok = TRUE;
+     Renew(a, PERL_HV_ARRAY_ALLOC_BYTES(newsize)
+-- 
+2.26.2
+
diff --git a/perl-5.33.0-Add-missing-MANIFEST-entry-from-fix-for-debugger.patch b/perl-5.33.0-Add-missing-MANIFEST-entry-from-fix-for-debugger.patch
new file mode 100644
index 0000000..13a082a
--- /dev/null
+++ b/perl-5.33.0-Add-missing-MANIFEST-entry-from-fix-for-debugger.patch
@@ -0,0 +1,30 @@
+From 3c53c6179afbdbef748c110abdb849cb463c2727 Mon Sep 17 00:00:00 2001
+From: Todd Rinaldo <toddr@cpan.org>
+Date: Thu, 30 Jul 2020 17:42:47 -0500
+Subject: [PATCH] Add missing MANIFEST entry from fix for debugger
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+Add on fix to #17901
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ MANIFEST | 1 +
+ 1 file changed, 1 insertion(+)
+
+diff --git a/MANIFEST b/MANIFEST
+index 990a75ad52..12601e46b4 100644
+--- a/MANIFEST
++++ b/MANIFEST
+@@ -4826,6 +4826,7 @@ lib/perl5db/t/symbol-table-bug	Tests for the Perl debugger
+ lib/perl5db/t/taint		Tests for the Perl debugger
+ lib/perl5db/t/test-a-statement-1	Tests for the Perl debugger
+ lib/perl5db/t/test-a-statement-2	Tests for the Perl debugger
++lib/perl5db/t/test-a-statement-3	Tests for the Perl debugger
+ lib/perl5db/t/test-dieLevel-option-1	Tests for the Perl debugger
+ lib/perl5db/t/test-frame-option-1	Tests for the Perl debugger
+ lib/perl5db/t/test-l-statement-1	Tests for the Perl debugger
+-- 
+2.25.4
+
diff --git a/perl-5.33.0-After-running-an-action-in-the-debugger-turn-it-off.patch b/perl-5.33.0-After-running-an-action-in-the-debugger-turn-it-off.patch
new file mode 100644
index 0000000..9df2549
--- /dev/null
+++ b/perl-5.33.0-After-running-an-action-in-the-debugger-turn-it-off.patch
@@ -0,0 +1,90 @@
+From b248789b64d6bd277c52bfe608ed3192023af1bd Mon Sep 17 00:00:00 2001
+From: "E. Choroba" <choroba@matfyz.cz>
+Date: Fri, 26 Jun 2020 21:19:24 +0200
+Subject: [PATCH] After running an action in the debugger, turn it off
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+When running with "c", there was no problem, but when running with "n"
+or "s", once the action was executed, it kept executing on the
+following lines, which wasn't expected. Clearing $action here prevents
+this unwanted behaviour.
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ lib/perl5db.pl                   |  3 ++-
+ lib/perl5db.t                    | 22 ++++++++++++++++++++++
+ lib/perl5db/t/test-a-statement-3 |  6 ++++++
+ 3 files changed, 30 insertions(+), 1 deletion(-)
+ create mode 100644 lib/perl5db/t/test-a-statement-3
+
+diff --git a/lib/perl5db.pl b/lib/perl5db.pl
+index 69a9bb6e64..e04a0e17fa 100644
+--- a/lib/perl5db.pl
++++ b/lib/perl5db.pl
+@@ -529,7 +529,7 @@ BEGIN {
+ use vars qw($VERSION $header);
+ 
+ # bump to X.XX in blead, only use X.XX_XX in maint
+-$VERSION = '1.57';
++$VERSION = '1.58';
+ 
+ $header = "perl5db.pl version $VERSION";
+ 
+@@ -2708,6 +2708,7 @@ If there are any preprompt actions, execute those as well.
+         # The &-call is here to ascertain the mutability of @_.
+         &DB::eval;
+     }
++    undef $action;
+ 
+     # Are we nested another level (e.g., did we evaluate a function
+     # that had a breakpoint in it at the debugger prompt)?
+diff --git a/lib/perl5db.t b/lib/perl5db.t
+index 421229a54a..913a301d98 100644
+--- a/lib/perl5db.t
++++ b/lib/perl5db.t
+@@ -2799,6 +2799,28 @@ SKIP:
+     );
+ }
+ 
++{
++    # GitHub #17901
++    my $wrapper = DebugWrap->new(
++        {
++            cmds =>
++            [
++                'a 4 $s++',
++                ('s') x 5,
++                'x $s',
++                'q'
++            ],
++            prog => '../lib/perl5db/t/test-a-statement-3',
++            switches => [ '-d' ],
++            stderr => 0,
++        }
++    );
++    $wrapper->contents_like(
++        qr/^0 +2$/m,
++        'Test that the a command runs only on the given lines.',
++    );
++}
++
+ {
+     # perl 5 RT #126735 regression bug.
+     local $ENV{PERLDB_OPTS} = "NonStop=0 RemotePort=non-existent-host.tld:9001";
+diff --git a/lib/perl5db/t/test-a-statement-3 b/lib/perl5db/t/test-a-statement-3
+new file mode 100644
+index 0000000000..b188c1c5c5
+--- /dev/null
++++ b/lib/perl5db/t/test-a-statement-3
+@@ -0,0 +1,6 @@
++use strict; use warnings;
++
++for my $x (1 .. 2) {
++    my $y = $x + 1;
++    my $x = $x - 1;
++}
+-- 
+2.25.4
+
diff --git a/perl-5.33.0-Clearing-DB-action-at-the-end-is-no-longer-needed.patch b/perl-5.33.0-Clearing-DB-action-at-the-end-is-no-longer-needed.patch
new file mode 100644
index 0000000..fe36ec4
--- /dev/null
+++ b/perl-5.33.0-Clearing-DB-action-at-the-end-is-no-longer-needed.patch
@@ -0,0 +1,33 @@
+From 589464a875768e4b4a609d972488e3b592103097 Mon Sep 17 00:00:00 2001
+From: "E. Choroba" <choroba@matfyz.cz>
+Date: Mon, 27 Jul 2020 11:32:51 +0200
+Subject: [PATCH] Clearing DB::action at the end is no longer needed
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+as it's cleared right after it's been run.
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ lib/perl5db.pl | 4 ----
+ 1 file changed, 4 deletions(-)
+
+diff --git a/lib/perl5db.pl b/lib/perl5db.pl
+index e04a0e17fa..af3b972da0 100644
+--- a/lib/perl5db.pl
++++ b/lib/perl5db.pl
+@@ -3347,10 +3347,6 @@ use B<o> I<inhibit_exit> to avoid stopping after program termination,
+ B<h q>, B<h R> or B<h o> to get additional info.
+ EOP
+ 
+-        # Set the DB::eval context appropriately.
+-        # At program termination disable any user actions.
+-        $DB::action = undef;
+-
+         $DB::package     = 'main';
+         $DB::usercontext = DB::_calc_usercontext($DB::package);
+     } ## end elsif ($package eq 'DB::fake')
+-- 
+2.25.4
+
diff --git a/perl-5.33.0-Fix-leak-GH-18054.patch b/perl-5.33.0-Fix-leak-GH-18054.patch
new file mode 100644
index 0000000..f678234
--- /dev/null
+++ b/perl-5.33.0-Fix-leak-GH-18054.patch
@@ -0,0 +1,31 @@
+From 6841cd5977c2d35ad75233734c66983a65613fce Mon Sep 17 00:00:00 2001
+From: Karl Williamson <khw@cpan.org>
+Date: Wed, 12 Aug 2020 17:53:52 -0600
+Subject: [PATCH] Fix leak GH #18054
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+This was a simple matter of one path failing to free the memory.
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ regcomp.c | 2 ++
+ 1 file changed, 2 insertions(+)
+
+diff --git a/regcomp.c b/regcomp.c
+index addf375450..01f297c299 100644
+--- a/regcomp.c
++++ b/regcomp.c
+@@ -15191,6 +15191,8 @@ S_regatom(pTHX_ RExC_state_t *pRExC_state, I32 *flagp, U32 depth)
+                                 FAIL2("panic: loc_correspondence[%d] is 0",
+                                       (int) (s - s_start));
+                             }
++                            Safefree(locfold_buf);
++                            Safefree(loc_correspondence);
+                         }
+                         else {
+                             upper_fill = s - s0;
+-- 
+2.25.4
+
diff --git a/perl-5.33.0-IO-Handle-Fix-a-spurious-error-reported-for-regular-.patch b/perl-5.33.0-IO-Handle-Fix-a-spurious-error-reported-for-regular-.patch
new file mode 100644
index 0000000..f19fbce
--- /dev/null
+++ b/perl-5.33.0-IO-Handle-Fix-a-spurious-error-reported-for-regular-.patch
@@ -0,0 +1,74 @@
+From 8a2562bec7cd9f8eff6812f340f99dddd028bb33 Mon Sep 17 00:00:00 2001
+From: =?UTF-8?q?Petr=20P=C3=ADsa=C5=99?= <ppisar@redhat.com>
+Date: Thu, 6 Aug 2020 10:51:56 +0200
+Subject: [PATCH] IO::Handle: Fix a spurious error reported for regular file
+ handles
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+89341f87 fix for GH #6799 introduced a regression when calling error()
+on an IO::Handle object that was opened for reading a regular file:
+
+$ perl -e 'open my $f, q{<}, q{/etc/hosts} or die; print qq{error\n} if $f->error'
+error
+
+In case of a regular file opened for reading, IoOFP() returns NULL and
+PerlIO_error(NULL) reports -1. Compare to the case of a file opened
+for writing when both IoIFP() and IoOFP() return non-NULL, equaled
+pointer.
+
+This patch fixes handling the case of the NULL output stream.
+
+GH #18019
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ dist/IO/IO.xs     |  4 ++--
+ dist/IO/t/io_xs.t | 10 +++++++++-
+ 2 files changed, 11 insertions(+), 3 deletions(-)
+
+diff --git a/dist/IO/IO.xs b/dist/IO/IO.xs
+index 9158106416..fb009774c4 100644
+--- a/dist/IO/IO.xs
++++ b/dist/IO/IO.xs
+@@ -397,9 +397,9 @@ ferror(handle)
+     CODE:
+ 	if (in)
+ #ifdef PerlIO
+-	    RETVAL = PerlIO_error(in) || (in != out && PerlIO_error(out));
++	    RETVAL = PerlIO_error(in) || (out && in != out && PerlIO_error(out));
+ #else
+-	    RETVAL = ferror(in) || (in != out && ferror(out));
++	    RETVAL = ferror(in) || (out && in != out && ferror(out));
+ #endif
+ 	else {
+ 	    RETVAL = -1;
+diff --git a/dist/IO/t/io_xs.t b/dist/IO/t/io_xs.t
+index a8833b0651..4657088629 100644
+--- a/dist/IO/t/io_xs.t
++++ b/dist/IO/t/io_xs.t
+@@ -11,7 +11,7 @@ BEGIN {
+     }
+ }
+ 
+-use Test::More tests => 8;
++use Test::More tests => 10;
+ use IO::File;
+ use IO::Seekable;
+ 
+@@ -69,3 +69,11 @@ SKIP: {
+     ok(!$fh->error, "check clearerr removed the error");
+     close $fh; # silently ignore the error
+ }
++
++{
++    # [GH #18019] IO::Handle->error misreported an error after successully
++    # opening a regular file for reading. It was a regression in GH #6799 fix.
++    ok(open(my $fh, '<', __FILE__), "a regular file opened for reading");
++    ok(!$fh->error, "no spurious error reported by error()");
++    close $fh;
++}
+-- 
+2.25.4
+
diff --git a/perl-5.33.0-IO-Handle-clear-the-error-on-both-input-and-output-s.patch b/perl-5.33.0-IO-Handle-clear-the-error-on-both-input-and-output-s.patch
new file mode 100644
index 0000000..a1c2177
--- /dev/null
+++ b/perl-5.33.0-IO-Handle-clear-the-error-on-both-input-and-output-s.patch
@@ -0,0 +1,80 @@
+From fc5f3468dcbee38eb202cfd552a5b8dbff990c7b Mon Sep 17 00:00:00 2001
+From: Tony Cook <tony@develop-help.com>
+Date: Tue, 12 May 2020 10:59:08 +1000
+Subject: [PATCH 2/2] IO::Handle: clear the error on both input and output
+ streams
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+Similarly to GH #6799 clearerr() only cleared the error status
+of the input stream, so clear both.
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ dist/IO/IO.xs     | 14 +++++++++++---
+ dist/IO/t/io_xs.t |  8 +++++---
+ 2 files changed, 16 insertions(+), 6 deletions(-)
+
+diff --git a/dist/IO/IO.xs b/dist/IO/IO.xs
+index 99d523d2c1..9158106416 100644
+--- a/dist/IO/IO.xs
++++ b/dist/IO/IO.xs
+@@ -410,13 +410,21 @@ ferror(handle)
+ 
+ int
+ clearerr(handle)
+-	InputStream	handle
++	SV *	handle
++    PREINIT:
++        IO *io = sv_2io(handle);
++        InputStream in = IoIFP(io);
++        OutputStream out = IoOFP(io);
+     CODE:
+ 	if (handle) {
+ #ifdef PerlIO
+-	    PerlIO_clearerr(handle);
++	    PerlIO_clearerr(in);
++            if (in != out)
++                PerlIO_clearerr(out);
+ #else
+-	    clearerr(handle);
++	    clearerr(in);
++            if (in != out)
++                clearerr(out);
+ #endif
+ 	    RETVAL = 0;
+ 	}
+diff --git a/dist/IO/t/io_xs.t b/dist/IO/t/io_xs.t
+index f890e92558..a8833b0651 100644
+--- a/dist/IO/t/io_xs.t
++++ b/dist/IO/t/io_xs.t
+@@ -11,7 +11,7 @@ BEGIN {
+     }
+ }
+ 
+-use Test::More tests => 7;
++use Test::More tests => 8;
+ use IO::File;
+ use IO::Seekable;
+ 
+@@ -58,12 +58,14 @@ SKIP: {
+     # This isn't really a Linux/BSD specific test, but /dev/full is (I
+     # hope) reasonably well defined on these.  Patches welcome if your platform
+     # also supports it (or something like it)
+-    skip "no /dev/full or not a /dev/full platform", 2
++    skip "no /dev/full or not a /dev/full platform", 3
+       unless $^O =~ /^(linux|netbsd|freebsd)$/ && -c "/dev/full";
+     open my $fh, ">", "/dev/full"
+-      or skip "Could not open /dev/full: $!", 2;
++      or skip "Could not open /dev/full: $!", 3;
+     $fh->print("a" x 1024);
+     ok(!$fh->flush, "should fail to flush");
+     ok($fh->error, "stream should be in error");
++    $fh->clearerr;
++    ok(!$fh->error, "check clearerr removed the error");
+     close $fh; # silently ignore the error
+ }
+-- 
+2.25.4
+
diff --git a/perl-5.33.0-IO-Socket-UNIX-synchronize-behavior-with-module-docu.patch b/perl-5.33.0-IO-Socket-UNIX-synchronize-behavior-with-module-docu.patch
new file mode 100644
index 0000000..75be229
--- /dev/null
+++ b/perl-5.33.0-IO-Socket-UNIX-synchronize-behavior-with-module-docu.patch
@@ -0,0 +1,61 @@
+From c6439962c995d4d7052af9fb3f92da93c1584b84 Mon Sep 17 00:00:00 2001
+From: vividsnow <vividsnow@gmail.com>
+Date: Fri, 31 Jul 2020 00:37:58 +0300
+Subject: [PATCH] IO::Socket::UNIX: synchronize behavior with module
+ documentation (#17787)
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+* synchronize behavior with module documentation
+
+IO::Socket docs states that passing Blocking => 0 will be set socket to non-blocking mode
+
+* Update AUTHORS
+* bump version
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ AUTHORS                       | 1 +
+ dist/IO/lib/IO/Socket/UNIX.pm | 6 +++++-
+ 2 files changed, 6 insertions(+), 1 deletion(-)
+
+diff --git a/AUTHORS b/AUTHORS
+index 577ba7d0ee..299fdec8a8 100644
+--- a/AUTHORS
++++ b/AUTHORS
+@@ -1293,6 +1293,7 @@ Ville Skyttä                   <scop@cs132170.pp.htv.fi>
+ Vincent Pit                    <perl@profvince.com>
+ Vishal Bhatia                  <vishal@deja.com>
+ Vitali Peil                    <vitali.peil@uni-bielefeld.de>
++vividsnow                      <vividsnow@gmail.com>
+ Vlad Harchev                   <hvv@hippo.ru>
+ Vladimir Alexiev               <vladimir@cs.ualberta.ca>
+ Vladimir Marek                 <vlmarek@volny.cz>
+diff --git a/dist/IO/lib/IO/Socket/UNIX.pm b/dist/IO/lib/IO/Socket/UNIX.pm
+index 04b36eaf74..14d0b27a8c 100644
+--- a/dist/IO/lib/IO/Socket/UNIX.pm
++++ b/dist/IO/lib/IO/Socket/UNIX.pm
+@@ -11,7 +11,7 @@ use IO::Socket;
+ use Carp;
+ 
+ our @ISA = qw(IO::Socket);
+-our $VERSION = "1.41";
++our $VERSION = "1.42";
+ 
+ IO::Socket::UNIX->register_domain( AF_UNIX );
+ 
+@@ -30,6 +30,10 @@ sub configure {
+     $sock->socket(AF_UNIX, $type, 0) or
+ 	return undef;
+ 
++    if(exists $arg->{Blocking}) {
++        $sock->blocking($arg->{Blocking}) or
++	    return undef;
++    }
+     if(exists $arg->{Local}) {
+ 	my $addr = sockaddr_un($arg->{Local});
+ 	$sock->bind($addr) or
+-- 
+2.25.4
+
diff --git a/perl-5.33.0-MUTABLE_PTR-Rmv-non-standard-syntax.patch b/perl-5.33.0-MUTABLE_PTR-Rmv-non-standard-syntax.patch
new file mode 100644
index 0000000..dd5986a
--- /dev/null
+++ b/perl-5.33.0-MUTABLE_PTR-Rmv-non-standard-syntax.patch
@@ -0,0 +1,32 @@
+From 6c2255e0e80e0dc00c7fd96e073f1f524bbaa3e0 Mon Sep 17 00:00:00 2001
+From: Karl Williamson <khw@cpan.org>
+Date: Mon, 29 Jun 2020 09:21:24 -0600
+Subject: [PATCH] MUTABLE_PTR() Rmv non-standard syntax
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+Variables in C are beginning with an underscore are reserved for use by
+the C implementation.  Change this non-conformant usage.
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ handy.h | 2 +-
+ 1 file changed, 1 insertion(+), 1 deletion(-)
+
+diff --git a/handy.h b/handy.h
+index 287e2e206d..890b2b11a2 100644
+--- a/handy.h
++++ b/handy.h
+@@ -54,7 +54,7 @@ Null SV pointer.  (No longer available when C<PERL_CORE> is defined.)
+  */
+ 
+ #if defined(__GNUC__) && !defined(PERL_GCC_BRACE_GROUPS_FORBIDDEN)
+-#  define MUTABLE_PTR(p) ({ void *_p = (p); _p; })
++#  define MUTABLE_PTR(p) ({ void *p_ = (p); p_; })
+ #else
+ #  define MUTABLE_PTR(p) ((void *) (p))
+ #endif
+-- 
+2.25.4
+
diff --git a/perl-5.33.0-Update-pod-for-SvTRUE-to-indicate-single-param-evalu.patch b/perl-5.33.0-Update-pod-for-SvTRUE-to-indicate-single-param-evalu.patch
new file mode 100644
index 0000000..551b315
--- /dev/null
+++ b/perl-5.33.0-Update-pod-for-SvTRUE-to-indicate-single-param-evalu.patch
@@ -0,0 +1,33 @@
+From b26a606d84ae1a6da560c7cd71d1a33c0dc7178e Mon Sep 17 00:00:00 2001
+From: Karl Williamson <khw@cpan.org>
+Date: Sun, 14 Jun 2020 12:26:02 -0600
+Subject: [PATCH] Update pod for SvTRUE, to indicate single param evaluation
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+5.32 changed this macro into an inline function so that 'sv' only gets
+evaluated once, but didn't update the documentation to reflect that.
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ sv.h | 3 ++-
+ 1 file changed, 2 insertions(+), 1 deletion(-)
+
+diff --git a/sv.h b/sv.h
+index 3721b2fb1b..ad8accbf1a 100644
+--- a/sv.h
++++ b/sv.h
+@@ -1607,7 +1607,8 @@ false.  See C<L</SvOK>> for a defined/undefined test.  Handles 'get' magic
+ unless the scalar is already C<SvPOK>, C<SvIOK> or C<SvNOK> (the public, not the
+ private flags).
+ 
+-See C<L</SvTRUEx>> for a version which guarantees to evaluate C<sv> only once.
++As of Perl 5.32, this is guaranteed to evaluate C<sv> only once.  Prior to that
++release, use C<L</SvTRUEx>> for single evaluation.
+ 
+ =for apidoc Am|bool|SvTRUE_nomg|SV* sv
+ Returns a boolean indicating whether Perl would evaluate the SV as true or
+-- 
+2.25.4
+
diff --git a/perl-5.33.0-XSUB.h-fix-MARK-and-items-variables-inside-BOOT-XSUB.patch b/perl-5.33.0-XSUB.h-fix-MARK-and-items-variables-inside-BOOT-XSUB.patch
new file mode 100644
index 0000000..fe4d653
--- /dev/null
+++ b/perl-5.33.0-XSUB.h-fix-MARK-and-items-variables-inside-BOOT-XSUB.patch
@@ -0,0 +1,45 @@
+From 313464947382fab07299af0061f419a55540356a Mon Sep 17 00:00:00 2001
+From: Tomasz Konojacki <me@xenu.pl>
+Date: Mon, 27 Apr 2020 08:31:47 +0200
+Subject: [PATCH] XSUB.h: fix MARK and items variables inside BOOT XSUBs
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+ax was incremented by Perl_xs_handshake() and because of that
+MARK and items were off by one inside BOOT XSUBs.
+
+fixes #17755
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ XSUB.h | 6 +++---
+ 1 file changed, 3 insertions(+), 3 deletions(-)
+
+diff --git a/XSUB.h b/XSUB.h
+index e3147ce9fb..5f17a5acde 100644
+--- a/XSUB.h
++++ b/XSUB.h
+@@ -160,16 +160,16 @@ is a lexical C<$_> in scope.
+    PL_xsubfilename. */
+ #define dXSBOOTARGSXSAPIVERCHK  \
+ 	I32 ax = XS_BOTHVERSION_SETXSUBFN_POPMARK_BOOTCHECK;	\
+-	SV **mark = PL_stack_base + ax; dSP; dITEMS
++	SV **mark = PL_stack_base + ax - 1; dSP; dITEMS
+ #define dXSBOOTARGSAPIVERCHK  \
+ 	I32 ax = XS_APIVERSION_SETXSUBFN_POPMARK_BOOTCHECK;	\
+-	SV **mark = PL_stack_base + ax; dSP; dITEMS
++	SV **mark = PL_stack_base + ax - 1; dSP; dITEMS
+ /* dXSBOOTARGSNOVERCHK has no API in xsubpp to choose it so do
+ #undef dXSBOOTARGSXSAPIVERCHK
+ #define dXSBOOTARGSXSAPIVERCHK dXSBOOTARGSNOVERCHK */
+ #define dXSBOOTARGSNOVERCHK  \
+ 	I32 ax = XS_SETXSUBFN_POPMARK;  \
+-	SV **mark = PL_stack_base + ax; dSP; dITEMS
++	SV **mark = PL_stack_base + ax - 1; dSP; dITEMS
+ 
+ #define dXSTARG SV * const targ = ((PL_op->op_private & OPpENTERSUB_HASTARG) \
+ 			     ? PAD_SV(PL_op->op_targ) : sv_newmortal())
+-- 
+2.25.4
+
diff --git a/perl-5.33.0-ext-XS-APItest-t-utf8_warn_base.pl-Fix-a-couple-test.patch b/perl-5.33.0-ext-XS-APItest-t-utf8_warn_base.pl-Fix-a-couple-test.patch
new file mode 100644
index 0000000..338f368
--- /dev/null
+++ b/perl-5.33.0-ext-XS-APItest-t-utf8_warn_base.pl-Fix-a-couple-test.patch
@@ -0,0 +1,38 @@
+From 73b535d23d98bd3bdc31a27da26222e2e56166ac Mon Sep 17 00:00:00 2001
+From: Karl Williamson <khw@cpan.org>
+Date: Tue, 30 Jun 2020 13:58:50 -0600
+Subject: [PATCH] ext/XS-APItest/t/utf8_warn_base.pl: Fix a couple tests
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+These had invalid values, which didn't show up execpt on EBCDIC
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ ext/XS-APItest/t/utf8_warn_base.pl | 2 --
+ 1 file changed, 2 deletions(-)
+
+diff --git a/ext/XS-APItest/t/utf8_warn_base.pl b/ext/XS-APItest/t/utf8_warn_base.pl
+index d86871cd0f..a0f732282e 100644
+--- a/ext/XS-APItest/t/utf8_warn_base.pl
++++ b/ext/XS-APItest/t/utf8_warn_base.pl
+@@ -486,7 +486,6 @@ my @tests;
+               : I8_to_native(
+                 "\xff\xa7\xbf\xbf\xbf\xbf\xbf\xbf\xbf\xbf\xbf\xbf\xbf\xbf"),
+               0x7FFFFFFFFFFFFFFF,
+-              (isASCII) ? 1 : 2,
+             ],
+             [ "first 64 bit code point",
+               (isASCII)
+@@ -525,7 +524,6 @@ my @tests;
+                     I8_to_native(
+                     "\xff\xa0\xa0\xa0\xa0\xa0\xa1\xa0\xa0\xa0\xa0\xa0\xa0\xa0"),
+                     0x800000000,
+-                      40000000
+                 ],
+                 [ "requires at least 32 bits",
+                     I8_to_native(
+-- 
+2.25.4
+
diff --git a/perl-5.33.0-fix-C-i-obj-where-obj-is-a-lexical.patch b/perl-5.33.0-fix-C-i-obj-where-obj-is-a-lexical.patch
new file mode 100644
index 0000000..f7acd14
--- /dev/null
+++ b/perl-5.33.0-fix-C-i-obj-where-obj-is-a-lexical.patch
@@ -0,0 +1,193 @@
+From b334474a337421c6643b872388245fb2c11bf995 Mon Sep 17 00:00:00 2001
+From: Tony Cook <tony@develop-help.com>
+Date: Mon, 30 Mar 2020 16:32:46 +1100
+Subject: [PATCH] fix C<i $obj> where $obj is a lexical
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+the DB::eval function depends on the special behaviour of eval ""
+within the DB package, which evaluates the string within the context
+of the first non-DB sub or eval scope, working up the call stack.
+
+The debugger refactor moved handling for the 'i' command from the
+DB package to the DB::Obj package, so the eval in DB::eval was
+working in the context of the DB::Obj::cmd_i function, not in the
+calling scope.
+
+Fixed by moving the handling for the i command back to DB.
+
+Fixes #17661.
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ MANIFEST               |  1 +
+ lib/perl5db.pl         | 65 +++++++++++++++++++++---------------------
+ lib/perl5db.t          | 20 +++++++++++++
+ lib/perl5db/t/gh-17661 | 14 +++++++++
+ 4 files changed, 68 insertions(+), 32 deletions(-)
+ create mode 100644 lib/perl5db/t/gh-17661
+
+diff --git a/MANIFEST b/MANIFEST
+index 8c71995174..96af3618bd 100644
+--- a/MANIFEST
++++ b/MANIFEST
+@@ -4808,6 +4808,7 @@ lib/perl5db/t/eval-line-bug	Tests for the Perl debugger
+ lib/perl5db/t/fact		Tests for the Perl debugger
+ lib/perl5db/t/filename-line-breakpoint		Tests for the Perl debugger
+ lib/perl5db/t/gh-17660		Tests for the Perl debugger
++lib/perl5db/t/gh-17661		Tests for the Perl debugger
+ lib/perl5db/t/load-modules	Tests for the Perl debugger
+ lib/perl5db/t/lsub-n		Test script used by perl5db.t
+ lib/perl5db/t/lvalue-bug	Tests for the Perl debugger
+diff --git a/lib/perl5db.pl b/lib/perl5db.pl
+index 96e56d559f..b647d24fb8 100644
+--- a/lib/perl5db.pl
++++ b/lib/perl5db.pl
+@@ -2512,6 +2512,37 @@ EOP
+     return;
+ }
+ 
++=head3 C<_DB__handle_i_command> - inheritance display
++
++Display the (nested) parentage of the module or object given.
++
++=cut
++
++sub _DB__handle_i_command {
++    my $self = shift;
++
++    my $line = $self->cmd_args;
++    require mro;
++    foreach my $isa ( split( /\s+/, $line ) ) {
++        $evalarg = "$isa";
++        # The &-call is here to ascertain the mutability of @_.
++        ($isa) = &DB::eval;
++        no strict 'refs';
++        print join(
++            ', ',
++            map {
++                "$_"
++                  . (
++                    defined( ${"$_\::VERSION"} )
++                    ? ' ' . ${"$_\::VERSION"}
++                    : undef )
++              } @{mro::get_linear_isa(ref($isa) || $isa)}
++        );
++        print "\n";
++    }
++    next CMD;
++}
++
+ # 't' is type.
+ # 'm' is method.
+ # 'v' is the value (i.e: method name or subroutine ref).
+@@ -2531,6 +2562,7 @@ BEGIN
+     'W' => { t => 'm', v => '_handle_W_command', },
+     'c' => { t => 's', v => \&_DB__handle_c_command, },
+     'f' => { t => 's', v => \&_DB__handle_f_command, },
++    'i' => { t => 's', v => \&_DB__handle_i_command, },
+     'm' => { t => 's', v => \&_DB__handle_m_command, },
+     'n' => { t => 'm', v => '_handle_n_command', },
+     'p' => { t => 'm', v => '_handle_p_command', },
+@@ -2551,7 +2583,7 @@ BEGIN
+         { t => 's', v => \&_DB__handle_restart_and_rerun_commands, },
+         } qw(R rerun)),
+     (map { $_ => {t => 'm', v => '_handle_cmd_wrapper_commands' }, }
+-        qw(a A b B e E h i l L M o O v w W)),
++        qw(a A b B e E h l L M o O v w W)),
+ );
+ };
+ 
+@@ -5468,37 +5500,6 @@ sub cmd_h {
+     }
+ } ## end sub cmd_h
+ 
+-=head3 C<cmd_i> - inheritance display
+-
+-Display the (nested) parentage of the module or object given.
+-
+-=cut
+-
+-sub cmd_i {
+-    my $cmd  = shift;
+-    my $line = shift;
+-
+-    require mro;
+-
+-    foreach my $isa ( split( /\s+/, $line ) ) {
+-        $evalarg = $isa;
+-        # The &-call is here to ascertain the mutability of @_.
+-        ($isa) = &DB::eval;
+-        no strict 'refs';
+-        print join(
+-            ', ',
+-            map {
+-                "$_"
+-                  . (
+-                    defined( ${"$_\::VERSION"} )
+-                    ? ' ' . ${"$_\::VERSION"}
+-                    : undef )
+-              } @{mro::get_linear_isa(ref($isa) || $isa)}
+-        );
+-        print "\n";
+-    }
+-} ## end sub cmd_i
+-
+ =head3 C<cmd_l> - list lines (command)
+ 
+ Most of the command is taken up with transforming all the different line
+diff --git a/lib/perl5db.t b/lib/perl5db.t
+index 913a301d98..ffa659a215 100644
+--- a/lib/perl5db.t
++++ b/lib/perl5db.t
+@@ -2946,6 +2946,26 @@ SKIP:
+        );
+ }
+ 
++{
++    # gh #17661
++    my $wrapper = DebugWrap->new(
++        {
++            cmds =>
++            [
++                'c',
++                'i $obj',
++                'q',
++            ],
++            prog => '../lib/perl5db/t/gh-17661',
++        }
++    );
++
++    $wrapper->output_like(
++        qr/C5, C1, C2, C3, C4/,
++        q/check for reasonable result/,
++       );
++}
++
+ SKIP:
+ {
+     $Config{usethreads}
+diff --git a/lib/perl5db/t/gh-17661 b/lib/perl5db/t/gh-17661
+new file mode 100644
+index 0000000000..0d85977b35
+--- /dev/null
++++ b/lib/perl5db/t/gh-17661
+@@ -0,0 +1,14 @@
++use v5.10.0;
++
++{ package C1; sub c1 { } our @ISA = qw(C2) }
++{ package C2; sub c2 { } our @ISA = qw(C3) }
++{ package C3; sub c3 { } our @ISA = qw(  ) }
++{ package C4; sub c4 { } our @ISA = qw(  ) }
++{ package C5; sub c5 { } our @ISA = qw(C1 C4) }
++
++my $obj = bless {}, 'C5';
++$main::global = bless {}, 'C5';
++
++$DB::single = 1;
++
++say "Done.";
+-- 
+2.25.4
+
diff --git a/perl-5.33.0-list-assign-in-list-context-honour-LHS-undef.patch b/perl-5.33.0-list-assign-in-list-context-honour-LHS-undef.patch
new file mode 100644
index 0000000..e9f29f7
--- /dev/null
+++ b/perl-5.33.0-list-assign-in-list-context-honour-LHS-undef.patch
@@ -0,0 +1,71 @@
+From 282d9dfeb4cea3c2d0335ba78faa3a9db931f1ec Mon Sep 17 00:00:00 2001
+From: David Mitchell <davem@iabyn.com>
+Date: Tue, 11 Aug 2020 13:58:51 +0100
+Subject: [PATCH] list assign in list context: honour LHS undef
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+GH #16685
+
+In
+
+    @a = ($x, undef, undef) = (1))
+
+@a should have 3 elements. v5.25.6-79-gb09ed995ad broke this and was
+returning one element.
+
+The fix is simple: that previous commit made it so that elements were
+pushed back onto the stack only if they weren't immortal, so
+&PL_sv_undef was getting skipped. Make it so they always are.
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ pp_hot.c       |  2 +-
+ t/op/aassign.t | 10 +++++++++-
+ 2 files changed, 10 insertions(+), 2 deletions(-)
+
+diff --git a/pp_hot.c b/pp_hot.c
+index e9f1ffe7a4..3564dd7e12 100644
+--- a/pp_hot.c
++++ b/pp_hot.c
+@@ -2743,8 +2743,8 @@ PP(pp_aassign)
+ 	    if (!SvIMMORTAL(lsv)) {
+                 sv_set_undef(lsv);
+                 SvSETMAGIC(lsv);
+-                *relem++ = lsv;
+             }
++            *relem++ = lsv;
+ 	    break;
+         } /* switch */
+     } /* while */
+diff --git a/t/op/aassign.t b/t/op/aassign.t
+index 9128f9fd98..aa1f2c722c 100644
+--- a/t/op/aassign.t
++++ b/t/op/aassign.t
+@@ -595,7 +595,7 @@ SKIP: {
+ }
+ 
+ {
+-    # GH #17816
++    # GH #16685
+     # don't use the "1-arg on LHS can't be common" optimisation
+     # when there are undef's there
+     my $x = 1;
+@@ -603,5 +603,13 @@ SKIP: {
+     is("@a", "2 1", "GH #17816");
+ }
+ 
++{
++    # GH #17816
++    # honour trailing undef's in list context
++    my $x = 1;
++    my @a = (($x, undef, undef) = (1));
++    is(scalar @a, 3, "GH #17816");
++}
++
+ 
+ done_testing();
+-- 
+2.25.4
+
diff --git a/perl-5.33.0-list-assign-in-list-context-was-over-optimising.patch b/perl-5.33.0-list-assign-in-list-context-was-over-optimising.patch
new file mode 100644
index 0000000..e8a7c5f
--- /dev/null
+++ b/perl-5.33.0-list-assign-in-list-context-was-over-optimising.patch
@@ -0,0 +1,76 @@
+From 5b354d2a8a6fea46c62048464c6722560cb1c907 Mon Sep 17 00:00:00 2001
+From: David Mitchell <davem@iabyn.com>
+Date: Tue, 11 Aug 2020 11:55:46 +0100
+Subject: [PATCH] list assign in list context was over-optimising
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+GH #17816
+
+This code:
+
+    my $x = 1;
+    print (($x, undef) = (2 => $x));
+
+was printing "22" when it should have been printing "21".
+An optimisation skips the 'common values on both sides' test
+when the LHS of an assign only contains a single var; as the example
+above shows, this is not sufficient.
+
+This was broken by v5.23.1-202-g808ce55782
+
+This commit fixes it by counting undef's on the LHS towards the var
+count if they don't appear first.
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ op.c           | 10 +++++++---
+ t/op/aassign.t | 10 ++++++++++
+ 2 files changed, 17 insertions(+), 3 deletions(-)
+
+diff --git a/op.c b/op.c
+index 05f6d9d1a3..49aac853d4 100644
+--- a/op.c
++++ b/op.c
+@@ -15679,11 +15679,15 @@ S_aassign_scan(pTHX_ OP* o, bool rhs, int *scalars_p)
+         goto do_next;
+ 
+     case OP_UNDEF:
+-        /* undef counts as a scalar on the RHS:
+-         *   (undef, $x) = ...;         # only 1 scalar on LHS: always safe
++        /* undef on LHS following a var is significant, e.g.
++         *    my $x = 1;
++         *    @a = (($x, undef) = (2 => $x));
++         *    # @a shoul be (2,1) not (2,2)
++         *
++         * undef on RHS counts as a scalar:
+          *   ($x, $y)    = (undef, $x); # 2 scalars on RHS: unsafe
+          */
+-        if (rhs)
++        if ((!rhs && *scalars_p) || rhs)
+             (*scalars_p)++;
+         flags = AAS_SAFE_SCALAR;
+         break;
+diff --git a/t/op/aassign.t b/t/op/aassign.t
+index ed904adc62..9128f9fd98 100644
+--- a/t/op/aassign.t
++++ b/t/op/aassign.t
+@@ -594,4 +594,14 @@ SKIP: {
+     is ($fill, 2, "RT #130132 array 2");
+ }
+ 
++{
++    # GH #17816
++    # don't use the "1-arg on LHS can't be common" optimisation
++    # when there are undef's there
++    my $x = 1;
++    my @a = (($x, undef) = (2 => $x));
++    is("@a", "2 1", "GH #17816");
++}
++
++
+ done_testing();
+-- 
+2.25.4
+
diff --git a/perl-5.33.0-make-fh-error-report-errors-from-both-input-and-outp.patch b/perl-5.33.0-make-fh-error-report-errors-from-both-input-and-outp.patch
new file mode 100644
index 0000000..8f52323
--- /dev/null
+++ b/perl-5.33.0-make-fh-error-report-errors-from-both-input-and-outp.patch
@@ -0,0 +1,87 @@
+From 89341f87f9fc65c4d7133e497bb04586e86b8052 Mon Sep 17 00:00:00 2001
+From: Tony Cook <tony@develop-help.com>
+Date: Tue, 12 May 2020 10:29:17 +1000
+Subject: [PATCH 1/2] make $fh->error report errors from both input and output
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+For character devices and sockets perl uses separate PerlIO objects
+for input and output so they can be buffered separately.
+
+The IO::Handle::error() method only checked the input stream, so
+if a write error occurs error() would still returned false.
+
+Change this so both the input and output streams are checked.
+
+fixes #6799
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ dist/IO/IO.xs     | 12 ++++++++----
+ dist/IO/t/io_xs.t | 19 ++++++++++++++++++-
+ 2 files changed, 26 insertions(+), 5 deletions(-)
+
+diff --git a/dist/IO/IO.xs b/dist/IO/IO.xs
+index 68b7352c38..99d523d2c1 100644
+--- a/dist/IO/IO.xs
++++ b/dist/IO/IO.xs
+@@ -389,13 +389,17 @@ ungetc(handle, c)
+ 
+ int
+ ferror(handle)
+-	InputStream	handle
++	SV *	handle
++    PREINIT:
++        IO *io = sv_2io(handle);
++        InputStream in = IoIFP(io);
++        OutputStream out = IoOFP(io);
+     CODE:
+-	if (handle)
++	if (in)
+ #ifdef PerlIO
+-	    RETVAL = PerlIO_error(handle);
++	    RETVAL = PerlIO_error(in) || (in != out && PerlIO_error(out));
+ #else
+-	    RETVAL = ferror(handle);
++	    RETVAL = ferror(in) || (in != out && ferror(out));
+ #endif
+ 	else {
+ 	    RETVAL = -1;
+diff --git a/dist/IO/t/io_xs.t b/dist/IO/t/io_xs.t
+index 1e3c49a4a7..f890e92558 100644
+--- a/dist/IO/t/io_xs.t
++++ b/dist/IO/t/io_xs.t
+@@ -11,7 +11,7 @@ BEGIN {
+     }
+ }
+ 
+-use Test::More tests => 5;
++use Test::More tests => 7;
+ use IO::File;
+ use IO::Seekable;
+ 
+@@ -50,3 +50,20 @@ SKIP:
+     ok($fh->sync, "sync to a read only handle")
+ 	or diag "sync(): ", $!;
+ }
++
++
++SKIP: {
++    # gh 6799
++    #
++    # This isn't really a Linux/BSD specific test, but /dev/full is (I
++    # hope) reasonably well defined on these.  Patches welcome if your platform
++    # also supports it (or something like it)
++    skip "no /dev/full or not a /dev/full platform", 2
++      unless $^O =~ /^(linux|netbsd|freebsd)$/ && -c "/dev/full";
++    open my $fh, ">", "/dev/full"
++      or skip "Could not open /dev/full: $!", 2;
++    $fh->print("a" x 1024);
++    ok(!$fh->flush, "should fail to flush");
++    ok($fh->error, "stream should be in error");
++    close $fh; # silently ignore the error
++}
+-- 
+2.25.4
+
diff --git a/perl-5.33.0-perl-17844-don-t-update-SvCUR-until-after-we-ve-done.patch b/perl-5.33.0-perl-17844-don-t-update-SvCUR-until-after-we-ve-done.patch
new file mode 100644
index 0000000..ce31651
--- /dev/null
+++ b/perl-5.33.0-perl-17844-don-t-update-SvCUR-until-after-we-ve-done.patch
@@ -0,0 +1,72 @@
+From 45f235c116d4deab95c576aff77fe46d609f8553 Mon Sep 17 00:00:00 2001
+From: Tony Cook <tony@develop-help.com>
+Date: Mon, 15 Apr 2019 15:23:32 +1000
+Subject: [PATCH] (perl #17844) don't update SvCUR until after we've done
+ moving
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+SvCUR() before the SvGROW() calls could result in reading beyond the
+end of a buffer.
+
+It wasn't a problem in the normal case, since sv_grow() just calls
+realloc() which has its own notion of how big the memory block is, but
+if the SV is SvOOK() sv_backoff() tries to move SvCUR()+1 bytes, which
+might be larger than the currently allocated size of the PV.
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ doop.c     |  2 +-
+ t/op/bop.t | 11 ++++++++++-
+ 2 files changed, 11 insertions(+), 2 deletions(-)
+
+diff --git a/doop.c b/doop.c
+index 88220092c3..c9c953212e 100644
+--- a/doop.c
++++ b/doop.c
+@@ -1087,7 +1087,6 @@ Perl_do_vop(pTHX_ I32 optype, SV *sv, SV *left, SV *right)
+     lsave = lc;
+     rsave = rc;
+ 
+-    SvCUR_set(sv, len);
+     (void)SvPOK_only(sv);
+     if (SvOK(sv) || SvTYPE(sv) > SVt_PVMG) {
+ 	dc = SvPV_force_nomg_nolen(sv);
+@@ -1103,6 +1102,7 @@ Perl_do_vop(pTHX_ I32 optype, SV *sv, SV *left, SV *right)
+ 	sv_usepvn_flags(sv, dc, needlen, SV_HAS_TRAILING_NUL);
+ 	dc = SvPVX(sv);		/* sv_usepvn() calls Renew() */
+     }
++    SvCUR_set(sv, len);
+ 
+     if (len >= sizeof(long)*4 &&
+ 	!(PTR2nat(dc) % sizeof(long)) &&
+diff --git a/t/op/bop.t b/t/op/bop.t
+index eecd90387f..07f057d0a9 100644
+--- a/t/op/bop.t
++++ b/t/op/bop.t
+@@ -18,7 +18,7 @@ BEGIN {
+ # If you find tests are failing, please try adding names to tests to track
+ # down where the failure is, and supply your new names as a patch.
+ # (Just-in-time test naming)
+-plan tests => 501;
++plan tests => 502;
+ 
+ # numerics
+ ok ((0xdead & 0xbeef) == 0x9ead);
+@@ -669,3 +669,12 @@ foreach my $op_info ([and => "&"], [or => "|"], [xor => "^"]) {
+         like $@, $expected, $description;
+     }
+ }
++
++{
++    # perl #17844 - only visible with valgrind/ASAN
++    fresh_perl_is(<<'EOS',
++formline X000n^\\0,\\0^\\0for\0,0..10
++EOS
++                  '',
++                  {}, "[perl #17844] access beyond end of block");
++}
+-- 
+2.25.4
+
diff --git a/perl-5.33.0-reentr.c-Buffer-sizes-for-asctime_r-ctime_r-are-smal.patch b/perl-5.33.0-reentr.c-Buffer-sizes-for-asctime_r-ctime_r-are-smal.patch
new file mode 100644
index 0000000..7778210
--- /dev/null
+++ b/perl-5.33.0-reentr.c-Buffer-sizes-for-asctime_r-ctime_r-are-smal.patch
@@ -0,0 +1,58 @@
+From 81169c06a76f62ff987ed990ac910c2ae08b3f91 Mon Sep 17 00:00:00 2001
+From: Karl Williamson <khw@cpan.org>
+Date: Tue, 10 Mar 2020 15:19:57 -0600
+Subject: [PATCH] reentr.c: Buffer sizes for asctime_r,ctime_r are small
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+The needed sizes of these are stated in the man pages, and are much
+smaller than were being allocated.
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ reentr.c        | 4 ++--
+ regen/reentr.pl | 5 ++++-
+ 2 files changed, 6 insertions(+), 3 deletions(-)
+
+diff --git a/reentr.c b/reentr.c
+index 8ddda7bfc0..8438c8f90f 100644
+--- a/reentr.c
++++ b/reentr.c
+@@ -52,14 +52,14 @@ Perl_reentrant_size(pTHX) {
+ #  define REENTRANTUSUALSIZE	4096	/* Make something up. */
+ 
+ #  ifdef HAS_ASCTIME_R
+-	PL_reentrant_buffer->_asctime_size = REENTRANTSMALLSIZE;
++	PL_reentrant_buffer->_asctime_size = 26;
+ #  endif /* HAS_ASCTIME_R */
+ 
+ #  ifdef HAS_CRYPT_R
+ #  endif /* HAS_CRYPT_R */
+ 
+ #  ifdef HAS_CTIME_R
+-	PL_reentrant_buffer->_ctime_size = REENTRANTSMALLSIZE;
++	PL_reentrant_buffer->_ctime_size = 26;
+ #  endif /* HAS_CTIME_R */
+ 
+ #  ifdef HAS_GETGRNAM_R
+diff --git a/regen/reentr.pl b/regen/reentr.pl
+index f5788c7ad9..94721e9dec 100644
+--- a/regen/reentr.pl
++++ b/regen/reentr.pl
+@@ -495,8 +495,11 @@ for my $func (@seenf) {
+ 	char*	_${func}_buffer;
+ 	size_t	_${func}_size;
+ EOF
++            my $size = ($func =~ /^(asctime|ctime)$/)
++                       ? 26
++                       : "REENTRANTSMALLSIZE";
+ 	    push @size, <<EOF;
+-	PL_reentrant_buffer->_${func}_size = REENTRANTSMALLSIZE;
++	PL_reentrant_buffer->_${func}_size = $size;
+ EOF
+ 	    pushinitfree $func;
+ 	    pushssif $endif;
+-- 
+2.25.4
+
diff --git a/perl-5.33.0-reentr.c-Prevent-infinite-looping.patch b/perl-5.33.0-reentr.c-Prevent-infinite-looping.patch
new file mode 100644
index 0000000..a67c259
--- /dev/null
+++ b/perl-5.33.0-reentr.c-Prevent-infinite-looping.patch
@@ -0,0 +1,46 @@
+From 981fbfc16220a15e72457d8ece4e014988746946 Mon Sep 17 00:00:00 2001
+From: Karl Williamson <khw@cpan.org>
+Date: Thu, 12 Mar 2020 12:48:47 -0600
+Subject: [PATCH] reentr.c: Prevent infinite looping
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+This is an easy, though  paranoid hedge to prevent something that should
+never happen from causing an infinite loop if it were to happen.
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ reentr.c        | 2 +-
+ regen/reentr.pl | 2 +-
+ 2 files changed, 2 insertions(+), 2 deletions(-)
+
+diff --git a/reentr.c b/reentr.c
+index 8438c8f90f..2429aa2f5d 100644
+--- a/reentr.c
++++ b/reentr.c
+@@ -36,7 +36,7 @@
+ 
+ #define RenewDouble(data_pointer, size_pointer, type) \
+     STMT_START { \
+-	const size_t size = *(size_pointer) * 2; \
++	const size_t size = MAX(*(size_pointer), 1) * 2; \
+ 	Renew((data_pointer), (size), type); \
+ 	*(size_pointer) = size; \
+     } STMT_END
+diff --git a/regen/reentr.pl b/regen/reentr.pl
+index 94721e9dec..ba2e1c8fa6 100644
+--- a/regen/reentr.pl
++++ b/regen/reentr.pl
+@@ -818,7 +818,7 @@ print $c <<"EOF";
+ 
+ #define RenewDouble(data_pointer, size_pointer, type) \\
+     STMT_START { \\
+-	const size_t size = *(size_pointer) * 2; \\
++	const size_t size = MAX(*(size_pointer), 1) * 2; \\
+ 	Renew((data_pointer), (size), type); \\
+ 	*(size_pointer) = size; \\
+     } STMT_END
+-- 
+2.25.4
+
diff --git a/perl-5.33.0-sv.h-Wanted-UOK-but-said-IOK.patch b/perl-5.33.0-sv.h-Wanted-UOK-but-said-IOK.patch
new file mode 100644
index 0000000..759ed92
--- /dev/null
+++ b/perl-5.33.0-sv.h-Wanted-UOK-but-said-IOK.patch
@@ -0,0 +1,31 @@
+From 530e9296a21b673d7e4c2b42f18d0d52d00f35c4 Mon Sep 17 00:00:00 2001
+From: Karl Williamson <khw@cpan.org>
+Date: Sun, 28 Jun 2020 12:03:54 -0600
+Subject: [PATCH] sv.h: Wanted UOK, but said IOK
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+I don't know the consequences of this bug
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ sv.h | 2 +-
+ 1 file changed, 1 insertion(+), 1 deletion(-)
+
+diff --git a/sv.h b/sv.h
+index 2f6431a826..3721b2fb1b 100644
+--- a/sv.h
++++ b/sv.h
+@@ -1711,7 +1711,7 @@ Like C<sv_catsv> but doesn't process magic.
+ #define SvNV(sv) (SvNOK_nog(sv) ? SvNVX(sv) : sv_2nv(sv))
+ 
+ #define SvIV_nomg(sv) (SvIOK(sv) ? SvIVX(sv) : sv_2iv_flags(sv, 0))
+-#define SvUV_nomg(sv) (SvIOK(sv) ? SvUVX(sv) : sv_2uv_flags(sv, 0))
++#define SvUV_nomg(sv) (SvUOK(sv) ? SvUVX(sv) : sv_2uv_flags(sv, 0))
+ #define SvNV_nomg(sv) (SvNOK(sv) ? SvNVX(sv) : sv_2nv_flags(sv, 0))
+ 
+ /* ----*/
+-- 
+2.25.4
+
diff --git a/perl-5.33.1-Heap-buffer-overflow-in-regex-bracket-group-whitespa.patch b/perl-5.33.1-Heap-buffer-overflow-in-regex-bracket-group-whitespa.patch
new file mode 100644
index 0000000..d64910b
--- /dev/null
+++ b/perl-5.33.1-Heap-buffer-overflow-in-regex-bracket-group-whitespa.patch
@@ -0,0 +1,88 @@
+From 90f66c42e4513ae5d907805fbf28b9967a90d6c5 Mon Sep 17 00:00:00 2001
+From: John Lightsey <john@04755.net>
+Date: Fri, 28 Aug 2020 23:39:18 -0500
+Subject: [PATCH] Heap buffer overflow in regex bracket group whitespace
+ handling
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+The code for skipping whitespace in regex bracket character groups
+was walking past the end of the regex in some cases.
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ regcomp.c | 16 ++++++++--------
+ 1 file changed, 8 insertions(+), 8 deletions(-)
+
+diff --git a/regcomp.c b/regcomp.c
+index db82c77b00..64488994fa 100644
+--- a/regcomp.c
++++ b/regcomp.c
+@@ -17228,10 +17228,10 @@ S_add_multi_match(pTHX_ AV* multi_char_matches, SV* multi_string, const STRLEN c
+  *
+  * There is a line below that uses the same white space criteria but is outside
+  * this macro.  Both here and there must use the same definition */
+-#define SKIP_BRACKETED_WHITE_SPACE(do_skip, p)                          \
++#define SKIP_BRACKETED_WHITE_SPACE(do_skip, p, stop_p)                  \
+     STMT_START {                                                        \
+         if (do_skip) {                                                  \
+-            while (isBLANK_A(UCHARAT(p)))                               \
++            while (p < stop_p && isBLANK_A(UCHARAT(p)))                 \
+             {                                                           \
+                 p++;                                                    \
+             }                                                           \
+@@ -17406,7 +17406,7 @@ S_regclass(pTHX_ RExC_state_t *pRExC_state, I32 *flagp, U32 depth,
+     initial_listsv_len = SvCUR(listsv);
+     SvTEMP_off(listsv); /* Grr, TEMPs and mortals are conflated.  */
+ 
+-    SKIP_BRACKETED_WHITE_SPACE(skip_white, RExC_parse);
++    SKIP_BRACKETED_WHITE_SPACE(skip_white, RExC_parse, RExC_end);
+ 
+     assert(RExC_parse <= RExC_end);
+ 
+@@ -17415,7 +17415,7 @@ S_regclass(pTHX_ RExC_state_t *pRExC_state, I32 *flagp, U32 depth,
+         invert = TRUE;
+         allow_mutiple_chars = FALSE;
+         MARK_NAUGHTY(1);
+-        SKIP_BRACKETED_WHITE_SPACE(skip_white, RExC_parse);
++        SKIP_BRACKETED_WHITE_SPACE(skip_white, RExC_parse, RExC_end);
+     }
+ 
+     /* Check that they didn't say [:posix:] instead of [[:posix:]] */
+@@ -17462,12 +17462,12 @@ S_regclass(pTHX_ RExC_state_t *pRExC_state, I32 *flagp, U32 depth,
+             output_posix_warnings(pRExC_state, posix_warnings);
+         }
+ 
++        SKIP_BRACKETED_WHITE_SPACE(skip_white, RExC_parse, RExC_end);
++
+         if  (RExC_parse >= stop_ptr) {
+             break;
+         }
+ 
+-        SKIP_BRACKETED_WHITE_SPACE(skip_white, RExC_parse);
+-
+         if  (UCHARAT(RExC_parse) == ']') {
+             break;
+         }
+@@ -18156,7 +18156,7 @@ S_regclass(pTHX_ RExC_state_t *pRExC_state, I32 *flagp, U32 depth,
+ 	    }
+ 	} /* end of namedclass \blah */
+ 
+-        SKIP_BRACKETED_WHITE_SPACE(skip_white, RExC_parse);
++        SKIP_BRACKETED_WHITE_SPACE(skip_white, RExC_parse, RExC_end);
+ 
+         /* If 'range' is set, 'value' is the ending of a range--check its
+          * validity.  (If value isn't a single code point in the case of a
+@@ -18199,7 +18199,7 @@ S_regclass(pTHX_ RExC_state_t *pRExC_state, I32 *flagp, U32 depth,
+                 char* next_char_ptr = RExC_parse + 1;
+ 
+                 /* Get the next real char after the '-' */
+-                SKIP_BRACKETED_WHITE_SPACE(skip_white, next_char_ptr);
++                SKIP_BRACKETED_WHITE_SPACE(skip_white, next_char_ptr, RExC_end);
+ 
+                 /* If the '-' is at the end of the class (just before the ']',
+                  * it is a literal minus; otherwise it is a range */
+-- 
+2.25.4
+
diff --git a/perl-5.33.1-die_unwind-global-destruction.patch b/perl-5.33.1-die_unwind-global-destruction.patch
new file mode 100644
index 0000000..441cdfe
--- /dev/null
+++ b/perl-5.33.1-die_unwind-global-destruction.patch
@@ -0,0 +1,55 @@
+From 042abef72d40ab7ff39127e2afae6e34dfc66404 Mon Sep 17 00:00:00 2001
+From: Nicolas R <atoomic@cpan.org>
+Date: Fri, 14 Aug 2020 16:16:22 -0500
+Subject: [PATCH] die_unwind(): global destruction
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+Fix #18063
+
+During global destruction make sure we preserve
+the string by using mortalcopy.
+
+This is an update on 8c86f0238ecb5f32c2e7fba36e3edfdb54069068
+change which avoided sv_mortalcopy in favor of sv_2mortal.
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ pp_ctl.c          | 6 +++++-
+ t/op/die_unwind.t | 4 ++++
+ 2 files changed, 9 insertions(+), 1 deletion(-)
+
+diff --git a/pp_ctl.c b/pp_ctl.c
+index b8cd869ee0..cc244d7ba7 100644
+--- a/pp_ctl.c
++++ b/pp_ctl.c
+@@ -1716,7 +1716,11 @@ Perl_die_unwind(pTHX_ SV *msv)
+          * when unlocalising a tied var). So we do a dance with
+          * mortalising and SAVEFREEing.
+          */
+-        sv_2mortal(SvREFCNT_inc_simple_NN(exceptsv));
++        if (PL_phase == PERL_PHASE_DESTRUCT) {
++            exceptsv = sv_mortalcopy(exceptsv);
++        } else {
++            exceptsv = sv_2mortal(SvREFCNT_inc_simple_NN(exceptsv));
++        }
+ 
+ 	/*
+ 	 * Historically, perl used to set ERRSV ($@) early in the die
+diff --git a/t/op/die_unwind.t b/t/op/die_unwind.t
+index eee1ce534b..4b83ee6fac 100644
+--- a/t/op/die_unwind.t
++++ b/t/op/die_unwind.t
+@@ -69,4 +69,8 @@ is($uerr, "t3\n");
+ is($val, undef, "undefined return value from 'eval' block with 'die'");
+ is($err, "t3\n");
+ 
++fresh_perl_like(<<'EOS', qr/Custom Message During Global Destruction/, { switches => ['-w'], stderr => 1 } );
++package Foo; sub DESTROY { die "Custom Message During Global Destruction" }; package main; our $wut = bless [], "Foo"
++EOS
++
+ done_testing();
+-- 
+2.25.4
+
diff --git a/perl-5.33.1-sort-return-foo.patch b/perl-5.33.1-sort-return-foo.patch
new file mode 100644
index 0000000..8dbd121
--- /dev/null
+++ b/perl-5.33.1-sort-return-foo.patch
@@ -0,0 +1,77 @@
+From 390fe0c0d09aadc66f644e9eee4aa1245221188c Mon Sep 17 00:00:00 2001
+From: David Mitchell <davem@iabyn.com>
+Date: Tue, 25 Aug 2020 13:15:25 +0100
+Subject: [PATCH] sort { return foo() } ...
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+GH #18081
+
+A sub call via return in a sort block was called in void rather than
+scalar context, causing the comparison result to be discarded.
+
+This because when a sort block is called it is not a real function
+call, even though a sort block can be returned from. Instead, a
+CXt_NULL is pushed on the context stack. Because this isn't a sub-ish
+context type (unlike CXt_SUB, CXt_EVAL etc) there is no 'caller sub'
+on the context stack to be found to retrieve the caller's context
+(i.e. cx->cx_gimme).
+
+This commit fixes it by special-casing Perl_gimme_V().
+
+Ideally at some future point, a new context type, CXt_SORT, should be
+added. This would be used instead of CXt_NULL when a sort BLOCK is
+called. Like other sub-ish context types, it would have an old_cxsubix
+field and PL_curstackinfo->si_cxsubix would point to it. This would
+eliminate needing special-case handling in places like Perl_gimme_V().
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ inline.h    |  2 +-
+ t/op/sort.t | 12 +++++++++++-
+ 2 files changed, 12 insertions(+), 2 deletions(-)
+
+diff --git a/inline.h b/inline.h
+index a8240efb9c..6fbd5abfea 100644
+--- a/inline.h
++++ b/inline.h
+@@ -2086,7 +2086,7 @@ Perl_gimme_V(pTHX)
+         return gimme;
+     cxix = PL_curstackinfo->si_cxsubix;
+     if (cxix < 0)
+-        return G_VOID;
++        return PL_curstackinfo->si_type == PERLSI_SORT ? G_SCALAR: G_VOID;
+     assert(cxstack[cxix].blk_gimme & G_WANT);
+     return (cxstack[cxix].blk_gimme & G_WANT);
+ }
+diff --git a/t/op/sort.t b/t/op/sort.t
+index f2e139dff0..8e387fb90d 100644
+--- a/t/op/sort.t
++++ b/t/op/sort.t
+@@ -7,7 +7,7 @@ BEGIN {
+     set_up_inc('../lib');
+ }
+ use warnings;
+-plan(tests => 203);
++plan(tests => 204);
+ use Tie::Array; # we need to test sorting tied arrays
+ 
+ # these shouldn't hang
+@@ -1202,3 +1202,13 @@ SKIP:
+     $fillb = undef;
+     is $act, "01[sortb]2[fillb]";
+ }
++
++# GH #18081
++# sub call via return in sort block was called in void rather than scalar
++# context
++
++{
++    sub sort18081 { $a + 1 <=> $b + 1 }
++    my @a = sort { return &sort18081 } 6,1,2;
++    is "@a", "1 2 6", "GH #18081";
++}
+-- 
+2.25.4
+
diff --git a/perl-5.33.2-Remove-Perl_av_top_index.patch b/perl-5.33.2-Remove-Perl_av_top_index.patch
new file mode 100644
index 0000000..06f6ce4
--- /dev/null
+++ b/perl-5.33.2-Remove-Perl_av_top_index.patch
@@ -0,0 +1,77 @@
+From bd5fa06648085e8c17efd55abeb6424aeeb1018e Mon Sep 17 00:00:00 2001
+From: Karl Williamson <khw@cpan.org>
+Date: Tue, 29 Sep 2020 00:48:19 -0600
+Subject: [PATCH] Remove Perl_av_top_index
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+I created this in 87306e0674dfe3af29804b4641347cd5ac9b0521, thinking it
+was needed to preserve backward compatibility if someone were using this
+instead of the macro.  But it turned out that there never was such a
+function, it was inlined, and the name was S_av_top_index, so there is
+no reason to create a new function that no one has ever been able to
+call.  So just remove it, and let all accesses go through the macro
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ av.c      | 10 ----------
+ embed.fnc |  2 +-
+ proto.h   |  7 +++----
+ 3 files changed, 4 insertions(+), 15 deletions(-)
+
+diff --git a/av.c b/av.c
+index ada09cde9a..ad2429f90d 100644
+--- a/av.c
++++ b/av.c
+@@ -1095,16 +1095,6 @@ Perl_av_nonelem(pTHX_ AV *av, SSize_t ix) {
+     return sv;
+ }
+ 
+-SSize_t
+-Perl_av_top_index(pTHX_ AV *av)
+-{
+-    PERL_ARGS_ASSERT_AV_TOP_INDEX;
+-    assert(SvTYPE(av) == SVt_PVAV);
+-
+-    return AvFILL(av);
+-}
+-
+-
+ /*
+  * ex: set ts=8 sts=4 sw=4 et:
+  */
+diff --git a/embed.fnc b/embed.fnc
+index a6b4d0350f..f5c5b29c2d 100644
+--- a/embed.fnc
++++ b/embed.fnc
+@@ -637,7 +637,7 @@ Apd	|void	|av_push	|NN AV *av|NN SV *val
+ EXp	|void	|av_reify	|NN AV *av
+ ApdR	|SV*	|av_shift	|NN AV *av
+ Apd	|SV**	|av_store	|NN AV *av|SSize_t key|NULLOK SV *val
+-AMdRp	|SSize_t|av_top_index	|NN AV *av
++AmdR	|SSize_t|av_top_index	|NN AV *av
+ AidRp	|Size_t	|av_count	|NN AV *av
+ AmdR	|SSize_t|av_tindex	|NN AV *av
+ Apd	|void	|av_undef	|NN AV *av
+diff --git a/proto.h b/proto.h
+index c4490fc46e..2da1a07761 100644
+--- a/proto.h
++++ b/proto.h
+@@ -291,10 +291,9 @@ PERL_CALLCONV SV**	Perl_av_store(pTHX_ AV *av, SSize_t key, SV *val);
+ 			__attribute__warn_unused_result__; */
+ #define PERL_ARGS_ASSERT_AV_TINDEX
+ 
+-PERL_CALLCONV SSize_t	Perl_av_top_index(pTHX_ AV *av)
+-			__attribute__warn_unused_result__;
+-#define PERL_ARGS_ASSERT_AV_TOP_INDEX	\
+-	assert(av)
++/* PERL_CALLCONV SSize_t	av_top_index(pTHX_ AV *av)
++			__attribute__warn_unused_result__; */
++#define PERL_ARGS_ASSERT_AV_TOP_INDEX
+ 
+ PERL_CALLCONV void	Perl_av_undef(pTHX_ AV *av);
+ #define PERL_ARGS_ASSERT_AV_UNDEF	\
+-- 
+2.25.4
+
diff --git a/perl-5.33.2-gh18096-assume-worst-case-for-GOSUBs-we-don-t-analys.patch b/perl-5.33.2-gh18096-assume-worst-case-for-GOSUBs-we-don-t-analys.patch
new file mode 100644
index 0000000..8763972
--- /dev/null
+++ b/perl-5.33.2-gh18096-assume-worst-case-for-GOSUBs-we-don-t-analys.patch
@@ -0,0 +1,56 @@
+From f4cd5e29bc15621f2ab8fc5d7de0e68e62d43999 Mon Sep 17 00:00:00 2001
+From: Hugo van der Sanden <hv@crypt.org>
+Date: Tue, 15 Sep 2020 14:02:54 +0100
+Subject: [PATCH] [gh18096] assume worst-case for GOSUBs we don't analyse
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+During study_chunk, under various conditions we avoid recursing into
+a GOSUB. But we must avoid giving the enclosing scope the idea that
+this GOSUB would match only an empty string, since that could trigger
+wrong optimizations (eg CURLYX => CURLYM in the ticket).
+
+So we mark the construct as infinite, as in the code branch where we
+_do_ recurse into it.
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ regcomp.c     | 7 ++++++-
+ t/re/re_tests | 2 ++
+ 2 files changed, 8 insertions(+), 1 deletion(-)
+
+diff --git a/regcomp.c b/regcomp.c
+index 124ea5b90b..fae3f8079d 100644
+--- a/regcomp.c
++++ b/regcomp.c
+@@ -5212,7 +5212,12 @@ S_study_chunk(pTHX_ RExC_state_t *pRExC_state, regnode **scanp,
+                      * might result in a minlen of 1 and not of 4,
+                      * but this doesn't make us mismatch, just try a bit
+                      * harder than we should.
+-                     * */
++                     *
++                     * However we must assume this GOSUB is infinite, to
++                     * avoid wrongly applying other optimizations in the
++                     * enclosing scope - see GH 18096, for example.
++                     */
++                    is_inf = is_inf_internal = 1;
+                     scan= regnext(scan);
+                     continue;
+                 }
+diff --git a/t/re/re_tests b/t/re/re_tests
+index 554a7004a2..ab5a0d8012 100644
+--- a/t/re/re_tests
++++ b/t/re/re_tests
+@@ -2023,6 +2023,8 @@ AB\s+\x{100}	AB \x{100}X	y	-	-
+ /(?iaax:A? \K +)/	African_Feh	c	-	\\K + is forbidden - matches null string many times in regex
+ /(?iaa:A?\K+)/	African_Feh	c	-	\\K+ is forbidden - matches null string many times in regex
+ /(?iaa:A?\K*)/	African_Feh	c	-	\\K* is forbidden - matches null string many times in regex
++^((\w|<(\s)*(?1)(?3)*>)(?:(?3)*\+(?3)*(?2))*)(?3)*\+	a + b + <c + d>	y	$1	a + b		# [GH #18096]
++^((\w|<(\s)*(?1)(?3)*>)(?:(?3)*\+(?3)*(?2))*)(?3)*\+	a + <b> + c	y	$1	a + <b>		# [GH #18096]
+ # Keep these lines at the end of the file
+ # pat	string	y/n/etc	expr	expected-expr	skip-reason	comment
+ # vim: softtabstop=0 noexpandtab
+-- 
+2.25.4
+
diff --git a/perl-5.33.2-mro.xs-Fix-compiler-warning.patch b/perl-5.33.2-mro.xs-Fix-compiler-warning.patch
new file mode 100644
index 0000000..38438ea
--- /dev/null
+++ b/perl-5.33.2-mro.xs-Fix-compiler-warning.patch
@@ -0,0 +1,31 @@
+From fa353c3d2833fc326233e0eb583753b4d7887a63 Mon Sep 17 00:00:00 2001
+From: Karl Williamson <khw@cpan.org>
+Date: Sun, 4 Oct 2020 11:07:19 -0600
+Subject: [PATCH] mro.xs: Fix compiler warning
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+Fixes GH #18155
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ ext/mro/mro.xs | 2 +-
+ 1 file changed, 1 insertion(+), 1 deletion(-)
+
+diff --git a/ext/mro/mro.xs b/ext/mro/mro.xs
+index f21216af6e..8ce5844904 100644
+--- a/ext/mro/mro.xs
++++ b/ext/mro/mro.xs
+@@ -253,7 +253,7 @@ S_mro_get_linear_isa_c3(pTHX_ HV* stash, U32 level)
+                hierarchy is not C3-incompatible */
+             if(!winner) {
+                 SV *errmsg;
+-                I32 i;
++                Size_t i;
+ 
+                 errmsg = newSVpvf(
+                            "Inconsistent hierarchy during C3 merge of class '%" HEKf "':\n\t"
+-- 
+2.25.4
+
diff --git a/perl-5.33.2-sv.c-Added-missing-braces-in-Perl_sv_inc_nomg.patch b/perl-5.33.2-sv.c-Added-missing-braces-in-Perl_sv_inc_nomg.patch
new file mode 100644
index 0000000..2351b3e
--- /dev/null
+++ b/perl-5.33.2-sv.c-Added-missing-braces-in-Perl_sv_inc_nomg.patch
@@ -0,0 +1,32 @@
+From 5777cf812c2812ea45eeb45e48979bab544d71af Mon Sep 17 00:00:00 2001
+From: TAKAI Kousuke <62541129+t-a-k@users.noreply.github.com>
+Date: Thu, 8 Oct 2020 19:02:10 +0900
+Subject: [PATCH] sv.c: Added missing braces in Perl_sv_inc_nomg().
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ sv.c | 3 ++-
+ 1 file changed, 2 insertions(+), 1 deletion(-)
+
+diff --git a/sv.c b/sv.c
+index 82248e3b1f..57fd65a5b8 100644
+--- a/sv.c
++++ b/sv.c
+@@ -8944,9 +8944,10 @@ Perl_sv_inc_nomg(pTHX_ SV *const sv)
+ 	if (SvIsUV(sv)) {
+ 	    if (SvUVX(sv) == UV_MAX)
+ 		sv_setnv(sv, UV_MAX_P1);
+-	    else
++            else {
+ 		(void)SvIOK_only_UV(sv);
+ 		SvUV_set(sv, SvUVX(sv) + 1);
++            }
+ 	} else {
+ 	    if (SvIVX(sv) == IV_MAX)
+ 		sv_setuv(sv, (UV)IV_MAX + 1);
+-- 
+2.25.4
+
diff --git a/perl-5.33.2-sv.h-sv_collxfrm-didn-t-work-properly.patch b/perl-5.33.2-sv.h-sv_collxfrm-didn-t-work-properly.patch
new file mode 100644
index 0000000..efa0632
--- /dev/null
+++ b/perl-5.33.2-sv.h-sv_collxfrm-didn-t-work-properly.patch
@@ -0,0 +1,36 @@
+From e17dadf36f7b4348e59076240c880d0c78b33fa9 Mon Sep 17 00:00:00 2001
+From: Karl Williamson <khw@cpan.org>
+Date: Tue, 22 Sep 2020 08:47:52 -0600
+Subject: [PATCH] sv.h: sv_collxfrm didn't work properly
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+It is supposed to be a wrapper for sv_collxfrm_flags, but it was just
+calling sv_cmp_flags instead.  The consequences are none except under
+'use locale' in which case you always got the C locale.  I did not add
+tests, because it is really a pain to write portable locale tests, and
+this doesn't seem to be much used.  In core the '_flags' form was always
+used.
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ sv.h | 2 +-
+ 1 file changed, 1 insertion(+), 1 deletion(-)
+
+diff --git a/sv.h b/sv.h
+index 19ce718ac3..44414b35a9 100644
+--- a/sv.h
++++ b/sv.h
+@@ -2045,7 +2045,7 @@ Like C<sv_catsv> but doesn't process magic.
+ #define sv_eq(sv1, sv2) sv_eq_flags(sv1, sv2, SV_GMAGIC)
+ #define sv_cmp(sv1, sv2) sv_cmp_flags(sv1, sv2, SV_GMAGIC)
+ #define sv_cmp_locale(sv1, sv2) sv_cmp_locale_flags(sv1, sv2, SV_GMAGIC)
+-#define sv_collxfrm(sv, nxp) sv_cmp_flags(sv, nxp, SV_GMAGIC)
++#define sv_collxfrm(sv, nxp) sv_collxfrm_flags(sv, nxp, SV_GMAGIC)
+ #define sv_2bool(sv) sv_2bool_flags(sv, SV_GMAGIC)
+ #define sv_2bool_nomg(sv) sv_2bool_flags(sv, 0)
+ #define sv_insert(bigstr, offset, len, little, littlelen)		\
+-- 
+2.25.4
+
diff --git a/perl-5.33.3-Perl_custom_op_get_field-remove-undef-behaviour.patch b/perl-5.33.3-Perl_custom_op_get_field-remove-undef-behaviour.patch
new file mode 100644
index 0000000..24528d3
--- /dev/null
+++ b/perl-5.33.3-Perl_custom_op_get_field-remove-undef-behaviour.patch
@@ -0,0 +1,76 @@
+From e050064b67c501e9fdc7bc3f513ba2b8b9e795f8 Mon Sep 17 00:00:00 2001
+From: David Mitchell <davem@iabyn.com>
+Date: Fri, 30 Oct 2020 20:50:58 +0000
+Subject: [PATCH] Perl_custom_op_get_field(): remove undef behaviour
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+Thus function has a couple a switches with
+
+               default:
+                   NOT_REACHED; /* NOTREACHED */
+
+but clang is complaining that the value returned by the function is
+undefined if those default branches are taken, since the 'any' variable
+doesn't get set in that path.
+
+Replace the NOTREACHED with a croak("panic: ..."). It's possible (albeit
+not intended) for Perl_custom_op_get_field() to be called with a 'field'
+arg which triggers the default case. So if this ever happens, make it
+clear that something has gone wrong, rather than just silently
+continuing on non-debugging builds.
+
+In any case, this shuts up clang.
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ op.c | 14 ++++++--------
+ 1 file changed, 6 insertions(+), 8 deletions(-)
+
+diff --git a/op.c b/op.c
+index c30c6b7c8f..2933e2ed7d 100644
+--- a/op.c
++++ b/op.c
+@@ -18100,6 +18100,7 @@ Perl_custom_op_get_field(pTHX_ const OP *o, const xop_flags_enum field)
+ 	else
+ 	    xop = INT2PTR(XOP *, SvIV(HeVAL(he)));
+     }
++
+     {
+ 	XOPRETANY any;
+ 	if(field == XOPe_xop_ptr) {
+@@ -18121,7 +18122,10 @@ Perl_custom_op_get_field(pTHX_ const OP *o, const xop_flags_enum field)
+ 		    any.xop_peep = xop->xop_peep;
+ 		    break;
+ 		default:
+-		    NOT_REACHED; /* NOTREACHED */
++                  field_panic:
++                    Perl_croak(aTHX_
++                        "panic: custom_op_get_field(): invalid field %d\n",
++                        (int)field);
+ 		    break;
+ 		}
+ 	    } else {
+@@ -18139,17 +18143,11 @@ Perl_custom_op_get_field(pTHX_ const OP *o, const xop_flags_enum field)
+ 		    any.xop_peep = XOPd_xop_peep;
+ 		    break;
+ 		default:
+-		    NOT_REACHED; /* NOTREACHED */
++                    goto field_panic;
+ 		    break;
+ 		}
+ 	    }
+ 	}
+-        /* On some platforms (HP-UX, IA64) gcc emits a warning for this function:
+-         * op.c: In function 'Perl_custom_op_get_field':
+-         * op.c:...: warning: 'any.xop_name' may be used uninitialized in this function [-Wmaybe-uninitialized]
+-         * This is because on those platforms (with -DEBUGGING) NOT_REACHED
+-         * expands to assert(0), which expands to ((0) ? (void)0 :
+-         * __assert(...)), and gcc doesn't know that __assert can never return. */
+ 	return any;
+     }
+ }
+-- 
+2.25.4
+
diff --git a/perl-5.33.3-fetch-magic-on-the-first-stacked-filetest-not-the-la.patch b/perl-5.33.3-fetch-magic-on-the-first-stacked-filetest-not-the-la.patch
new file mode 100644
index 0000000..6b55c4a
--- /dev/null
+++ b/perl-5.33.3-fetch-magic-on-the-first-stacked-filetest-not-the-la.patch
@@ -0,0 +1,57 @@
+From f877e124a20d4f94c82c36e6b7a99b4e9663e204 Mon Sep 17 00:00:00 2001
+From: Tony Cook <tony@develop-help.com>
+Date: Tue, 10 Nov 2020 15:50:27 +1100
+Subject: [PATCH] fetch magic on the first stacked filetest, not the last
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+fixes #18293
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ pp_sys.c        |  2 +-
+ t/op/filetest.t | 10 +++++++++-
+ 2 files changed, 10 insertions(+), 2 deletions(-)
+
+diff --git a/pp_sys.c b/pp_sys.c
+index 66c5d9aade..5c9f768eaf 100644
+--- a/pp_sys.c
++++ b/pp_sys.c
+@@ -3067,7 +3067,7 @@ S_try_amagic_ftest(pTHX_ char chr) {
+     SV *const arg = *PL_stack_sp;
+ 
+     assert(chr != '?');
+-    if (!(PL_op->op_private & OPpFT_STACKING)) SvGETMAGIC(arg);
++    if (!(PL_op->op_private & OPpFT_STACKED)) SvGETMAGIC(arg);
+ 
+     if (SvAMAGIC(arg))
+     {
+diff --git a/t/op/filetest.t b/t/op/filetest.t
+index fe9724c59a..7c471c050c 100644
+--- a/t/op/filetest.t
++++ b/t/op/filetest.t
+@@ -9,7 +9,7 @@ BEGIN {
+     set_up_inc(qw '../lib ../cpan/Perl-OSType/lib');
+ }
+ 
+-plan(tests => 57 + 27*14);
++plan(tests => 58 + 27*14);
+ 
+ if ($^O =~ /MSWin32|cygwin|msys/ && !is_miniperl) {
+   require Win32; # for IsAdminUser()
+@@ -385,3 +385,11 @@ SKIP: {
+     ok(!-f "TEST\0-", '-f on name with \0');
+     ok(!-r "TEST\0-", '-r on name with \0');
+ }
++
++{
++    # github #18293
++    "" =~ /(.*)/;
++    my $x = $1; # call magic on $1, setting the pv to ""
++    "test.pl" =~ /(.*)/;
++    ok(-f -r $1, "stacked handles on a name with magic");
++}
+-- 
+2.25.4
+
diff --git a/perl-5.33.3-pp_split-add-TonyC-s-stack-not-refcounted-suggestion.patch b/perl-5.33.3-pp_split-add-TonyC-s-stack-not-refcounted-suggestion.patch
new file mode 100644
index 0000000..1b3b825
--- /dev/null
+++ b/perl-5.33.3-pp_split-add-TonyC-s-stack-not-refcounted-suggestion.patch
@@ -0,0 +1,54 @@
+From ab307de390c3459badcc89b3d77542b5b871b2e8 Mon Sep 17 00:00:00 2001
+From: Richard Leach <richardleach@users.noreply.github.com>
+Date: Tue, 20 Oct 2020 18:16:38 +0100
+Subject: [PATCH 2/2] pp_split: add TonyC's stack-not-refcounted-suggestion and
+ tests
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ pp.c         | 5 ++++-
+ t/op/split.t | 5 +++++
+ 2 files changed, 9 insertions(+), 1 deletion(-)
+
+diff --git a/pp.c b/pp.c
+index ce16c56e63..5b5e163011 100644
+--- a/pp.c
++++ b/pp.c
+@@ -6034,6 +6034,9 @@ PP(pp_split)
+             oldsave = PL_savestack_ix;
+         }
+ 
++	/* Some defence against stack-not-refcounted bugs */
++	(void)sv_2mortal(SvREFCNT_inc_simple_NN(ary));
++
+ 	if ((mg = SvTIED_mg((const SV *)ary, PERL_MAGIC_tied))) {
+ 	    PUSHMARK(SP);
+ 	    XPUSHs(SvTIED_obj(MUTABLE_SV(ary), mg));
+@@ -6356,7 +6359,7 @@ PP(pp_split)
+     }
+ 
+     PUTBACK;
+-    LEAVE_SCOPE(oldsave); /* may undo an earlier SWITCHSTACK */
++    LEAVE_SCOPE(oldsave);
+     SPAGAIN;
+     if (realarray) {
+         if (!mg) {
+diff --git a/t/op/split.t b/t/op/split.t
+index 1d78a45bde..7a321645ac 100644
+--- a/t/op/split.t
++++ b/t/op/split.t
+@@ -703,3 +703,8 @@ fresh_perl_is('my @ary; @ary = split(/\w(?{ @ary[1000] = 1 })/, "abc");',
+ fresh_perl_is('my @ary; @ary = split(/\w(?{ undef @ary })/, "abc");',
+         '',{},'(@ary = split ...) survives an (undef @ary)');
+ 
++# check the (@ary = split) optimisation survives stack-not-refcounted bugs
++fresh_perl_is('our @ary; @ary = split(/\w(?{ *ary = 0 })/, "abc");',
++        '',{},'(@ary = split ...) survives @ary destruction via typeglob');
++fresh_perl_is('my $ary = []; @$ary = split(/\w(?{ $ary = [] })/, "abc");',
++        '',{},'(@ary = split ...) survives @ary destruction via reassignment');
+-- 
+2.25.4
+
diff --git a/perl-5.33.3-t-op-inc.t-t-op-hexfp.t-t-op-sprintf2.t-Add-missing-.patch b/perl-5.33.3-t-op-inc.t-t-op-hexfp.t-t-op-sprintf2.t-Add-missing-.patch
new file mode 100644
index 0000000..253b340
--- /dev/null
+++ b/perl-5.33.3-t-op-inc.t-t-op-hexfp.t-t-op-sprintf2.t-Add-missing-.patch
@@ -0,0 +1,71 @@
+From b52b6c4029b51818442d64c6104d26e12e140f09 Mon Sep 17 00:00:00 2001
+From: TAKAI Kousuke <62541129+t-a-k@users.noreply.github.com>
+Date: Thu, 5 Nov 2020 22:06:16 +0900
+Subject: [PATCH] t/op/inc.t, t/op/hexfp.t, t/op/sprintf2.t: Add missing d_
+ prefixes for Config variable names.
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ t/op/hexfp.t    | 2 +-
+ t/op/inc.t      | 4 ++--
+ t/op/sprintf2.t | 4 ++--
+ 3 files changed, 5 insertions(+), 5 deletions(-)
+
+diff --git a/t/op/hexfp.t b/t/op/hexfp.t
+index b0c85cfdc6..5fb80d3d74 100644
+--- a/t/op/hexfp.t
++++ b/t/op/hexfp.t
+@@ -246,7 +246,7 @@ SKIP: {
+     skip("non-80-bit-long-double", 4)
+         unless ($Config{uselongdouble} &&
+ 		($Config{nvsize} == 16 || $Config{nvsize} == 12) &&
+-		($Config{long_double_style_ieee_extended}));
++		($Config{d_long_double_style_ieee_extended}));
+     is(0x1p-1074,  4.94065645841246544e-324);
+     is(0x1p-1075,  2.47032822920623272e-324, '[perl #128919]');
+     is(0x1p-1076,  1.23516411460311636e-324);
+diff --git a/t/op/inc.t b/t/op/inc.t
+index 0bb8b85b13..3d5cc024d3 100644
+--- a/t/op/inc.t
++++ b/t/op/inc.t
+@@ -188,10 +188,10 @@ cmp_ok($a, '==', 2147483647, "postdecrement properly downgrades from double");
+ 
+ SKIP: {
+     if ($Config{uselongdouble} &&
+-        ($Config{long_double_style_ieee_doubledouble})) {
++        ($Config{d_long_double_style_ieee_doubledouble})) {
+         skip "the double-double format is weird", 1;
+     }
+-    unless ($Config{double_style_ieee}) {
++    unless ($Config{d_double_style_ieee}) {
+         skip "the doublekind $Config{doublekind} is not IEEE", 1;
+     }
+ 
+diff --git a/t/op/sprintf2.t b/t/op/sprintf2.t
+index bbc12ccd0a..38a550c281 100644
+--- a/t/op/sprintf2.t
++++ b/t/op/sprintf2.t
+@@ -701,7 +701,7 @@ SKIP: {
+     skip("uselongdouble=" . ($Config{uselongdouble} ? 'define' : 'undef')
+          . " longdblkind=$Config{longdblkind} os=$^O", 6)
+         unless ($Config{uselongdouble} &&
+-                ($Config{long_double_style_ieee_doubledouble})
++                ($Config{d_long_double_style_ieee_doubledouble})
+                 # Gating on 'linux' (ppc) here is due to the differing
+                 # double-double implementations: other (also big-endian)
+                 # double-double platforms (e.g. AIX on ppc or IRIX on mips)
+@@ -892,7 +892,7 @@ SKIP: {
+     skip("non-80-bit-long-double", 17)
+         unless ($Config{uselongdouble} &&
+ 		($Config{nvsize} == 16 || $Config{nvsize} == 12) &&
+-		($Config{long_double_style_ieee_extended}));
++		($Config{d_long_double_style_ieee_extended}));
+ 
+     {
+         # The last normal for this format.
+-- 
+2.25.4
+
diff --git a/perl-5.33.4-locale.c-Fix-typo-in-ifdef.patch b/perl-5.33.4-locale.c-Fix-typo-in-ifdef.patch
new file mode 100644
index 0000000..dfad1f2
--- /dev/null
+++ b/perl-5.33.4-locale.c-Fix-typo-in-ifdef.patch
@@ -0,0 +1,32 @@
+From 9289d4dc7a3d24b20c6e25045e687321ee3e8faf Mon Sep 17 00:00:00 2001
+From: Karl Williamson <khw@cpan.org>
+Date: Mon, 30 Nov 2020 09:25:52 -0700
+Subject: [PATCH] locale.c: Fix typo in #ifdef
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+This misspelling led to the code assuming that the platform didn't have
+a feature that, if used, would result in faster execution.
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ locale.c | 2 +-
+ 1 file changed, 1 insertion(+), 1 deletion(-)
+
+diff --git a/locale.c b/locale.c
+index 9500ab7960..5970423404 100644
+--- a/locale.c
++++ b/locale.c
+@@ -2621,7 +2621,7 @@ S_my_nl_langinfo(const int item, bool toggle)
+ #if defined(HAS_NL_LANGINFO) /* nl_langinfo() is available.  */
+ #  if   ! defined(HAS_THREAD_SAFE_NL_LANGINFO_L)      \
+      || ! defined(HAS_POSIX_2008_LOCALE)              \
+-     || ! defined(DUPLOCALE)
++     || ! defined(HAS_DUPLOCALE)
+ 
+     /* Here, use plain nl_langinfo(), switching to the underlying LC_NUMERIC
+      * for those items dependent on it.  This must be copied to a buffer before
+-- 
+2.26.2
+
diff --git a/perl-5.33.5-Fix-buggy-fc-in-Turkish-locale.patch b/perl-5.33.5-Fix-buggy-fc-in-Turkish-locale.patch
new file mode 100644
index 0000000..b8e11fe
--- /dev/null
+++ b/perl-5.33.5-Fix-buggy-fc-in-Turkish-locale.patch
@@ -0,0 +1,140 @@
+From 4cfbe5474a5c5f852a6dbf0138dc796c2800be93 Mon Sep 17 00:00:00 2001
+From: Karl Williamson <khw@cpan.org>
+Date: Wed, 30 Dec 2020 05:55:08 -0700
+Subject: [PATCH] Fix buggy fc() in Turkish locale
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+When Turkish handling was added, fc() wasn't properly updated
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ pp.c      | 12 +++++++++---
+ t/op/lc.t | 23 ++++++++++++++++-------
+ 2 files changed, 25 insertions(+), 10 deletions(-)
+
+diff --git a/pp.c b/pp.c
+index 5e1706346d..23cc6c8adb 100644
+--- a/pp.c
++++ b/pp.c
+@@ -4813,7 +4813,7 @@ PP(pp_fc)
+                         do {
+                             extra++;
+ 
+-                            s_peek = (U8 *) memchr(s_peek + 1, 'i',
++                            s_peek = (U8 *) memchr(s_peek + 1, 'I',
+                                                    send - (s_peek + 1));
+                         } while (s_peek != NULL);
+                     }
+@@ -4828,8 +4828,14 @@ PP(pp_fc)
+                                               + 1 /* Trailing NUL */ );
+                     d = (U8*)SvPVX(dest) + len;
+ 
+-                    *d++ = UTF8_TWO_BYTE_HI(GREEK_SMALL_LETTER_MU);
+-                    *d++ = UTF8_TWO_BYTE_LO(GREEK_SMALL_LETTER_MU);
++                    if (*s == 'I') {
++                        *d++ = UTF8_TWO_BYTE_HI(LATIN_SMALL_LETTER_DOTLESS_I);
++                        *d++ = UTF8_TWO_BYTE_LO(LATIN_SMALL_LETTER_DOTLESS_I);
++                    }
++                    else {
++                        *d++ = UTF8_TWO_BYTE_HI(GREEK_SMALL_LETTER_MU);
++                        *d++ = UTF8_TWO_BYTE_LO(GREEK_SMALL_LETTER_MU);
++                    }
+                     s++;
+ 
+                     for (; s < send; s++) {
+diff --git a/t/op/lc.t b/t/op/lc.t
+index fce77f3d34..812c41d6b6 100644
+--- a/t/op/lc.t
++++ b/t/op/lc.t
+@@ -17,7 +17,7 @@ BEGIN {
+ 
+ use feature qw( fc );
+ 
+-plan tests => 139 + 2 * (4 * 256) + 15;
++plan tests => 139 + 2 * (5 * 256) + 17;
+ 
+ is(lc(undef),	   "", "lc(undef) is ''");
+ is(lcfirst(undef), "", "lcfirst(undef) is ''");
+@@ -352,13 +352,14 @@ foreach my $turkic (0 .. 1) {
+     my $locale = ($turkic) ? $turkic_locale : $non_turkic_locale;
+ 
+   SKIP: {
+-    skip "Can't find a $type UTF-8 locale", 4*256 unless defined $locale;
++    skip "Can't find a $type UTF-8 locale", 5*256 unless defined $locale;
+ 
+     use feature qw( unicode_strings );
+ 
+     no locale;
+ 
+     my @unicode_lc;
++    my @unicode_fc;
+     my @unicode_uc;
+     my @unicode_lcfirst;
+     my @unicode_ucfirst;
+@@ -366,6 +367,7 @@ foreach my $turkic (0 .. 1) {
+     # Get all the values outside of 'locale'
+     for my $i (0 .. 255) {
+         push @unicode_lc, lc(chr $i);
++        push @unicode_fc, fc(chr $i);
+         push @unicode_uc, uc(chr $i);
+         push @unicode_lcfirst, lcfirst(chr $i);
+         push @unicode_ucfirst, ucfirst(chr $i);
+@@ -373,6 +375,7 @@ foreach my $turkic (0 .. 1) {
+ 
+     if ($turkic) {
+         $unicode_lc[ord 'I'] = chr 0x131;
++        $unicode_fc[ord 'I'] = chr 0x131;
+         $unicode_lcfirst[ord 'I'] = chr 0x131;
+         $unicode_uc[ord 'i'] = chr 0x130;
+         $unicode_ucfirst[ord 'i'] = chr 0x130;
+@@ -384,6 +387,7 @@ foreach my $turkic (0 .. 1) {
+     for my $i (0 .. 255) {
+         is(lc(chr $i), $unicode_lc[$i], "In a $type UTF-8 locale, lc(chr $i) is the same as official Unicode");
+         is(uc(chr $i), $unicode_uc[$i], "In a $type UTF-8 locale, uc(chr $i) is the same as official Unicode");
++        is(fc(chr $i), $unicode_fc[$i], "In a $type UTF-8 locale, fc(chr $i) is the same as official Unicode");
+         is(lcfirst(chr $i), $unicode_lcfirst[$i], "In a $type UTF-8 locale, lcfirst(chr $i) is the same as official Unicode");
+         is(ucfirst(chr $i), $unicode_ucfirst[$i], "In a $type UTF-8 locale, ucfirst(chr $i) is the same as official Unicode");
+     }
+@@ -391,27 +395,32 @@ foreach my $turkic (0 .. 1) {
+ }
+ 
+ SKIP: {
+-    skip "Can't find a turkic UTF-8 locale", 15 unless defined $turkic_locale;
++    skip "Can't find a turkic UTF-8 locale", 17 unless defined $turkic_locale;
+ 
+     # These are designed to stress the calculation of space needed for the
+     # strings.  $filler contains a variety of characters that have special
+     # handling in the casing functions, and some regular chars as well.
++    # (0x49 = 'I')
+     my $filler_length = 10000;
+-    my $filler = uni_to_native("\x{df}\x{b5}\x{e0}\x{c1}\x{b6}\x{ff}") x $filler_length;
++    my $filler = uni_to_native("\x{df}\x{49}\x{69}\x{b5}\x{e0}\x{c1}\x{b6}\x{ff}") x $filler_length;
+ 
+     # These are the correct answers to what should happen when the given
+     # casing function is called on $filler;
+-    my $filler_lc = uni_to_native("\x{df}\x{b5}\x{e0}\x{e1}\x{b6}\x{ff}") x $filler_length;
+-    my $filler_fc = ("ss" . uni_to_native("\x{b5}\x{e0}\x{e1}\x{b6}\x{ff}")) x $filler_length;
+-    my $filler_uc = ("SS" . uni_to_native("\x{39c}\x{c0}\x{c1}\x{b6}\x{178}")) x $filler_length;
++    my $filler_lc = uni_to_native("\x{df}\x{131}\x{69}\x{b5}\x{e0}\x{e1}\x{b6}\x{ff}") x $filler_length;
++    my $filler_fc = ("ss" . uni_to_native("\x{131}\x{69}\x{3bc}\x{e0}\x{e1}\x{b6}\x{ff}")) x $filler_length;
++    my $filler_uc = ("SS" . uni_to_native("\x{49}\x{130}\x{39c}\x{c0}\x{c1}\x{b6}\x{178}")) x $filler_length;
+ 
+     use locale;
+     setlocale(&POSIX::LC_CTYPE, $turkic_locale);
+ 
+     is (lc "IIIIIII$filler", "\x{131}\x{131}\x{131}\x{131}\x{131}\x{131}\x{131}$filler_lc",
+         "lc non-UTF-8, in Turkic locale, beginning with a bunch of I's");
++    is (fc "IIIIIII$filler", "\x{131}\x{131}\x{131}\x{131}\x{131}\x{131}\x{131}$filler_fc",
++        "fc non-UTF-8, in Turkic locale, beginning with a bunch of I's");
+     is (lc "${filler}IIIIIII$filler", "$filler_lc\x{131}\x{131}\x{131}\x{131}\x{131}\x{131}\x{131}$filler_lc",
+         "lc non-UTF-8, in Turkic locale, a bunch of I's, but not at the beginning");
++    is (fc "${filler}IIIIIII$filler", "$filler_fc\x{131}\x{131}\x{131}\x{131}\x{131}\x{131}\x{131}$filler_fc",
++        "fc non-UTF-8, in Turkic locale, a bunch of I's, but not at the beginning");
+     is (lc "${filler}I\x{307}$filler", "${filler_lc}i$filler_lc",
+         "lc in Turkic locale with DOT ABOVE immediately following I");
+     is (lc "${filler}I\x{307}IIIIII$filler", "${filler_lc}i\x{131}\x{131}\x{131}\x{131}\x{131}\x{131}$filler_lc",
+-- 
+2.26.2
+
diff --git a/perl-5.33.5-Use-perl.h-versions-of-PERL_UNUSED_foo-in-XSUB.h.patch b/perl-5.33.5-Use-perl.h-versions-of-PERL_UNUSED_foo-in-XSUB.h.patch
new file mode 100644
index 0000000..31d7bf4
--- /dev/null
+++ b/perl-5.33.5-Use-perl.h-versions-of-PERL_UNUSED_foo-in-XSUB.h.patch
@@ -0,0 +1,43 @@
+From 036189b0a003875df7bf09c7f7fd702267f549e5 Mon Sep 17 00:00:00 2001
+From: Karl Williamson <khw@cpan.org>
+Date: Sat, 26 Dec 2020 08:44:08 -0700
+Subject: [PATCH] Use perl.h versions of PERL_UNUSED_foo in XSUB.h
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+This commit was applied to perl.h, but not to XSUB.h:
+
+commit a730e3f230f364cffe49370f816f975ae7c9c403
+Author: Jarkko Hietaniemi <jhi@iki.fi>
+Date:   Thu Sep 4 09:08:33 2014 -0400
+
+Use sizeof() in UNUSED_ARG and UNUSED_VAR to avoid accessing the values.
+
+The values might even be uninitialized in the case of PERL_UNUSED_VAR.
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ XSUB.h | 4 ++--
+ 1 file changed, 2 insertions(+), 2 deletions(-)
+
+diff --git a/XSUB.h b/XSUB.h
+index 616d813840..c1e3959885 100644
+--- a/XSUB.h
++++ b/XSUB.h
+@@ -108,10 +108,10 @@ is a lexical C<$_> in scope.
+ */
+ 
+ #ifndef PERL_UNUSED_ARG
+-#  define PERL_UNUSED_ARG(x) ((void)x)
++#  define PERL_UNUSED_ARG(x) ((void)sizeof(x))
+ #endif
+ #ifndef PERL_UNUSED_VAR
+-#  define PERL_UNUSED_VAR(x) ((void)x)
++#  define PERL_UNUSED_VAR(x) ((void)sizeof(x))
+ #endif
+ 
+ #define ST(off) PL_stack_base[ax + (off)]
+-- 
+2.26.2
+
diff --git a/perl-5.33.5-op.c-croak-on-my-_-when-use-utf8-is-in-effect.patch b/perl-5.33.5-op.c-croak-on-my-_-when-use-utf8-is-in-effect.patch
new file mode 100644
index 0000000..018dc6a
--- /dev/null
+++ b/perl-5.33.5-op.c-croak-on-my-_-when-use-utf8-is-in-effect.patch
@@ -0,0 +1,78 @@
+From 07319fdbb283f93cb655c3106b5237cbc7272038 Mon Sep 17 00:00:00 2001
+From: Tomasz Konojacki <me@xenu.pl>
+Date: Wed, 30 Dec 2020 14:03:02 +0100
+Subject: [PATCH] op.c: croak on "my $_" when "use utf8" is in effect
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+Fixes #18449
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ op.c         | 16 +++++++++-------
+ t/op/mydef.t | 11 +++++++++--
+ 2 files changed, 18 insertions(+), 9 deletions(-)
+
+diff --git a/op.c b/op.c
+index b2e12dd0c0..dce844d297 100644
+--- a/op.c
++++ b/op.c
+@@ -730,6 +730,7 @@ PADOFFSET
+ Perl_allocmy(pTHX_ const char *const name, const STRLEN len, const U32 flags)
+ {
+     PADOFFSET off;
++    bool is_idfirst, is_default;
+     const bool is_our = (PL_parser->in_my == KEY_our);
+ 
+     PERL_ARGS_ASSERT_ALLOCMY;
+@@ -738,14 +739,15 @@ Perl_allocmy(pTHX_ const char *const name, const STRLEN len, const U32 flags)
+ 	Perl_croak(aTHX_ "panic: allocmy illegal flag bits 0x%" UVxf,
+ 		   (UV)flags);
+ 
++    is_idfirst = flags & SVf_UTF8
++        ? isIDFIRST_utf8_safe((U8*)name + 1, name + len)
++        : isIDFIRST_A(name[1]);
++
++    /* $_, @_, etc. */
++    is_default = len == 2 && name[1] == '_';
++
+     /* complain about "my $<special_var>" etc etc */
+-    if (   len
+-        && !(  is_our
+-            || isALPHA(name[1])
+-            || (   (flags & SVf_UTF8)
+-                && isIDFIRST_utf8_safe((U8 *)name+1, name + len))
+-            || (name[1] == '_' && len > 2)))
+-    {
++    if (!is_our && (!is_idfirst || is_default)) {
+         const char * const type =
+               PL_parser->in_my == KEY_sigvar ? "subroutine signature" :
+               PL_parser->in_my == KEY_state  ? "\"state\""     : "\"my\"";
+diff --git a/t/op/mydef.t b/t/op/mydef.t
+index 42a81d9ab0..225ce98e51 100644
+--- a/t/op/mydef.t
++++ b/t/op/mydef.t
+@@ -6,10 +6,17 @@ BEGIN {
+     set_up_inc('../lib');
+ }
+ 
+-plan tests => 1;
+-
+ use strict;
+ 
+ eval 'my $_';
+ like $@, qr/^Can't use global \$_ in "my" at /;
+ 
++{
++    # using utf8 allows $_ to be declared with 'my'
++    # GH #18449
++    use utf8;
++    eval 'my $_;';
++    like $@, qr/^Can't use global \$_ in "my" at /;
++}
++
++done_testing;
+-- 
+2.26.2
+
diff --git a/perl-5.33.6-Add-missing-entries-to-perldiag-GH-18276.patch b/perl-5.33.6-Add-missing-entries-to-perldiag-GH-18276.patch
new file mode 100644
index 0000000..f8e0e97
--- /dev/null
+++ b/perl-5.33.6-Add-missing-entries-to-perldiag-GH-18276.patch
@@ -0,0 +1,100 @@
+From cac138107138a9814b32c4de74426225628f1646 Mon Sep 17 00:00:00 2001
+From: Karl Williamson <khw@cpan.org>
+Date: Sun, 17 Jan 2021 21:45:20 -0700
+Subject: [PATCH] Add missing entries to perldiag; GH #18276
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+The ticket mentions yet another message, not addressed in this
+commit, "Insecure private-use override".  That message is part of a
+hook for a so-far unimplemented module, so it actually doesn't ever get
+raised.
+
+Committer: One correction per Grinnz comment in
+https://github.com/Perl/perl5/pull/18491
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ pod/perldiag.pod | 45 +++++++++++++++++++++++++++++++++++++++++++++
+ 1 file changed, 45 insertions(+)
+
+diff --git a/pod/perldiag.pod b/pod/perldiag.pod
+index 9c91630d39..63f57f220e 100644
+--- a/pod/perldiag.pod
++++ b/pod/perldiag.pod
+@@ -2195,6 +2195,20 @@ single form when it must operate on them directly.  Either you've passed
+ an invalid file specification to Perl, or you've found a case the
+ conversion routines don't handle.  Drat.
+ 
++=item Error %s in expansion of %s
++
++(F) An error was encountered in handling a user-defined property
++(L<perlunicode/User-Defined Character Properties>).  These are
++programmer written subroutines, hence subject to errors that may
++prevent them from compiling or running.  The calls to these subs are
++C<eval>'d, and if there is a failure, this message is raised, using the
++contents of C<$@> from the failed C<eval>.
++
++Another possibility is that tainted data was encountered somewhere in
++the chain of expanding the property.  If so, the message wording will
++indicate that this is the problem.  See L</Insecure user-defined
++property %s>.
++
+ =item Eval-group in insecure regular expression
+ 
+ (F) Perl detected tainted data when trying to compile a regular
+@@ -2836,6 +2850,16 @@ not match 8 spaces.
+ text.  You should check the pattern to ensure that recursive patterns
+ either consume text or fail.
+ 
++=item Infinite recursion in user-defined property
++
++(F) A user-defined property (L<perlunicode/User-Defined Character
++Properties>) can depend on the definitions of other user-defined
++properties.  If the chain of dependencies leads back to this property,
++infinite recursion would occur, were it not for the check that raised
++this error.
++
++Restructure your property definitions to avoid this.
++
+ =item Infinite recursion via empty pattern
+ 
+ (F) You tried to use the empty pattern inside of a regex code block,
+@@ -6273,6 +6297,20 @@ lexicals that are initialized only once (see L<feature>):
+ This use of C<my()> in a false conditional was deprecated beginning in
+ Perl 5.10 and became a fatal error in Perl 5.30.
+ 
++=item Timeout waiting for another thread to define \p{%s}
++
++(F) The first time a user-defined property
++(L<perlunicode/User-Defined Character Properties>) is used, its
++definition is looked up and converted into an internal form for more
++efficient handling in subsequent uses.  There could be a race if two or
++more threads tried to do this processing nearly simultaneously.
++Instead, a critical section is created around this task, locking out all
++but one thread from doing it.  This message indicates that the thread
++that is doing the conversion is taking an unexpectedly long time.  The
++timeout exists solely to prevent deadlock; it's long enough that the
++system was likely thrashing and about to crash.  There is no real remedy but
++rebooting.
++
+ =item times not implemented
+ 
+ (F) Your version of the C library apparently doesn't do times().  I
+@@ -6846,6 +6884,13 @@ for the list of known options.
+ L<perlrun|perlrun/-C [numberE<sol>list]> documentation of the C<-C> switch
+ for the list of known options.
+ 
++=item Unknown user-defined property name \p{%s}
++
++(F) You specified to use a property within the C<\p{...}> which was a
++syntactically valid user-defined property, but no definition was found
++for it by the time one was required to proceed.  Check your spelling.
++See L<perlunicode/User-Defined Character Properties>.
++
+ =item Unknown verb pattern '%s' in regex; marked by S<<-- HERE> in m/%s/
+ 
+ (F) You either made a typo or have incorrectly put a C<*> quantifier
+-- 
+2.26.2
+
diff --git a/perl-5.33.6-t-run-locale.t-Rmv-LANGUAGE-from-environment.patch b/perl-5.33.6-t-run-locale.t-Rmv-LANGUAGE-from-environment.patch
new file mode 100644
index 0000000..bdc0c35
--- /dev/null
+++ b/perl-5.33.6-t-run-locale.t-Rmv-LANGUAGE-from-environment.patch
@@ -0,0 +1,32 @@
+From a2f57b06b018b254bee93e1a1265cfc09833366f Mon Sep 17 00:00:00 2001
+From: Karl Williamson <khw@cpan.org>
+Date: Tue, 9 Feb 2021 11:32:15 -0700
+Subject: [PATCH] t/run/locale.t: Rmv LANGUAGE from environment
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+This could cause interference with our tests on some platforms that have
+this environment variable.
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ t/run/locale.t | 2 +-
+ 1 file changed, 1 insertion(+), 1 deletion(-)
+
+diff --git a/t/run/locale.t b/t/run/locale.t
+index 8a04d1aea6..0f2a2ba457 100644
+--- a/t/run/locale.t
++++ b/t/run/locale.t
+@@ -38,7 +38,7 @@ if (defined $ARGV[0] && $ARGV[0] ne "") {
+ }
+ 
+ # reset the locale environment
+-delete local @ENV{'LANG', (grep /^LC_[A-Z]+$/, keys %ENV)};
++delete local @ENV{'LANGUAGE', 'LANG', (grep /^LC_[A-Z]+$/, keys %ENV)};
+ 
+ # If user wants this to happen, they set the environment variable AND use
+ # 'debug'
+-- 
+2.26.2
+
diff --git a/perl-5.33.7-regcomp.c-Remove-memory-leak.patch b/perl-5.33.7-regcomp.c-Remove-memory-leak.patch
new file mode 100644
index 0000000..44dc94e
--- /dev/null
+++ b/perl-5.33.7-regcomp.c-Remove-memory-leak.patch
@@ -0,0 +1,74 @@
+From 5f41fa466a67b5535aa8bcf4b814f242545ac7bd Mon Sep 17 00:00:00 2001
+From: Karl Williamson <khw@cpan.org>
+Date: Sat, 27 Feb 2021 11:43:41 -0700
+Subject: [PATCH] regcomp.c: Remove memory leak
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+This fixes GH #18604.  There was a path through the code where a
+particular SV did not get its reference count decremented.
+
+I did an audit of the function and came up with several other
+possiblities that are included in this commit.
+
+Further, there would be leaks for some instances of finding syntax
+errors in the input pattern, or when warnings are fatalized.  Those
+would require mortalizing some SVs, but that is beyond the scope of this
+commit.
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ regcomp.c     | 7 +++++++
+ t/op/svleak.t | 3 ++-
+ 2 files changed, 9 insertions(+), 1 deletion(-)
+
+diff --git a/regcomp.c b/regcomp.c
+index e44c7a37e5..f5e5f581dc 100644
+--- a/regcomp.c
++++ b/regcomp.c
+@@ -18765,6 +18765,12 @@ S_regclass(pTHX_ RExC_state_t *pRExC_state, I32 *flagp, U32 depth,
+ 	RExC_end = save_end;
+ 	RExC_in_multi_char_class = 0;
+         SvREFCNT_dec_NN(multi_char_matches);
++        SvREFCNT_dec(properties);
++        SvREFCNT_dec(cp_list);
++        SvREFCNT_dec(simple_posixes);
++        SvREFCNT_dec(posixes);
++        SvREFCNT_dec(nposixes);
++        SvREFCNT_dec(cp_foldable_list);
+         return ret;
+     }
+ 
+@@ -20122,6 +20128,7 @@ S_regclass(pTHX_ RExC_state_t *pRExC_state, I32 *flagp, U32 depth,
+                                            RExC_parse - orig_parse);;
+     SvREFCNT_dec(cp_list);;
+     SvREFCNT_dec(only_utf8_locale_list);
++    SvREFCNT_dec(upper_latin1_only_utf8_matches);
+     return ret;
+ }
+ 
+diff --git a/t/op/svleak.t b/t/op/svleak.t
+index 6acc298c3d..3df4838be8 100644
+--- a/t/op/svleak.t
++++ b/t/op/svleak.t
+@@ -15,7 +15,7 @@ BEGIN {
+ 
+ use Config;
+ 
+-plan tests => 150;
++plan tests => 151;
+ 
+ # run some code N times. If the number of SVs at the end of loop N is
+ # greater than (N-1)*delta at the end of loop 1, we've got a leak
+@@ -278,6 +278,7 @@ eleak(2,0,'/[[:ascii:]]/');
+ eleak(2,0,'/[[.zog.]]/');
+ eleak(2,0,'/[.zog.]/');
+ eleak(2,0,'/|\W/', '/|\W/ [perl #123198]');
++eleak(2,0,'/a\sb/', '/a\sb/ [GH #18604]');
+ eleak(2,0,'no warnings; /(?[])/');
+ eleak(2,0,'no warnings; /(?[[a]+[b]])/');
+ eleak(2,0,'no warnings; /(?[[a]-[b]])/');
+-- 
+2.26.2
+
diff --git a/perl-5.33.8-Fix-broken-left-shift-of-IV_MIN-under-use-integer.patch b/perl-5.33.8-Fix-broken-left-shift-of-IV_MIN-under-use-integer.patch
new file mode 100644
index 0000000..5ce6046
--- /dev/null
+++ b/perl-5.33.8-Fix-broken-left-shift-of-IV_MIN-under-use-integer.patch
@@ -0,0 +1,62 @@
+From 4e82c85b1c9c9b30253b8624470da6f20a6c0604 Mon Sep 17 00:00:00 2001
+From: Karl Williamson <khw@cpan.org>
+Date: Mon, 15 Mar 2021 21:01:47 -0600
+Subject: [PATCH] Fix broken left shift of IV_MIN under 'use integer'
+MIME-Version: 1.0
+Content-Type: text/plain; charset=UTF-8
+Content-Transfer-Encoding: 8bit
+
+This fixes GH 18639
+
+When I wrote this code, I conflated casting and complementing.
+
+Signed-off-by: Petr Písař <ppisar@redhat.com>
+---
+ pp.c       | 3 ---
+ t/op/bop.t | 9 ++++++++-
+ 2 files changed, 8 insertions(+), 4 deletions(-)
+
+diff --git a/pp.c b/pp.c
+index d365afea4c..baf0777a47 100644
+--- a/pp.c
++++ b/pp.c
+@@ -2007,9 +2007,6 @@ static IV S_iv_shift(IV iv, int shift, bool left)
+      * 18446744073709551552
+      * */
+     if (left) {
+-        if (iv == IV_MIN) { /* Casting this to a UV is undefined behavior */
+-            return 0;
+-        }
+         return (IV) (((UV) iv) << shift);
+     }
+ 
+diff --git a/t/op/bop.t b/t/op/bop.t
+index 07f057d0a9..31b6531a03 100644
+--- a/t/op/bop.t
++++ b/t/op/bop.t
+@@ -18,7 +18,7 @@ BEGIN {
+ # If you find tests are failing, please try adding names to tests to track
+ # down where the failure is, and supply your new names as a patch.
+ # (Just-in-time test naming)
+-plan tests => 502;
++plan tests => 503;
+ 
+ # numerics
+ ok ((0xdead & 0xbeef) == 0x9ead);
+@@ -33,6 +33,13 @@ ok ((33023 >> 7) == 257);
+ # signed vs. unsigned
+ ok ((~0 > 0 && do { use integer; ~0 } == -1));
+ 
++{   # GH #18639
++    my $iv_min = -(~0 >> 1) - 1;
++    my $shifted;
++    { use integer; $shifted = $iv_min << 0 };
++    is($shifted, $iv_min, "IV_MIN << 0 yields IV_MIN under 'use integer'");
++}
++
+ my $bits = 0;
+ for (my $i = ~0; $i; $i >>= 1) { ++$bits; }
+ my $cusp = 1 << ($bits - 1);
+-- 
+2.26.3
+
diff --git a/perl-5.36.0-Add-definition-of-OPTIMIZE-to-.ph-files.patch b/perl-5.36.0-Add-definition-of-OPTIMIZE-to-.ph-files.patch
new file mode 100644
index 0000000..083d8f9
--- /dev/null
+++ b/perl-5.36.0-Add-definition-of-OPTIMIZE-to-.ph-files.patch
@@ -0,0 +1,39 @@
+From 6d9d949fb4962e32636aee48a948081d8936d318 Mon Sep 17 00:00:00 2001
+From: Jitka Plesnikova <jplesnik@redhat.com>
+Date: Wed, 11 Jan 2023 09:12:18 +0100
+Subject: [PATCH] Add definition of OPTIMIZE to .ph files
+
+The fortify.h header includes a test to ensure that -O is used when
+compiling with _FORTIFY_SOURCE, and the header looks for OPTIMIZE, which
+is set by the compiler whenever -O is used.  Perl translates this test
+to the .ph file, but nothing ever sets OPTIMIZE. This causes a warning
+for anything that uses features.ph.
+
+_FORTIFY_SOURCE is defined in /usr/lib64/perl5/_h2ph_pre.ph which is
+generated by h2ph. It uses value of @Config{'ccsymbols', 'cppsymbols',
+'cppccsymbols'} which does not contain definition for OPTIMIZE.
+
+The patch updated h2ph to add OPTIMIZE if -O is used.
+---
+ utils/h2ph.PL | 5 +++++
+ 1 file changed, 5 insertions(+)
+
+diff --git a/utils/h2ph.PL b/utils/h2ph.PL
+index afa53c2..3950d11 100644
+--- a/utils/h2ph.PL
++++ b/utils/h2ph.PL
+@@ -865,6 +865,11 @@ sub _extract_cc_defines
+     my $allsymbols  = join " ",
+ 	@Config{'ccsymbols', 'cppsymbols', 'cppccsymbols'};
+ 
++    # If optimizing -O2 is used, add the definition
++    if ($Config{'ccflags'} =~ /(?:\s+|^)-O([\d]+)(?:\s+|$)/) {
++	$allsymbols .= " __OPTIMIZE__=$1";
++    }
++
+     # Split compiler pre-definitions into 'key=value' pairs:
+     while ($allsymbols =~ /([^\s]+)=((\\\s|[^\s])+)/g) {
+ 	$define{$1} = $2;
+-- 
+2.39.0
+
diff --git a/perl-5.8.0-libdir64.patch b/perl-5.8.0-libdir64.patch
new file mode 100644
index 0000000..0ab67a0
--- /dev/null
+++ b/perl-5.8.0-libdir64.patch
@@ -0,0 +1,46 @@
+--- perl-5.8.0/Configure.orig	2002-09-09 11:31:19.000000000 -0400
++++ perl-5.8.0/Configure	2002-09-09 11:40:37.000000000 -0400
+@@ -6458,8 +6458,8 @@
+ : Reproduce behavior of 5.005 and earlier, maybe drop that in 5.7.
+ case "$installstyle" in
+ '')	case "$prefix" in
+-		*perl*) dflt='lib';;
+-		*) dflt='lib/perl5' ;;
++		*perl*) dflt='lib64';;
++		*) dflt='lib64/perl5' ;;
+ 	esac
+ 	;;
+ *)	dflt="$installstyle" ;;
+@@ -6475,8 +6475,8 @@
+ : /opt/perl/lib/perl5... would be redundant.
+ : The default "style" setting is made in installstyle.U
+ case "$installstyle" in
+-*lib/perl5*) set dflt privlib lib/$package/$version ;;
+-*)	 set dflt privlib lib/$version ;;
++*lib64/perl5*) set dflt privlib lib64/$package/$version ;;
++*)	 set dflt privlib lib64/$version ;;
+ esac
+ eval $prefixit
+ $cat <<EOM
+@@ -6934,8 +6934,8 @@
+ prog=`echo $package | $sed 's/-*[0-9.]*$//'`
+ case "$sitelib" in
+ '') case "$installstyle" in
+-	*lib/perl5*) dflt=$siteprefix/lib/$package/site_$prog/$version ;;
+-	*)	 dflt=$siteprefix/lib/site_$prog/$version ;;
++	*lib64/perl5*) dflt=$siteprefix/lib64/$package/site_$prog/$version ;;
++	*)	 dflt=$siteprefix/lib64/site_$prog/$version ;;
+ 	esac
+ 	;;
+ *)	dflt="$sitelib"
+@@ -7061,8 +7061,8 @@
+ 	'')
+ 		prog=`echo $package | $sed 's/-*[0-9.]*$//'`
+ 		case "$installstyle" in
+-		*lib/perl5*) dflt=$vendorprefix/lib/$package/vendor_$prog/$version ;;
+-		*)	     dflt=$vendorprefix/lib/vendor_$prog/$version ;;
++		*lib64/perl5*) dflt=$vendorprefix/lib64/$package/vendor_$prog/$version ;;
++		*)	     dflt=$vendorprefix/lib64/vendor_$prog/$version ;;
+ 		esac
+ 		;;
+ 	*)	dflt="$vendorlib"
diff --git a/perl-5.8.0-libnet.cfg b/perl-5.8.0-libnet.cfg
new file mode 100644
index 0000000..85d1393
--- /dev/null
+++ b/perl-5.8.0-libnet.cfg
@@ -0,0 +1,15 @@
+{
+        'pop3_hosts' => [],
+        'ph_hosts' => [],
+        'inet_domain' => undef,
+        'time_hosts' => [],
+        'daytime_hosts' => [],
+        'smtp_hosts' => [],
+        'test_exist' => 1,
+        'test_hosts' => 1,
+        'nntp_hosts' => [],
+        'ftp_testhost' => undef,
+        'snpp_hosts' => [],
+        'ftp_int_passive' => 1,
+        'ftp_ext_passive' => 1,
+}
diff --git a/perl-USE_MM_LD_RUN_PATH.patch b/perl-USE_MM_LD_RUN_PATH.patch
new file mode 100644
index 0000000..21a1f72
--- /dev/null
+++ b/perl-USE_MM_LD_RUN_PATH.patch
@@ -0,0 +1,109 @@
+diff -up perl-5.14.0/cpan/ExtUtils-MakeMaker/lib/ExtUtils/Liblist.pm.usem perl-5.14.0/cpan/ExtUtils-MakeMaker/lib/ExtUtils/Liblist.pm
+--- perl-5.14.0/cpan/ExtUtils-MakeMaker/lib/ExtUtils/Liblist.pm.usem	2011-05-08 05:10:08.000000000 +0200
++++ perl-5.14.0/cpan/ExtUtils-MakeMaker/lib/ExtUtils/Liblist.pm	2011-05-17 11:14:22.169115984 +0200
+@@ -88,6 +88,11 @@ libraries.  LD_RUN_PATH is a colon separ
+ in LDLOADLIBS. It is passed as an environment variable to the process
+ that links the shared library.
+ 
++Fedora extension: This generation of LD_RUN_PATH is disabled by default.
++To use the generated LD_RUN_PATH for all links, set the USE_MM_LD_RUN_PATH
++MakeMaker object attribute / argument, (or set the $USE_MM_LD_RUN_PATH
++environment variable).
++
+ =head2 BSLOADLIBS
+ 
+ List of those libraries that are needed but can be linked in
+diff -up perl-5.14.0/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MakeMaker.pm.usem perl-5.14.0/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MakeMaker.pm
+--- perl-5.14.0/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MakeMaker.pm.usem	2011-05-08 05:10:08.000000000 +0200
++++ perl-5.14.0/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MakeMaker.pm	2011-05-17 13:39:26.912586030 +0200
+@@ -278,7 +278,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
+-    SIGN SKIP TEST_REQUIRES TYPEMAPS UNINST VERSION VERSION_FROM XS XSOPT XSPROTOARG
++    SIGN SKIP TEST_REQUIRES TYPEMAPS UNINST USE_MM_LD_RUN_PATH VERSION VERSION_FROM XS XSOPT XSPROTOARG
+     XS_VERSION clean depend dist dynamic_lib linkext macro realclean
+     tool_autosplit
+ 
+@@ -422,7 +422,27 @@ sub new {
+     # PRINT_PREREQ is RedHatism.
+     if ("@ARGV" =~ /\bPRINT_PREREQ\b/) {
+         $self->_PRINT_PREREQ;
+-   }
++    }
++
++    # USE_MM_LD_RUN_PATH - another RedHatism to disable automatic RPATH generation
++    if ( ( ! $self->{USE_MM_LD_RUN_PATH} )
++       &&( ("@ARGV" =~ /\bUSE_MM_LD_RUN_PATH(=([01]))?\b/)
++        ||( exists( $ENV{USE_MM_LD_RUN_PATH} )
++           &&( $ENV{USE_MM_LD_RUN_PATH} =~ /([01])?$/ )
++           )
++        )
++       )
++    {
++       my $v = $1;
++       if( $v )
++       {
++           $v = ($v=~/=([01])$/)[0];
++       }else
++       {
++           $v = 1;
++       };
++       $self->{USE_MM_LD_RUN_PATH}=$v;
++    };
+ 
+     print "MakeMaker (v$VERSION)\n" if $Verbose;
+     if (-f "MANIFEST" && ! -f "Makefile" && ! $UNDER_CORE){
+@@ -2352,6 +2372,40 @@ precedence.  A typemap in the current di
+ precedence, even if it isn't listed in TYPEMAPS.  The default system
+ typemap has lowest precedence.
+ 
++=item USE_MM_LD_RUN_PATH
++
++boolean
++The Fedora perl MakeMaker distribution differs from the standard
++upstream release in that it disables use of the MakeMaker generated
++LD_RUN_PATH by default, UNLESS this attribute is specified , or the
++USE_MM_LD_RUN_PATH environment variable is set during the MakeMaker run.
++
++The upstream MakeMaker will set the ld(1) environment variable LD_RUN_PATH
++to the concatenation of every -L ld(1) option directory in which a -l ld(1)
++option library is found, which is used as the ld(1) -rpath option if none
++is specified. This means that, if your application builds shared libraries
++and your MakeMaker application links to them, that the absolute paths of the
++libraries in the build tree will be inserted into the RPATH header of all
++MakeMaker generated binaries, and that such binaries will be unable to link
++to these libraries if they do not still reside in the build tree directories
++(unlikely) or in the system library directories (/lib or /usr/lib), regardless
++of any LD_LIBRARY_PATH setting. So if you specified -L../mylib -lmylib , and
++ your 'libmylib.so' gets installed into /some_directory_other_than_usr_lib,
++ your MakeMaker application will be unable to link to it, even if LD_LIBRARY_PATH
++is set to include /some_directory_other_than_usr_lib, because RPATH overrides
++LD_LIBRARY_PATH.
++
++So for Fedora MakeMaker builds LD_RUN_PATH is NOT generated by default for
++every link. You can still use explicit -rpath ld options or the LD_RUN_PATH
++environment variable during the build to generate an RPATH for the binaries.
++
++You can set the USE_MM_LD_RUN_PATH attribute to 1 on the MakeMaker command
++line or in the WriteMakefile arguments to enable generation of LD_RUN_PATH
++for every link command.
++
++USE_MM_LD_RUN_PATH will default to 1 (LD_RUN_PATH will be used) IF the
++$USE_MM_LD_RUN_PATH environment variable is set during a MakeMaker run.
++
+ =item VENDORPREFIX
+ 
+ Like PERLPREFIX, but only for the vendor install locations.
+diff -up perl-5.14.0/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm.usem perl-5.14.0/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm
+--- perl-5.14.0/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm.usem	2011-05-08 05:10:08.000000000 +0200
++++ perl-5.14.0/cpan/ExtUtils-MakeMaker/lib/ExtUtils/MM_Unix.pm	2011-05-17 11:14:22.172115972 +0200
+@@ -944,7 +944,7 @@ $(INST_DYNAMIC): $(OBJECT) $(MYEXTLIB) $
+     }
+ 
+     my $ld_run_path_shell = "";
+-    if ($self->{LD_RUN_PATH} ne "") {
++    if (($self->{LD_RUN_PATH} ne "") && ($self->{USE_MM_LD_RUN_PATH})) {
+ 	$ld_run_path_shell = 'LD_RUN_PATH="$(LD_RUN_PATH)" ';
+     }
+ 
diff --git a/perl-example.stp b/perl-example.stp
new file mode 100644
index 0000000..040f8e3
--- /dev/null
+++ b/perl-example.stp
@@ -0,0 +1,21 @@
+/*
+    Example of the perl systemtap tapset shows a nested view of perl subroutine
+    calls and returns across the whole system.
+
+    To run:
+        stap perl-example.stp (for all perl processes)
+    For specific perl process:
+        stap perl-example.stp -c COMMAND
+*/
+
+probe perl.sub.call
+{
+    printf("%s => sub: %s, filename: %s, line: %d, package: %s\n",
+        thread_indent(1), sub, filename, lineno, package)
+}
+
+probe perl.sub.return
+{
+    printf("%s <= sub: %s, filename: %s, line: %d, package: %s\n",
+        thread_indent(-1), sub, filename, lineno, package)
+}
diff --git a/perl-perlbug-tag.patch b/perl-perlbug-tag.patch
new file mode 100644
index 0000000..0f96ab3
--- /dev/null
+++ b/perl-perlbug-tag.patch
@@ -0,0 +1,21 @@
+diff -up perl-5.16.0-RC2/utils/perlbug.PL.fedora perl-5.16.0-RC2/utils/perlbug.PL
+--- perl-5.16.0-RC2/utils/perlbug.PL.fedora	2012-05-16 16:15:51.000000000 +0200
++++ perl-5.16.0-RC2/utils/perlbug.PL	2012-05-16 16:18:36.018894464 +0200
+@@ -271,17 +271,6 @@ sub Init {
+     $ok = '';
+     if ($opt{o}) {
+ 	if ($opt{o} eq 'k' or $opt{o} eq 'kay') {
+-	    my $age = time - $patchlevel_date;
+-	    if ($opt{o} eq 'k' and $age > 60 * 24 * 60 * 60 ) {
+-		my $date = localtime $patchlevel_date;
+-		print <<"EOF";
+-"perlbug -ok" and "perlbug -nok" do not report on Perl versions which
+-are more than 60 days old.  This Perl version was constructed on
+-$date.  If you really want to report this, use
+-"perlbug -okay" or "perlbug -nokay".
+-EOF
+-		exit();
+-	    }
+ 	    # force these options
+ 	    unless ($opt{n}) {
+ 		$opt{S} = 1; # don't prompt for send
diff --git a/perl.rpmlintrc b/perl.rpmlintrc
new file mode 100644
index 0000000..9565214
--- /dev/null
+++ b/perl.rpmlintrc
@@ -0,0 +1,7 @@
+from Config import *
+addFilter("spelling-error .* (autoloaded|awk|cacheout|closedir|decrement|exe|explicative|gdbm|getgr|gethost|getnet|getproto|getpw|getserv|globbing|gmtime|groff|ithreads|lexically|libnet|localtime|lstat|Memoizing|metapackage|ndbm|Nestable|nonprintable|odbm|opcodes|opendir|perlbug|perldoc|perlfunc|perlglob|perllocale|perldiag|perlmain|perlpod|perlsub|Pragma|prebuilt|predeclare|printables|reachability|readdir|redispatch|rewinddir|rpmbuild|sdbm|sed|splain|truncations|usr|writemain)");
+addFilter("unexpanded-macro %description .* %(Extensions|INC)");
+# POSIX module provides wrappers for libc functions
+addFilter("missing-call-to-setgroups-before-setuid .*/auto/POSIX/POSIX.so");
+# Applied with "git am"
+addFilter("patch-not-applied Patch58: perl-5.30.0-PATCH-perl-134329-Use-after-free-in-regcomp.c.patch");
diff --git a/perl.spec b/perl.spec
new file mode 100644
index 0000000..696340a
--- /dev/null
+++ b/perl.spec
@@ -0,0 +1,7030 @@
+%global perl_version    5.24.4
+%global perl_epoch      4
+%global perl_arch_stem -thread-multi
+%global perl_archname %{_arch}-%{_os}%{perl_arch_stem}
+
+%global multilib_64_archs aarch64 %{power64} s390x sparc64 x86_64 
+%global parallel_tests 1
+%global tapsetdir   %{_datadir}/systemtap/tapset
+
+%global dual_life 0
+%global rebuild_from_scratch %{defined perl_bootstrap}
+
+# This overrides filters from build root (/usr/lib/rpm/macros.d/macros.perl)
+# intentionally (unversioned perl(DB) is removed and versioned one is kept).
+# Filter provides from *.pl files, bug #924938
+%global __provides_exclude_from .*%{_docdir}|.*%{perl_archlib}/.*\\.pl$|.*%{perl_privlib}/.*\\.pl$
+%global __requires_exclude_from %{_docdir}
+%global __provides_exclude perl\\((VMS|Win32|BSD::|DB\\)$)
+%global __requires_exclude perl\\((VMS|BSD::|Win32|Tk|Mac::|Your::Module::Here)
+# same as we provide in /usr/lib/rpm/macros.d/macros.perl
+%global perl5_testdir   %{_libexecdir}/perl5-tests
+
+# Optional features
+# We can bootstrap without gdbm
+%bcond_without gdbm
+# Support for groff, bug #135101
+%bcond_without perl_enables_groff
+# Run syslog tests
+%bcond_with perl_enables_syslog_test
+# SystemTap support
+%bcond_without perl_enables_systemtap
+# <> operator uses File::Glob nowadays. CSH is not needed.
+%bcond_with perl_enables_tcsh
+# We can skip %%check phase
+%bcond_without test
+
+Name:           perl
+Version:        %{perl_version}
+# release number must be even higher, because dual-lived modules will be broken otherwise
+Release:        404%{?dist}
+Epoch:          %{perl_epoch}
+Summary:        Practical Extraction and Report Language
+# These are all found licenses. They are distributed among various
+# subpackages.
+# dist/Tie-File/lib/Tie/File.pm:        GPLv2+ or Artistic
+# cpan/Getopt-Long/lib/Getopt/Long.pm:  GPLv2+ or Artistic
+# cpan/Compress-Raw-Zlib/Zlib.xs:       (GPL+ or Artistic) and zlib
+# cpan/Digest-MD5/MD5.xs:               (GPL+ or Artistic) and BSD
+# cpan/Time-Piece/Piece.xs:             (GPL+ or Artisitc) and BSD
+# dist/PathTools/Cwd.xs:                (GPL+ or Artisitc) and BSD
+# cpan/perlfaq/lib/perlfaq4.pod:        (GPL+ or Artistic) and Public Domain
+# cpan/Test-Simple/lib/Test/Tutorial.pod:   (GPL+ or Artistic) and
+#                                           Public Domain
+# cpan/MIME-Base64/Base64.xs:           (GPL+ or Artistic) and MIT
+# cpan/Test-Simple/lib/ok.pm:           CC0
+# cpan/Text-Tabs/lib/Text/Wrap.pm:      TTWL
+# cpan/Encode/bin/encguess:             Artistic 2.0
+# cpan/Unicode-Collate/Collate/allkeys.txt:     Unicode
+# lib/unicore:                          UCD
+# ext/SDBM_File/sdbm.{c,h}:             Public domain
+# regexec.c, regcomp.c:                 HSLR
+# cpan/Locale-Maketext-Simple/lib/Locale/Maketext/Simple.pm:    MIT (with
+#                                       exception for Perl)
+# time64.c:                             MIT
+# pod/perlpodstyle.pod:                 MIT
+# pod/perlunicook.pod:                  (GPL+ or Artistic) and Public Domain
+# pod/perlgpl.pod:                      GPL text
+# pod/perlartistic.pod:                 Artistic text
+# ext/File-Glob/bsd_glob.{c,h}:         BSD
+# Other files:                          GPL+ or Artistic
+## Not is a binary package
+# cpan/podlators/t/style/minimum-version.t          MIT
+# cpan/Term-ANSIColor/t/lib/Test/RRA/Config.pm:     MIT
+## Unbundled
+# cpan/Compress-Raw-Bzip2/bzip2-src:    BSD
+# cpan/Compress-Raw-Zlib/zlib-src:      zlib
+## perl sub-package notice
+# perluniprops.pod is generated from lib/unicore sources:   UCD
+License:        (GPL+ or Artistic) and (GPLv2+ or Artistic) and BSD and Public Domain and UCD
+Url:            http://www.perl.org/
+Source0:        http://www.cpan.org/src/5.0/perl-%{perl_version}.tar.bz2
+Source3:        macros.perl
+#Systemtap tapset and example that make use of systemtap-sdt-devel
+# build requirement. Written by lberk; Not yet upstream.
+Source4:        perl.stp
+Source5:        perl-example.stp
+# Tom Christiansen confirms Pod::Html uses the same license as perl
+Source6:        Pod-Html-license-clarification
+
+# Pregenerated dependencies for bootstrap.
+# If your RPM tool fails on including the source file, then you forgot to
+# define _sourcedir macro to point to the directory with the sources.
+Source7:        gendep.macros
+%if %{defined perl_bootstrap}
+%include %{SOURCE7}
+%endif
+
+# Removes date check, Fedora/RHEL specific
+Patch1:         perl-perlbug-tag.patch
+
+# Fedora/RHEL only (64bit only)
+Patch3:         perl-5.8.0-libdir64.patch
+
+# Fedora/RHEL specific (use libresolv instead of libbind), bug #151127
+Patch4:         perl-5.10.0-libresolv.patch
+
+# FIXME: May need the "Fedora" references removed before upstreaming
+# patches ExtUtils-MakeMaker
+Patch5:         perl-USE_MM_LD_RUN_PATH.patch
+
+# Provide maybe_command independently, bug #1129443
+Patch6:         perl-5.22.1-Provide-ExtUtils-MM-methods-as-standalone-ExtUtils-M.patch
+
+# The Fedora builders started randomly failing this futime test
+# only on x86_64, so we just don't run it. Works fine on normal
+# systems.
+Patch7:         perl-5.10.0-x86_64-io-test-failure.patch
+
+# switch off test, which is failing only on koji (fork)
+Patch8:         perl-5.14.1-offtest.patch
+
+# Define SONAME for libperl.so
+Patch15:        perl-5.16.3-create_libperl_soname.patch
+
+# Install libperl.so to -Dshrpdir value
+Patch16:        perl-5.22.0-Install-libperl.so-to-shrpdir-on-Linux.patch
+
+# Document Math::BigInt::CalcEmu requires Math::BigInt, rhbz#959096,
+# CPAN RT#85015
+Patch22:        perl-5.18.1-Document-Math-BigInt-CalcEmu-requires-Math-BigInt.patch 
+
+# Make *DBM_File desctructors thread-safe, bug #1107543, RT#61912
+Patch26:        perl-5.18.2-Destroy-GDBM-NDBM-ODBM-SDBM-_File-objects-only-from-.patch
+
+# Workaround for Coro, bug #1231165, CPAN RT#101063. To remove in the future.
+Patch28:        perl-5.22.0-Revert-const-the-core-magic-vtables.patch
+
+# Replace ExtUtils::MakeMaker dependency with ExtUtils::MM::Utils.
+# This allows not to require perl-devel. Bug #1129443
+Patch30:        perl-5.22.1-Replace-EU-MM-dependnecy-with-EU-MM-Utils-in-IPC-Cmd.patch
+
+# Do not use unitialized memory in $h{\const} warnings, RT#128189,
+# in upstream after 5.25.2
+Patch34:        perl-5.25.2-uninit-warning-from-h-const-coredumped.patch
+
+# Do not treat %: as a stash, RT#128238, in upstream after 5.25.2
+Patch36:        perl-5.25.2-only-treat-stash-entries-with-.-as-sub-stashes.patch
+
+# Do not crash when inserting a non-stash into a stash, RT#128238,
+# in upstream after 5.25.2
+Patch37:        perl-5.25.2-perl-128238-Crash-with-non-stash-in-stash.patch
+
+# Fix a crash when vivifying a stub in a deleted package, RT#128532,
+# in upstream after 5.25.2
+Patch40:        perl-5.25.2-perl-128532-Crash-vivifying-stub-in-deleted-pkg.patch
+
+# Fix a crash in "Subroutine redefined" warning, RT#128257,
+# in upstream after 5.25.2
+Patch41:        perl-5.25.2-SEGV-in-Subroutine-redefined-warning.patch
+
+# Fix crash in splice, RT#129164, RT#129166, RT#129167, in upstream after 5.25.4
+Patch48:        perl-5.24.0-perl-129164-Crash-with-splice.patch
+
+# Fix string overrun in Perl_gv_fetchmethod_pvn_flags, RT#129267,
+# in upstream after 5.25.4
+Patch49:        perl-5.24.0-clean-up-gv_fetchmethod_pvn_flags-introduce-name_end.patch
+Patch50:        perl-5.25.4-clean-up-gv_fetchmethod_pvn_flags-move-origname-init.patch
+Patch51:        perl-5.25.4-clean-up-gv_fetchmethod_pvn_flags-rename-nsplit-to-l.patch
+Patch52:        perl-5.25.4-fix-129267-rework-gv_fetchmethod_pvn_flags-separator.patch
+Patch53:        perl-5.25.4-perl-129267-Test-for-gv_fetchmethod-buffer-overrun.patch
+
+# Fix crash when matching UTF-8 string with non-UTF-8 substrings, RT#129350,
+# in upstream after 5.25.5
+Patch54:        perl-5.24.4-perl-129350-anchored-floating-substrings-must-be-utf.patch
+
+# Fix parsing perl options in shell bang line, RT#129336,
+# in upstream after 5.25.5
+Patch55:        perl-5.24.0-rt-129336-perl-i-u-erroneously-interpreted-as-u.patch
+
+# Fix firstchar bitmap under UTF-8 with prefix optimization, RT#129950,
+# in upstream after 5.25.6
+Patch56:        perl-5.24.0-regcomp.c-fix-perl-129950-fix-firstchar-bitmap-under.patch
+
+# Avoid infinite loop in h2xs tool if enum and type have the same name,
+# RT#130001, in upstream after 5.25.6
+Patch57:        perl-5.25.6-perl-130001-h2xs-avoid-infinite-loop-for-enums.patch
+
+# Fix stack handling when calling chdir without an argument, RT#129130,
+# in upstream after 5.25.6
+Patch58:        perl-5.24.0-perl-129130-make-chdir-allocate-the-stack-it-needs.patch
+
+# Fix crash in Storable when deserializing malformed code reference, RT#68348,
+# RT130098
+Patch59:        perl-5.25.7-Fix-Storable-segfaults.patch
+
+# Fix crash on explicit return from regular expression substitution, RT#130188,
+# in upstream after 5.25.7
+Patch60:        perl-5.24.0-crash-on-explicit-return-from-s-e.patch
+
+# Fix assigning split() return values to an array, in upstream after 5.25.7
+Patch61:        perl-5.24.0-split-was-leaving-PL_sv_undef-in-unused-ary-slots.patch
+
+# Fix const correctness in hv_func.h, bug #1242980, RT#130169,
+# in upstream after 5.25.7
+Patch62:        perl-5.25.7-Fix-const-correctness-in-hv_func.h.patch
+
+# Fix a crash in optimized evaluation of "or ((0) x 0))", RT#130247,
+# in upsream after 5.25.7
+Patch63:        perl-5.24.0-assertion-failure-in-.-or-0-x-0.patch
+
+# Fix a memory leak in IO::Poll, RT#129788, in upstream after 5.25.7
+Patch64:        perl-5.24.0-perl-129788-IO-Poll-fix-memory-leak.patch
+
+# Fix regular expression matching, RT#130307, in upstream after 5.25.7
+Patch65:        perl-5.24.4-perl-130307-Correctly-unwind-on-cache-hit.patch
+
+# Fix a buffer overflow in split in scalar context, RT#130262,
+# in upstream after 5.25.8
+Patch66:        perl-5.24.1-perl-130262-split-scalar-context-stack-overflow-fix.patch
+
+# Fix a heap overflow with pack "W", RT129149, in upstream after 5.25.8
+Patch67:        perl-5.24.4-perl-129149-avoid-a-heap-buffer-overflow-with-pack-W.patch
+Patch68:        perl-5.24.4-perl-129149-fix-the-test-so-skip-has-a-SKIP-to-work-.patch
+
+# Fix a use-after-free when processing scalar variables in forms, RT#129125,
+# in upstream after 5.25.8
+Patch69:        perl-5.24.1-perl-129125-copy-form-data-if-it-might-be-freed.patch
+
+# Fix a heap overflow if invalid octal or hexadecimal number is used in
+# transliteration expression, RT#129342, in upstream after 5.25.8
+Patch70:        perl-5.24.1-perl-129342-ensure-range-start-is-set-after-error-in.patch
+
+# Fix out-of-bound read in case of unmatched regexp backreference, RT#129377,
+# in upstream after 5.25.8
+Patch71:        perl-5.24.1-perl-129377-don-t-read-past-start-of-string-for-unma.patch
+
+# Fix UTF-8 string handling in & operator, RT#129287, in upstream after 5.25.4
+Patch72:        perl-5.25.4-perl-129287-Make-UTF8-append-null.patch
+
+# Fix recreation of *::, RT#129869, in upstream after 5.25.9
+Patch73:        perl-5.24.1-fix-special-case-recreation-of.patch
+
+# Fix a memory leak in B::RHE->HASH method, RT#130504, in upstream after 5.25.9
+Patch74:        perl-5.24.1-Fix-memory-leak-in-B-RHE-HASH-method.patch
+
+# Fix parsing goto statements in multicalled subroutine, RT#113938,
+# in upstream after 5.25.9
+Patch75:        perl-5.24.1-permit-goto-at-top-level-of-multicalled-sub.patch
+
+# Fix a heap overlow in parsing $#, RT#129274, in upstream after 5.25.9
+Patch76:        perl-5.24.1-perl-129274-avoid-treating-the-in-as-a-comment-intro.patch
+
+# 1/2 Adapt to zlib-1.2.11, bug #1420326, CPAN RT#119762,
+# in upstream Compress-Raw-Zlib-2.072
+Patch77:        Compress-Raw-Zlib-2.071-Adapt-to-zlib-1.2.11.patch
+# 2/2 Fix compiler fatal warnings in Compress-Raw-Zlib, CPAN RT#120272
+Patch78:        Compress-Raw-Zlib-2.071-Conform-to-C90.patch
+
+# Fix a crash when compiling a regexp with impossible quantifiers, RT#130561,
+# in upstream after 5.25.9
+Patch79:        perl-5.24.1-fix-RT-130561-recursion-and-optimising-away-impossib.patch
+Patch80:        perl-5.25.9-only-mess-with-NEXT_OFF-when-we-are-in-PASS2.patch
+Patch81:        perl-5.25.9-silence-warnings-from-tests-about-impossible-quantif.patch
+
+# Fix a buffer overrun with format and "use bytes", RT#130703,
+# in upstream after 5.25.9
+Patch82:        perl-5.24.1-buffer-overrun-with-format-and-use-bytes.patch
+
+# Fix a buffer overflow when studying some regexps repeatedly,
+# RT#129281, RT#129061, un upstream after 5.25.9
+Patch83:        perl-5.24.1-perl-129281-test-for-buffer-overflow-issue.patch
+Patch84:        perl-5.25.9-perl-129061-CURLYX-nodes-can-be-studied-more-than-on.patch
+
+# Fix a heap buffer overflow when evaluating regexps with embedded code blocks
+# from more than one source, RT#129881, in upstream after 5.25.9
+Patch85:        perl-5.24.1-fix-pad-scope-issue-in-re_evals.patch
+
+# Fix a null-pointer dereference on malformed code, RT#130815,
+# in upstream after 5.25.9
+Patch87:        perl-5.24.1-perl-130815-fix-ck_return-null-pointer-deref-on-malf.patch
+
+# Fix an use-after-free in substr() that modifies a magic variable, RT#129340,
+# in upstream after 5.25.9
+Patch88:        perl-5.24.1-perl-129340-copy-the-source-when-inside-the-dest-in-.patch
+
+# Fix a memory leak leak in Perl_reg_named_buff_fetch(), RT#130822,
+# in upstream after 5.25.10
+Patch89:        perl-5.24.1-perl-130822-fix-an-AV-leak-in-Perl_reg_named_buff_fe.patch
+
+# Fix an invalid memory read when parsing a loop variable, RT#130814,
+# in upstream after 5.25.10
+Patch90:        perl-5.25.10-perl-130814-Add-testcase-and-new-testfile-t-comp-par.patch
+# in upstream after 5.25.10
+Patch91:        perl-5.24.1-perl-130814-update-pointer-into-PL_linestr-after-loo.patch
+# in upstream after 5.25.2
+Patch92:        perl-5.25.2-t-test.pl-Add-fresh_perl-function.patch
+# in upstream after 5.25.10
+Patch93:        perl-5.25.10-fix-VMS-test-fail.patch
+
+# Fix a heap-use-after-free in four-arguments substr call, RT#130624,
+# in upstream after 5.25.10
+Patch94:        perl-5.24.1-RT-130624-heap-use-after-free-in-4-arg-substr.patch
+
+# Make File::Glob more resistant against degenerative matching, RT#131211,
+# in upstream after 5.27.0
+Patch95:        perl-5.24.1-perl-131211-fixup-File-Glob-degenerate-matching.patch
+
+# Tests for avoid-a-memory-wrap-in-sv_vcatpvfn_flags.patch, RT#131260,
+# in upstream after 5.27.0
+Patch97:        perl-5.24.1-sprintf-add-memory-wrap-tests.patch
+
+# Fix a crash when calling a subroutine from a stash, RT#131085,
+# in upstream after 5.27.0
+Patch98:        perl-5.24.1-perl-131085-Crash-with-sub-in-stash.patch
+
+# Fix an improper cast of a negative integer to an unsigned 8-bit type,
+# RT#131190, in upstream after 5.27.0
+Patch99:        perl-5.27.0-Fix-131190-UTF8-code-improperly-casting-negative-int.patch
+
+# Fix cloning :via handles on thread creation, RT#131221,
+# in upstream after 5.27.0
+Patch100:       perl-5.27.0-perl-131221-improve-duplication-of-via-handles.patch
+Patch101:       perl-5.27.0-perl-131221-sv_dup-sv_dup_inc-are-only-available-und.patch
+
+# Fix glob UTF-8 flag on a glob reassignment, RT#131263,
+# in upstream after 5.27.0
+Patch102:       perl-5.24.1-perl-131263-clear-the-UTF8-flag-on-a-glob-if-it-isn-.patch
+
+# Fix a buffer overflow in my_atof2(), RT#131526, in upstream after 5.27.0
+Patch103:       perl-5.27.0-perl-131526-don-t-go-beyond-the-end-of-the-NUL-in-my.patch
+
+# Fix handling backslashes in PATH environment variable when executing
+# "perl -S", RT#129183, in upstream after 5.27.0
+Patch105:       perl-5.27.0-perl-129183-don-t-treat-as-an-escape-in-PATH-for-S.patch
+
+# Fix a conditional jump on uninitilized memory in re_intuit_start(),
+# RT#131575, in upstream after 5.27.0
+Patch106:       perl-5.24.1-don-t-call-Perl_fbm_instr-with-negative-length.patch
+
+# Fix spurious "Assuming NOT a POSIX class" warning, RT#131522,
+# in upsteam after 5.27.0
+Patch107:       perl-5.27.0-Resolve-Perl-131522-Spurious-Assuming-NOT-a-POSIX-cl.patch
+Patch108:       perl-5.27.0-add-test-for-perl-131522-and-fix-test-for-related-pe.patch
+
+# Fix handling attribute specification on our variables, RT#131597,
+# in upstream adter 5.27.1
+Patch109:       perl-5.24.3-perl-131597-ensure-the-GV-slot-is-filled-for-our-foo.patch
+
+# Fix a crash when a match for inversely repeated group fails, RT#132017,
+# in upstream after 5.27.3
+Patch110:       perl-5.24.3-fix-132017-OPFAIL-insert-needs-to-set-flags-to-0.patch
+
+# Fix an overflow when parsing a character range with no preceding character,
+# RT#132245, in upstream after 5.27.5
+Patch111:       perl-5.24.3-perl-132245-don-t-try-to-process-a-char-range-with-n.patch
+
+# Fix walking symbol table for ISA in Carp, in upstream after 5.27.5
+Patch112:       perl-5.24.3-Carp-Don-t-choke-on-ISA-constant.patch
+
+# Fix handling file names with null bytes in stat and lstat functions,
+# RT#131895, in upstream after 5.27.5
+Patch113:       perl-5.24.3-perl-131895-fail-stat-on-names-with-0-embedded.patch
+
+# Fix a crash when untying an object witout a stash, in upstream after 5.27.5
+Patch114:       perl-5.27.5-Avoid-a-segfault-when-untying-an-object.patch
+
+# Fix deparsing of transliterations with unprintable characters, RT#132405,
+# in upstream after 5.27.5
+Patch115:       perl-5.24.3-Fix-deparsing-of-transliterations-with-unprintable-c.patch
+
+# Fix error reporting on do() on a directory, RT#125774,
+# in upstream after 5.27.5
+Patch116:       perl-5.26.1-fix-do-dir-returning-no.patch
+
+# Fix stack manipulation when a lexical subroutine is defined in a do block in
+# a member of an iteration list, RT#132442, in upstream after 5.27.5
+Patch117:       perl-5.24.3-perl-132442-Fix-stack-with-do-my-sub-l-1.patch
+
+# Fix setting $! when statting a closed filehandle, RT#108288,
+# in upstream after 5.27.5
+Patch118:       perl-5.24.3-set-when-statting-a-closed-filehandle.patch
+
+# Fix tainting of s/// with overloaded replacement, RT#115266,
+# in upstream after 5.27.5
+Patch119:       perl-5.24.3-fix-tainting-of-s-with-overloaded-replacement.patch
+
+# Expand system() arguments before a fork, RT#121105,
+# in upstream after 5.27.6
+Patch120:       perl-5.24.4-perform-system-arg-processing-before-fork.patch
+# in upstream after 5.27.7
+Patch121:       perl-5.27.7-preserve-numericness-of-system-args-on-Win32.patch
+Patch122:       perl-5.27.7-Reenable-numeric-first-argument-of-system-on-VMS.patch
+
+# Avoid undefined behavior when copying memory in Glob and pp_caller,
+# RT#131746, in upstream after 5.27.3
+Patch123:       perl-5.26.1-perl-131746-avoid-undefined-behaviour-in-Copy-etc.patch
+Patch124:       perl-5.27.3-avoid-the-address-of-.-will-always-evaluate-as-.-war.patch
+
+# Conditionalize a fix for an old and long fixed bug
+# in libcrypt / glibc, rhbz#1536752
+Patch125:       perl-5.26.1-guard_old_libcrypt_fix.patch
+
+# Link XS modules to pthread library to fix linking with -z defs,
+# <https://lists.fedoraproject.org/archives/list/devel@lists.fedoraproject.org/message/3RHZEHLRUHJFF2XGHI5RB6YPDNLDR4HG/>
+Patch126:       perl-5.27.8-hints-linux-Add-lphtread-to-lddlflags.patch
+
+# Fix parsing braced subscript after parentheses, RT#8045,
+# in upstream after 5.27.7
+Patch127:       perl-5.24.3-fix-parsing-of-braced-subscript-after-parens.patch
+
+# Adjust tests to gdbm-1.15, RT#133295
+Patch128:       perl-5.24.4-Remove-ext-GDBM_File-t-fatal.t.patch
+
+# Pass the correct CFLAGS to dtrace
+Patch129:       perl-5.24.4-Pass-CFLAGS-to-dtrace.patch
+
+# Fix an integer wrap when allocating memory for an environment variable,
+# RT#133204, in upstream after 5.29.0 - CVE-2018-18311
+Patch130:       perl-5.24.4-Perl_my_setenv-handle-integer-wrap.patch
+
+# Fix heap-buffer-overflow write in S_regatom (regcomp.c) CVE-2018-18314
+Patch131:       perl-5.24.4-Fix-131649-extended-charclass-can-trigger-assert.patch
+
+# Fix heap-buffer-overflow write in S_regatom (regcomp.c) CVE-2018-18312
+Patch132:       perl-5.24.4-Fix-heap-buffer-overflow-write-reg_node-overrun.patch
+
+# Fix heap-buffer-overflow read in S_grok_bslash_N (regcomp.c) - CVE-2018-18313
+Patch133:       perl-5.28.1-regcomp.c-Convert-some-strchr-to-memchr.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
+
+# Link XS modules to libperl.so with EU::MM on Linux, bug #960048
+Patch201:       perl-5.16.3-Link-XS-modules-to-libperl.so-with-EU-MM-on-Linux.patch
+
+# Update some of the bundled modules
+# see http://fedoraproject.org/wiki/Perl/perl.spec for instructions
+
+BuildRequires:  bash
+BuildRequires:  bzip2-devel
+BuildRequires:  coreutils
+BuildRequires:  findutils
+BuildRequires:  gcc
+%if %{with gdbm}
+BuildRequires:  gdbm-devel
+%endif
+# glibc-common for iconv
+BuildRequires:  glibc-common
+%if %{with perl_enables_groff}
+# Build-require groff tools for populating %%Config correctly, bug #135101
+BuildRequires:  groff-base
+%endif
+BuildRequires:  libdb-devel
+BuildRequires:  make
+%if !%{defined perl_bootstrap}
+BuildRequires:  perl
+BuildRequires:  perl-generators
+%endif
+BuildRequires:  sed
+%if %{with perl_enables_systemtap}
+BuildRequires:  systemtap-sdt-devel
+%endif
+BuildRequires:  tar
+%if %{with perl_enables_tcsh}
+BuildRequires:  tcsh
+%endif
+BuildRequires:  zlib-devel
+
+# For tests
+%if %{with test}
+BuildRequires:  procps
+%if %{with perl_enables_syslog_test}
+BuildRequires:  rsyslog
+%endif
+%endif
+
+# The long line of Perl provides.
+
+
+# compat macro needed for rebuild
+%global perl_compat perl(:MODULE_COMPAT_5.24.4)
+
+# File provides
+Provides: perl(bytes_heavy.pl)
+Provides: perl(dumpvar.pl)
+Provides: perl(perl5db.pl)
+
+# suidperl isn't created by upstream since 5.12.0
+Obsoletes: perl-suidperl <= 4:5.12.2
+
+Requires: perl-libs%{?_isa} = %{perl_epoch}:%{perl_version}-%{release}
+# Require this till perl sub-package requires any modules
+Requires: %perl_compat
+# Require perl-interpreter to maintain compatibility (previous perl
+# package provided perl-interpreter symbol), bug #1670435
+Requires: perl-interpreter%{?_isa} = %{perl_epoch}:%{perl_version}-%{release}
+%if %{defined perl_bootstrap}
+%gendep_perl
+%endif
+
+# We need this to break the dependency loop, and ensure that perl-libs 
+# gets installed before perl.
+Requires(post): perl-libs
+# Same as perl-libs. We need macros in basic buildroot, where Perl is only
+# because of git.
+Requires(post): perl-macros
+
+
+%description
+Perl is a high-level programming language with roots in C, sed, awk and shell
+scripting.  Perl is good at handling processes and files, and is especially
+good at handling text.  Perl's hallmarks are practicality and efficiency.
+While it is used to do a lot of different things, Perl's most common
+applications are system administration utilities and web programming.
+
+Install this package if you want to program in Perl or enable your system to
+handle Perl scripts with %{_bindir}/perl interpreter.
+
+If your script requires some Perl modules, you can install them with
+"perl(MODULE)" where "MODULE" is a name of required module. E.g. install
+"perl(Test::More)" to make Test::More Perl module available.
+
+If you need all the Perl modules that come with upstream Perl sources, so
+called core modules, install perl-core package.
+
+If you only need perl run-time as a shared library, i.e. Perl interpreter
+embedded into another application, the only essential package is perl-libs.
+
+Perl header files can be found in perl-devel package.
+
+Perl utils like "splain" or "perlbug" can be found in perl-utils package.
+
+
+%package libs
+Summary:        The libraries for the perl run-time
+License:        (GPL+ or Artistic) and HSLR and MIT and UCD
+# Compat provides
+Provides:       %perl_compat
+Provides:       perl(:MODULE_COMPAT_5.24.3)
+Provides:       perl(:MODULE_COMPAT_5.24.2)
+Provides:       perl(:MODULE_COMPAT_5.24.1)
+Provides:       perl(:MODULE_COMPAT_5.24.0)
+# Interpreter version to fulfil required genersted from "require 5.006;"
+Provides:       perl(:VERSION) = %{perl_version}
+# Threading provides
+Provides:       perl(:WITH_ITHREADS)
+Provides:       perl(:WITH_THREADS)
+# Largefile provides
+Provides:       perl(:WITH_LARGEFILES)
+# PerlIO provides
+Provides:       perl(:WITH_PERLIO)
+# Loaded by charnames, unicore/Name.pm does not declare unicore::Name module
+Provides:       perl(unicore::Name)
+# Keep utf8 modules in perl-libs because a sole regular expression like /\pN/
+# causes loading utf8 and unicore/Heave.pl and unicore/lib files.
+Provides:       perl(utf8_heavy.pl)
+# utf8 and utf8_heavy.pl require Carp, re, strict, warnings, XSLoader
+Requires:       perl(Carp)
+Requires:       perl(Exporter)
+# Term::Cap is optional
+Requires:       perl(XSLoader)
+%if %{defined perl_bootstrap}
+%gendep_perl_libs
+%endif
+
+# Remove private redefinitions
+# XSLoader redefines DynaLoader name space for compatibility, but does not
+# load the DynaLoader.pm (though the DynaLoader.xs is compiled into libperl).
+%global __provides_exclude %{?__provides_exclude:%__provides_exclude|}^perl\\((charnames|DynaLoader)\\)$
+
+%description libs
+The is a perl run-time (interpreter as a shared library and include
+directories).
+
+
+%package devel
+Summary:        Header #files for use in perl development
+# l1_char_class_tab.h is generated from lib/unicore sources:    UCD
+License:        (GPL+ or Artistic) and UCD
+# Require $Config{libs} providers, bug #905482
+Requires:       libdb-devel
+%if %{with gdbm}
+Requires:       gdbm-devel
+%endif
+Requires:       glibc-devel
+%if %{with perl_enables_systemtap}
+Requires:       systemtap-sdt-devel
+%endif
+Requires:       perl(ExtUtils::ParseXS)
+Requires:       %perl_compat
+# Match library and header files when downgrading releases
+Requires:       perl-libs%{?_isa} = %{perl_epoch}:%{perl_version}-%{release}
+%if %{defined perl_bootstrap}
+%gendep_perl_devel
+%endif
+
+%description devel
+This package contains header files and development modules.
+Most perl packages will need to install perl-devel to build.
+
+
+%package macros
+Summary:        Macros for rpmbuild
+License:        GPL+ or Artistic
+Requires:       %perl_compat
+%if %{defined perl_bootstrap}
+%gendep_perl_macros
+%endif
+
+%description macros
+Macros for rpmbuild are needed during build of srpm in koji. This
+sub-package must be installed into buildroot, so it will be needed
+by perl. Perl is needed because of git.
+
+
+%package tests
+Summary:        The Perl test suite
+License:        GPL+ or Artistic
+# right?
+AutoReqProv:    0
+Requires:       %perl_compat
+# FIXME - note this will need to change when doing the core/minimal swizzle
+Requires:       perl-core
+%if %{defined perl_bootstrap}
+%gendep_perl_tests
+%endif
+
+%description tests
+This package contains the test suite included with Perl %{perl_version}.
+
+Install this if you want to test your Perl installation (binary and core
+modules).
+
+
+%package utils
+Summary:        Utilities packaged with the Perl distribution
+License:        GPL+ or Artistic
+Epoch:          0
+Version:        %{perl_version}
+BuildArch:      noarch
+# Match library exactly for splain messages
+Requires:       perl-libs = %{perl_epoch}:%{perl_version}-%{release}
+# Keep /usr/sbin/sendmail and Module::CoreList optional for the perlbug tool
+%if %{defined perl_bootstrap}
+%gendep_perl_utils
+%endif
+Conflicts:      perl < 4:5.22.0-351
+
+%description utils
+Several utilities which come with Perl distribution like c2ph, h2ph, perlbug,
+perlthanks, pl2pm, pstruct, and splain. Some utilities are provided by more
+specific packages like perldoc by perl-Pod-Perldoc.
+
+
+%package core
+Summary:        Base perl metapackage
+# This rpm doesn't contain any copyrightable material.
+# Nevertheless, it needs a License tag, so we'll use the generic
+# "perl" license.
+License:        GPL+ or Artistic
+Epoch:          0
+Version:        %{perl_version}
+Requires:       %perl_compat
+Requires:       perl-libs%{?_isa} = %{perl_epoch}:%{perl_version}-%{release}
+Requires:       perl-devel%{?_isa} = %{perl_epoch}:%{perl_version}-%{release}
+Requires:       perl-macros
+Requires:       perl-utils
+%if %{defined perl_bootstrap}
+%gendep_perl_core
+%endif
+
+Requires:       perl-Archive-Tar, perl-Attribute-Handlers, perl-autodie,
+Requires:       perl-B-Debug, perl-bignum
+Requires:       perl-Compress-Raw-Bzip2,
+Requires:       perl-Carp, perl-Compress-Raw-Zlib, perl-Config-Perl-V,
+Requires:       perl-constant,
+Requires:       perl-CPAN, perl-CPAN-Meta, perl-CPAN-Meta-Requirements,
+Requires:       perl-CPAN-Meta-YAML
+Requires:       perl-Data-Dumper, perl-DB_File,
+Requires:       perl-Devel-Peek, perl-Devel-PPPort, perl-Devel-SelfStubber,
+Requires:       perl-Digest, perl-Digest-MD5,
+Requires:       perl-Digest-SHA,
+Requires:       perl-Encode, perl-Encode-devel, perl-encoding
+Requires:       perl-Env, perl-Errno, perl-Exporter, perl-experimental
+Requires:       perl-ExtUtils-CBuilder, perl-ExtUtils-Command,
+Requires:       perl-ExtUtils-Embed,
+Requires:       perl-ExtUtils-Install, perl-ExtUtils-MakeMaker
+Requires:       perl-ExtUtils-Manifest, perl-ExtUtils-Miniperl
+Requires:       perl-ExtUtils-ParseXS, perl-File-Fetch
+Requires:       perl-File-Path, perl-File-Temp, perl-Filter,
+Requires:       perl-Filter-Simple, perl-Getopt-Long
+Requires:       perl-HTTP-Tiny,
+Requires:       perl-IO, perl-IO-Compress, perl-IO-Socket-IP
+Requires:       perl-IO-Zlib, perl-IPC-Cmd, perl-IPC-SysV, perl-JSON-PP
+Requires:       perl-libnet, perl-libnetcfg,
+Requires:       perl-Locale-Codes, perl-Locale-Maketext,
+Requires:       perl-Locale-Maketext-Simple
+Requires:       perl-Math-BigInt, perl-Math-BigInt-FastCalc, perl-Math-BigRat,
+Requires:       perl-Math-Complex, perl-Memoize,
+Requires:       perl-MIME-Base64,
+Requires:       perl-Module-CoreList,
+Requires:       perl-Module-CoreList-tools, perl-Module-Load
+Requires:       perl-Module-Load-Conditional, perl-Module-Loaded,
+Requires:       perl-Module-Metadata, perl-Net-Ping,
+Requires:       perl-open, perl-PathTools
+Requires:       perl-Params-Check
+# TODO: Merge perl-Parse-CPAN-Meta sub-package into perl-CPAN-Meta after
+# upgrading standalone perl-CPAN-Meta to 2.150010, bug #1370681
+Requires:       perl(Parse::CPAN::Meta)
+Requires:       perl-perlfaq,
+Requires:       perl-PerlIO-via-QuotedPrint, perl-Perl-OSType
+Requires:       perl-Pod-Checker, perl-Pod-Escapes, perl-Pod-Html,
+Requires:       perl-Pod-Parser, perl-Pod-Perldoc, perl-Pod-Usage
+Requires:       perl-podlators, perl-Pod-Simple, perl-Scalar-List-Utils
+Requires:       perl-SelfLoader, perl-Socket, perl-Storable, perl-Sys-Syslog,
+Requires:       perl-Term-ANSIColor, perl-Term-Cap,
+Requires:       perl-Test, perl-Test-Harness, perl-Test-Simple
+Requires:       perl-Text-Balanced, perl-Text-ParseWords, perl-Text-Tabs+Wrap,
+Requires:       perl-Thread-Queue
+Requires:       perl-Time-HiRes
+Requires:       perl-Time-Local, perl-Time-Piece
+Requires:       perl-Unicode-Collate, perl-Unicode-Normalize,
+Requires:       perl-version, perl-threads, perl-threads-shared, perl-parent
+
+%description core
+A metapackage which requires all of the perl bits and modules in the upstream
+tarball from perl.org.
+
+%package interpreter
+Summary:        Standalone executable Perl interpreter
+# This package doesn't contain any copyrightable material.
+# Nevertheless, it needs a License tag, so we'll use the generic
+# "perl" license.
+License:        GPL+ or Artistic
+# perl-interpreter denotes a package with the perl executable.
+# Full EVR is for compatibility with systems that swapped perl and perl-core
+# <https://fedoraproject.org/wiki/Changes/perl_Package_to_Install_Core_Modules>,
+# bug #1464903.
+# This dummy package exists to mask same-named non-modular package. Otherwise
+# package manager can see non-modular package that coincidently obsoletes
+# perl package and that confuses the manager, bug #1670435.
+Version:        %{perl_version}
+Epoch:          %{perl_epoch}
+Requires:       perl%{?_isa} = %{perl_epoch}:%{perl_version}-%{release}
+
+%description interpreter
+This is a dummy package to improve a compatibility with future Perls that will use
+this package to deliver %{_bindir}/perl Perl interpreter.
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%package Archive-Tar
+Summary:        A module for Perl manipulation of .tar files
+License:        GPL+ or Artistic
+Epoch:          0
+Version:        2.04
+BuildArch:      noarch
+Requires:       %perl_compat
+Requires:       perl(IO::Zlib) >= 1.01
+# Optional run-time:
+Requires:       perl(IO::Compress::Bzip2) >= 2.015
+# IO::String not used if perl supports useperlio which is true
+# Use Compress::Zlib's version for IO::Uncompress::Bunzip2
+Requires:       perl(IO::Uncompress::Bunzip2) >= 2.015
+%if !%{defined perl_bootstrap}
+Requires:       perl(Text::Diff)
+%endif
+%if %{defined perl_bootstrap}
+%gendep_perl_Archive_Tar
+%endif
+
+%description Archive-Tar
+Archive::Tar provides an object oriented mechanism for handling tar files.  It
+provides class methods for quick and easy files handling while also allowing
+for the creation of tar file objects for custom manipulation.  If you have the
+IO::Zlib module installed, Archive::Tar will also support compressed or
+gzipped tar files.
+%endif
+
+%package Attribute-Handlers
+Summary:        Simpler definition of attribute handlers
+License:        GPL+ or Artistic
+Epoch:          0
+Version:        0.99
+BuildArch:      noarch
+Requires:       %perl_compat
+%if %{defined perl_bootstrap}
+%gendep_perl_Attribute_Handlers
+%endif
+Conflicts:      perl < 4:5.22.0-351
+
+%description Attribute-Handlers
+This Perl module, when inherited by a package, allows that package's class to
+define attribute handler subroutines for specific attributes. Variables and
+subroutines subsequently defined in that package, or in packages derived from
+that package may be given attributes with the same names as the attribute
+handler subroutines, which will then be called in one of the compilation
+phases (i.e. in a "BEGIN", "CHECK", "INIT", or "END" block).
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%package autodie
+Summary:        Replace functions with ones that succeed or die
+License:        GPL+ or Artistic
+Epoch:          0
+Version:        2.29
+Requires:       %perl_compat
+BuildArch:      noarch
+Requires:       perl(B)
+Requires:       perl(Fcntl)
+Requires:       perl(overload)
+Requires:       perl(POSIX)
+%if %{defined perl_bootstrap}
+%gendep_perl_autodie
+%endif
+Conflicts:      perl < 4:5.16.2-259
+
+%description autodie
+The "autodie" and "Fatal" pragma provides a convenient way to replace
+functions that normally return false on failure with equivalents that throw an
+exception on failure.
+
+However "Fatal" has been obsoleted by the new autodie pragma. Please use
+autodie in preference to "Fatal".
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%package B-Debug
+Summary:        Walk Perl syntax tree, print debug information about op-codes
+License:        GPL+ or Artistic
+Epoch:          0
+Version:        1.23
+Requires:       %perl_compat
+BuildArch:      noarch
+%if %{defined perl_bootstrap}
+%gendep_perl_B_Debug
+%endif
+Conflicts:      perl < 4:5.20.1-310
+
+%description B-Debug
+Walk Perl syntax tree and print debug information about op-codes. See
+B::Concise and B::Terse for other details.
+
+%package bignum
+Summary:        Transparent big number support for Perl
+License:        GPL+ or Artistic
+Epoch:          0
+Version:        0.42
+Requires:       %perl_compat
+Requires:       perl(Carp)
+# Math::BigInt::Lite is optional
+Requires:       perl(Math::BigRat)
+Requires:       perl(warnings)
+BuildArch:      noarch
+%if %{defined perl_bootstrap}
+%gendep_perl_bignum
+%endif
+Conflicts:      perl < 4:5.22.0-348
+
+%description bignum
+This package attempts to make it easier to write scripts that use BigInts and
+BigFloats in a transparent way.
+
+%package Carp
+Summary:        Alternative warn and die for modules
+Epoch:          0
+# Real version 1.40
+Version:        1.40
+License:        GPL+ or Artistic
+Requires:       %perl_compat
+Provides:       perl(Carp::Heavy) = %{version}
+%if %{defined perl_bootstrap}
+%gendep_perl_Carp
+%endif
+BuildArch:      noarch
+
+# Do not export unversioned module
+%global __provides_exclude %{?__provides_exclude:%__provides_exclude|}^perl\\(Carp\\)\\s*$
+
+%description Carp
+The Carp routines are useful in your own modules because they act like
+die() or warn(), but with a message which is more likely to be useful to a
+user of your module. In the case of cluck, confess, and longmess that
+context is a summary of every call in the call-stack. For a shorter message
+you can use carp or croak which report the error as being from where your
+module was called. There is no guarantee that that is where the error was,
+but it is a good educated guess.
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%package Compress-Raw-Bzip2
+Summary:        Low-Level Interface to bzip2 compression library
+License:        GPL+ or Artistic
+Epoch:          0
+Version:        2.069
+Requires:       perl(Exporter), perl(File::Temp)
+%if %{defined perl_bootstrap}
+%gendep_perl_Compress_Raw_Bzip2
+%endif
+
+%description Compress-Raw-Bzip2
+This module provides a Perl interface to the bzip2 compression library.
+It is used by IO::Compress::Bzip2.
+
+%package Compress-Raw-Zlib
+Summary:        Low-Level Interface to the zlib compression library
+License:        (GPL+ or Artistic) and zlib
+Epoch:          0
+Version:        2.069
+Requires:       %perl_compat
+%if %{defined perl_bootstrap}
+%gendep_perl_Compress_Raw_Zlib
+%endif
+
+%description Compress-Raw-Zlib
+This module provides a Perl interface to the zlib compression library.
+It is used by IO::Compress::Zlib.
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%package Config-Perl-V
+Summary:        Structured data retrieval of perl -V output
+License:        GPL+ or Artistic
+Epoch:          0
+Version:        0.25
+Requires:       %perl_compat
+%if %{defined perl_bootstrap}
+%gendep_perl_Config_Perl_V
+%endif
+BuildArch:      noarch
+Conflicts:      perl < 4:5.22.0-347
+
+%description Config-Perl-V
+The command "perl -V" will return you an excerpt from the %%Config::Config
+hash combined with the output of "perl -V" that is not stored inside the hash,
+but only available to the perl binary itself. This package provides Perl
+module that will return you the output of "perl -V" in a structure.
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%package constant
+Summary:        Perl pragma to declare constants
+License:        GPL+ or Artistic
+Epoch:          0
+Version:        1.33
+Requires:       %perl_compat
+Requires:       perl(Carp)
+%if %{defined perl_bootstrap}
+%gendep_perl_constant
+%endif
+BuildArch:      noarch
+Conflicts:      perl < 4:5.16.3-264
+
+%description constant
+This pragma allows you to declare constants at compile-time:
+
+use constant PI => 4 * atan2(1, 1);
+
+When you declare a constant such as "PI" using the method shown above,
+each machine your script runs upon can have as many digits of accuracy
+as it can use. Also, your program will be easier to read, more likely
+to be maintained (and maintained correctly), and far less likely to
+send a space probe to the wrong planet because nobody noticed the one
+equation in which you wrote 3.14195.
+
+When a constant is used in an expression, Perl replaces it with its
+value at compile time, and may then optimize the expression further.
+In particular, any code in an "if (CONSTANT)" block will be optimized
+away if the constant is false.
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%package CPAN
+Summary:        Query, download and build perl modules from CPAN sites
+License:        GPL+ or Artistic
+Epoch:          0
+Version:        2.11
+Requires:       make
+# Prefer Archive::Tar and Compress::Zlib over tar and gzip
+Requires:       perl(Archive::Tar) >= 1.50
+Requires:       perl(base)
+Requires:       perl(Data::Dumper)
+%if !%{defined perl_bootstrap}
+Requires:       perl(Devel::Size)
+%endif
+Requires:       perl(ExtUtils::Manifest)
+%if !%{defined perl_bootstrap}
+Requires:       perl(File::HomeDir) >= 0.65
+%endif
+Requires:       perl(File::Temp) >= 0.16
+Requires:       perl(lib)
+Requires:       perl(Net::Config)
+Requires:       perl(Net::FTP)
+Requires:       perl(POSIX)
+Requires:       perl(Term::ReadLine)
+%if !%{defined perl_bootstrap}
+Requires:       perl(URI)
+Requires:       perl(URI::Escape)
+%endif
+Requires:       perl(User::pwent)
+# Optional but higly recommended:
+%if !%{defined perl_bootstrap}
+Requires:       perl(Archive::Zip)
+Requires:       perl(Compress::Bzip2)
+Requires:       perl(CPAN::Meta) >= 2.110350
+%endif
+Requires:       perl(Compress::Zlib)
+Requires:       perl(Digest::MD5)
+# CPAN encourages Digest::SHA strongly because of integrity checks
+Requires:       perl(Digest::SHA)
+Requires:       perl(Dumpvalue)
+Requires:       perl(ExtUtils::CBuilder)
+%if ! %{defined perl_bootstrap}
+# Avoid circular deps local::lib -> Module::Install -> CPAN when bootstraping
+# local::lib recommended by CPAN::FirstTime default choice, bug #1122498
+Requires:       perl(local::lib)
+%endif
+Requires:       perl(Module::Build)
+%if ! %{defined perl_bootstrap}
+Requires:       perl(Text::Glob)
+%endif
+Requires:       %perl_compat
+Provides:       cpan = %{version}
+%if %{defined perl_bootstrap}
+%gendep_perl_CPAN
+%endif
+BuildArch:      noarch
+
+%description CPAN
+The CPAN module automates or at least simplifies the make and install of
+perl modules and extensions. It includes some primitive searching
+capabilities and knows how to use LWP, HTTP::Tiny, Net::FTP and certain
+external download clients to fetch distributions from the net.
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%package CPAN-Meta
+Summary:        Distribution metadata for a CPAN dist
+Epoch:          0
+Version:        2.150005
+License:        GPL+ or Artistic
+Requires:       %perl_compat
+%if %{defined perl_bootstrap}
+%gendep_perl_CPAN_Meta
+%endif
+BuildArch:      noarch
+
+%description CPAN-Meta
+Software distributions released to the CPAN include a META.json or, for
+older distributions, META.yml, which describes the distribution, its
+contents, and the requirements for building and installing the
+distribution. The data structure stored in the META.json file is described
+in CPAN::Meta::Spec.
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%package CPAN-Meta-Requirements
+Summary:        Set of version requirements for a CPAN dist
+Epoch:          0
+# Real version 2.132000
+Version:        2.132
+License:        GPL+ or Artistic
+Requires:       %perl_compat
+BuildArch:      noarch
+# CPAN-Meta-Requirements used to have six decimal places
+%global __provides_exclude %{?__provides_exclude:%__provides_exclude|}^perl\\(CPAN::Meta::Requirements\\)
+Provides:       perl(CPAN::Meta::Requirements) = %{version}000
+%if %{defined perl_bootstrap}
+%gendep_perl_CPAN_Meta_Requirements
+%endif
+
+%description CPAN-Meta-Requirements
+A CPAN::Meta::Requirements object models a set of version constraints like
+those specified in the META.yml or META.json files in CPAN distributions.
+It can be built up by adding more and more constraints, and it will reduce
+them to the simplest representation.
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%package CPAN-Meta-YAML
+Version:        0.018
+Epoch:          0
+Summary:        Read and write a subset of YAML for CPAN Meta files
+License:        GPL+ or Artistic
+BuildArch:      noarch
+Requires:       %perl_compat
+%if %{defined perl_bootstrap}
+%gendep_perl_CPAN_Meta_YAML
+%endif
+
+%description CPAN-Meta-YAML
+This module implements a subset of the YAML specification for use in reading
+and writing CPAN metadata files like META.yml and MYMETA.yml. It should not be
+used for any other general YAML parsing or generation task.
+%endif
+
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%package Data-Dumper
+Summary:        Stringify perl data structures, suitable for printing and eval
+License:        GPL+ or Artistic
+Epoch:          0
+Version:        2.160
+Requires:       %perl_compat
+Requires:       perl(Scalar::Util)
+Requires:       perl(XSLoader)
+%if %{defined perl_bootstrap}
+%gendep_perl_Data_Dumper
+%endif
+
+%description Data-Dumper
+Given a list of scalars or reference variables, writes out their contents
+in perl syntax. The references can also be objects. The content of each
+variable is output in a single Perl statement. Handles self-referential
+structures correctly.
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%package DB_File
+Summary:        Perl5 access to Berkeley DB version 1.x
+License:        GPL+ or Artistic
+Epoch:          0
+Version:        1.835
+Requires:       %perl_compat
+Requires:       perl(Fcntl)
+Requires:       perl(XSLoader)
+%if %{defined perl_bootstrap}
+%gendep_perl_DB_File
+%endif
+Conflicts:      perl < 4:5.16.3-264
+
+%description DB_File
+DB_File is a module which allows Perl programs to make use of the facilities
+provided by Berkeley DB version 1.x (if you have a newer version of DB, you
+will be limited to functionality provided by interface of version 1.x). The
+interface defined here mirrors the Berkeley DB interface closely.
+%endif
+
+%package Devel-Peek
+Summary:        A data debugging tool for the XS programmer
+License:        GPL+ or Artistic
+Epoch:          0
+Version:        1.23
+Requires:       %perl_compat
+%if %{defined perl_bootstrap}
+%gendep_perl_Devel_Peek
+%endif
+Conflicts:      perl < 4:5.22.0-351
+
+%description Devel-Peek
+Devel::Peek contains functions which allows raw Perl datatypes to be
+manipulated from a Perl script. This is used by those who do XS programming to
+check that the data they are sending from C to Perl looks as they think it
+should look.
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%package Devel-PPPort
+Summary:        Perl Pollution Portability header generator
+License:        GPL+ or Artistic
+Epoch:          0
+Version:        3.32
+Requires:       %perl_compat
+%if %{defined perl_bootstrap}
+%gendep_perl_Devel_PPPort
+%endif
+Conflicts:      perl < 4:5.20.1-310
+
+%description Devel-PPPort
+Perl's API has changed over time, gaining new features, new functions,
+increasing its flexibility, and reducing the impact on the C name space
+environment (reduced pollution). The header file written by this module,
+typically ppport.h, attempts to bring some of the newer Perl API features
+to older versions of Perl, so that you can worry less about keeping track
+of old releases, but users can still reap the benefit.
+%endif
+
+%package Devel-SelfStubber
+Summary:        Generate stubs for a SelfLoading module
+License:        GPL+ or Artistic
+Epoch:          0
+Version:        1.05
+BuildArch:      noarch
+Requires:       %perl_compat
+%if %{defined perl_bootstrap}
+%gendep_perl_Devel_SelfStubber
+%endif
+Conflicts:      perl < 4:5.22.0-351
+
+%description Devel-SelfStubber
+Devel::SelfStubber prints the stubs you need to put in the module before the
+__DATA__ token (or you can get it to print the entire module with stubs
+correctly placed). The stubs ensure that if a method is called, it will get
+loaded. They are needed specifically for inherited autoloaded methods.
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%package Digest
+Summary:        Modules that calculate message digests
+License:        GPL+ or Artistic
+# Epoch bump for clean upgrade over old standalone package
+Epoch:          0
+Version:        1.17
+BuildArch:      noarch
+Requires:       %perl_compat
+Requires:       perl(MIME::Base64)
+%if %{defined perl_bootstrap}
+%gendep_perl_Digest
+%endif
+
+%description Digest
+The Digest:: modules calculate digests, also called "fingerprints" or
+"hashes", of some data, called a message. The digest is (usually)
+some small/fixed size string. The actual size of the digest depend of
+the algorithm used. The message is simply a sequence of arbitrary
+bytes or bits.
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%package Digest-MD5
+Summary:        Perl interface to the MD5 Algorithm
+License:        (GPL+ or Artistic) and BSD
+# Epoch bump for clean upgrade over old standalone package
+Epoch:          0
+Version:        2.54
+Requires:       %perl_compat
+Requires:       perl(XSLoader)
+# Recommended
+Requires:       perl(Digest::base) >= 1.00
+%if %{defined perl_bootstrap}
+%gendep_perl_Digest_MD5
+%endif
+
+%description Digest-MD5
+The Digest::MD5 module allows you to use the RSA Data Security Inc. MD5
+Message Digest algorithm from within Perl programs. The algorithm takes as
+input a message of arbitrary length and produces as output a 128-bit
+"fingerprint" or "message digest" of the input.
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%package Digest-SHA
+Summary:        Perl extension for SHA-1/224/256/384/512
+License:        GPL+ or Artistic
+# Epoch bump for clean upgrade over old standalone package
+Epoch:          1
+Version:        5.95
+Requires:       %perl_compat
+Requires:       perl(Carp)
+# Recommended
+Requires:       perl(Digest::base)
+%if %{defined perl_bootstrap}
+%gendep_perl_Digest_SHA
+%endif
+
+%description Digest-SHA
+Digest::SHA is a complete implementation of the NIST Secure Hash
+Standard.  It gives Perl programmers a convenient way to calculate
+SHA-1, SHA-224, SHA-256, SHA-384, and SHA-512 message digests.  The
+module can handle all types of input, including partial-byte data.
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%package Encode
+Summary:        Character encodings in Perl
+License:        (GPL+ or Artistic) and Artistic 2.0 and UCD
+Epoch:          4
+Version:        2.80
+Requires:       %perl_compat
+%if %{defined perl_bootstrap}
+%gendep_perl_Encode
+%endif
+Conflicts:      perl < 4:5.16.2-256
+
+%description Encode
+The Encode module provides the interface between Perl strings and the rest
+of the system. Perl strings are sequences of characters.
+
+%package encoding
+Summary:        Write your Perl script in non-ASCII or non-UTF-8
+License:        GPL+ or Artistic
+Epoch:          4
+Version:        2.17
+# Keeping this sub-package arch-specific because it installs files into
+# arch-specific directories.
+Requires:       %perl_compat
+Requires:       perl(Carp)
+# Config not needed on perl ≥ 5.008
+# Consider Filter::Util::Call as mandatory, bug #1165183, CPAN RT#100427
+Requires:       perl(Filter::Util::Call)
+# I18N::Langinfo is optional
+# PerlIO::encoding is optional
+Requires:       perl(utf8)
+%if %{defined perl_bootstrap}
+%gendep_perl_encoding
+%endif
+Conflicts:      perl-Encode < 2:2.60-314
+
+%description encoding
+With the encoding pragma, you can write your Perl script in any encoding you
+like (so long as the Encode module supports it) and still enjoy Unicode
+support.
+
+However, this encoding module is deprecated under perl 5.18. It uses
+a mechanism provided by perl that is deprecated under 5.18 and higher, and may
+be removed in a future version.
+
+The easiest and the best alternative is to write your script in UTF-8.
+
+%package Encode-devel
+Summary:        Character encodings in Perl
+License:        (GPL+ or Artistic) and UCD
+Epoch:          4
+Version:        2.80
+Requires:       %perl_compat
+Requires:       %{name}-Encode = %{epoch}:%{version}-%{release}
+Recommends:     perl-devel
+%if %{defined perl_bootstrap}
+%gendep_perl_Encode_devel
+%endif
+BuildArch:      noarch
+
+%description Encode-devel
+enc2xs builds a Perl extension for use by Encode from either Unicode Character
+Mapping files (.ucm) or Tcl Encoding Files (.enc). You can use enc2xs to add
+your own encoding to perl. No knowledge of XS is necessary.
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%package Env
+Summary:        Perl module that imports environment variables as scalars or arrays
+License:        GPL+ or Artistic
+Epoch:          0
+Version:        1.04
+Requires:       %perl_compat
+%if %{defined perl_bootstrap}
+%gendep_perl_Env
+%endif
+BuildArch:      noarch
+Conflicts:      perl < 4:5.16.2-265
+
+%description Env
+Perl maintains environment variables in a special hash named %%ENV. For when
+this access method is inconvenient, the Perl module Env allows environment
+variables to be treated as scalar or array variables.
+%endif
+
+%package Errno
+Summary:        System errno constants
+License:        GPL+ or Artistic
+Epoch:          0
+Version:        1.25
+Requires:       %perl_compat
+# Errno.pm bakes in kernel version at build time and compares it against
+# $Config{osvers} at run time. Match exact interpreter build. Bug #1393421.
+Requires:       perl-libs%{?_isa} = %{perl_epoch}:%{perl_version}-%{release}
+Requires:       perl(Carp)
+%if %{defined perl_bootstrap}
+%gendep_perl_Errno
+%endif
+Conflicts:      perl < 4:5.22.0-351
+
+%description Errno
+"Errno" defines and conditionally exports all the error constants defined in
+your system "errno.h" include file. It has a single export tag, ":POSIX",
+which will export all POSIX defined error numbers.
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%package experimental
+Summary:        Experimental features made easy
+License:        GPL+ or Artistic
+Epoch:          0
+Version:        0.016
+Requires:       %perl_compat
+%if %{defined perl_bootstrap}
+%gendep_perl_experimental
+%endif
+BuildArch:      noarch
+Conflicts:      perl < 4:5.20.0-303
+
+%description experimental
+This pragma provides an easy and convenient way to enable or disable
+experimental features.
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%package Exporter
+Summary:        Implements default import method for modules
+License:        GPL+ or Artistic
+Epoch:          0
+Version:        5.72
+Requires:       %perl_compat
+Requires:       perl(Carp) >= 1.05
+%if %{defined perl_bootstrap}
+%gendep_perl_Exporter
+%endif
+BuildArch:      noarch
+Conflicts:      perl < 4:5.16.2-265
+
+%description Exporter
+The Exporter module implements an import method which allows a module to
+export functions and variables to its users' name spaces. Many modules use
+Exporter rather than implementing their own import method because Exporter
+provides a highly flexible interface, with an implementation optimized for
+the common case.
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%package ExtUtils-CBuilder
+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.280225
+BuildArch:      noarch
+Requires:       perl-devel
+Requires:       %perl_compat
+Requires:       perl(DynaLoader)
+Requires:       perl(ExtUtils::Mksymlists)
+Requires:       perl(File::Spec) >= 3.13
+Requires:       perl(Perl::OSType) >= 1
+%if %{defined perl_bootstrap}
+%gendep_perl_ExtUtils_CBuilder
+%endif
+
+%description ExtUtils-CBuilder
+This module can build the C portions of Perl modules by invoking the
+appropriate compilers and linkers in a cross-platform manner. It was motivated
+by the Module::Build project, but may be useful for other purposes as well.
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%package ExtUtils-Command
+Summary:        Perl routines to replace common UNIX commands in Makefiles
+License:        GPL+ or Artistic
+Epoch:          0
+Version:        7.10
+BuildArch:      noarch
+Requires:       %perl_compat
+Conflicts:      perl < 4:5.20.1-312
+Requires:       perl(File::Find)
+%if %{defined perl_bootstrap}
+%gendep_perl_ExtUtils_Command
+%endif
+
+%description ExtUtils-Command
+This Perl module is used to replace common UNIX commands. In all cases the
+functions work with @ARGV rather than taking arguments. This makes them
+easier to deal with in Makefiles.
+%endif
+
+%package ExtUtils-Embed
+Summary:        Utilities for embedding Perl in C/C++ applications
+License:        GPL+ or Artistic
+Epoch:          0
+Version:        1.33
+Requires:       perl-devel
+Requires:       %perl_compat
+%if %{defined perl_bootstrap}
+%gendep_perl_ExtUtils_Embed
+%endif
+BuildArch:      noarch
+
+%description ExtUtils-Embed
+Utilities for embedding Perl in C/C++ applications.
+
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%package ExtUtils-Install
+Summary:        Install files from here to there
+License:        GPL+ or Artistic
+Epoch:          0
+Version:        2.04
+BuildArch:      noarch
+Requires:       %perl_compat
+Requires:       perl(Data::Dumper)
+%if %{defined perl_bootstrap}
+%gendep_perl_ExtUtils_Install
+%endif
+
+%description ExtUtils-Install
+Handles the installing and uninstalling of perl modules, scripts, man
+pages, etc.
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%package ExtUtils-MakeMaker
+Summary:        Create a module Makefile
+License:        GPL+ or Artistic
+Epoch:          0
+Version:        7.10
+# If an XS module is built, code generated from XS will be compiled and it
+# includes Perl header files.
+# TODO: This dependency will be weaken in order to relieve building noarch
+# packages from perl-devel and gcc.
+Requires:       perl-devel
+Requires:       %perl_compat
+Requires:       perl(Data::Dumper)
+Requires:       perl(DynaLoader)
+Requires:       perl(ExtUtils::Command)
+Requires:       perl(ExtUtils::Install)
+Requires:       perl(ExtUtils::Manifest)
+Requires:       perl(File::Find)
+Requires:       perl(Getopt::Long)
+# Optional Pod::Man is needed for generating manual pages from POD
+Requires:       perl(Pod::Man)
+Requires:       perl(POSIX)
+Requires:       perl(Test::Harness)
+Requires:       perl(version)
+# If an XS module is compiled, xsubpp(1) is needed
+Requires:       perl-ExtUtils-ParseXS
+%if %{defined perl_bootstrap}
+%gendep_perl_ExtUtils_MakeMaker
+%endif
+BuildArch:      noarch
+
+# Filter false DynaLoader provides. Versioned perl(DynaLoader) keeps
+# unfiltered on perl package, no need to reinject it.
+%global __provides_exclude %{?__provides_exclude:%__provides_exclude|}^perl\\(DynaLoader\\)\\s*$
+%global __provides_exclude %__provides_exclude|^perl\\(ExtUtils::MakeMaker::_version\\)
+
+%description ExtUtils-MakeMaker
+Create a module Makefile.
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%package ExtUtils-Manifest
+Summary:        Utilities to write and check a MANIFEST file
+License:        GPL+ or Artistic
+Epoch:          0
+Version:        1.70
+Requires:       %perl_compat
+Requires:       perl(File::Path)
+%if %{defined perl_bootstrap}
+%gendep_perl_ExtUtils_Manifest
+%endif
+BuildArch:      noarch
+
+%description ExtUtils-Manifest
+%{summary}.
+%endif
+
+%package ExtUtils-Miniperl
+Summary:        Write the C code for perlmain.c
+License:        GPL+ or Artistic
+Epoch:          0
+Version:        1.05
+Requires:       perl-devel
+Requires:       %perl_compat
+%if %{defined perl_bootstrap}
+%gendep_perl_ExtUtils_Miniperl
+%endif
+BuildArch:      noarch
+
+%description ExtUtils-Miniperl
+writemain() takes an argument list of directories containing archive libraries
+that relate to perl modules and should be linked into a new perl binary. It
+writes a corresponding perlmain.c file that is a plain C file containing all
+the bootstrap code to make the If the first argument to writemain() is a
+reference to a scalar it is used as the filename to open for ouput. Any other
+reference is used as the filehandle to write to. Otherwise output defaults to
+STDOUT.
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%package -n perl-ExtUtils-MM-Utils
+Summary:        ExtUtils::MM methods without dependency on ExtUtils::MakeMaker
+License:        GPL+ or Artistic
+Epoch:          0
+Version:        7.11
+BuildArch:      noarch
+Requires:       %perl_compat
+%if %{defined perl_bootstrap}
+%gendep_perl_ExtUtils_MM_Utils
+%endif
+
+%description -n perl-ExtUtils-MM-Utils
+This is a collection of ExtUtils::MM subroutines that are used by many
+other modules but that do not need full-featured ExtUtils::MakeMaker. The
+issue with ExtUtils::MakeMaker is it pulls in Perl header files and that
+is an overkill for small subroutines.
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%package ExtUtils-ParseXS
+Summary:        Module and a script for converting Perl XS code into C code
+License:        GPL+ or Artistic
+# Epoch bump for clean upgrade over old standalone package
+Epoch:          1
+Version:        3.31
+Requires:       %perl_compat
+%if %{defined perl_bootstrap}
+%gendep_perl_ExtUtils_ParseXS
+%endif
+BuildArch:      noarch
+
+%description ExtUtils-ParseXS
+ExtUtils::ParseXS will compile XS code into C code by embedding the constructs
+necessary to let C functions manipulate Perl values and creates the glue
+necessary to let Perl access those functions.
+%endif
+
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%package File-Fetch
+Summary:        Generic file fetching mechanism
+License:        GPL+ or Artistic
+Epoch:          0
+Version:        0.48
+Requires:       perl(IPC::Cmd) >= 0.36
+Requires:       perl(Module::Load::Conditional) >= 0.04
+Requires:       perl(Params::Check) >= 0.07
+Requires:       %perl_compat
+%if %{defined perl_bootstrap}
+%gendep_perl_File_Fetch
+%endif
+BuildArch:      noarch
+
+%description File-Fetch
+File::Fetch is a generic file fetching mechanism.
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%package File-Path
+Summary:        Create or remove directory trees
+License:        GPL+ or Artistic
+Epoch:          0
+Version:        2.12
+Requires:       %perl_compat
+Requires:       perl(Carp)
+%if %{defined perl_bootstrap}
+%gendep_perl_File_Path
+%endif
+BuildArch:      noarch
+Conflicts:      perl < 4:5.16.2-265
+
+%description File-Path
+This module provides a convenient way to create directories of arbitrary
+depth and to delete an entire directory subtree from the file system.
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%package File-Temp
+Summary:        Return name and handle of a temporary file safely
+License:        GPL+ or Artistic
+Epoch:          0
+# Normalized version
+Version:        0.230.400
+Requires:       %perl_compat
+BuildArch:      noarch
+Requires:       perl(File::Path) >= 2.06
+Requires:       perl(POSIX)
+%if %{defined perl_bootstrap}
+%gendep_perl_File_Temp
+%endif
+Conflicts:      perl < 4:5.16.2-265
+
+%description File-Temp
+File::Temp can be used to create and open temporary files in a safe way.
+There is both a function interface and an object-oriented interface. The
+File::Temp constructor or the tempfile() function can be used to return the
+name and the open file handle of a temporary file. The tempdir() function
+can be used to create a temporary directory.
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+# FIXME Filter-Simple? version?
+%package Filter
+Summary:        Perl source filters
+License:        GPL+ or Artistic
+Epoch:          2
+Version:        1.55
+Requires:       %perl_compat
+%if %{defined perl_bootstrap}
+%gendep_perl_Filter
+%endif
+
+%description Filter
+Source filters alter the program text of a module before Perl sees it, much as
+a C preprocessor alters the source text of a C program before the compiler
+sees it.
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%package Filter-Simple
+Summary:        Simplified Perl source filtering
+License:        GPL+ or Artistic
+Epoch:          0
+Version:        0.92
+BuildArch:      noarch
+Requires:       %perl_compat
+Conflicts:      perl < 4:5.20.1-312
+Requires:       perl(Text::Balanced) >= 1.97
+Requires:       perl(warnings)
+%if %{defined perl_bootstrap}
+%gendep_perl_Filter_Simple
+%endif
+
+%description Filter-Simple
+The Filter::Simple Perl module provides a simplified interface to
+Filter::Util::Call; one that is sufficient for most common cases.
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%package Getopt-Long
+Summary:        Extended processing of command line options
+License:        GPLv2+ or Artistic
+Epoch:          0
+Version:        2.48
+Requires:       %perl_compat
+Requires:       perl(overload)
+Requires:       perl(Text::ParseWords)
+# Recommended:
+Requires:       perl(Pod::Usage) >= 1.14
+%if %{defined perl_bootstrap}
+%gendep_perl_Getopt_Long
+%endif
+BuildArch:      noarch
+Conflicts:      perl < 4:5.16.3-268
+
+%description Getopt-Long
+The Getopt::Long module implements an extended getopt function called
+GetOptions(). It parses the command line from @ARGV, recognizing and removing
+specified options and their possible values.  It adheres to the POSIX syntax
+for command line options, with GNU extensions. In general, this means that
+options have long names instead of single letters, and are introduced with
+a double dash "--". Support for bundling of command line options, as was the
+case with the more traditional single-letter approach, is provided but not
+enabled by default.
+%endif
+
+%package IO
+Summary:        Perl input/output modules
+License:        GPL+ or Artistic
+Epoch:          0
+Version:        1.36
+Requires:       %perl_compat
+%if %{defined perl_bootstrap}
+%gendep_perl_IO
+%endif
+Conflicts:      perl < 4:5.22.0-351
+
+%description IO
+This is a collection of Perl input/output modules.
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%package IO-Compress
+Summary:        IO::Compress wrapper for modules
+License:        GPL+ or Artistic
+Epoch:          0
+Version:        2.069
+Requires:       %perl_compat
+Obsoletes:      perl-Compress-Zlib <= 2.020
+Provides:       perl(IO::Uncompress::Bunzip2)
+%if %{defined perl_bootstrap}
+%gendep_perl_IO_Compress
+%endif
+BuildArch:      noarch
+
+%description IO-Compress
+This module is the base class for all IO::Compress and IO::Uncompress modules.
+This module is not intended for direct use in application code. Its sole
+purpose is to to be sub-classed by IO::Compress modules.
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%package IO-Socket-IP
+Summary:        Drop-in replacement for IO::Socket::INET supporting both IPv4 and IPv6
+License:        GPL+ or Artistic
+Epoch:          0
+Version:        0.37
+Requires:       %perl_compat
+%if %{defined perl_bootstrap}
+%gendep_perl_IO_Socket_IP
+%endif
+BuildArch:      noarch
+Conflicts:      perl < 4:5.20.0-303
+
+%description IO-Socket-IP
+This module provides a protocol-independent way to use IPv4 and IPv6
+sockets, as a drop-in replacement for IO::Socket::INET. Most constructor
+arguments and methods are provided in a backward-compatible way.
+%endif
+
+%package IO-Zlib
+Summary:        Perl IO:: style interface to Compress::Zlib
+License:        GPL+ or Artistic
+# Epoch bump for clean upgrade over old standalone package
+Epoch:          1
+Version:        1.10
+Requires:       perl(Compress::Zlib)
+Requires:       %perl_compat
+%if %{defined perl_bootstrap}
+%gendep_perl_IO_Zlib
+%endif
+BuildArch:      noarch
+
+%description IO-Zlib
+This modules provides an IO:: style interface to the Compress::Zlib package.
+The main advantage is that you can use an IO::Zlib object in much the same way
+as an IO::File object so you can have common code that doesn't know which sort
+of file it is using.
+
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%package IPC-Cmd
+Summary:        Finding and running system commands made easy
+License:        GPL+ or Artistic
+# Epoch bump for clean upgrade over old standalone package
+Epoch:          1
+Version:        0.92
+Requires:       perl(ExtUtils::MM::Utils)
+Requires:       %perl_compat
+%if %{defined perl_bootstrap}
+%gendep_perl_IPC_Cmd
+%endif
+BuildArch:      noarch
+
+%description IPC-Cmd
+IPC::Cmd allows you to run commands, interactively if desired, in a platform
+independent way, but have them still work.
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%package IPC-SysV
+Summary:        Object interface to System V IPC
+License:        GPL+ or Artistic
+Epoch:          0
+Version:        2.06
+Requires:       %perl_compat
+Requires:       perl(DynaLoader)
+%if %{defined perl_bootstrap}
+%gendep_perl_IPC_SysV
+%endif
+Conflicts:      perl < 4:5.22.0-351
+
+%description IPC-SysV
+This is an object interface for System V messages, semaphores, and
+inter-process calls.
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%package HTTP-Tiny
+Summary:        A small, simple, correct HTTP/1.1 client
+License:        GPL+ or Artistic
+Epoch:          0
+Version:        0.056
+Requires:       perl(bytes)
+Requires:       perl(Carp)
+Requires:       perl(IO::Socket)
+Requires:       perl(Time::Local)
+%if %{defined perl_bootstrap}
+%gendep_perl_HTTP_Tiny
+%endif
+BuildArch:      noarch
+
+%description HTTP-Tiny
+This is a very simple HTTP/1.1 client, designed primarily for doing simple GET 
+requests without the overhead of a large framework like LWP::UserAgent.
+It is more correct and more complete than HTTP::Lite. It supports proxies 
+(currently only non-authenticating ones) and redirection. It also correctly 
+resumes after EINTR.
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%package JSON-PP
+Summary:        JSON::XS compatible pure-Perl module
+Epoch:          0
+Version:        2.27300
+License:        GPL+ or Artistic
+BuildArch:      noarch
+Requires:       %perl_compat 
+Requires:       perl(Data::Dumper)
+Requires:       perl(Encode)
+Requires:       perl(Math::BigFloat)
+Requires:       perl(Math::BigInt)
+Requires:       perl(Scalar::Util)
+Requires:       perl(subs)
+%if %{defined perl_bootstrap}
+%gendep_perl_JSON_PP
+%endif
+Conflicts:      perl-JSON < 2.50
+
+%description JSON-PP
+JSON::XS is the fastest and most proper JSON module on CPAN. It is written by
+Marc Lehmann in C, so must be compiled and installed in the used environment.
+JSON::PP is a pure-Perl module and is compatible with JSON::XS.
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%package libnet
+Summary:        Perl clients for various network protocols
+License:        GPL+ or Artistic
+Epoch:          0
+Version:        3.08
+Requires:       %perl_compat
+Requires:       perl(File::Basename)
+Requires:       perl(IO::Socket) >= 1.05
+# Prefer IO::Socket::IP over IO::Socket::INET6 and IO::Socket::INET
+Requires:       perl(IO::Socket::IP) >= 0.20
+Requires:       perl(POSIX)
+Requires:       perl(Socket) >= 2.016
+Requires:       perl(utf8)
+%if %{defined perl_bootstrap}
+%gendep_perl_libnet
+%endif
+BuildArch:      noarch
+Conflicts:      perl < 4:5.22.0-347
+
+%description libnet
+This is a collection of Perl modules which provides a simple and
+consistent programming interface (API) to the client side of various
+protocols used in the internet community.
+%endif
+
+%package libnetcfg
+Summary:        Configure libnet
+License:        GPL+ or Artistic
+Epoch:          %perl_epoch
+Version:        %perl_version
+# Net::Config is optional
+BuildArch:      noarch
+%if %{defined perl_bootstrap}
+%gendep_perl_libnetcfg
+%endif
+Conflicts:      perl-devel < 4:5.22.0-347
+
+%description libnetcfg
+The libnetcfg utility can be used to configure the libnet.
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%package Locale-Codes
+Summary:        Distribution of modules to handle locale codes
+Epoch:          0
+Version:        3.25
+License:        GPL+ or Artistic
+Requires:       %perl_compat
+Requires:       perl(constant)
+Provides:       perl(Locale::Codes) = %{version}
+%if %{defined perl_bootstrap}
+%gendep_perl_Locale_Codes
+%endif
+BuildArch:      noarch
+
+# Do not export unversioned module
+%global __provides_exclude %{?__provides_exclude:%__provides_exclude|}^perl\\(Locale::Codes\\)\\s*$
+
+# Filter dependencies on private modules. Generator:
+# for F in $(find lib -type f); do perl -e '$/ = undef; $_ = <>; if (/^package #\R([\w:]*);/m) { print qq{|^perl\\\\($1\\\\)} }' "$F"; done
+%global __requires_exclude %{?__requires_exclude:%__requires_exclude|}^perl\\(Locale::Codes::Country_Retired\\)|^perl\\(Locale::Codes::LangFam_Retired\\)|^perl\\(Locale::Codes::Script_Retired\\)|^perl\\(Locale::Codes::LangExt_Codes\\)|^perl\\(Locale::Codes::LangFam_Codes\\)|^perl\\(Locale::Codes::Script_Codes\\)|^perl\\(Locale::Codes::Language_Codes\\)|^perl\\(Locale::Codes::LangExt_Retired\\)|^perl\\(Locale::Codes::Currency_Codes\\)|^perl\\(Locale::Codes::LangVar_Retired\\)|^perl\\(Locale::Codes::Language_Retired\\)|^perl\\(Locale::Codes::Country_Codes\\)|^perl\\(Locale::Codes::LangVar_Codes\\)|^perl\\(Locale::Codes::Currency_Retired\\)
+
+%description Locale-Codes
+Locale-Codes is a distribution containing a set of modules. The modules
+each deal with different types of codes which identify parts of the locale
+including languages, countries, currency, etc.
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%package Locale-Maketext
+Summary:        Framework for localization
+License:        GPL+ or Artistic
+Epoch:          0
+Version:        1.26
+Requires:       %perl_compat
+%if %{defined perl_bootstrap}
+%gendep_perl_Locale_Maketext
+%endif
+BuildArch:      noarch
+Conflicts:      perl < 4:5.16.3-268
+
+%description Locale-Maketext
+It is a common feature of applications (whether run directly, or via the Web)
+for them to be "localized" -- i.e., for them to present an English interface
+to an English-speaker, a German interface to a German-speaker, and so on for
+all languages it's programmed with. Locale::Maketext is a framework for
+software localization; it provides you with the tools for organizing and
+accessing the bits of text and text-processing code that you need for
+producing localized applications.
+%endif
+
+%package Locale-Maketext-Simple
+Summary:        Simple interface to Locale::Maketext::Lexicon
+License:        MIT
+# Epoch bump for clean upgrade over old standalone package
+Epoch:          1
+Version:        0.21
+Requires:       %perl_compat
+%if %{defined perl_bootstrap}
+%gendep_perl_Locale_Maketext_Simple
+%endif
+BuildArch:      noarch
+
+%description Locale-Maketext-Simple
+This module is a simple wrapper around Locale::Maketext::Lexicon, designed
+to alleviate the need of creating Language Classes for module authors.
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%package Math-BigInt
+Summary:        Arbitrary-size integer and float mathematics
+License:        GPL+ or Artistic
+Epoch:          0
+# Real version 1.999715
+Version:        1.9997.15
+Requires:       %perl_compat
+Requires:       perl(Carp)
+# File::Spec not used on recent perl
+%if %{defined perl_bootstrap}
+%gendep_perl_Math_BigInt
+%endif
+BuildArch:      noarch
+Conflicts:      perl < 4:5.22.0-347
+
+# Do not export unversioned module
+%global __provides_exclude %{?__provides_exclude:%__provides_exclude|}^perl\\(Math::BigInt\\)\\s*$
+
+%description Math-BigInt
+This provides Perl modules for arbitrary-size integer and float mathematics.
+
+%package Math-BigInt-FastCalc
+Summary:        Math::BigInt::Calc XS implementation
+License:        GPL+ or Artistic
+Epoch:          0
+# Version normalized to dot format
+Version:        0.400
+Requires:       %perl_compat
+%if %{defined perl_bootstrap}
+%gendep_perl_Math_BigInt_FastCalc
+%endif
+Conflicts:      perl < 4:5.22.0-348
+
+%description Math-BigInt-FastCalc
+This package provides support for faster big integer calculations.
+
+%package Math-BigRat
+Summary:        Arbitrary big rational numbers
+License:        GPL+ or Artistic
+Epoch:          0
+# Real version 0.2608.02
+Version:        0.2608.02
+Requires:       %perl_compat
+Requires:       perl(Math::BigInt)
+%if %{defined perl_bootstrap}
+%gendep_perl_Math_BigRat
+%endif
+BuildArch:      noarch
+Conflicts:      perl < 4:5.22.0-348
+
+%description Math-BigRat
+Math::BigRat complements Math::BigInt and Math::BigFloat by providing support
+for arbitrary big rational numbers.
+%endif
+
+%package Math-Complex
+Summary:        Complex numbers and trigonometric functions
+License:        GPL+ or Artistic
+Epoch:          0
+Version:        1.59
+Requires:       %perl_compat
+%if %{defined perl_bootstrap}
+%gendep_perl_Math_Complex
+%endif
+BuildArch:      noarch
+Conflicts:      perl < 4:5.22.0-348
+
+%description Math-Complex
+This package lets you create and manipulate complex numbers. By default, Perl
+limits itself to real numbers, but an extra "use" statement brings full
+complex support, along with a full set of mathematical functions typically
+associated with and/or extended to complex numbers.
+
+%package Memoize
+Summary:        Transparently speed up functions by caching return values
+License:        GPL+ or Artistic
+Epoch:          0
+Version:        1.03
+Requires:       %perl_compat
+# Keep Time::HiRes optional
+%if %{defined perl_bootstrap}
+%gendep_perl_Memoize
+%endif
+BuildArch:      noarch
+Conflicts:      perl < 4:5.22.0-350
+
+%description Memoize
+Memoizing a function makes it faster by trading space for time. It does
+this by caching the return values of the function in a table. If you call
+the function again with the same arguments, memoize jumps in and gives
+you the value out of the table, instead of letting the function compute
+the value all over again.
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%package MIME-Base64
+Summary:        Encoding and decoding of Base64 and quoted-printable strings
+# cpan/MIME-Base64/Base64.xs:   (GPL+ or Artistic) and MIT (Bellcore's part)
+# Other files:                  GPL+ or Artistic
+License:        (GPL+ or Artistic) and MIT
+Epoch:          0
+Version:        3.15
+Requires:       %perl_compat
+%if %{defined perl_bootstrap}
+%gendep_perl_MIME_Base64
+%endif
+Conflicts:      perl < 4:5.22.0-347
+
+%description MIME-Base64
+This package contains a Base64 encoder/decoder and a quoted-printable
+encoder/decoder. These encoding methods are specified in RFC 2045 - MIME
+(Multipurpose Internet Mail Extensions).
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%package Module-CoreList
+Summary:        What modules are shipped with versions of perl
+License:        GPL+ or Artistic
+Epoch:          1
+Version:        5.20180414
+Requires:       %perl_compat
+Requires:       perl(List::Util)
+Requires:       perl(version) >= 0.88
+%if %{defined perl_bootstrap}
+%gendep_perl_Module_CoreList
+%endif
+BuildArch:      noarch
+
+%description Module-CoreList
+Module::CoreList provides information on which core and dual-life modules
+are shipped with each version of perl.
+
+
+%package Module-CoreList-tools
+Summary:        Tool for listing modules shipped with perl
+License:        GPL+ or Artistic
+Epoch:          1
+Version:        5.20180414
+Requires:       %perl_compat
+Requires:       perl(feature)
+Requires:       perl(version) >= 0.88
+Requires:       perl-Module-CoreList = %{epoch}:%{version}-%{release}
+%if %{defined perl_bootstrap}
+%gendep_perl_Module_CoreList_tools
+%endif
+# The files were distributed with perl.spec's subpackage
+# perl-Module-CoreList <= 1:5.020001-309
+Conflicts:      perl-Module-CoreList < 1:5.020001-310
+BuildArch:      noarch
+
+%description Module-CoreList-tools
+This package provides a corelist(1) tool which can be used to query what
+modules were shipped with given perl version.
+%endif
+
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%package Module-Load
+Summary:        Runtime require of both modules and files
+License:        GPL+ or Artistic
+# Epoch bump for clean upgrade over old standalone package
+Epoch:          1
+Version:        0.32
+Requires:       %perl_compat
+%if %{defined perl_bootstrap}
+%gendep_perl_Module_Load
+%endif
+BuildArch:      noarch
+
+%description Module-Load
+Module::Load eliminates the need to know whether you are trying to require
+either a file or a module.
+%endif
+
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%package Module-Load-Conditional
+Summary:        Looking up module information / loading at runtime
+License:        GPL+ or Artistic
+Epoch:          0
+Version:        0.64
+Requires:       %perl_compat
+%if %{defined perl_bootstrap}
+%gendep_perl_Module_Load_Conditional
+%endif
+BuildArch:      noarch
+
+%description Module-Load-Conditional
+Module::Load::Conditional provides simple ways to query and possibly load any
+of the modules you have installed on your system during runtime.
+%endif
+
+
+%package Module-Loaded
+Summary:        Mark modules as loaded or unloaded
+License:        GPL+ or Artistic
+# Epoch bump for clean upgrade over old standalone package
+Epoch:          1
+Version:        0.08
+Requires:       %perl_compat
+%if %{defined perl_bootstrap}
+%gendep_perl_Module_Loaded
+%endif
+BuildArch:      noarch
+
+%description Module-Loaded
+When testing applications, often you find yourself needing to provide
+functionality in your test environment that would usually be provided by
+external modules. Rather than munging the %%INC by hand to mark these external
+modules as loaded, so they are not attempted to be loaded by perl, this module
+offers you a very simple way to mark modules as loaded and/or unloaded.
+
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%package Module-Metadata
+Summary:        Gather package and POD information from perl module files
+Epoch:          0
+Version:        1.000031
+License:        GPL+ or Artistic
+BuildArch:      noarch
+Requires:       %perl_compat
+%if %{defined perl_bootstrap}
+%gendep_perl_Module_Metadata
+%endif
+
+%description Module-Metadata
+Gather package and POD information from perl module files
+%endif
+
+%package Net-Ping
+Summary:        Check a remote host for reachability
+License:        GPL+ or Artistic
+Epoch:          0
+Version:        2.43
+Requires:       %perl_compat
+# Keep Net::Ping::External optional
+%if %{defined perl_bootstrap}
+%gendep_perl_Net_Ping
+%endif
+BuildArch:      noarch
+Conflicts:      perl < 4:5.22.0-350
+
+%description Net-Ping
+Net::Ping module contains methods to test the reachability of remote hosts on
+a network.
+
+%package open
+Summary:        Perl pragma to set default PerlIO layers for input and output
+License:        GPL+ or Artistic
+Epoch:          0
+Version:        1.10
+Requires:       %perl_compat
+Requires:       perl(Carp)
+Requires:       perl(Encode)
+Requires:       perl(encoding)
+%if %{defined perl_bootstrap}
+%gendep_perl_open
+%endif
+Conflicts:      perl < 4:5.20.2-326
+BuildArch:      noarch
+
+%description open
+The "open" pragma serves as one of the interfaces to declare default "layers"
+(also known as "disciplines") for all I/O.
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%package parent
+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.234
+Requires:       %perl_compat
+%if %{defined perl_bootstrap}
+%gendep_perl_parent
+%endif
+BuildArch:      noarch
+
+%description parent
+parent allows you to both load one or more modules, while setting up
+inheritance from those modules at the same time. Mostly similar in effect to:
+
+    package Baz;
+
+    BEGIN {
+        require Foo;
+        require Bar;
+
+        push @ISA, qw(Foo Bar);
+    }
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%package Params-Check
+Summary:        Generic input parsing/checking mechanism
+License:        GPL+ or Artistic
+# Epoch bump for clean upgrade over old standalone package
+Epoch:          1
+Version:        0.38
+Requires:       %perl_compat
+%if %{defined perl_bootstrap}
+%gendep_perl_Params_Check
+%endif
+BuildArch:      noarch
+
+%description Params-Check
+Params::Check is a generic input parsing/checking mechanism.
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%package Parse-CPAN-Meta
+Summary:        Parse META.yml and other similar CPAN metadata files
+License:        GPL+ or Artistic
+# Epoch bump for clean upgrade over old standalone package
+Epoch:          1
+Version:        1.4417
+Requires:       %perl_compat
+BuildArch:      noarch
+Requires:       perl(CPAN::Meta::YAML) >= 0.002
+Requires:       perl(JSON::PP) >= 2.27103
+%if %{defined perl_bootstrap}
+%gendep_perl_Parse_CPAN_Meta
+%endif
+# FIXME it could be removed now?
+Obsoletes:      perl-Parse-CPAN-Meta < 1.40
+
+%description Parse-CPAN-Meta 
+Parse::CPAN::Meta is a parser for META.yml files, based on the parser half of
+YAML::Tiny.
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%package PathTools
+Summary:        PathTools Perl module (Cwd, File::Spec)
+License:        (GPL+ or Artistic) and BSD
+Epoch:          0
+Version:        3.63
+Requires:       %perl_compat
+Requires:       perl(Carp)
+%if %{defined perl_bootstrap}
+%gendep_perl_PathTools
+%endif
+
+%description PathTools
+PathTools Perl module (Cwd, File::Spec).
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%package perlfaq
+Summary:        Frequently asked questions about Perl
+# Code examples are Public Domain
+License:        (GPL+ or Artistic) and Public Domain
+Epoch:          0
+Version:        5.021010
+Requires:       %perl_compat
+%if %{defined perl_bootstrap}
+%gendep_perl_perlfaq
+%endif
+BuildArch:      noarch
+Conflicts:      perl < 4:5.22.0-347
+
+%description perlfaq
+The perlfaq comprises several documents that answer the most commonly asked
+questions about Perl and Perl programming.
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%package PerlIO-via-QuotedPrint
+Summary:        PerlIO layer for quoted-printable strings
+License:        GPL+ or Artistic
+Epoch:          0
+Version:        0.08
+Requires:       %perl_compat
+%if %{defined perl_bootstrap}
+%gendep_perl_PerlIO_via_QuotedPrint
+%endif
+BuildArch:      noarch
+Conflicts:      perl < 4:5.22.0-347
+
+%description PerlIO-via-QuotedPrint
+This module implements a PerlIO layer that works on files encoded in the
+quoted-printable format. It will decode from quoted-printable while
+reading from a handle, and it will encode as quoted-printable while
+writing to a handle.
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%package Perl-OSType
+Summary:        Map Perl operating system names to generic types
+Version:        1.009
+Epoch:          0
+License:        GPL+ or Artistic
+Requires:       %perl_compat
+%if %{defined perl_bootstrap}
+%gendep_perl_Perl_OSType
+%endif
+BuildArch:      noarch
+
+%description Perl-OSType
+Modules that provide OS-specific behaviors often need to know if the current
+operating system matches a more generic type of operating systems. For example,
+'linux' is a type of 'Unix' operating system and so is 'freebsd'.
+This module provides a mapping between an operating system name as given by $^O
+and a more generic type. The initial version is based on the OS type mappings
+provided in Module::Build and ExtUtils::CBuilder (thus, Microsoft operating
+systems are given the type 'Windows' rather than 'Win32').
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%package Pod-Checker
+Summary:        Check POD documents for syntax errors
+Epoch:          4
+Version:        1.60
+License:        GPL+ or Artistic
+Requires:       %perl_compat
+%if %{defined perl_bootstrap}
+%gendep_perl_Pod_Checker
+%endif
+BuildArch:      noarch
+
+%description Pod-Checker
+Module and tools to verify POD documentation contents for compliance with the
+Plain Old Documentation format specifications.
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%package Pod-Escapes
+Summary:        Resolve POD escape sequences
+License:        GPL+ or Artistic
+# Epoch bump for clean upgrade over old standalone package
+Epoch:          1
+Version:        1.07
+Requires:       %perl_compat
+%if %{defined perl_bootstrap}
+%gendep_perl_Pod_Escapes
+%endif
+BuildArch:      noarch
+
+%description Pod-Escapes
+This module provides things that are useful in decoding Pod E<...> sequences.
+%endif
+
+%package Pod-Html
+Summary:        Convert POD files to HTML
+License:        GPL+ or Artistic
+Epoch:          0
+# Real version 1.2201
+Version:        1.22.01
+Requires:       %perl_compat
+%if %{defined perl_bootstrap}
+%gendep_perl_Pod_Html
+%endif
+BuildArch:      noarch
+Conflicts:      perl < 4:5.22.0-350
+
+%description Pod-Html
+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
+License:        GPL+ or Artistic
+Epoch:          0
+Version:        3.25
+%if %{with perl_enables_groff}
+# Pod::Perldoc::ToMan executes roff
+Requires:       groff-base
+%endif
+Requires:       %perl_compat
+Requires:       perl(File::Temp) >= 0.22
+Requires:       perl(HTTP::Tiny)
+Requires:       perl(IO::Handle)
+Requires:       perl(IPC::Open3)
+# POD2::Base is optional
+# Pod::Checker is not needed if Pod::Simple::Checker is available
+Requires:       perl(Pod::Simple::Checker)
+Requires:       perl(Pod::Simple::RTF) >= 3.16
+Requires:       perl(Pod::Simple::XMLOutStream) >= 3.16
+Requires:       perl(Text::ParseWords)
+# Tk is optional
+Requires:       perl(Symbol)
+%if %{defined perl_bootstrap}
+%gendep_perl_Pod_Perldoc
+%endif
+BuildArch:      noarch
+
+%description Pod-Perldoc
+perldoc looks up a piece of documentation in .pod format that is embedded
+in the perl installation tree or in a perl script, and displays it via
+"groff -man | $PAGER". This is primarily used for the documentation for
+the perl library modules.
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%package Pod-Simple
+Summary:        Framework for parsing POD documentation
+License:        GPL+ or Artistic
+# Epoch bump for clean upgrade over old standalone package
+Epoch:          1
+Version:        3.32
+Requires:       %perl_compat
+%if %{defined perl_bootstrap}
+%gendep_perl_Pod_Simple
+%endif
+BuildArch:      noarch
+
+%description Pod-Simple
+Pod::Simple is a Perl library for parsing text in the Pod ("plain old
+documentation") markup language that is typically used for writing
+documentation for Perl and for Perl modules.
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%package Pod-Usage
+Summary:        Print a usage message from embedded pod documentation
+License:        GPL+ or Artistic
+Epoch:          4
+Version:        1.68
+Requires:       %perl_compat
+# Pod::Usage executes perldoc from perl-Pod-Perldoc by default
+Requires:       perl-Pod-Perldoc
+Requires:       perl(Pod::Text)
+%if %{defined perl_bootstrap}
+%gendep_perl_Pod_Usage
+%endif
+BuildArch:      noarch
+
+%description Pod-Usage
+pod2usage will print a usage message for the invoking script (using its
+embedded POD documentation) and then exit the script with the desired exit
+status. The usage message printed may have any one of three levels of
+"verboseness": If the verbose level is 0, then only a synopsis is printed.
+If the verbose level is 1, then the synopsis is printed along with a
+description (if present) of the command line options and arguments. If the
+verbose level is 2, then the entire manual page is printed.
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%package podlators
+Summary:        Format POD source into various output formats
+License:        (GPL+ or Artistic) and MIT
+Epoch:          0
+Version:        4.07
+BuildArch:      noarch
+Requires:       %perl_compat
+Requires:       perl(File::Spec) >= 0.8
+Requires:       perl(Pod::Simple) >= 3.06
+%if %{defined perl_bootstrap}
+%gendep_perl_podlators
+%endif
+Conflicts:      perl < 4:5.16.1-234
+
+%description podlators
+This package contains Pod::Man and Pod::Text modules which convert POD input
+to *roff source output, suitable for man pages, or plain text.  It also
+includes several sub-classes of Pod::Text for formatted output to terminals
+with various capabilities.
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%package Scalar-List-Utils
+Summary:        A selection of general-utility scalar and list subroutines
+License:        GPL+ or Artistic
+Epoch:          3
+# Real version 1.42_02
+Version:        1.42
+Requires:       %perl_compat
+%if %{defined perl_bootstrap}
+%gendep_perl_Scalar_List_Utils
+%endif
+
+%description Scalar-List-Utils
+Scalar::Util and List::Util contain a selection of subroutines that people have
+expressed would be nice to have in the perl core, but the usage would not
+really be high enough to warrant the use of a keyword, and the size so small
+such that being individual extensions would be wasteful.
+%endif
+
+%package SelfLoader
+Summary:        Load functions only on demand
+License:        GPL+ or Artistic
+Epoch:          0
+Version:        1.23
+BuildArch:      noarch
+Requires:       %perl_compat
+Requires:       perl(Carp)
+%if %{defined perl_bootstrap}
+%gendep_perl_SelfLoader
+%endif
+Conflicts:      perl < 4:5.22.0-351
+
+%description SelfLoader
+This Perl module tells its users that functions in a package are to be
+autoloaded from after the "__DATA__" token. See also "Autoloading" in
+perlsub.
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%package Socket
+Summary:        C socket.h defines and structure manipulators
+License:        GPL+ or Artistic
+Epoch:          4
+Version:        2.020
+Requires:       %perl_compat
+%if %{defined perl_bootstrap}
+%gendep_perl_Socket
+%endif
+
+%description Socket
+This module is just a translation of the C socket.h file.  Unlike the old
+mechanism of requiring a translated socket.ph file, this uses the h2xs program
+(see the Perl source distribution) and your native C compiler.  This means
+that it has a far more likely chance of getting the numbers right.  This
+includes all of the commonly used pound-defines like AF_INET, SOCK_STREAM, etc.
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%package Storable
+Summary:        Persistence for Perl data structures
+License:        GPL+ or Artistic
+Epoch:          1
+Version:        2.56
+Requires:       %perl_compat
+# Carp substitutes missing Log::Agent
+Requires:       perl(Carp)
+Requires:       perl(Config)
+# Fcntl is optional, but locking is good
+Requires:       perl(Fcntl)
+Requires:       perl(IO::File)
+%if %{defined perl_bootstrap}
+%gendep_perl_Storable
+%endif
+Conflicts:      perl < 4:5.16.3-274
+
+%description Storable
+The Storable package brings persistence to your Perl data structures
+containing scalar, array, hash or reference objects, i.e. anything that
+can be conveniently stored to disk and retrieved at a later time.
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%package Sys-Syslog
+Summary:        Perl interface to the UNIX syslog(3) calls
+License:        GPL+ or Artistic
+Epoch:          0
+Version:        0.33
+Requires:       %perl_compat
+Requires:       perl(XSLoader)
+%if %{defined perl_bootstrap}
+%gendep_perl_Sys_Syslog
+%endif
+Conflicts:      perl < 4:5.16.3-269
+
+%description Sys-Syslog
+Sys::Syslog is an interface to the UNIX syslog(3) function. Call syslog() with
+a string priority and a list of printf() arguments just like at syslog(3).
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%package Term-ANSIColor
+Summary:        Color screen output using ANSI escape sequences
+License:        GPL+ or Artistic
+Epoch:          0
+Version:        4.04
+Requires:       %perl_compat
+%if %{defined perl_bootstrap}
+%gendep_perl_Term_ANSIColor
+%endif
+BuildArch:      noarch
+Conflicts:      perl < 4:5.18.2-302
+
+%description Term-ANSIColor
+This module has two interfaces, one through color() and colored() and the
+other through constants. It also offers the utility functions uncolor(),
+colorstrip(), colorvalid(), and coloralias(), which have to be explicitly
+imported to be used.
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%package Term-Cap
+Summary:        Perl termcap interface
+License:        GPL+ or Artistic
+Epoch:          0
+Version:        1.17
+Requires:       %perl_compat
+# ncurses for infocmp tool
+Requires:       ncurses
+Requires:       perl(Carp)
+%if %{defined perl_bootstrap}
+%gendep_perl_Term_Cap
+%endif
+BuildArch:      noarch
+Conflicts:      perl < 4:5.22.0-347
+
+%description Term-Cap
+These are low-level functions to extract and use capabilities from a terminal
+capability (termcap) database.
+%endif
+
+%package Test
+Summary:        Simple framework for writing test scripts
+License:        GPL+ or Artistic
+Epoch:          0
+Version:        1.28
+Requires:       %perl_compat
+# Algorithm::Diff 1.15 is optional
+Requires:       perl(File::Temp)
+%if %{defined perl_bootstrap}
+%gendep_perl_Test
+%endif
+BuildArch:      noarch
+Conflicts:      perl < 4:5.22.0-351
+
+%description Test
+The Test Perl module simplifies the task of writing test files for Perl modules,
+such that their output is in the format that Test::Harness expects to see.
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%package Test-Harness
+Summary:        Run Perl standard test scripts with statistics
+License:        GPL+ or Artistic
+Epoch:          0
+Version:        3.36
+Requires:       %perl_compat
+%if %{defined perl_bootstrap}
+%gendep_perl_Test_Harness
+%endif
+BuildArch:      noarch
+
+%description Test-Harness
+Run Perl standard test scripts with statistics.
+Use TAP::Parser, Test::Harness package was whole rewritten.
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%package Test-Simple
+Summary:        Basic utilities for writing tests
+License:        (GPL+ or Artistic) and CC0 and Public Domain
+Epoch:          0
+Version:        1.001014
+Requires:       %perl_compat
+Requires:       perl(Data::Dumper)
+%if %{defined perl_bootstrap}
+%gendep_perl_Test_Simple
+%endif
+BuildArch:      noarch
+
+%description Test-Simple
+Basic utilities for writing tests.
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%package Text-Balanced
+Summary:        Extract delimited text sequences from strings
+License:        GPL+ or Artistic
+Epoch:          0
+Version:        2.03
+Requires:       %perl_compat
+%if %{defined perl_bootstrap}
+%gendep_perl_Text_Balanced
+%endif
+BuildArch:      noarch
+Conflicts:      perl < 4:5.22.0-347
+
+%description Text-Balanced
+These Perl subroutines may be used to extract a delimited substring, possibly
+after skipping a specified prefix string.
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%package Text-ParseWords
+Summary:        Parse text into an array of tokens or array of arrays
+License:        GPL+ or Artistic
+Epoch:          0
+Version:        3.30
+Requires:       %perl_compat
+Requires:       perl(Carp)
+%if %{defined perl_bootstrap}
+%gendep_perl_Text_ParseWords
+%endif
+BuildArch:      noarch
+Conflicts:      perl < 4:5.16.2-256
+
+%description Text-ParseWords
+Parse text into an array of tokens or array of arrays.
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%package Text-Tabs+Wrap
+Summary:        Expand tabs and do simple line wrapping
+License:        TTWL
+Epoch:          0
+Version:        2013.0523
+Requires:       %perl_compat
+%if %{defined perl_bootstrap}
+%gendep_perl_Text_Tabs_Wrap
+%endif
+BuildArch:      noarch
+Conflicts:      perl < 4:5.20.2-325
+
+%description Text-Tabs+Wrap
+Text::Tabs performs the same job that the UNIX expand(1) and unexpand(1)
+commands do: adding or removing tabs from a document.
+
+Text::Wrap::wrap() will reformat lines into paragraphs. All it does is break
+up long lines, it will not join short lines together.
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%package Thread-Queue
+Summary:        Thread-safe queues
+License:        GPL+ or Artistic
+Epoch:          0
+Version:        3.09
+Requires:       %perl_compat
+Requires:       perl(Carp)
+%if %{defined perl_bootstrap}
+%gendep_perl_Thread_Queue
+%endif
+BuildArch:      noarch
+Conflicts:      perl < 4:5.16.2-257
+
+%description Thread-Queue
+This module provides thread-safe FIFO queues that can be accessed safely by
+any number of threads.
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%package Time-HiRes
+Summary:        High resolution alarm, sleep, gettimeofday, interval timers
+License:        GPL+ or Artistic
+Epoch:          0
+Version:        1.9741
+Requires:       %perl_compat
+Requires:       perl(Carp)
+%if %{defined perl_bootstrap}
+%gendep_perl_Time_HiRes
+%endif
+Conflicts:      perl < 4:5.16.3-271
+
+%description Time-HiRes
+The Time::HiRes module implements a Perl interface to the usleep, nanosleep,
+ualarm, gettimeofday, and setitimer/getitimer system calls, in other words,
+high resolution time and timers.
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%package Time-Local
+Summary:        Efficiently compute time from local and GMT time
+License:        GPL+ or Artistic
+Epoch:          0
+Version:        1.2300
+Requires:       %perl_compat
+%if %{defined perl_bootstrap}
+%gendep_perl_Time_Local
+%endif
+BuildArch:      noarch
+Conflicts:      perl < 4:5.16.3-262
+
+%description Time-Local
+This module provides functions that are the inverse of built-in perl functions
+localtime() and gmtime(). They accept a date as a six-element array, and
+return the corresponding time(2) value in seconds since the system epoch
+(Midnight, January 1, 1970 GMT on Unix, for example). This value can be
+positive or negative, though POSIX only requires support for positive values,
+so dates before the system's epoch may not work on all operating systems.
+%endif
+
+%package Time-Piece
+Summary:        Time objects from localtime and gmtime
+License:        (GPL+ or Artistic) and BSD
+Epoch:          0
+Version:        1.31
+Requires:       %perl_compat
+%if %{defined perl_bootstrap}
+%gendep_perl_Time_Piece
+%endif
+
+%description Time-Piece
+The Time::Piece module replaces the standard localtime and gmtime functions
+with implementations that return objects.  It does so in a backwards compatible
+manner, so that using localtime or gmtime as documented in perlfunc still
+behave as expected.
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%package threads
+Summary:        Perl interpreter-based threads
+License:        GPL+ or Artistic
+Epoch:          1
+Version:        2.07
+Requires:       %perl_compat
+%if %{defined perl_bootstrap}
+%gendep_perl_threads
+%endif
+
+%description threads
+Since Perl 5.8, thread programming has been available using a model called
+interpreter threads  which provides a new Perl interpreter for each thread,
+and, by default, results in no data or state information being shared between
+threads.
+
+(Prior to Perl 5.8, 5005threads was available through the Thread.pm API. This
+threading model has been deprecated, and was removed as of Perl 5.10.0.)
+
+As just mentioned, all variables are, by default, thread local. To use shared
+variables, you need to also load threads::shared.
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%package threads-shared
+Summary:        Perl extension for sharing data structures between threads
+License:        GPL+ or Artistic
+Epoch:          0
+Version:        1.51
+Requires:       %perl_compat
+%if %{defined perl_bootstrap}
+%gendep_perl_threads_shared
+%endif
+
+%description threads-shared
+By default, variables are private to each thread, and each newly created thread
+gets a private copy of each existing variable. This module allows you to share
+variables across different threads (and pseudo-forks on Win32). It is used
+together with the threads module.  This module supports the sharing of the
+following data types only: scalars and scalar refs, arrays and array refs, and
+hashes and hash refs.
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%package Unicode-Collate
+Summary:        Unicode Collation Algorithm
+License:        (GPL+ or Artistic) and Unicode
+Epoch:          0
+Version:        1.14
+Requires:       %perl_compat
+Requires:       perl(Unicode::Normalize)
+%if %{defined perl_bootstrap}
+%gendep_perl_Unicode_Collate
+%endif
+Conflicts:      perl < 4:5.22.0-347
+
+%description Unicode-Collate
+This package is Perl implementation of Unicode Technical Standard #10 (Unicode
+Collation Algorithm).
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%package Unicode-Normalize
+Summary:        Unicode Normalization Forms
+License:        GPL+ or Artistic
+Epoch:          0
+Version:        1.25
+Requires:       %perl_compat
+# unicore/CombiningClass.pl and unicore/Decomposition.pl from perl, perl is
+# auto-detected.
+%if %{defined perl_bootstrap}
+%gendep_perl_Unicode_Normalize
+%endif
+Conflicts:      perl < 4:5.22.0-347
+
+%description Unicode-Normalize
+This package provides Perl functions that can convert strings into various
+Unicode normalization forms as defined in Unicode Standard Annex #15.
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%package version
+Summary:        Perl extension for Version Objects
+License:        GPL+ or Artistic
+# Epoch bump for clean upgrade over old standalone package
+Epoch:          5
+# real version 0.9916
+Version:        0.99.16
+Requires:       %perl_compat
+%if %{defined perl_bootstrap}
+%gendep_perl_version
+%endif
+BuildArch:      noarch
+
+%description version
+Perl extension for Version Objects
+%endif
+
+%prep
+%setup -q -n perl-%{perl_version}
+%patch1 -p1
+%ifarch %{multilib_64_archs}
+%patch3 -p1
+%endif
+%patch4 -p1
+%patch5 -p1
+%patch6 -p1
+%patch7 -p1
+%patch8 -p1
+%patch15 -p1
+%patch16 -p1
+%patch22 -p1
+%patch26 -p1
+%patch28 -p1
+%patch30 -p1
+%patch34 -p1
+%patch36 -p1
+%patch37 -p1
+%patch40 -p1
+%patch41 -p1
+%patch48 -p1
+%patch49 -p1
+%patch50 -p1
+%patch51 -p1
+%patch52 -p1
+%patch53 -p1
+%patch54 -p1
+%patch55 -p1
+%patch56 -p1
+%patch57 -p1
+%patch58 -p1
+%patch59 -p1
+%patch60 -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
+pushd cpan/Compress-Raw-Zlib
+%patch77 -p1
+%patch78 -p1
+popd
+%patch79 -p1
+%patch80 -p1
+%patch81 -p1
+%patch82 -p1
+%patch83 -p1
+%patch84 -p1
+%patch85 -p1
+%patch87 -p1
+%patch88 -p1
+%patch89 -p1
+%patch90 -p1
+%patch91 -p1
+%patch92 -p1
+%patch93 -p1
+%patch94 -p1
+%patch95 -p1
+%patch97 -p1
+%patch98 -p1
+%patch99 -p1
+%patch100 -p1
+%patch101 -p1
+%patch102 -p1
+%patch103 -p1
+%patch105 -p1
+%patch106 -p1
+%patch107 -p1
+%patch108 -p1
+%patch109 -p1
+%patch110 -p1
+%patch111 -p1
+%patch112 -p1
+%patch113 -p1
+%patch114 -p1
+%patch115 -p1
+%patch116 -p1
+%patch117 -p1
+%patch118 -p1
+%patch119 -p1
+%patch120 -p1
+%patch121 -p1
+%patch122 -p1
+%patch123 -p1
+%patch124 -p1
+%patch125 -p1
+%patch126 -p1
+%patch127 -p1
+%patch128 -p1
+%patch129 -p1
+%patch130 -p1
+%patch131 -p1
+%patch132 -p1
+%patch133 -p1
+%patch200 -p1
+%patch201 -p1
+
+%if !%{defined perl_bootstrap}
+# Local patch tracking
+perl -x patchlevel.h \
+    'Fedora Patch1: Removes date check, Fedora/RHEL specific' \
+%ifarch %{multilib_64_archs} \
+    'Fedora Patch3: support for libdir64' \
+%endif \
+    'Fedora Patch4: use libresolv instead of libbind' \
+    'Fedora Patch5: USE_MM_LD_RUN_PATH' \
+    'Fedora Patch6: Provide MM::maybe_command independently (bug #1129443)' \
+    'Fedora Patch7: Dont run one io test due to random builder failures' \
+    'Fedora Patch15: Define SONAME for libperl.so' \
+    'Fedora Patch16: Install libperl.so to -Dshrpdir value' \
+    'Fedora Patch22: Document Math::BigInt::CalcEmu requires Math::BigInt (CPAN RT#85015)' \
+    'Fedora Patch26: Make *DBM_File desctructors thread-safe (RT#61912)' \
+    'Fedora Patch27: Make PadlistNAMES() lvalue again (CPAN RT#101063)' \
+    'Fedora Patch28: Make magic vtable writable as a work-around for Coro (CPAN RT#101063)' \
+    'Fedora Patch30: Replace EU::MakeMaker dependency with EU::MM::Utils in IPC::Cmd (bug #1129443)' \
+    'Fedora Patch34: Do not use unitialized memory in $h{\const} warnings (RT#128189)' \
+    'Fedora Patch36: Do not treat %: as a stash (RT#128238)' \
+    'Fedora Patch37: Do not crash when inserting a non-stash into a stash (RT#128238)' \
+    'Fedora Patch40: Fix a crash when vivifying a stub in a deleted package (RT#128532)' \
+    'Fedora Patch41: Fix a crash in "Subroutine redefined" warning (RT#128257)' \
+    'Fedora Petch48: Fix crash in splice (RT#129164, RT#129166, RT#129167)' \
+    'Fedora Patch49: Fix string overrun in Perl_gv_fetchmethod_pvn_flags (RT#129267)' \
+    'Fedora Patch50: Fix string overrun in Perl_gv_fetchmethod_pvn_flags (RT#129267)' \
+    'Fedora Patch51: Fix string overrun in Perl_gv_fetchmethod_pvn_flags (RT#129267)' \
+    'Fedora Patch52: Fix string overrun in Perl_gv_fetchmethod_pvn_flags (RT#129267)' \
+    'Fedora Patch53: Fix string overrun in Perl_gv_fetchmethod_pvn_flags (RT#129267)' \
+    'Fedora Patch54: Fix crash when matching UTF-8 string with non-UTF-8 substrings (RT#129350)' \
+    'Fedora Patch55: Fix parsing perl options in shell bang line (RT#129336)' \
+    'Fedora Patch56: Fix firstchar bitmap under UTF-8 with prefix optimization (RT#129950)' \
+    'Fedora Patch57: Avoid infinite loop in h2xs tool if enum and type have the same name (RT130001)' \
+    'Fedora Patch58: Fix stack handling when calling chdir without an argument (RT#129130)' \
+    'Fedora Patch59: Fix crash in Storable when deserializing malformed code reference (RT#68348, RT#130098)' \
+    'Fedora Patch60: Fix crash on explicit return from regular expression substitution (RT#130188)' \
+    'Fedora Patch61: Fix assigning split() return values to an array' \
+    'Fedora Patch62: Fix const correctness in hv_func.h (RT#130169)' \
+    'Fedora Patch63: Fix a crash in optimized evaluation of "or ((0) x 0))" (RT#130247)' \
+    'Fedora Patch64: Fix a memory leak in IO::Poll (RT#129788)' \
+    'Fedora Patch65: Fix regular expression matching (RT#130307)' \
+    'Fedora Patch66: Fix a buffer overflow in split in scalar context (RT#130262)' \
+    'Fedora Patch67: Fix a heap overflow with pack "W" (RT129149)' \
+    'Fedora Patch69: Fix a use-after-free when processing scalar variables in forms (RT#129125)' \
+    'Fedora Patch70: Fix a heap overflow if invalid octal or hexadecimal number is used in transliteration expression (RT#129342)' \
+    'Fedora Patch71: Fix out-of-bound read in case of unmatched regexp backreference (RT#129377)' \
+    'Fedora Patch72: Fix UTF-8 string handling in & operator (RT#129287)' \
+    'Fedora Patch73: Fix recreation of *:: (RT#129869)' \
+    'Fedora Patch74: Fix a memory leak in B::RHE->HASH method (RT#130504)' \
+    'Fedora Patch75: Fix parsing goto statements in multicalled subroutine (RT#113938)' \
+    'Fedora Patch76: Fix a heap overlow in parsing $# (RT#129274)' \
+    'Fedora Patch77: Adapt to zlib-1.2.11 (CPAN RT#119762)' \
+    'Fedora Patch78: Fix compiler fatal warnings in Compress-Raw-Zlib (CPAN RT#120272)' \
+    'Fedora Patch79: Fix a crash when compiling a regexp with impossible quantifiers (RT#130561)' \
+    'Fedora Patch82: Fix a buffer overrun with format and "use bytes" (RT#130703)' \
+    'Fedora Patch83: Fix a buffer overflow when studying some regexps repeatedly (RT#129281, RT#129061)' \
+    'Fedora Patch85: Fix a heap buffer overflow when evaluating regexps with embedded code blocks from more than one source, RT#129881' \
+    'Fedora Patch87: Fix a null-pointer dereference on malformed code (RT#130815)' \
+    'Fedora Patch88: Fix an use-after-free in substr() that modifies a magic variable (RT#129340)' \
+    'Fedora Patch89: Fix a memory leak leak in Perl_reg_named_buff_fetch() (RT#130822)' \
+    'Fedora Patch90: Fix an invalid memory read when parsing a loop variable (RT#130814)' \
+    'Fedora Patch94: Fix a heap-use-after-free in four-arguments substr call (RT#130624)' \
+    'Fedora Patch95: Make File::Glob more resistant against degenerative matching (RT#131211)' \
+    'Fedora Patch98: Fix a crash when calling a subroutine from a stash (RT#131085)' \
+    'Fedora Patch99: Fix an improper cast of a negative integer to an unsigned 8-bit type (RT#131190)' \
+    'Fedora Patch100: Fix cloning :via handles on thread creation (RT#131221)' \
+    'Fedora Patch102: Fix glob UTF-8 flag on a glob reassignment (RT#131263)' \
+    'Fedora Patch103: Fix a buffer overflow in my_atof2() (RT#131526)' \
+    'Fedora Patch105: Fix handling backslashes in PATH environment variable when executing "perl -S" (RT#129183)' \
+    'Fedora Patch106: Fix a conditional jump on uninitilized memory in re_intuit_start() (RT#131575)' \
+    'Fedora Patch107: Fix spurious "Assuming NOT a POSIX class" warning (RT#131522)' \
+    'Fedora Patch109: Fix handling attribute specification on our variables (RT#131597)' \
+    'Fedora Patch110: Fix a crash when a match for inversely repeated group fails (RT#132017)' \
+    'Fedora Patch111: Fix an overflow when parsing a character range with no preceding character (RT#132245)' \
+    'Fedora Patch112: Fix walking symbol table for ISA in Carp' \
+    'Fedora Patch113: Fix handling file names with null bytes in stat and lstat functions (RT#131895)' \
+    'Fedora Patch114: Fix a crash when untying an object witout a stash' \
+    'Fedora Patch115: Fix deparsing of transliterations with unprintable characters (RT#132405)' \
+    'Fedora Patch116: Fix error reporting on do() on a directory (RT#125774)' \
+    'Fedora Patch117: Fix stack manipulation when a lexical subroutine is defined in a do block in a member of an iteration list (RT#132442)' \
+    'Fedora Patch118: Fix setting $! when statting a closed filehandle (RT#108288)' \
+    'Fedora Patch119: Fix tainting of s/// with overloaded replacement (RT#115266)' \
+    'Fedora Patch120: Expand system() arguments before a fork (RT#121105)' \
+    'Fedora Patch123: Avoid undefined behavior when copying memory in Glob and pp_caller (RT#131746)' \
+    'Fedora Patch125: Fix compatibility with libxcrypt (bug #1536752)' \
+    'Fedora Patch126: Link XS modules to pthread library to fix linking with -z defs' \
+    'Fedora Patch127: Fix parsing braced subscript after parentheses (RT#8045)' \
+    'Fedora Patch128: Adjust tests to gdbm-1.15 (RT#133295)' \
+    'Fedora Patch129: Pass the correct CFLAGS to dtrace' \
+    '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}
+%endif
+
+#copy the example script
+cp -a %{SOURCE5} .
+
+#copy Pod-Html license clarification
+cp %{SOURCE6} .
+
+#
+# Candidates for doc recoding (need case by case review):
+# find . -name "*.pod" -o -name "README*" -o -name "*.pm" | xargs file -i | grep charset= | grep -v '\(us-ascii\|utf-8\)'
+recode()
+{
+        iconv -f "${2:-iso-8859-1}" -t utf-8 < "$1" > "${1}_"
+        touch -r "$1" "${1}_"
+        mv -f "${1}_" "$1"
+}
+# TODO iconv fail on this one
+##recode README.tw big5
+#recode pod/perlebcdic.pod
+#recode pod/perlhack.pod
+#recode pod/perlhist.pod
+#recode pod/perlthrtut.pod
+#recode AUTHORS
+
+find . -name \*.orig -exec rm -fv {} \;
+
+# Configure Compress::Zlib to use system zlib
+sed -i 's|BUILD_ZLIB      = True|BUILD_ZLIB      = False|
+    s|INCLUDE         = ./zlib-src|INCLUDE         = %{_includedir}|
+    s|LIB             = ./zlib-src|LIB             = %{_libdir}|' \
+    cpan/Compress-Raw-Zlib/config.in
+
+# Ensure that we never accidentally bundle zlib or bzip2
+rm -rf cpan/Compress-Raw-Zlib/zlib-src
+rm -rf cpan/Compress-Raw-Bzip2/bzip2-src
+sed -i '/\(bzip2\|zlib\)-src/d' MANIFEST
+
+%if !%{with gdbm}
+# Do not install anything requiring NDBM_File if NDBM is not available.
+rm -rf 'cpan/Memoize/Memoize/NDBM_File.pm'
+sed -i '\|cpan/Memoize/Memoize/NDBM_File.pm|d' MANIFEST
+%endif
+
+
+%build
+echo "RPM Build arch: %{_arch}"
+
+# use "lib", not %%{_lib}, for privlib, sitelib, and vendorlib
+# To build production version, we would need -DDEBUGGING=-g
+
+# Perl INC path (perl -V) in search order:
+# - /usr/local/share/perl5            -- for CPAN     (site lib)
+# - /usr/local/lib[64]/perl5          -- for CPAN     (site arch)
+# - /usr/share/perl5/vendor_perl      -- 3rd party    (vendor lib)
+# - /usr/lib[64]/perl5/vendor_perl    -- 3rd party    (vendor arch)
+# - /usr/share/perl5                  -- Fedora       (priv lib)
+# - /usr/lib[64]/perl5                -- Fedora       (arch lib)
+
+%global privlib     %{_prefix}/share/perl5
+%global archlib     %{_libdir}/perl5
+
+%global perl_vendorlib  %{privlib}/vendor_perl
+%global perl_vendorarch %{archlib}/vendor_perl
+
+# ldflags is not used when linking XS modules.
+# Only ldflags is used when linking miniperl.
+# Only ccflags and ldflags are used for Configure's compiler checks.
+# Set optimize=none to prevent from injecting upstream's value.
+/bin/sh Configure -des \
+        -Doptimize="none" \
+        -Dccflags="$RPM_OPT_FLAGS" \
+        -Dldflags="$RPM_LD_FLAGS" \
+        -Dccdlflags="-Wl,--enable-new-dtags $RPM_LD_FLAGS" \
+        -Dlddlflags="-shared $RPM_LD_FLAGS" \
+        -Dshrpdir="%{_libdir}" \
+        -DDEBUGGING=-g \
+        -Dversion=%{perl_version} \
+        -Dmyhostname=localhost \
+        -Dperladmin=root@localhost \
+        -Dcc='%{__cc}' \
+        -Dcf_by='Red Hat, Inc.' \
+        -Dprefix=%{_prefix} \
+%if %{without perl_enables_groff}
+        -Dman1dir="%{_mandir}/man1" \
+        -Dman3dir="%{_mandir}/man3" \
+%endif
+        -Dvendorprefix=%{_prefix} \
+        -Dsiteprefix=%{_prefix}/local \
+        -Dsitelib="%{_prefix}/local/share/perl5" \
+        -Dsitearch="%{_prefix}/local/%{_lib}/perl5" \
+        -Dprivlib="%{privlib}" \
+        -Dvendorlib="%{perl_vendorlib}" \
+        -Darchlib="%{archlib}" \
+        -Dvendorarch="%{perl_vendorarch}" \
+        -Darchname=%{perl_archname} \
+%ifarch %{multilib_64_archs}
+        -Dlibpth="/usr/local/lib64 /lib64 %{_prefix}/lib64" \
+%endif
+%ifarch sparc sparcv9
+        -Ud_longdbl \
+%endif
+        -Duseshrplib \
+        -Dusethreads \
+        -Duseithreads \
+%if %{with perl_enables_systemtap}
+        -Dusedtrace='/usr/bin/dtrace' \
+%else
+        -Uusedtrace \
+%endif
+        -Duselargefiles \
+        -Dd_semctl_semun \
+        -Di_db \
+%if %{with gdbm}
+        -Ui_ndbm \
+        -Di_gdbm \
+%endif
+        -Di_shadow \
+        -Di_syslog \
+        -Dman3ext=3pm \
+        -Duseperlio \
+        -Dinstallusrbinperl=n \
+        -Ubincompat5005 \
+        -Uversiononly \
+        -Dpager='/usr/bin/less -isr' \
+        -Dd_gethostent_r_proto -Ud_endhostent_r_proto -Ud_sethostent_r_proto \
+        -Ud_endprotoent_r_proto -Ud_setprotoent_r_proto \
+        -Ud_endservent_r_proto -Ud_setservent_r_proto \
+        -Dscriptdir='%{_bindir}' \
+        -Dusesitecustomize \
+        -Duse64bitint1
+
+# -Duseshrplib creates libperl.so, -Ubincompat5005 help create DSO -> libperl.so
+
+BUILD_BZIP2=0
+BZIP2_LIB=%{_libdir}
+export BUILD_BZIP2 BZIP2_LIB
+
+# Prepapre a symlink from proper DSO name to libperl.so now so that new perl
+# can be executed from make.
+%global soname libperl.so.%(echo '%{perl_version}' | sed 's/^\\([^.]*\\.[^.]*\\).*/\\1/')
+test -L %soname || ln -s libperl.so %soname
+
+%ifarch sparc64 %{arm}
+make
+%else
+make %{?_smp_mflags}
+%endif
+
+%install
+make install DESTDIR=$RPM_BUILD_ROOT
+
+%global build_archlib $RPM_BUILD_ROOT%{archlib}
+%global build_privlib $RPM_BUILD_ROOT%{privlib}
+%global build_bindir  $RPM_BUILD_ROOT%{_bindir}
+%global new_perl LD_PRELOAD="%{build_archlib}/CORE/libperl.so" \\\
+    LD_LIBRARY_PATH="%{build_archlib}/CORE" \\\
+    PERL5LIB="%{build_archlib}:%{build_privlib}" \\\
+    %{build_bindir}/perl
+
+# Make proper DSO names, move libperl to standard path.
+mv "%{build_archlib}/CORE/libperl.so" \
+    "$RPM_BUILD_ROOT%{_libdir}/libperl.so.%{perl_version}"
+ln -s "libperl.so.%{perl_version}" "$RPM_BUILD_ROOT%{_libdir}/%{soname}"
+ln -s "libperl.so.%{perl_version}" "$RPM_BUILD_ROOT%{_libdir}/libperl.so"
+# XXX: Keep symlink from original location because various code glues
+# $archlib/CORE/$libperl to get the DSO.
+ln -s "../../libperl.so.%{perl_version}" "%{build_archlib}/CORE/libperl.so"
+# XXX: Remove the soname named file from CORE directory that was created as
+# a symlink in build section and installed as a regular file by perl build
+# system.
+rm -f "%{build_archlib}/CORE/%{soname}"
+
+install -p -m 755 utils/pl2pm %{build_bindir}/pl2pm
+
+for i in asm/termios.h syscall.h syslimits.h syslog.h \
+    sys/ioctl.h sys/socket.h sys/time.h wait.h
+do
+    %{new_perl} %{build_bindir}/h2ph -a -d %{build_archlib} $i || true
+done
+
+# vendor directories (in this case for third party rpms)
+# perl doesn't create the auto subdirectory, but modules put things in it,
+# so we need to own it.
+
+mkdir -p $RPM_BUILD_ROOT%{perl_vendorarch}/auto
+mkdir -p $RPM_BUILD_ROOT%{perl_vendorlib}
+
+#
+# perl RPM macros
+#
+mkdir -p ${RPM_BUILD_ROOT}%{_rpmconfigdir}/macros.d
+install -p -m 644 %{SOURCE3} ${RPM_BUILD_ROOT}%{_rpmconfigdir}/macros.d/
+
+#
+# Core modules removal
+#
+# Dual-living binaries clashes on debuginfo files between perl and standalone
+# packages. Excluding is not enough, we need to remove them. This is
+# a work-around for rpmbuild bug #878863.
+find $RPM_BUILD_ROOT -type f -name '*.bs' -empty -delete
+chmod -R u+w $RPM_BUILD_ROOT/*
+
+# miniperl? As an interpreter? How odd. Anyway, a symlink does it:
+rm %{build_privlib}/ExtUtils/xsubpp
+ln -s ../../../bin/xsubpp %{build_privlib}/ExtUtils/
+
+# Don't need the .packlist
+rm %{build_archlib}/.packlist
+
+# Do not distribute File::Spec::VMS as it works on VMS only (bug #973713)
+# We cannot remove it in %%prep because dist/Cwd/t/Spec.t test needs it.
+rm %{build_archlib}/File/Spec/VMS.pm
+rm $RPM_BUILD_ROOT%{_mandir}/man3/File::Spec::VMS.3*
+
+# Fix some manpages to be UTF-8
+mkdir -p $RPM_BUILD_ROOT%{_mandir}/man1/
+pushd $RPM_BUILD_ROOT%{_mandir}/man1/
+  for i in perl588delta.1 perldelta.1 ; do
+    iconv -f MS-ANSI -t UTF-8 $i --output new-$i
+    rm $i
+    mv new-$i $i
+  done
+popd
+
+# for now, remove Bzip2:
+# Why? Now is missing Bzip2 files and provides
+##find $RPM_BUILD_ROOT -name Bzip2 | xargs rm -r
+##find $RPM_BUILD_ROOT -name '*B*zip2*'| xargs rm
+
+# tests -- FIXME need to validate that this all works as expected
+mkdir -p %{buildroot}%{perl5_testdir}/perl-tests
+
+# "core"
+tar -cf - t/ | ( cd %{buildroot}%{perl5_testdir}/perl-tests && tar -xf - )
+
+# "dual-lifed"
+for dir in `find ext/ -type d -name t -maxdepth 2` ; do
+
+    tar -cf - $dir | ( cd %{buildroot}%{perl5_testdir}/perl-tests/t && tar -xf - )
+done
+
+# Normalize shell bangs in tests.
+# brp-mangle-shebangs executed by rpm-build chokes on t/TEST.
+%{new_perl} -MConfig -i -pn \
+    -e 's"\A#!(?:perl|\./perl|/usr/bin/perl|/usr/bin/env perl)\b"$Config{startperl}"' \
+    $(find %{buildroot}%{perl5_testdir}/perl-tests -type f)
+
+%if %{with perl_enables_systemtap}
+# Systemtap tapset install
+mkdir -p %{buildroot}%{tapsetdir}
+%ifarch %{multilib_64_archs}
+%global libperl_stp libperl%{perl_version}-64.stp
+%else
+%global libperl_stp libperl%{perl_version}-32.stp
+%endif
+
+sed \
+  -e "s|LIBRARY_PATH|%{_libdir}/%{soname}|" \
+  %{SOURCE4} \
+  > %{buildroot}%{tapsetdir}/%{libperl_stp}
+%endif
+
+# TODO: Canonicalize test files (rewrite intrerpreter path, fix permissions)
+# XXX: We cannot rewrite ./perl before %%check phase. Otherwise the test
+# would run against system perl at build-time.
+# See __spec_check_pre global macro in macros.perl.
+#T_FILES=`find %%{buildroot}%%{perl5_testdir} -type f -name '*.t'`
+#%%fix_shbang_line $T_FILES
+#%%{__chmod} +x $T_FILES
+#%%{_fixperms} %%{buildroot}%%{perl5_testdir}
+#
+# lib/perl5db.t will fail if Term::ReadLine::Gnu is available
+%check
+%if %{with test}
+%{new_perl} -I/lib regen/lib_cleanup.pl
+pushd t
+%{new_perl} -I../lib porting/customized.t --regen
+popd
+%if %{parallel_tests}
+    JOBS=$(printf '%%s' "%{?_smp_mflags}" | sed 's/.*-j\([0-9][0-9]*\).*/\1/')
+    LC_ALL=C TEST_JOBS=$JOBS make test_harness
+%else
+    LC_ALL=C make test
+%endif
+%endif
+
+%ldconfig_scriptlets libs
+
+%files
+%{_mandir}/man1/*.1*
+%{_mandir}/man3/*.3*
+%{_bindir}/*
+%{archlib}/*
+%{privlib}/*
+
+
+# libs
+%exclude %dir %{archlib}
+%exclude %dir %{archlib}/auto
+%exclude %{archlib}/auto/re
+%exclude %dir %{archlib}/CORE
+%exclude %{archlib}/CORE/libperl.so
+%exclude %{archlib}/re.pm
+%exclude %{_libdir}/libperl.so.*
+%exclude %dir %{perl_vendorarch}
+%exclude %dir %{perl_vendorarch}/auto
+%exclude %dir %{privlib}
+%exclude %{privlib}/integer.pm
+%exclude %{privlib}/strict.pm
+%exclude %{privlib}/unicore
+%exclude %{privlib}/utf8.pm
+%exclude %{privlib}/utf8_heavy.pl
+%exclude %{privlib}/warnings.pm
+%exclude %{privlib}/XSLoader.pm
+%exclude %dir %{perl_vendorlib}
+%exclude %{_mandir}/man3/integer.*
+%exclude %{_mandir}/man3/re.*
+%exclude %{_mandir}/man3/strict.*
+%exclude %{_mandir}/man3/utf8.*
+%exclude %{_mandir}/man3/warnings.*
+%exclude %{_mandir}/man3/XSLoader.*
+
+# devel
+%exclude %{_bindir}/h2xs
+%exclude %{_mandir}/man1/h2xs*
+%exclude %{_bindir}/perlivp
+%exclude %{_mandir}/man1/perlivp*
+%exclude %{archlib}/CORE/*.h
+%exclude %{_libdir}/libperl.so
+%exclude %{_mandir}/man1/perlxs*
+%if %{with perl_enables_systemtap}
+%exclude %dir %{_datadir}/systemtap
+%exclude %dir %{_datadir}/systemtap/tapset
+%endif
+
+# utils
+%exclude %{_bindir}/c2ph
+%exclude %{_bindir}/h2ph
+%exclude %{_bindir}/perlbug
+%exclude %{_bindir}/perlthanks
+%exclude %{_bindir}/pl2pm
+%exclude %{_bindir}/pstruct
+%exclude %{_bindir}/splain
+%exclude %{privlib}/pod/perlutil.pod
+%exclude %{_mandir}/man1/c2ph.*
+%exclude %{_mandir}/man1/h2ph.*
+%exclude %{_mandir}/man1/perlbug.*
+%exclude %{_mandir}/man1/perlthanks.*
+%exclude %{_mandir}/man1/perlutil.*
+%exclude %{_mandir}/man1/pl2pm.*
+%exclude %{_mandir}/man1/pstruct.*
+%exclude %{_mandir}/man1/splain.*
+
+# Archive-Tar
+%exclude %{_bindir}/ptar
+%exclude %{_bindir}/ptardiff
+%exclude %{_bindir}/ptargrep
+%exclude %dir %{privlib}/Archive
+%exclude %{privlib}/Archive/Tar
+%exclude %{privlib}/Archive/Tar.pm
+%exclude %{_mandir}/man1/ptar.1*
+%exclude %{_mandir}/man1/ptardiff.1*
+%exclude %{_mandir}/man1/ptargrep.1*
+%exclude %{_mandir}/man3/Archive::Tar*
+
+# Attribute-Handlers
+%exclude %{privlib}/Attribute
+%exclude %{_mandir}/man3/Attribute::Handlers.*
+
+# autodie
+%exclude %{privlib}/autodie/
+%exclude %{privlib}/autodie.pm
+%exclude %{privlib}/Fatal.pm
+%exclude %{_mandir}/man3/autodie.3*
+%exclude %{_mandir}/man3/autodie::*
+%exclude %{_mandir}/man3/Fatal.3*
+
+# B-Debug
+%exclude %{privlib}/B/Debug.pm
+%exclude %{_mandir}/man3/B::Debug.3*
+
+# bignum
+%exclude %{privlib}/bigint.pm
+%exclude %{privlib}/bignum.pm
+%exclude %{privlib}/bigrat.pm
+%exclude %{privlib}/Math/BigFloat
+%exclude %{privlib}/Math/BigInt/Trace.pm
+%exclude %{_mandir}/man3/bigint.*
+%exclude %{_mandir}/man3/bignum.*
+%exclude %{_mandir}/man3/bigrat.*
+
+# Carp
+%exclude %{privlib}/Carp
+%exclude %{privlib}/Carp.*
+%exclude %{_mandir}/man3/Carp.*
+
+# Config-Perl-V
+%exclude %{privlib}/Config/Perl
+%exclude %{_mandir}/man3/Config::Perl::V.*
+
+# constant
+%exclude %{privlib}/constant.pm
+%exclude %{_mandir}/man3/constant.3*
+
+# CPAN
+%exclude %{_bindir}/cpan
+%exclude %dir %{privlib}/App
+%exclude %{privlib}/App/Cpan.pm
+%exclude %{privlib}/CPAN
+%exclude %{privlib}/CPAN.pm
+%exclude %{_mandir}/man1/cpan.1*
+%exclude %{_mandir}/man3/App::Cpan.*
+%exclude %{_mandir}/man3/CPAN.*
+%exclude %{_mandir}/man3/CPAN:*
+
+# CPAN-Meta
+%exclude %dir %{privlib}/CPAN
+%exclude %{privlib}/CPAN/Meta.pm
+%exclude %dir %{privlib}/CPAN/Meta
+%exclude %{privlib}/CPAN/Meta/Converter.pm
+%exclude %{privlib}/CPAN/Meta/Feature.pm
+%exclude %dir %{privlib}/CPAN/Meta/History
+%exclude %{privlib}/CPAN/Meta/History.pm
+%exclude %{privlib}/CPAN/Meta/Merge.pm
+%exclude %{privlib}/CPAN/Meta/Prereqs.pm
+%exclude %{privlib}/CPAN/Meta/Spec.pm
+%exclude %{privlib}/CPAN/Meta/Validator.pm
+%exclude %{_mandir}/man3/CPAN::Meta*
+
+# CPAN-Meta-Requirements
+%exclude %dir %{privlib}/CPAN
+%exclude %dir %{privlib}/CPAN/Meta
+%exclude %{privlib}/CPAN/Meta/Requirements.pm
+%exclude %{_mandir}/man3/CPAN::Meta::Requirements.3*
+
+# CPAN-Meta-YAML
+%exclude %dir %{privlib}/CPAN
+%exclude %dir %{privlib}/CPAN/Meta
+%exclude %{privlib}/CPAN/Meta/YAML.pm
+%exclude %{_mandir}/man3/CPAN::Meta::YAML*
+
+# Parse-CPAN-Meta
+%exclude %dir %{privlib}/Parse
+%exclude %dir %{privlib}/Parse/CPAN
+%exclude %{privlib}/Parse/CPAN/Meta.pm
+%exclude %{_mandir}/man3/Parse::CPAN::Meta.3*
+
+# Compress-Raw-Bzip2
+%exclude %dir %{archlib}/Compress
+%exclude %dir %{archlib}/Compress/Raw
+%exclude %{archlib}/Compress/Raw/Bzip2.pm
+%exclude %dir %{archlib}/auto/Compress
+%exclude %dir %{archlib}/auto/Compress/Raw
+%exclude %{archlib}/auto/Compress/Raw/Bzip2
+%exclude %{_mandir}/man3/Compress::Raw::Bzip2*
+
+# Compress-Raw-Zlib
+%exclude %dir %{archlib}/Compress
+%exclude %dir %{archlib}/Compress/Raw
+%exclude %{archlib}/Compress/Raw/Zlib.pm
+%exclude %dir %{archlib}/auto/Compress
+%exclude %dir %{archlib}/auto/Compress/Raw
+%exclude %{archlib}/auto/Compress/Raw/Zlib
+%exclude %{_mandir}/man3/Compress::Raw::Zlib*
+
+# Data-Dumper
+%exclude %dir %{archlib}/auto/Data
+%exclude %dir %{archlib}/auto/Data/Dumper
+%exclude %{archlib}/auto/Data/Dumper/Dumper.so
+%exclude %dir %{archlib}/Data
+%exclude %{archlib}/Data/Dumper.pm
+%exclude %{_mandir}/man3/Data::Dumper.3*
+
+# DB_File
+%exclude %{archlib}/DB_File.pm
+%exclude %dir %{archlib}/auto/DB_File
+%exclude %{archlib}/auto/DB_File/DB_File.so
+%exclude %{_mandir}/man3/DB_File*
+
+# Devel-Peek
+%dir %exclude %{archlib}/Devel
+%exclude %{archlib}/Devel/Peek.pm
+%dir %exclude %{archlib}/auto/Devel
+%exclude %{archlib}/auto/Devel/Peek
+%exclude %{_mandir}/man3/Devel::Peek.*
+
+# Devel-PPPort
+%exclude %{archlib}/Devel/PPPort.pm
+%exclude %{_mandir}/man3/Devel::PPPort.3*
+
+# Devel-SelfStubber
+%exclude %dir %{privlib}/Devel
+%exclude %{privlib}/Devel/SelfStubber.pm
+%exclude %{_mandir}/man3/Devel::SelfStubber.*
+
+# Digest
+%exclude %{privlib}/Digest.pm
+%exclude %dir %{privlib}/Digest
+%exclude %{privlib}/Digest/base.pm
+%exclude %{privlib}/Digest/file.pm
+%exclude %{_mandir}/man3/Digest.3*
+%exclude %{_mandir}/man3/Digest::base.3*
+%exclude %{_mandir}/man3/Digest::file.3*
+
+# Digest-MD5
+%exclude %dir %{archlib}/Digest
+%exclude %{archlib}/Digest/MD5.pm
+%exclude %dir %{archlib}/auto/Digest
+%exclude %{archlib}/auto/Digest/MD5
+%exclude %{_mandir}/man3/Digest::MD5.3*
+
+# Digest-SHA
+%exclude %{_bindir}/shasum
+%exclude %dir %{archlib}/Digest
+%exclude %{archlib}/Digest/SHA.pm
+%exclude %dir %{archlib}/auto/Digest
+%exclude %{archlib}/auto/Digest/SHA
+%exclude %{_mandir}/man1/shasum.1*
+%exclude %{_mandir}/man3/Digest::SHA.3*
+
+# Encode
+%exclude %{_bindir}/encguess
+%exclude %{_bindir}/piconv
+%exclude %{archlib}/Encode*
+%exclude %{archlib}/auto/Encode*
+%exclude %{privlib}/Encode
+%exclude %{_mandir}/man1/encguess.1*
+%exclude %{_mandir}/man1/piconv.1*
+%exclude %{_mandir}/man3/Encode*.3*
+
+# encoding
+%exclude %{archlib}/encoding.pm
+%exclude %{_mandir}/man3/encoding.3*
+
+# Encode-devel
+%exclude %{_bindir}/enc2xs
+%exclude %dir %{privlib}/Encode
+%exclude %{privlib}/Encode/*.e2x
+%exclude %{privlib}/Encode/encode.h
+%exclude %{_mandir}/man1/enc2xs.1*
+
+# Env
+%exclude %{privlib}/Env.pm
+%exclude %{_mandir}/man3/Env.3*
+
+# Errno
+%exclude %{archlib}/Errno.pm
+%exclude %{_mandir}/man3/Errno.*
+
+# Exporter
+%exclude %{privlib}/Exporter*
+%exclude %{_mandir}/man3/Exporter*
+
+# experimental
+%exclude %{privlib}/experimental*
+%exclude %{_mandir}/man3/experimental*
+
+# ExtUtils-CBuilder
+%exclude %{privlib}/ExtUtils/CBuilder
+%exclude %{privlib}/ExtUtils/CBuilder.pm
+%exclude %{_mandir}/man3/ExtUtils::CBuilder*
+
+# ExtUtils-Command
+%exclude %{privlib}/ExtUtils/Command.pm
+%exclude %{_mandir}/man3/ExtUtils::Command.*
+
+# ExtUtils-Embed
+%exclude %{privlib}/ExtUtils/Embed.pm
+%exclude %{_mandir}/man3/ExtUtils::Embed*
+
+# ExtUtils-Install
+%exclude %{privlib}/ExtUtils/Install.pm
+%exclude %{privlib}/ExtUtils/Installed.pm
+%exclude %{privlib}/ExtUtils/Packlist.pm
+%exclude %{_mandir}/man3/ExtUtils::Install.3*
+%exclude %{_mandir}/man3/ExtUtils::Installed.3*
+%exclude %{_mandir}/man3/ExtUtils::Packlist.3*
+
+# ExtUtils-Manifest
+%exclude %{privlib}/ExtUtils/Manifest.pm
+%exclude %{privlib}/ExtUtils/MANIFEST.SKIP
+%exclude %{_mandir}/man3/ExtUtils::Manifest.3*
+
+# ExtUtils-MakeMaker
+%exclude %{_bindir}/instmodsh
+%exclude %{privlib}/ExtUtils/Command
+%exclude %{privlib}/ExtUtils/Liblist
+%exclude %{privlib}/ExtUtils/Liblist.pm
+%exclude %{privlib}/ExtUtils/MakeMaker
+%exclude %{privlib}/ExtUtils/MakeMaker.pm
+%exclude %{privlib}/ExtUtils/MM.pm
+%exclude %{privlib}/ExtUtils/MM_*.pm
+%exclude %{privlib}/ExtUtils/MY.pm
+%exclude %{privlib}/ExtUtils/Mkbootstrap.pm
+%exclude %{privlib}/ExtUtils/Mksymlists.pm
+%exclude %{privlib}/ExtUtils/testlib.pm
+%exclude %{_mandir}/man1/instmodsh.1*
+%exclude %{_mandir}/man3/ExtUtils::Command::MM*
+%exclude %{_mandir}/man3/ExtUtils::Liblist.3*
+%exclude %{_mandir}/man3/ExtUtils::MM.3*
+%exclude %{_mandir}/man3/ExtUtils::MM_*
+%exclude %{_mandir}/man3/ExtUtils::MY.3*
+%exclude %{_mandir}/man3/ExtUtils::MakeMaker*
+%exclude %{_mandir}/man3/ExtUtils::Mkbootstrap.3*
+%exclude %{_mandir}/man3/ExtUtils::Mksymlists.3*
+%exclude %{_mandir}/man3/ExtUtils::testlib.3*
+
+# ExtUtils-Miniperl
+%exclude %{privlib}/ExtUtils/Miniperl.pm
+%exclude %{_mandir}/man3/ExtUtils::Miniperl.3*
+
+# ExtUtils-MM-Utils
+%exclude %dir %{privlib}/ExtUtils/MM
+%exclude %{privlib}/ExtUtils/MM/Utils.pm
+%exclude %{_mandir}/man3/ExtUtils::MM::Utils.*
+
+# ExtUtils-ParseXS
+%exclude %dir %{privlib}/ExtUtils/ParseXS
+%exclude %{privlib}/ExtUtils/ParseXS.pm
+%exclude %{privlib}/ExtUtils/ParseXS.pod
+%exclude %{privlib}/ExtUtils/ParseXS/Constants.pm
+%exclude %{privlib}/ExtUtils/ParseXS/CountLines.pm
+%exclude %{privlib}/ExtUtils/ParseXS/Eval.pm
+%exclude %{privlib}/ExtUtils/ParseXS/Utilities.pm
+%exclude %dir %{privlib}/ExtUtils/Typemaps
+%exclude %{privlib}/ExtUtils/Typemaps.pm
+%exclude %{privlib}/ExtUtils/Typemaps/Cmd.pm
+%exclude %{privlib}/ExtUtils/Typemaps/InputMap.pm
+%exclude %{privlib}/ExtUtils/Typemaps/OutputMap.pm
+%exclude %{privlib}/ExtUtils/Typemaps/Type.pm
+%exclude %{privlib}/ExtUtils/xsubpp
+%exclude %{_bindir}/xsubpp
+%exclude %{_mandir}/man1/xsubpp*
+%exclude %{_mandir}/man3/ExtUtils::ParseXS.3*
+%exclude %{_mandir}/man3/ExtUtils::ParseXS::Constants.3*
+%exclude %{_mandir}/man3/ExtUtils::ParseXS::Eval.3*
+%exclude %{_mandir}/man3/ExtUtils::ParseXS::Utilities.3*
+%exclude %{_mandir}/man3/ExtUtils::Typemaps.3*
+%exclude %{_mandir}/man3/ExtUtils::Typemaps::Cmd.3*
+%exclude %{_mandir}/man3/ExtUtils::Typemaps::InputMap.3*
+%exclude %{_mandir}/man3/ExtUtils::Typemaps::OutputMap.3*
+%exclude %{_mandir}/man3/ExtUtils::Typemaps::Type.3*
+
+# File-Fetch
+%exclude %{privlib}/File/Fetch.pm
+%exclude %{_mandir}/man3/File::Fetch.3*
+
+# File-Path
+%exclude %{privlib}/File/Path.pm
+%exclude %{_mandir}/man3/File::Path.3*
+
+# File-Temp
+%exclude %{privlib}/File/Temp.pm
+%exclude %{_mandir}/man3/File::Temp.3*
+
+# Filter
+%exclude %dir %{archlib}/auto/Filter
+%exclude %{archlib}/auto/Filter/Util
+%exclude %dir %{archlib}/Filter
+%exclude %{archlib}/Filter/Util
+%exclude %{privlib}/pod/perlfilter.pod
+%exclude %{_mandir}/man1/perlfilter.*
+%exclude %{_mandir}/man3/Filter::Util::*
+
+# Filter-Simple
+%exclude %dir %{privlib}/Filter
+%exclude %{privlib}/Filter/Simple.pm
+%exclude %{_mandir}/man3/Filter::Simple.3*
+
+# Getopt-Long
+%exclude %{privlib}/Getopt/Long.pm
+%exclude %{_mandir}/man3/Getopt::Long.3*
+
+# IO
+%exclude %dir %{archlib}/IO
+%exclude %{archlib}/IO.pm
+%exclude %{archlib}/IO/Dir.pm
+%exclude %{archlib}/IO/File.pm
+%exclude %{archlib}/IO/Handle.pm
+%exclude %{archlib}/IO/Pipe.pm
+%exclude %{archlib}/IO/Poll.pm
+%exclude %{archlib}/IO/Seekable.pm
+%exclude %{archlib}/IO/Select.pm
+%exclude %dir %{archlib}/IO/Socket
+%exclude %{archlib}/IO/Socket/INET.pm
+%exclude %{archlib}/IO/Socket/UNIX.pm
+%exclude %{archlib}/IO/Socket.pm
+%exclude %dir %{archlib}/auto/IO
+%exclude %{archlib}/auto/IO/IO.so
+%exclude %{_mandir}/man3/IO.*
+%exclude %{_mandir}/man3/IO::Dir.*
+%exclude %{_mandir}/man3/IO::File.*
+%exclude %{_mandir}/man3/IO::Handle.*
+%exclude %{_mandir}/man3/IO::Pipe.*
+%exclude %{_mandir}/man3/IO::Poll.*
+%exclude %{_mandir}/man3/IO::Seekable.*
+%exclude %{_mandir}/man3/IO::Select.*
+%exclude %{_mandir}/man3/IO::Socket::INET.*
+%exclude %{_mandir}/man3/IO::Socket::UNIX.*
+%exclude %{_mandir}/man3/IO::Socket.*
+
+# IO-Compress
+%exclude %{_bindir}/zipdetails
+%exclude %dir %{privlib}/IO
+%exclude %dir %{privlib}/IO/Compress
+%exclude %{privlib}/IO/Compress/FAQ.pod
+%exclude %{_mandir}/man1/zipdetails.*
+%exclude %{_mandir}/man3/IO::Compress::FAQ.*
+# Compress-Zlib
+%exclude %dir %{privlib}/Compress
+%exclude %{privlib}/Compress/Zlib.pm
+%exclude %{_mandir}/man3/Compress::Zlib*
+# IO-Compress-Base
+%exclude %{privlib}/File/GlobMapper.pm
+%exclude %dir %{privlib}/IO
+%exclude %dir %{privlib}/IO/Compress
+%exclude %{privlib}/IO/Compress/Base
+%exclude %{privlib}/IO/Compress/Base.pm
+%exclude %dir %{privlib}/IO/Uncompress
+%exclude %{privlib}/IO/Uncompress/AnyUncompress.pm
+%exclude %{privlib}/IO/Uncompress/Base.pm
+%exclude %{_mandir}/man3/File::GlobMapper.*
+%exclude %{_mandir}/man3/IO::Compress::Base.*
+%exclude %{_mandir}/man3/IO::Uncompress::AnyUncompress.*
+%exclude %{_mandir}/man3/IO::Uncompress::Base.*
+# IO-Compress-Zlib
+%exclude %dir %{privlib}/IO
+%exclude %dir %{privlib}/IO/Compress
+%exclude %{privlib}/IO/Compress/Adapter
+%exclude %{privlib}/IO/Compress/Deflate.pm
+%exclude %{privlib}/IO/Compress/Gzip
+%exclude %{privlib}/IO/Compress/Gzip.pm
+%exclude %{privlib}/IO/Compress/RawDeflate.pm
+%exclude %{privlib}/IO/Compress/Bzip2.pm
+%exclude %{privlib}/IO/Compress/Zip
+%exclude %{privlib}/IO/Compress/Zip.pm
+%exclude %{privlib}/IO/Compress/Zlib
+%exclude %dir %{privlib}/IO/Uncompress
+%exclude %{privlib}/IO/Uncompress/Adapter
+%exclude %{privlib}/IO/Uncompress/AnyInflate.pm
+%exclude %{privlib}/IO/Uncompress/Bunzip2.pm
+%exclude %{privlib}/IO/Uncompress/Gunzip.pm
+%exclude %{privlib}/IO/Uncompress/Inflate.pm
+%exclude %{privlib}/IO/Uncompress/RawInflate.pm
+%exclude %{privlib}/IO/Uncompress/Unzip.pm
+%exclude %{_mandir}/man3/IO::Compress::Deflate*
+%exclude %{_mandir}/man3/IO::Compress::Bzip2*
+%exclude %{_mandir}/man3/IO::Compress::Gzip*
+%exclude %{_mandir}/man3/IO::Compress::RawDeflate*
+%exclude %{_mandir}/man3/IO::Compress::Zip*
+%exclude %{_mandir}/man3/IO::Uncompress::AnyInflate*
+%exclude %{_mandir}/man3/IO::Uncompress::Bunzip2*
+%exclude %{_mandir}/man3/IO::Uncompress::Gunzip*
+%exclude %{_mandir}/man3/IO::Uncompress::Inflate*
+%exclude %{_mandir}/man3/IO::Uncompress::RawInflate*
+%exclude %{_mandir}/man3/IO::Uncompress::Unzip*
+
+# IO-Socket-IP
+%exclude %dir %{privlib}/IO
+%exclude %dir %{privlib}/IO/Socket
+%exclude %{privlib}/IO/Socket/IP.pm
+%exclude %{_mandir}/man3/IO::Socket::IP.*
+
+# IO-Zlib
+%exclude %dir %{privlib}/IO
+%exclude %{privlib}/IO/Zlib.pm
+%exclude %{_mandir}/man3/IO::Zlib.*
+
+# HTTP-Tiny
+%exclude %dir %{privlib}/HTTP
+%exclude %{privlib}/HTTP/Tiny.pm
+%exclude %{_mandir}/man3/HTTP::Tiny*
+
+# IPC-Cmd
+%exclude %{privlib}/IPC/Cmd.pm
+%exclude %{_mandir}/man3/IPC::Cmd.3*
+
+# IPC-SysV
+%exclude %{archlib}/auto/IPC
+%exclude %{archlib}/IPC/Msg.pm
+%exclude %{archlib}/IPC/Semaphore.pm
+%exclude %{archlib}/IPC/SharedMem.pm
+%exclude %{archlib}/IPC/SysV.pm
+%exclude %{_mandir}/man3/IPC::Msg.*
+%exclude %{_mandir}/man3/IPC::Semaphore.*
+%exclude %{_mandir}/man3/IPC::SharedMem.*
+%exclude %{_mandir}/man3/IPC::SysV.*
+
+# JSON-PP
+%exclude %{_bindir}/json_pp
+%exclude %dir %{privlib}/JSON
+%exclude %{privlib}/JSON/PP
+%exclude %{privlib}/JSON/PP.pm
+%exclude %{_mandir}/man1/json_pp.1*
+%exclude %{_mandir}/man3/JSON::PP.3*
+%exclude %{_mandir}/man3/JSON::PP::Boolean.3pm*
+
+# libnet
+%exclude %{privlib}/Net/Cmd.pm
+%exclude %{privlib}/Net/Config.pm
+%exclude %{privlib}/Net/Domain.pm
+%exclude %{privlib}/Net/FTP
+%exclude %{privlib}/Net/FTP.pm
+%exclude %{privlib}/Net/libnetFAQ.pod
+%exclude %{privlib}/Net/NNTP.pm
+%exclude %{privlib}/Net/Netrc.pm
+%exclude %{privlib}/Net/POP3.pm
+%exclude %{privlib}/Net/SMTP.pm
+%exclude %{privlib}/Net/Time.pm
+%exclude %{_mandir}/man3/Net::Cmd.*
+%exclude %{_mandir}/man3/Net::Config.*
+%exclude %{_mandir}/man3/Net::Domain.*
+%exclude %{_mandir}/man3/Net::FTP.*
+%exclude %{_mandir}/man3/Net::libnetFAQ.*
+%exclude %{_mandir}/man3/Net::NNTP.*
+%exclude %{_mandir}/man3/Net::Netrc.*
+%exclude %{_mandir}/man3/Net::POP3.*
+%exclude %{_mandir}/man3/Net::SMTP.*
+%exclude %{_mandir}/man3/Net::Time.*
+
+# libnetcfg
+%exclude %{_bindir}/libnetcfg
+%exclude %{_mandir}/man1/libnetcfg*
+
+# Locale-Codes
+%exclude %dir %{privlib}/Locale
+%exclude %{privlib}/Locale/Codes
+%exclude %{privlib}/Locale/Codes.*
+%exclude %{privlib}/Locale/Country.*
+%exclude %{privlib}/Locale/Currency.*
+%exclude %{privlib}/Locale/Language.*
+%exclude %{privlib}/Locale/Script.*
+%exclude %{_mandir}/man3/Locale::Codes::*
+%exclude %{_mandir}/man3/Locale::Codes.*
+%exclude %{_mandir}/man3/Locale::Country.*
+%exclude %{_mandir}/man3/Locale::Currency.*
+%exclude %{_mandir}/man3/Locale::Language.*
+%exclude %{_mandir}/man3/Locale::Script.*
+
+# Locale-Maketext
+%exclude %dir %{privlib}/Locale
+%exclude %dir %{privlib}/Locale/Maketext
+%exclude %{privlib}/Locale/Maketext.*
+%exclude %{privlib}/Locale/Maketext/Cookbook.*
+%exclude %{privlib}/Locale/Maketext/Guts.*
+%exclude %{privlib}/Locale/Maketext/GutsLoader.*
+%exclude %{privlib}/Locale/Maketext/TPJ13.*
+%exclude %{_mandir}/man3/Locale::Maketext.*
+%exclude %{_mandir}/man3/Locale::Maketext::Cookbook.*
+%exclude %{_mandir}/man3/Locale::Maketext::Guts.*
+%exclude %{_mandir}/man3/Locale::Maketext::GutsLoader.*
+%exclude %{_mandir}/man3/Locale::Maketext::TPJ13.*
+
+# Locale-Maketext-Simple
+%exclude %dir %{privlib}/Locale
+%exclude %dir %{privlib}/Locale/Maketext
+%exclude %{privlib}/Locale/Maketext/Simple.pm
+%exclude %{_mandir}/man3/Locale::Maketext::Simple.*
+
+# Math-BigInt
+%exclude %{privlib}/Math/BigFloat.pm
+%exclude %{privlib}/Math/BigInt.pm
+%exclude %dir %exclude %{privlib}/Math/BigInt
+%exclude %{privlib}/Math/BigInt/Calc.pm
+%exclude %{privlib}/Math/BigInt/CalcEmu.pm
+%exclude %{_mandir}/man3/Math::BigFloat.*
+%exclude %{_mandir}/man3/Math::BigInt.*
+%exclude %{_mandir}/man3/Math::BigInt::Calc.*
+%exclude %{_mandir}/man3/Math::BigInt::CalcEmu.*
+
+# Math-BigInt-FastCalc
+%exclude %{archlib}/Math
+%exclude %{archlib}/auto/Math
+%exclude %{_mandir}/man3/Math::BigInt::FastCalc.*
+
+# Math-BigRat
+%exclude %{privlib}/Math/BigRat.pm
+%exclude %{_mandir}/man3/Math::BigRat.*
+
+# Math-Complex
+%dir %exclude %{privlib}/Math
+%exclude %{privlib}/Math/Complex.pm
+%exclude %{privlib}/Math/Trig.pm
+%exclude %{_mandir}/man3/Math::Complex.*
+%exclude %{_mandir}/man3/Math::Trig.*
+
+# Memoize
+%exclude %{privlib}/Memoize
+%exclude %{privlib}/Memoize.pm
+%exclude %{_mandir}/man3/Memoize::*
+%exclude %{_mandir}/man3/Memoize.*
+
+# MIME-Base64
+%exclude %{archlib}/auto/MIME
+%exclude %{archlib}/MIME
+%exclude %{_mandir}/man3/MIME::*
+
+# Module-CoreList
+%exclude %dir %{privlib}/Module
+%exclude %{privlib}/Module/CoreList
+%exclude %{privlib}/Module/CoreList.pm
+%exclude %{privlib}/Module/CoreList.pod
+%exclude %{_mandir}/man3/Module::CoreList*
+
+# Module-CoreList-tools
+%exclude %{_bindir}/corelist
+%exclude %{_mandir}/man1/corelist*
+
+# Module-Load
+%exclude %dir %{privlib}/Module
+%exclude %{privlib}/Module/Load.pm
+%exclude %{_mandir}/man3/Module::Load.*
+
+# Module-Load-Conditional
+%exclude %dir %{privlib}/Module
+%exclude %{privlib}/Module/Load
+%exclude %{_mandir}/man3/Module::Load::Conditional*
+
+# Module-Loaded
+%exclude %dir %{privlib}/Module
+%exclude %{privlib}/Module/Loaded.pm
+%exclude %{_mandir}/man3/Module::Loaded*
+
+# Module-Metadata
+%exclude %dir %{privlib}/Module
+%exclude %{privlib}/Module/Metadata.pm
+%exclude %{_mandir}/man3/Module::Metadata.3pm*
+
+# Net-Ping
+%exclude %{privlib}/Net/Ping.pm
+%exclude %{_mandir}/man3/Net::Ping.*
+
+# PathTools
+%exclude %{archlib}/Cwd.pm
+%exclude %{archlib}/File/Spec*
+%exclude %{archlib}/auto/Cwd/
+%exclude %{_mandir}/man3/Cwd*
+%exclude %{_mandir}/man3/File::Spec*
+
+# Params-Check
+%exclude %{privlib}/Params/
+%exclude %{_mandir}/man3/Params::Check*
+
+# perlfaq
+%exclude %{privlib}/perlfaq.pm
+%exclude %{privlib}/pod/perlfaq*
+%exclude %{privlib}/pod/perlglossary.pod
+%exclude %{_mandir}/man1/perlfaq*
+%exclude %{_mandir}/man1/perlglossary.*
+
+# PerlIO-via-QuotedPrint
+%exclude %{privlib}/PerlIO
+%exclude %{_mandir}/man3/PerlIO::via::QuotedPrint.*
+
+# Perl-OSType
+%exclude %dir %{privlib}/Perl
+%exclude %{privlib}/Perl/OSType.pm
+%exclude %{_mandir}/man3/Perl::OSType.3pm*
+
+# open
+%exclude %{privlib}/open.pm
+%exclude %{_mandir}/man3/open.3*
+
+# parent
+%exclude %{privlib}/parent.pm
+%exclude %{_mandir}/man3/parent.3*
+
+# Pod-Checker
+%exclude %{_bindir}/podchecker
+%exclude %{privlib}/Pod/Checker.pm
+%exclude %{_mandir}/man1/podchecker.*
+%exclude %{_mandir}/man3/Pod::Checker.*
+
+# Pod-Escapes
+%exclude %{privlib}/Pod/Escapes.pm
+%exclude %{_mandir}/man3/Pod::Escapes.*
+
+# Pod-Html
+%exclude %{_bindir}/pod2html
+%exclude %{privlib}/Pod/Html.pm
+%exclude %{_mandir}/man1/pod2html.1*
+%exclude %{_mandir}/man3/Pod::Html.*
+
+# Pod-Parser
+%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.*
+
+# Pod-Perldoc
+%exclude %{_bindir}/perldoc
+%exclude %{privlib}/pod/perldoc.pod
+%exclude %{privlib}/Pod/Perldoc.pm
+%exclude %{privlib}/Pod/Perldoc/
+%exclude %{_mandir}/man1/perldoc.1*
+%exclude %{_mandir}/man3/Pod::Perldoc*
+
+# Pod-Usage
+%exclude %{_bindir}/pod2usage
+%exclude %{privlib}/Pod/Usage.pm
+%exclude %{_mandir}/man1/pod2usage.*
+%exclude %{_mandir}/man3/Pod::Usage.*
+
+# podlators
+%exclude %{_bindir}/pod2man
+%exclude %{_bindir}/pod2text
+%exclude %{privlib}/pod/perlpodstyle.pod
+%exclude %{privlib}/Pod/Man.pm
+%exclude %{privlib}/Pod/ParseLink.pm
+%exclude %{privlib}/Pod/Text
+%exclude %{privlib}/Pod/Text.pm
+%exclude %{_mandir}/man1/pod2man.1*
+%exclude %{_mandir}/man1/pod2text.1*
+%exclude %{_mandir}/man1/perlpodstyle.1*
+%exclude %{_mandir}/man3/Pod::Man*
+%exclude %{_mandir}/man3/Pod::ParseLink*
+%exclude %{_mandir}/man3/Pod::Text*
+
+# Pod-Simple
+%exclude %{privlib}/Pod/Simple/
+%exclude %{privlib}/Pod/Simple.pm
+%exclude %{privlib}/Pod/Simple.pod
+%exclude %{_mandir}/man3/Pod::Simple*
+
+# Scalar-List-Utils
+%exclude %{archlib}/List/
+%exclude %{archlib}/Scalar/
+%exclude %{archlib}/Sub/
+%exclude %{archlib}/auto/List/
+%exclude %{_mandir}/man3/List::Util*
+%exclude %{_mandir}/man3/Scalar::Util*
+%exclude %{_mandir}/man3/Sub::Util*
+
+# SelfLoader
+%exclude %{privlib}/SelfLoader.pm
+%exclude %{_mandir}/man3/SelfLoader*
+
+# Storable
+%exclude %{archlib}/Storable.pm
+%exclude %{archlib}/auto/Storable/
+%exclude %{_mandir}/man3/Storable.*
+
+# Sys-Syslog
+%exclude %{archlib}/Sys/Syslog.pm
+%exclude %{archlib}/auto/Sys/Syslog/
+%exclude %{_mandir}/man3/Sys::Syslog.*
+
+# Term-ANSIColor
+%exclude %{privlib}/Term/ANSIColor.pm
+%exclude %{_mandir}/man3/Term::ANSIColor*
+
+# Term-Cap
+%exclude %{privlib}/Term/Cap.pm
+%exclude %{_mandir}/man3/Term::Cap.*
+
+# Test
+%exclude %{privlib}/Test.pm
+%exclude %{_mandir}/man3/Test.*
+
+# Test-Harness
+%exclude %{_bindir}/prove
+%exclude %dir %{privlib}/App
+%exclude %{privlib}/App/Prove*
+%exclude %{privlib}/TAP*
+%exclude %dir %{privlib}/Test
+%exclude %{privlib}/Test/Harness*
+%exclude %{_mandir}/man1/prove.1*
+%exclude %{_mandir}/man3/App::Prove*
+%exclude %{_mandir}/man3/TAP*
+%exclude %{_mandir}/man3/Test::Harness*
+
+# Test-Simple
+%exclude %{privlib}/ok*
+%exclude %dir %{privlib}/Test
+%exclude %{privlib}/Test/More*
+%exclude %{privlib}/Test/Builder*
+%exclude %{privlib}/Test/Tester*
+%exclude %{privlib}/Test/Simple*
+%exclude %{privlib}/Test/Tutorial*
+%exclude %{privlib}/Test/use
+%exclude %{_mandir}/man3/ok*
+%exclude %{_mandir}/man3/Test::More*
+%exclude %{_mandir}/man3/Test::Builder*
+%exclude %{_mandir}/man3/Test::Tester*
+%exclude %{_mandir}/man3/Test::Simple*
+%exclude %{_mandir}/man3/Test::Tutorial*
+%exclude %{_mandir}/man3/Test::use::*
+
+# Text-Balanced
+%exclude %{privlib}/Text/Balanced.pm
+%exclude %{_mandir}/man3/Text::Balanced.*
+
+# Text-ParseWords
+%exclude %{privlib}/Text/ParseWords.pm
+%exclude %{_mandir}/man3/Text::ParseWords.*
+
+# Text-Tabs+Wrap
+%exclude %{privlib}/Text/Tabs.pm
+%exclude %{privlib}/Text/Wrap.pm
+%exclude %{_mandir}/man3/Text::Tabs.*
+%exclude %{_mandir}/man3/Text::Wrap.*
+
+# Thread-Queue
+%exclude %{privlib}/Thread/Queue.pm
+%exclude %{_mandir}/man3/Thread::Queue.*
+
+# Time-HiRes
+%exclude %dir %{archlib}/Time
+%exclude %{archlib}/Time/HiRes.pm
+%exclude %dir %{archlib}/auto/Time
+%exclude %{archlib}/auto/Time/HiRes
+%exclude %{_mandir}/man3/Time::HiRes.*
+
+# Time-Local
+%exclude %{privlib}/Time/Local.pm
+%exclude %{_mandir}/man3/Time::Local.*
+
+# Time-Piece
+%exclude %dir %{archlib}/Time
+%exclude %{archlib}/Time/Piece.pm
+%exclude %{archlib}/Time/Seconds.pm
+%exclude %dir %{archlib}/auto/Time
+%exclude %{archlib}/auto/Time/Piece
+%exclude %{_mandir}/man3/Time::Piece.3*
+%exclude %{_mandir}/man3/Time::Seconds.3*
+
+# Socket
+%exclude %dir %{archlib}/auto/Socket
+%exclude %{archlib}/auto/Socket/Socket.*
+%exclude %{archlib}/Socket.pm
+%exclude %{_mandir}/man3/Socket.3*
+
+# threads
+%dir %exclude %{archlib}/auto/threads
+%exclude %{archlib}/auto/threads/threads*
+%exclude %{archlib}/threads.pm
+%exclude %{_mandir}/man3/threads.3*
+
+# threads-shared
+%exclude %{archlib}/auto/threads/shared*
+%exclude %dir %{archlib}/threads
+%exclude %{archlib}/threads/shared*
+%exclude %{_mandir}/man3/threads::shared*
+
+# Unicode-Collate
+%dir %exclude %{archlib}/auto/Unicode
+%exclude %{archlib}/auto/Unicode/Collate
+%dir %exclude %{archlib}/Unicode
+%exclude %{archlib}/Unicode/Collate
+%exclude %{archlib}/Unicode/Collate.pm
+%exclude %{privlib}/Unicode/Collate
+%exclude %{_mandir}/man3/Unicode::Collate.*
+%exclude %{_mandir}/man3/Unicode::Collate::*
+
+# Unicode-Normalize
+%exclude %{archlib}/auto/Unicode/Normalize
+%exclude %{archlib}/Unicode/Normalize.pm
+%exclude %{_mandir}/man3/Unicode::Normalize.*
+
+# version
+%exclude %{privlib}/version.pm
+%exclude %{privlib}/version.pod
+%exclude %{privlib}/version/
+%exclude %{_mandir}/man3/version.3*
+%exclude %{_mandir}/man3/version::Internals.3*
+
+%files libs
+%license Artistic Copying
+%doc AUTHORS README Changes
+%dir %{archlib}
+%dir %{archlib}/auto
+%{archlib}/auto/re
+%dir %{archlib}/CORE
+%{archlib}/CORE/libperl.so
+%{archlib}/re.pm
+%{_libdir}/libperl.so.*
+%dir %{perl_vendorarch}
+%dir %{perl_vendorarch}/auto
+%dir %{privlib}
+%{privlib}/integer.pm
+%{privlib}/strict.pm
+%{privlib}/unicore
+%{privlib}/utf8.pm
+%{privlib}/utf8_heavy.pl
+%{privlib}/warnings.pm
+%{privlib}/XSLoader.pm
+%dir %{perl_vendorlib}
+%{_mandir}/man3/integer.*
+%{_mandir}/man3/re.*
+%{_mandir}/man3/strict.*
+%{_mandir}/man3/utf8.*
+%{_mandir}/man3/warnings.*
+%{_mandir}/man3/XSLoader.*
+
+%files devel
+%{_bindir}/h2xs
+%{_mandir}/man1/h2xs*
+%{_bindir}/perlivp
+%{_mandir}/man1/perlivp*
+%{archlib}/CORE/*.h
+%{_libdir}/libperl.so
+%{_mandir}/man1/perlxs*
+%if %{with perl_enables_systemtap}
+%dir %{_datadir}/systemtap
+%dir %{_datadir}/systemtap/tapset
+%{tapsetdir}/%{libperl_stp}
+%doc perl-example.stp
+%endif
+
+%files macros
+%{_rpmconfigdir}/macros.d/macros.perl
+
+%files tests
+%{perl5_testdir}/
+
+%files utils
+%{_bindir}/c2ph
+%{_bindir}/h2ph
+%{_bindir}/perlbug
+%{_bindir}/perlthanks
+%{_bindir}/pl2pm
+%{_bindir}/pstruct
+%{_bindir}/splain
+%dir %{privlib}/pod
+%{privlib}/pod/perlutil.pod
+%{_mandir}/man1/c2ph.*
+%{_mandir}/man1/h2ph.*
+%{_mandir}/man1/perlbug.*
+%{_mandir}/man1/perlthanks.*
+%{_mandir}/man1/perlutil.*
+%{_mandir}/man1/pl2pm.*
+%{_mandir}/man1/pstruct.*
+%{_mandir}/man1/splain.*
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%files Archive-Tar
+%{_bindir}/ptar
+%{_bindir}/ptardiff
+%{_bindir}/ptargrep
+%dir %{privlib}/Archive
+%{privlib}/Archive/Tar 
+%{privlib}/Archive/Tar.pm
+%{_mandir}/man1/ptar.1*
+%{_mandir}/man1/ptardiff.1*
+%{_mandir}/man1/ptargrep.1*
+%{_mandir}/man3/Archive::Tar* 
+%endif
+
+%files Attribute-Handlers
+%{privlib}/Attribute
+%{_mandir}/man3/Attribute::Handlers.*
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%files autodie
+%{privlib}/autodie/
+%{privlib}/autodie.pm
+%{privlib}/Fatal.pm
+%{_mandir}/man3/autodie.3*
+%{_mandir}/man3/autodie::*
+%{_mandir}/man3/Fatal.3*
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%files B-Debug
+%dir %{privlib}/B
+%{privlib}/B/Debug.pm
+%{_mandir}/man3/B::Debug.3*
+
+%files bignum
+%{privlib}/bigint.pm
+%{privlib}/bignum.pm
+%{privlib}/bigrat.pm
+%dir %{privlib}/Math
+%{privlib}/Math/BigFloat
+%dir %{privlib}/Math/BigInt
+%{privlib}/Math/BigInt/Trace.pm
+%{_mandir}/man3/bigint.*
+%{_mandir}/man3/bignum.*
+%{_mandir}/man3/bigrat.*
+
+%files Carp
+%{privlib}/Carp
+%{privlib}/Carp.*
+%{_mandir}/man3/Carp.*
+
+%files Compress-Raw-Bzip2
+%dir %{archlib}/Compress
+%dir %{archlib}/Compress/Raw
+%{archlib}/Compress/Raw/Bzip2.pm
+%dir %{archlib}/auto/Compress
+%dir %{archlib}/auto/Compress/Raw
+%{archlib}/auto/Compress/Raw/Bzip2
+%{_mandir}/man3/Compress::Raw::Bzip2*
+
+%files Compress-Raw-Zlib
+%dir %{archlib}/Compress
+%dir %{archlib}/Compress/Raw
+%{archlib}/Compress/Raw/Zlib.pm
+%dir %{archlib}/auto/Compress
+%dir %{archlib}/auto/Compress/Raw
+%{archlib}/auto/Compress/Raw/Zlib
+%{_mandir}/man3/Compress::Raw::Zlib*
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%files Config-Perl-V
+%dir %{privlib}/Config
+%{privlib}/Config/Perl
+%{_mandir}/man3/Config::Perl::V.*
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%files constant
+%{privlib}/constant.pm
+%{_mandir}/man3/constant.3*
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%files CPAN
+%{_bindir}/cpan
+%dir %{privlib}/App
+%{privlib}/App/Cpan.pm
+%{privlib}/CPAN
+%{privlib}/CPAN.pm
+%{_mandir}/man1/cpan.1*
+%{_mandir}/man3/App::Cpan.*
+%{_mandir}/man3/CPAN.*
+%{_mandir}/man3/CPAN:*
+%exclude %{privlib}/CPAN/Meta/
+%exclude %{privlib}/CPAN/Meta.pm
+%exclude %{_mandir}/man3/CPAN::Meta*
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%files CPAN-Meta
+%dir %{privlib}/CPAN/Meta
+%{privlib}/CPAN/Meta.pm
+%{privlib}/CPAN/Meta/Converter.pm
+%{privlib}/CPAN/Meta/Feature.pm
+%dir %{privlib}/CPAN/Meta/History
+%{privlib}/CPAN/Meta/History.pm
+%{privlib}/CPAN/Meta/Merge.pm
+%{privlib}/CPAN/Meta/Prereqs.pm
+%{privlib}/CPAN/Meta/Spec.pm
+%{privlib}/CPAN/Meta/Validator.pm
+%{_mandir}/man3/CPAN::Meta*
+%exclude %{_mandir}/man3/CPAN::Meta::YAML*
+%exclude %{_mandir}/man3/CPAN::Meta::Requirements*
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%files CPAN-Meta-Requirements
+%dir %{privlib}/CPAN
+%dir %{privlib}/CPAN/Meta
+%{privlib}/CPAN/Meta/Requirements.pm
+%{_mandir}/man3/CPAN::Meta::Requirements.3*
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%files CPAN-Meta-YAML
+%dir %{privlib}/CPAN
+%dir %{privlib}/CPAN/Meta
+%{privlib}/CPAN/Meta/YAML.pm
+%{_mandir}/man3/CPAN::Meta::YAML*
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%files Data-Dumper
+%dir %{archlib}/auto/Data
+%dir %{archlib}/auto/Data/Dumper
+%{archlib}/auto/Data/Dumper/Dumper.so
+%dir %{archlib}/Data
+%{archlib}/Data/Dumper.pm
+%{_mandir}/man3/Data::Dumper.3*
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%files DB_File
+%{archlib}/DB_File.pm
+%dir %{archlib}/auto/DB_File
+%{archlib}/auto/DB_File/DB_File.so
+%{_mandir}/man3/DB_File*
+%endif
+
+%files Devel-Peek
+%dir %{archlib}/Devel
+%{archlib}/Devel/Peek.pm
+%dir %{archlib}/auto/Devel
+%{archlib}/auto/Devel/Peek
+%{_mandir}/man3/Devel::Peek.*
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%files Devel-PPPort
+%dir %{archlib}/Devel
+%{archlib}/Devel/PPPort.pm
+%{_mandir}/man3/Devel::PPPort.3*
+%endif
+
+%files Devel-SelfStubber
+%dir %{privlib}/Devel
+%{privlib}/Devel/SelfStubber.pm
+%{_mandir}/man3/Devel::SelfStubber.*
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%files Digest
+%{privlib}/Digest.pm
+%dir %{privlib}/Digest
+%{privlib}/Digest/base.pm
+%{privlib}/Digest/file.pm
+%{_mandir}/man3/Digest.3*
+%{_mandir}/man3/Digest::base.3*
+%{_mandir}/man3/Digest::file.3*
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%files Digest-MD5
+%dir %{archlib}/Digest
+%{archlib}/Digest/MD5.pm
+%dir %{archlib}/auto/Digest
+%{archlib}/auto/Digest/MD5
+%{_mandir}/man3/Digest::MD5.3*
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%files Digest-SHA
+%{_bindir}/shasum
+%dir %{archlib}/Digest
+%{archlib}/Digest/SHA.pm
+%dir %{archlib}/auto/Digest
+%{archlib}/auto/Digest/SHA
+%{_mandir}/man1/shasum.1*
+%{_mandir}/man3/Digest::SHA.3*
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%files Encode
+%{_bindir}/encguess
+%{_bindir}/piconv
+%{archlib}/Encode*
+%{archlib}/auto/Encode*
+%{privlib}/Encode
+%exclude %{privlib}/Encode/*.e2x
+%exclude %{privlib}/Encode/encode.h
+%{_mandir}/man1/encguess.1*
+%{_mandir}/man1/piconv.1*
+%{_mandir}/man3/Encode*.3*
+
+%files encoding
+%{archlib}/encoding.pm
+%{_mandir}/man3/encoding.3*
+
+%files Encode-devel
+%{_bindir}/enc2xs
+%dir %{privlib}/Encode
+%{privlib}/Encode/*.e2x
+%{privlib}/Encode/encode.h
+%{_mandir}/man1/enc2xs.1*
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%files Env
+%{privlib}/Env.pm
+%{_mandir}/man3/Env.3*
+%endif
+
+%files Errno
+%{archlib}/Errno.pm
+%{_mandir}/man3/Errno.*
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%files Exporter
+%{privlib}/Exporter*
+%{_mandir}/man3/Exporter*
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%files experimental
+%{privlib}/experimental*
+%{_mandir}/man3/experimental*
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%files ExtUtils-CBuilder
+%dir %{privlib}/ExtUtils
+%{privlib}/ExtUtils/CBuilder
+%{privlib}/ExtUtils/CBuilder.pm
+%{_mandir}/man3/ExtUtils::CBuilder*
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%files ExtUtils-Command
+%dir %{privlib}/ExtUtils
+%{privlib}/ExtUtils/Command.pm
+%{_mandir}/man3/ExtUtils::Command.*
+%endif
+
+%files ExtUtils-Embed
+%dir %{privlib}/ExtUtils
+%{privlib}/ExtUtils/Embed.pm
+%{_mandir}/man3/ExtUtils::Embed*
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%files ExtUtils-Install
+%dir %{privlib}/ExtUtils
+%{privlib}/ExtUtils/Install.pm
+%{privlib}/ExtUtils/Installed.pm
+%{privlib}/ExtUtils/Packlist.pm
+%{_mandir}/man3/ExtUtils::Install.3*
+%{_mandir}/man3/ExtUtils::Installed.3*
+%{_mandir}/man3/ExtUtils::Packlist.3*
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%files ExtUtils-Manifest
+%dir %{privlib}/ExtUtils
+%{privlib}/ExtUtils/Manifest.pm
+%{privlib}/ExtUtils/MANIFEST.SKIP
+%{_mandir}/man3/ExtUtils::Manifest.3*
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%files ExtUtils-MakeMaker
+%{_bindir}/instmodsh
+%dir %{privlib}/ExtUtils
+%{privlib}/ExtUtils/Command/
+%{privlib}/ExtUtils/Liblist
+%{privlib}/ExtUtils/Liblist.pm
+%{privlib}/ExtUtils/MakeMaker
+%{privlib}/ExtUtils/MakeMaker.pm
+%{privlib}/ExtUtils/MM.pm
+%{privlib}/ExtUtils/MM_*.pm
+%{privlib}/ExtUtils/MY.pm
+%{privlib}/ExtUtils/Mkbootstrap.pm
+%{privlib}/ExtUtils/Mksymlists.pm
+%{privlib}/ExtUtils/testlib.pm
+%{_mandir}/man1/instmodsh.1*
+%{_mandir}/man3/ExtUtils::Command::MM*
+%{_mandir}/man3/ExtUtils::Liblist.3*
+%{_mandir}/man3/ExtUtils::MM.3*
+%{_mandir}/man3/ExtUtils::MM_*
+%{_mandir}/man3/ExtUtils::MY.3*
+%{_mandir}/man3/ExtUtils::MakeMaker*
+%{_mandir}/man3/ExtUtils::Mkbootstrap.3*
+%{_mandir}/man3/ExtUtils::Mksymlists.3*
+%{_mandir}/man3/ExtUtils::testlib.3*
+%endif
+
+%files ExtUtils-Miniperl
+%dir %{privlib}/ExtUtils
+%{privlib}/ExtUtils/Miniperl.pm
+%{_mandir}/man3/ExtUtils::Miniperl.3*
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%files ExtUtils-MM-Utils
+%dir %{privlib}/ExtUtils
+%dir %{privlib}/ExtUtils/MM
+%{privlib}/ExtUtils/MM/Utils.pm
+%{_mandir}/man3/ExtUtils::MM::Utils.*
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%files ExtUtils-ParseXS
+%dir %{privlib}/ExtUtils
+%dir %{privlib}/ExtUtils/ParseXS
+%{privlib}/ExtUtils/ParseXS.pm
+%{privlib}/ExtUtils/ParseXS.pod
+%{privlib}/ExtUtils/ParseXS/Constants.pm
+%{privlib}/ExtUtils/ParseXS/CountLines.pm
+%{privlib}/ExtUtils/ParseXS/Eval.pm
+%{privlib}/ExtUtils/ParseXS/Utilities.pm
+%dir %{privlib}/ExtUtils/Typemaps
+%{privlib}/ExtUtils/Typemaps.pm
+%{privlib}/ExtUtils/Typemaps/Cmd.pm
+%{privlib}/ExtUtils/Typemaps/InputMap.pm
+%{privlib}/ExtUtils/Typemaps/OutputMap.pm
+%{privlib}/ExtUtils/Typemaps/Type.pm
+%{privlib}/ExtUtils/xsubpp
+%{_bindir}/xsubpp
+%{_mandir}/man1/xsubpp*
+%{_mandir}/man3/ExtUtils::ParseXS.3*
+%{_mandir}/man3/ExtUtils::ParseXS::Constants.3*
+%{_mandir}/man3/ExtUtils::ParseXS::Eval.3*
+%{_mandir}/man3/ExtUtils::ParseXS::Utilities.3*
+%{_mandir}/man3/ExtUtils::Typemaps.3*
+%{_mandir}/man3/ExtUtils::Typemaps::Cmd.3*
+%{_mandir}/man3/ExtUtils::Typemaps::InputMap.3*
+%{_mandir}/man3/ExtUtils::Typemaps::OutputMap.3*
+%{_mandir}/man3/ExtUtils::Typemaps::Type.3*
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%files File-Fetch
+%dir %{privlib}/File
+%{privlib}/File/Fetch.pm
+%{_mandir}/man3/File::Fetch.3*
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%files File-Path
+%dir %{privlib}/File
+%{privlib}/File/Path.pm
+%{_mandir}/man3/File::Path.3*
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%files File-Temp
+%dir %{privlib}/File
+%{privlib}/File/Temp.pm
+%{_mandir}/man3/File::Temp.3*
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%files Filter
+%dir %{archlib}/auto/Filter
+%{archlib}/auto/Filter/Util
+%dir %{archlib}/Filter
+%{archlib}/Filter/Util
+%{privlib}/pod/perlfilter.pod
+%{_mandir}/man1/perlfilter.*
+%{_mandir}/man3/Filter::Util::*
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%files Filter-Simple
+%dir %{privlib}/Filter
+%{privlib}/Filter/Simple.pm
+%{_mandir}/man3/Filter::Simple.3*
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%files Getopt-Long
+%dir %{privlib}/Getopt
+%{privlib}/Getopt/Long.pm
+%{_mandir}/man3/Getopt::Long.3*
+%endif
+
+%files IO
+%dir %{archlib}/IO
+%{archlib}/IO.pm
+%{archlib}/IO/Dir.pm
+%{archlib}/IO/File.pm
+%{archlib}/IO/Handle.pm
+%{archlib}/IO/Pipe.pm
+%{archlib}/IO/Poll.pm
+%{archlib}/IO/Seekable.pm
+%{archlib}/IO/Select.pm
+%dir %{archlib}/IO/Socket
+%{archlib}/IO/Socket/INET.pm
+%{archlib}/IO/Socket/UNIX.pm
+%{archlib}/IO/Socket.pm
+%dir %{archlib}/auto/IO
+%{archlib}/auto/IO/IO.so
+%{_mandir}/man3/IO.*
+%{_mandir}/man3/IO::Dir.*
+%{_mandir}/man3/IO::File.*
+%{_mandir}/man3/IO::Handle.*
+%{_mandir}/man3/IO::Pipe.*
+%{_mandir}/man3/IO::Poll.*
+%{_mandir}/man3/IO::Seekable.*
+%{_mandir}/man3/IO::Select.*
+%{_mandir}/man3/IO::Socket::INET.*
+%{_mandir}/man3/IO::Socket::UNIX.*
+%{_mandir}/man3/IO::Socket.*
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%files IO-Compress
+# IO-Compress
+%{_bindir}/zipdetails
+%dir %{privlib}/IO
+%dir %{privlib}/IO/Compress
+%{privlib}/IO/Compress/FAQ.pod
+%{_mandir}/man1/zipdetails.*
+%{_mandir}/man3/IO::Compress::FAQ.*
+# Compress-Zlib
+%dir %{privlib}/Compress
+%{privlib}/Compress/Zlib.pm
+%{_mandir}/man3/Compress::Zlib*
+#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
+%{privlib}/IO/Uncompress/AnyUncompress.pm
+%{privlib}/IO/Uncompress/Base.pm
+%{_mandir}/man3/File::GlobMapper.*
+%{_mandir}/man3/IO::Compress::Base.*
+%{_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
+%{privlib}/IO/Compress/Gzip
+%{privlib}/IO/Compress/Gzip.pm
+%{privlib}/IO/Compress/RawDeflate.pm
+%{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
+%{privlib}/IO/Uncompress/Gunzip.pm
+%{privlib}/IO/Uncompress/Inflate.pm
+%{privlib}/IO/Uncompress/RawInflate.pm
+%{privlib}/IO/Uncompress/Unzip.pm
+%{_mandir}/man3/IO::Compress::Deflate*
+%{_mandir}/man3/IO::Compress::Gzip*
+%{_mandir}/man3/IO::Compress::Bzip2*
+%{_mandir}/man3/IO::Compress::RawDeflate*
+%{_mandir}/man3/IO::Compress::Zip*
+%{_mandir}/man3/IO::Uncompress::AnyInflate*
+%{_mandir}/man3/IO::Uncompress::Bunzip2*
+%{_mandir}/man3/IO::Uncompress::Gunzip*
+%{_mandir}/man3/IO::Uncompress::Inflate*
+%{_mandir}/man3/IO::Uncompress::RawInflate*
+%{_mandir}/man3/IO::Uncompress::Unzip*
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%files IO-Socket-IP
+%dir %{privlib}/IO
+%dir %{privlib}/IO/Socket
+%{privlib}/IO/Socket/IP.pm
+%{_mandir}/man3/IO::Socket::IP.*
+%endif
+
+%files IO-Zlib
+%dir %{privlib}/IO
+%{privlib}/IO/Zlib.pm
+%{_mandir}/man3/IO::Zlib.*
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%files HTTP-Tiny
+%dir %{privlib}/HTTP
+%{privlib}/HTTP/Tiny.pm
+%{_mandir}/man3/HTTP::Tiny*
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%files IPC-Cmd
+%dir %{privlib}/IPC
+%{privlib}/IPC/Cmd.pm
+%{_mandir}/man3/IPC::Cmd.3*
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%files IPC-SysV
+%{archlib}/auto/IPC
+%dir %{archlib}/IPC
+%{archlib}/IPC/Msg.pm
+%{archlib}/IPC/Semaphore.pm
+%{archlib}/IPC/SharedMem.pm
+%{archlib}/IPC/SysV.pm
+%{_mandir}/man3/IPC::Msg.*
+%{_mandir}/man3/IPC::Semaphore.*
+%{_mandir}/man3/IPC::SharedMem.*
+%{_mandir}/man3/IPC::SysV.*
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%files JSON-PP
+%{_bindir}/json_pp
+%dir %{privlib}/JSON
+%{privlib}/JSON/PP
+%{privlib}/JSON/PP.pm
+%{_mandir}/man1/json_pp.1*
+%{_mandir}/man3/JSON::PP.3*
+%{_mandir}/man3/JSON::PP::Boolean.3pm*
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%files libnet
+%dir %{privlib}/Net
+%{privlib}/Net/Cmd.pm
+%{privlib}/Net/Config.pm
+%{privlib}/Net/Domain.pm
+%{privlib}/Net/FTP
+%{privlib}/Net/FTP.pm
+%{privlib}/Net/libnetFAQ.pod
+%{privlib}/Net/NNTP.pm
+%{privlib}/Net/Netrc.pm
+%{privlib}/Net/POP3.pm
+%{privlib}/Net/SMTP.pm
+%{privlib}/Net/Time.pm
+%{_mandir}/man3/Net::Cmd.*
+%{_mandir}/man3/Net::Config.*
+%{_mandir}/man3/Net::Domain.*
+%{_mandir}/man3/Net::FTP.*
+%{_mandir}/man3/Net::libnetFAQ.*
+%{_mandir}/man3/Net::NNTP.*
+%{_mandir}/man3/Net::Netrc.*
+%{_mandir}/man3/Net::POP3.*
+%{_mandir}/man3/Net::SMTP.*
+%{_mandir}/man3/Net::Time.*
+%endif
+
+%files libnetcfg
+%{_bindir}/libnetcfg
+%{_mandir}/man1/libnetcfg*
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%files Locale-Codes
+%dir %{privlib}/Locale
+%{privlib}/Locale/Codes
+%{privlib}/Locale/Codes.*
+%{privlib}/Locale/Country.*
+%{privlib}/Locale/Currency.*
+%{privlib}/Locale/Language.*
+%{privlib}/Locale/Script.*
+%{_mandir}/man3/Locale::Codes::*
+%{_mandir}/man3/Locale::Codes.*
+%{_mandir}/man3/Locale::Country.*
+%{_mandir}/man3/Locale::Currency.*
+%{_mandir}/man3/Locale::Language.*
+%{_mandir}/man3/Locale::Script.*
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%files Locale-Maketext
+%dir %{privlib}/Locale
+%dir %{privlib}/Locale/Maketext
+%{privlib}/Locale/Maketext.*
+%{privlib}/Locale/Maketext/Cookbook.*
+%{privlib}/Locale/Maketext/Guts.*
+%{privlib}/Locale/Maketext/GutsLoader.*
+%{privlib}/Locale/Maketext/TPJ13.*
+%{_mandir}/man3/Locale::Maketext.*
+%{_mandir}/man3/Locale::Maketext::Cookbook.*
+%{_mandir}/man3/Locale::Maketext::Guts.*
+%{_mandir}/man3/Locale::Maketext::GutsLoader.*
+%{_mandir}/man3/Locale::Maketext::TPJ13.*
+%endif
+
+%files Locale-Maketext-Simple
+%dir %{privlib}/Locale
+%dir %{privlib}/Locale/Maketext
+%{privlib}/Locale/Maketext/Simple.pm
+%{_mandir}/man3/Locale::Maketext::Simple.*
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%files Math-BigInt
+%dir %{privlib}/Math
+%{privlib}/Math/BigFloat.pm
+%{privlib}/Math/BigInt.pm
+%dir %{privlib}/Math/BigInt
+%{privlib}/Math/BigInt/Calc.pm
+%{privlib}/Math/BigInt/CalcEmu.pm
+%{_mandir}/man3/Math::BigFloat.*
+%{_mandir}/man3/Math::BigInt.*
+%{_mandir}/man3/Math::BigInt::Calc.*
+%{_mandir}/man3/Math::BigInt::CalcEmu.*
+
+%files Math-BigInt-FastCalc
+%{archlib}/Math
+%{archlib}/auto/Math
+%{_mandir}/man3/Math::BigInt::FastCalc.*
+
+%files Math-BigRat
+%dir %{privlib}/Math
+%{privlib}/Math/BigRat.pm
+%{_mandir}/man3/Math::BigRat.*
+%endif
+
+%files Math-Complex
+%dir %{privlib}/Math
+%{privlib}/Math/Complex.pm
+%{privlib}/Math/Trig.pm
+%{_mandir}/man3/Math::Complex.*
+%{_mandir}/man3/Math::Trig.*
+
+%files Memoize
+%{privlib}/Memoize
+%{privlib}/Memoize.pm
+%{_mandir}/man3/Memoize::*
+%{_mandir}/man3/Memoize.*
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%files MIME-Base64
+%{archlib}/auto/MIME
+%{archlib}/MIME
+%{_mandir}/man3/MIME::*
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%files Module-CoreList
+%dir %{privlib}/Module
+%{privlib}/Module/CoreList
+%{privlib}/Module/CoreList.pm
+%{privlib}/Module/CoreList.pod
+%{_mandir}/man3/Module::CoreList*
+
+%files Module-CoreList-tools
+%{_bindir}/corelist
+%{_mandir}/man1/corelist*
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%files Module-Load
+%dir %{privlib}/Module
+%{privlib}/Module/Load.pm
+%{_mandir}/man3/Module::Load.*
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%files Module-Load-Conditional
+%dir %{privlib}/Module
+%{privlib}/Module/Load
+%{_mandir}/man3/Module::Load::Conditional* 
+%endif
+
+%files Module-Loaded
+%dir %{privlib}/Module
+%{privlib}/Module/Loaded.pm
+%{_mandir}/man3/Module::Loaded*
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%files Module-Metadata
+%dir %{privlib}/Module
+%{privlib}/Module/Metadata.pm
+%{_mandir}/man3/Module::Metadata.3pm*
+%endif
+
+%files Net-Ping
+%dir %{privlib}/Net
+%{privlib}/Net/Ping.pm
+%{_mandir}/man3/Net::Ping.*
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%files PathTools
+%{archlib}/Cwd.pm
+%dir %{archlib}/File
+%{archlib}/File/Spec*
+%{archlib}/auto/Cwd
+%{_mandir}/man3/Cwd*
+%{_mandir}/man3/File::Spec*
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%files Params-Check
+%{privlib}/Params/
+%{_mandir}/man3/Params::Check*
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%files Parse-CPAN-Meta
+%dir %{privlib}/Parse/
+%dir %{privlib}/Parse/CPAN/
+%{privlib}/Parse/CPAN/Meta.pm
+%{_mandir}/man3/Parse::CPAN::Meta.3*
+%endif
+
+%files open
+%{privlib}/open.pm
+%{_mandir}/man3/open.3*
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%files parent
+%{privlib}/parent.pm
+%{_mandir}/man3/parent.3*
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%files perlfaq
+%{privlib}/perlfaq.pm
+%dir %{privlib}/pod
+%{privlib}/pod/perlfaq*
+%{privlib}/pod/perlglossary.pod
+%{_mandir}/man1/perlfaq*
+%{_mandir}/man1/perlglossary.*
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%files PerlIO-via-QuotedPrint
+%{privlib}/PerlIO
+%{_mandir}/man3/PerlIO::via::QuotedPrint.*
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%files Perl-OSType
+%dir %{privlib}/Perl
+%{privlib}/Perl/OSType.pm
+%{_mandir}/man3/Perl::OSType.3pm*
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%files Pod-Checker
+%{_bindir}/podchecker
+%dir %{privlib}/Pod
+%{privlib}/Pod/Checker.pm
+%{_mandir}/man1/podchecker.*
+%{_mandir}/man3/Pod::Checker.*
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%files Pod-Escapes
+%dir %{privlib}/Pod
+%{privlib}/Pod/Escapes.pm
+%{_mandir}/man3/Pod::Escapes.*
+%endif
+
+%files Pod-Html
+%license Pod-Html-license-clarification
+%dir %{privlib}/Pod
+%{_bindir}/pod2html
+%{privlib}/Pod/Html.pm
+%{_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.*
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%files Pod-Perldoc
+%{_bindir}/perldoc
+%{privlib}/pod/perldoc.pod
+%dir %{privlib}/Pod
+%{privlib}/Pod/Perldoc
+%{privlib}/Pod/Perldoc.pm
+%{_mandir}/man1/perldoc.1*
+%{_mandir}/man3/Pod::Perldoc*
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%files Pod-Usage
+%{_bindir}/pod2usage
+%dir %{privlib}/Pod
+%{privlib}/Pod/Usage.pm
+%{_mandir}/man1/pod2usage.*
+%{_mandir}/man3/Pod::Usage.*
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%files podlators
+%{_bindir}/pod2man
+%{_bindir}/pod2text
+%{privlib}/pod/perlpodstyle.pod
+%dir %{privlib}/Pod
+%{privlib}/Pod/Man.pm
+%{privlib}/Pod/ParseLink.pm
+%{privlib}/Pod/Text
+%{privlib}/Pod/Text.pm
+%{_mandir}/man1/pod2man.1*
+%{_mandir}/man1/pod2text.1*
+%{_mandir}/man1/perlpodstyle.1*
+%{_mandir}/man3/Pod::Man*
+%{_mandir}/man3/Pod::ParseLink*
+%{_mandir}/man3/Pod::Text*
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%files Pod-Simple
+%dir %{privlib}/Pod
+%{privlib}/Pod/Simple
+%{privlib}/Pod/Simple.pm
+%{privlib}/Pod/Simple.pod
+%{_mandir}/man3/Pod::Simple*
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%files Scalar-List-Utils
+%{archlib}/List
+%{archlib}/Scalar
+%{archlib}/Sub
+%{archlib}/auto/List
+%{_mandir}/man3/List::Util*
+%{_mandir}/man3/Scalar::Util*
+%{_mandir}/man3/Sub::Util*
+%endif
+
+%files SelfLoader
+%{privlib}/SelfLoader.pm
+%{_mandir}/man3/SelfLoader*
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%files Sys-Syslog
+%dir %{archlib}/Sys
+%{archlib}/Sys/Syslog.pm
+%dir %{archlib}/auto/Sys
+%{archlib}/auto/Sys/Syslog
+%{_mandir}/man3/Sys::Syslog.*
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%files Socket
+%dir %{archlib}/auto/Socket
+%{archlib}/auto/Socket/Socket.*
+%{archlib}/Socket.pm
+%{_mandir}/man3/Socket.3*
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%files Storable
+%{archlib}/Storable.pm
+%{archlib}/auto/Storable
+%{_mandir}/man3/Storable.*
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%files Term-ANSIColor
+%dir %{privlib}/Term
+%{privlib}/Term/ANSIColor.pm
+%{_mandir}/man3/Term::ANSIColor*
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%files Term-Cap
+%dir %{privlib}/Term
+%{privlib}/Term/Cap.pm
+%{_mandir}/man3/Term::Cap.*
+%endif
+
+%files Test
+%{privlib}/Test.pm
+%{_mandir}/man3/Test.*
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%files Test-Harness
+%{_bindir}/prove
+%dir %{privlib}/App
+%{privlib}/App/Prove*
+%{privlib}/TAP*
+%dir %{privlib}/Test
+%{privlib}/Test/Harness*
+%{_mandir}/man1/prove.1*
+%{_mandir}/man3/App::Prove*
+%{_mandir}/man3/TAP*
+%{_mandir}/man3/Test::Harness*
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%files Test-Simple
+%{privlib}/ok*
+%dir %{privlib}/Test
+%{privlib}/Test/More*
+%{privlib}/Test/Builder*
+%{privlib}/Test/Tester*
+%{privlib}/Test/Simple*
+%{privlib}/Test/Tutorial*
+%{privlib}/Test/use
+%{_mandir}/man3/ok*
+%{_mandir}/man3/Test::More*
+%{_mandir}/man3/Test::Builder*
+%{_mandir}/man3/Test::Tester*
+%{_mandir}/man3/Test::Simple*
+%{_mandir}/man3/Test::Tutorial*
+%{_mandir}/man3/Test::use::*
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%files Text-Balanced
+%dir %{privlib}/Text
+%{privlib}/Text/Balanced.pm
+%{_mandir}/man3/Text::Balanced.*
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%files Text-ParseWords
+%dir %{privlib}/Text
+%{privlib}/Text/ParseWords.pm
+%{_mandir}/man3/Text::ParseWords.*
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%files Text-Tabs+Wrap
+%dir %{privlib}/Text
+%{privlib}/Text/Tabs.pm
+%{privlib}/Text/Wrap.pm
+%{_mandir}/man3/Text::Tabs.*
+%{_mandir}/man3/Text::Wrap.*
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%files Thread-Queue
+%dir %{privlib}/Thread
+%{privlib}/Thread/Queue.pm
+%{_mandir}/man3/Thread::Queue.*
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%files Time-HiRes
+%dir %{archlib}/Time
+%{archlib}/Time/HiRes.pm
+%dir %{archlib}/auto/Time
+%{archlib}/auto/Time/HiRes
+%{_mandir}/man3/Time::HiRes.*
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%files Time-Local
+%dir %{privlib}/Time
+%{privlib}/Time/Local.pm
+%{_mandir}/man3/Time::Local.*
+%endif
+
+%files Time-Piece
+%dir %{archlib}/Time
+%{archlib}/Time/Piece.pm 
+%{archlib}/Time/Seconds.pm
+%dir %{archlib}/auto/Time
+%{archlib}/auto/Time/Piece
+%{_mandir}/man3/Time::Piece.3*
+%{_mandir}/man3/Time::Seconds.3*
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%files threads
+%dir %{archlib}/auto/threads
+%{archlib}/auto/threads/threads*
+%{archlib}/threads.pm
+%{_mandir}/man3/threads.3*
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%files threads-shared
+%dir %{archlib}/auto/threads
+%{archlib}/auto/threads/shared*
+%dir %{archlib}/threads
+%{archlib}/threads/shared*
+%{_mandir}/man3/threads::shared*
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%files Unicode-Collate
+%dir %{archlib}/auto/Unicode
+%{archlib}/auto/Unicode/Collate
+%dir %{archlib}/Unicode
+%{archlib}/Unicode/Collate
+%{archlib}/Unicode/Collate.pm
+%dir %{privlib}/Unicode
+%{privlib}/Unicode/Collate
+%{_mandir}/man3/Unicode::Collate.*
+%{_mandir}/man3/Unicode::Collate::*
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%files Unicode-Normalize
+%dir %{archlib}/auto/Unicode
+%{archlib}/auto/Unicode/Normalize
+%dir %{archlib}/Unicode
+%{archlib}/Unicode/Normalize.pm
+%{_mandir}/man3/Unicode::Normalize.*
+%endif
+
+%if %{dual_life} || %{rebuild_from_scratch}
+%files version
+%{privlib}/version.pm
+%{privlib}/version.pod
+%{privlib}/version/
+%{_mandir}/man3/version.3*
+%{_mandir}/man3/version::Internals.3*
+%endif
+
+%files core
+# Nothing. Nada. Zilch. Zarro. Uh uh. Nope. Sorry.
+
+%files interpreter
+# Empty on purpose.
+
+# Old changelog entries are preserved in CVS.
+%changelog
+* Mon Mar 25 2019 Jitka Plesnikova <jplesnik@redhat.com> - 4:5.24.4-404
+- Fix annocheck failure by enabling hardening (bug #1636329)
+
+* Thu Feb 07 2019 Petr Pisar <ppisar@redhat.com> - 4:5.24.4-403
+- Require perl-interpreter from perl (bug #1670435)
+
+* Thu Jan 31 2019 Petr Pisar <ppisar@redhat.com> - 4:5.24.4-402
+- Add a dummy perl-interpreter package to mask non-modular one (bug #1670435)
+
+* Wed Dec 05 2018 Jitka Plesnikova <jplesnik@redhat.com> - 4:5.24.4-401
+- Resolves: #1656293
+  - Fix CVE-2018-18311 Integer overflow leading to buffer overflow
+  - Fix CVE-2018-18312 Heap-buffer-overflow write in regcomp.c
+  - Fix CVE-2018-18313 Heap-buffer-overflow read in regcomp.c
+  - Fix CVE-2018-18314 Heap-buffer-overflow write in regcomp.c
+
+* Fri Nov 02 2018 Petr Pisar <ppisar@redhat.com> - 4:5.24.4-400
+- Install Encode developmental files when installing complete Perl
+  (bug #1645225)
+
+* Tue Oct 02 2018 Jitka Plesnikova <jplesnik@redhat.com> - 4:5.24.4-399
+- Fix annocheck failure by passing CFLAGS to dtrace (bug #1630617)
+
+* Mon Jul 09 2018 Petr Pisar <ppisar@redhat.com> - 4:5.24.4-398
+- Adjust tests to gdbm-1.15 (RT#133295)
+
+* Mon Apr 16 2018 Petr Pisar <ppisar@redhat.com> - 4:5.24.4-397
+- 5.24.4 bump
+- Fix CVE-2018-6913 (heap buffer overflow in pp_pack.c) (bug #1567776)
+- Fix CVE-2018-6798 (heap read overflow in regexec.c) (bug #1567777)
+- Fix CVE-2018-6797 (heap write overflow in regcomp.c) (bug #1567778)
+
+* Tue Feb 06 2018 Petr Pisar <ppisar@redhat.com> - 4:5.24.3-396
+- Fix handling attribute specification on our variables (RT#131597)
+- Remove invalid macro definitions from macros.perl (bug #1532539)
+- Fix a crash when a match for inversely repeated group fails (RT#132017)
+- Fix an overflow when parsing a character range with no preceding character
+  (RT#132245)
+- Fix walking symbol table for ISA in Carp
+- Fix handling file names with null bytes in stat and lstat functions
+  (RT#131895)
+- Fix a crash when untying an object witout a stash
+- Fix deparsing of transliterations with unprintable characters (RT#132405)
+- Fix error reporting on do() on a directory (RT#125774)
+- Fix stack manipulation when a lexical subroutine is defined in a do block in
+  a member of an iteration list (RT#132442)
+- Fix setting $! when statting a closed filehandle (RT#108288)
+- Fix tainting of s/// with overloaded replacement (RT#115266)
+- Expand system() arguments before a fork (RT#121105)
+- Avoid undefined behavior when copying memory in Glob and pp_caller (RT#131746)
+- Add patch to conditionalize a fix for an old and long fixed bug
+  in libcrypt / glibc (rhbz#1536752)
+- Link XS modules to pthread library to fix linking with -z defs
+- Correct shell bangs in tests
+- Fix parsing braced subscript after parentheses (RT#8045)
+- Call ldconfig scriptlets using a macro
+
+* Mon Sep 25 2017 Jitka Plesnikova <jplesnik@redhat.com> - 4:5.24.3-395
+- Update perl(:MODULE_COMPAT_*)
+
+* Mon Sep 25 2017 Jitka Plesnikova <jplesnik@redhat.com> - 4:5.24.3-394
+- 5.24.3 bump (see <http://search.cpan.org/dist/perl-5.24.3/pod/perldelta.pod>
+  for release notes)
+
+* Mon Jul 17 2017 Jitka Plesnikova <jplesnik@redhat.com> - 4:5.24.2-393
+- 5.24.2 bump (see <http://search.cpan.org/dist/perl-5.24.2/pod/perldelta.pod>
+  for release notes)
+
+* Mon Jun 19 2017 Petr Pisar <ppisar@redhat.com> - 4:5.24.1-392
+- Make File::Glob more resistant against degenerative matching (RT#131211)
+- Fix a memory wrap in sv_vcatpvfn_flags() (RT#131260)
+- Fix a crash when calling a subroutine from a stash (RT#131085)
+- Fix an improper cast of a negative integer to an unsigned 8-bit type (RT#131190)
+- Fix cloning :via handles on thread creation (RT#131221)
+- Fix glob UTF-8 flag on a glob reassignment (RT#131263)
+- Fix a buffer overflow in my_atof2() (RT#131526)
+- Fix checks for tainted directory in $ENV{PATH} if a backslash escape presents
+- Fix handling backslashes in PATH environment variable when executing
+  "perl -S" (RT#129183)
+- Fix a conditional jump on uninitilized memory in re_intuit_start() (RT#131575)
+- Fix spurious "Assuming NOT a POSIX class" warning (RT#131522)
+- Provide perl-interpreter RPM dependency symbol
+  <https://fedoraproject.org/wiki/Changes/perl_Package_to_Install_Core_Modules>
+
+* Fri Mar 31 2017 Petr Pisar <ppisar@redhat.com> - 4:5.24.1-391
+- Introduce build-conditions for groff, systemtap, syslog tests, and tcsh
+
+* Wed Mar 08 2017 Petr Pisar <ppisar@redhat.com> - 4:5.24.1-390
+- Fix a null-pointer dereference on malformed code (RT#130815)
+- Fix an use-after-free in substr() that modifies a magic variable (RT#129340)
+- Fix a memory leak leak in Perl_reg_named_buff_fetch() (RT#130822)
+- Fix an invalid memory read when parsing a loop variable (RT#130814)
+- Fix a heap-use-after-free in four-arguments substr call (RT#130624)
+
+* Fri Feb 17 2017 Petr Pisar <ppisar@redhat.com> - 4:5.24.1-389
+- Adapt Compress::Raw::Zlib to zlib-1.2.11 (bug #1420326)
+- Fix a heap buffer overflow when evaluating regexps with embedded code blocks
+  from more than one source (RT#129881)
+- Fix a memory leak in list assignment from or to magic values (RT#130766)
+
+* Fri Feb 10 2017 Petr Pisar <ppisar@redhat.com> - 4:5.24.1-388
+- Adapt tests to zlib-1.2.11 (bug #1420326)
+- Fix a crash when compiling a regexp with impossible quantifiers (RT#130561)
+- Fix a buffer overrun with format and "use bytes" (RT#130703)
+- Fix a buffer overflow when studying some regexps repeatedly
+  (RT#129281, RT#129061)
+
+* Thu Jan 26 2017 Petr Pisar <ppisar@redhat.com> - 4:5.24.1-387
+- Fix UTF-8 string handling in & operator (RT#129287)
+- Fix recreation of *:: (RT#129869)
+- Fix a memory leak in B::RHE->HASH method (RT#130504)
+- Fix parsing goto statements in multicalled subroutine (RT#113938)
+- Fix a heap overlow in parsing $# (RT#129274)
+
+* Fri Jan 20 2017 Petr Pisar <ppisar@redhat.com> - 4:5.24.1-386
+- Fix a buffer overflow in split in scalar context (RT#130262)
+- Fix a heap overflow with pack "W" (RT129149)
+- Fix a use-after-free when processing scalar variables in forms (RT#129125)
+- Fix a heap overflow if invalid octal or hexadecimal number is used in
+  transliteration expression (RT#129342)
+- Fix out-of-bound read in case of unmatched regexp backreference (RT#129377)
+
+* Mon Jan 16 2017 Jitka Plesnikova <jplesnik@redhat.com> - 4:5.24.1-385
+- 5.24.1 bump (see <http://search.cpan.org/dist/perl-5.24.1/pod/perldelta.pod>
+  for release notes)
+
+* Thu Jan 12 2017 Igor Gnatenko <ignatenko@redhat.com> - 4:5.24.0-384
+- Rebuild for readline 7.x
+
+* Fri Jan 06 2017 Petr Pisar <ppisar@redhat.com> - 4:5.24.0-383
+- Remove bundled Math-BigInt-FastCalc (bug #1408463)
+- Remove bundled Math-BigRat (bug #1408467)
+- Remove bundled bignum (bug #1409585)
+
+* Mon Dec 19 2016 Petr Pisar <ppisar@redhat.com> - 4:5.24.0-382
+- Fix a crash in optimized evaluation of "or ((0) x 0))" (RT#130247)
+- Fix a memory leak in IO::Poll (RT#129788)
+- Fix regular expression matching (RT#130307)
+
+* Thu Dec 01 2016 Petr Pisar <ppisar@redhat.com> - 4:5.24.0-381
+- Fix crash in Storable when deserializing malformed code reference
+  (RT#68348, RT#130098)
+- Fix crash on explicit return from regular expression substitution (RT#130188)
+- Tighten dependencies between architecture specific sub-packages to ISA
+- Fix assigning split() return values to an array
+- Fix const correctness in hv_func.h (bug #1242980)
+
+* Wed Nov 09 2016 Petr Pisar <ppisar@redhat.com> - 4:5.24.0-380
+- Tie perl-Errno release to interpreter build because of kernel version check
+  (bug #1393421)
+
+* Thu Nov 03 2016 Petr Pisar <ppisar@redhat.com> - 4:5.24.0-379
+- Fix crash in "evalbytes S" (RT#129196)
+- Fix crash in splice (RT#129164, RT#129166, RT#129167)
+- Fix string overrun in Perl_gv_fetchmethod_pvn_flags (RT#129267)
+- Fix crash when matching UTF-8 string with non-UTF-8 substrings (RT#129350)
+- Fix parsing perl options in shell bang line (RT#129336)
+- Fix firstchar bitmap under UTF-8 with prefix optimization (RT#129950)
+- Avoid infinite loop in h2xs tool if enum and type have the same name
+  (RT130001)
+- Fix stack handling when calling chdir without an argument (RT#129130)
+
+* Fri Sep 02 2016 Petr Pisar <ppisar@redhat.com> - 4:5.24.0-378
+- perl-core depends on Parse::CPAN::Meta module instead of package name to allow
+  upgrading perl-CPAN-Meta to 2.150010 (bug #1370681)
+
+* Tue Aug 02 2016 Jitka Plesnikova <jplesnik@redhat.com> - 4:5.24.0-377
+- Avoid loading of modules from current directory, CVE-2016-1238, (bug #1360425)
+
+* Thu Jul 28 2016 Petr Pisar <ppisar@redhat.com> - 4:5.24.0-376
+- Fix handling \N{} in tr for characters in range 128--255 (RT#128734)
+
+* Tue Jul 26 2016 Petr Pisar <ppisar@redhat.com> - 4:5.24.0-375
+- Fix building without perl in the build root
+- Own systemtap directories by perl-devel
+
+* Tue Jul 12 2016 Petr Pisar <ppisar@redhat.com> - 4:5.24.0-374
+- Fix a crash in lexical scope warnings (RT#128597)
+
+* Fri Jul 08 2016 Petr Pisar <ppisar@redhat.com> - 4:5.24.0-373
+- Fix a crash in "Subroutine redefined" warning (RT#128257)
+
+* Thu Jul 07 2016 Petr Pisar <ppisar@redhat.com> - 4:5.24.0-372
+- Fix a crash when vivifying a stub in a deleted package (RT#128532)
+
+* Thu Jul 07 2016 Jitka Plesnikova <jplesnik@redhat.com> - 4:5.24.0-371
+- Do not let XSLoader load relative paths (CVE-2016-6185)
+
+* Mon Jul 04 2016 Petr Pisar <ppisar@redhat.com> - 4:5.24.0-370
+- Fix line numbers with perl -x (RT#128508)
+
+* Fri Jun 24 2016 Petr Pisar <ppisar@redhat.com> - 4:5.24.0-369
+- Do not crash when inserting a non-stash into a stash (RT#128238)
+
+* Wed Jun 22 2016 Petr Pisar <ppisar@redhat.com> - 4:5.24.0-368
+- Do not use unitialized memory in $h{\const} warnings (RT#128189)
+- Fix precedence in hv_ename_delete (RT#128086)
+- Do not treat %: as a stash (RT#128238)
+
+* Mon Jun 20 2016 Petr Pisar <ppisar@redhat.com> - 4:5.24.0-367
+- Fix compiling regular expressions like /\X*(?0)/ (RT#128109)
+
+* Thu Jun 16 2016 Petr Pisar <ppisar@redhat.com> - 4:5.24.0-366
+- Do not mangle errno from failed socket calls (RT#128316)
+
+* Tue Jun 14 2016 Petr Pisar <ppisar@redhat.com> - 4:5.24.0-365
+- Fix a memory leak when compiling a regular expression with a POSIX class
+  (RT#128313)
+
+* Thu May 19 2016 Petr Pisar <ppisar@redhat.com> - 4:5.24.0-364
+- Remove reflexive dependencies
+- Use pregenerated dependencies on bootstrapping
+- Specify more build-time dependencies
+
+* Wed May 18 2016 Jitka Plesnikova <jplesnik@redhat.com> - 4:5.24.0-363
+- Stop providing old perl(MODULE_COMPAT_5.22.*)
+- Update license tags
+
+* Wed May 11 2016 Jitka Plesnikova <jplesnik@redhat.com> - 4:5.24.0-362
+- 5.24.0 bump (see <http://search.cpan.org/dist/perl-5.24.0/pod/perldelta.pod>
+  for release notes)
+- Update sub-packages; Update or remove patches
+
+* Mon May 02 2016 Jitka Plesnikova <jplesnik@redhat.com> - 4:5.22.6-361
+- 5.22.2 bump (see <http://search.cpan.org/dist/perl-5.22.2/pod/perldelta.pod>
+  for release notes)
+
+* Mon Apr 18 2016 Petr Pisar <ppisar@redhat.com> - 4:5.22.1-360
+- Weak perl-Encode-devel dependency on perl-devel to Recommends level
+  (bug #1129443)
+- Remove perl-ExtUtils-ParseXS dependency on perl-devel (bug #1129443)
+- Require perl-devel by perl-ExtUtils-MakeMaker
+- Provide MM::maybe_command independently (bug #1129443)
+- Replace ExtUtils::MakeMaker dependency with ExtUtils::MM::Utils in IPC::Cmd
+  (bug #1129443)
+- Remove perl-ExtUtils-Install dependency on perl-devel (bug #1129443)
+- Remove perl-ExtUtils-Manifest dependency on perl-devel (bug #1129443)
+
+* Tue Mar 15 2016 Petr Pisar <ppisar@redhat.com> - 4:5.22.1-359
+- Do not filter FCGI dependency, CGI is non-core now
+
+* Fri Mar 04 2016 Petr Pisar <ppisar@redhat.com> - 4:5.22.1-358
+- Remove bundled perl-IPC-SysV (bug #1308527)
+
+* Wed Mar 02 2016 Petr Pisar <ppisar@redhat.com> - 4:5.22.1-357
+- Fix CVE-2016-2381 (ambiguous environment variables handling) (bug #1313702)
+
+* Thu Feb 04 2016 Fedora Release Engineering <releng@fedoraproject.org> - 4:5.22.1-356
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_24_Mass_Rebuild
+
+* Tue Dec 15 2015 Petr Pisar <ppisar@redhat.com> - 4:5.22.1-355
+- Remove bundled Math-BigInt (bug #1277203)
+
+* Mon Dec 14 2015 Jitka Plesnikova <jplesnik@redhat.com> - 5.22.1-354
+- 5.22.1 bump (see <http://search.cpan.org/dist/perl-5.22.1/pod/perldelta.pod>
+  for release notes)
+
+* Tue Oct 20 2015 Petr Pisar <ppisar@redhat.com> - 4:5.22.0-353
+- Rebuild to utilize perl(:VERSION) dependency symbol
+
+* Tue Oct 13 2015 Petr Pisar <ppisar@redhat.com> - 4:5.22.0-352
+- Do not own IO::Socket::IP manual page by perl-IO
+
+* Fri Oct 09 2015 Petr Pisar <ppisar@redhat.com> - 4:5.22.0-351
+- Sub-package Attribute-Handlers
+- Sub-package Devel-Peek
+- Sub-package Devel-SelfStubber
+- Sub-package SelfLoader
+- Sub-package IO
+- Sub-package Errno
+- Correct perl-Digest-SHA dependencies
+- Correct perl-Pod-Perldoc dependencies
+- Move utf8 and dependencies to perl-libs
+- Correct perl-devel and perl-CPAN dependencies
+- Sub-package IPC-SysV
+- Sub-package Test
+- Sub-package utilities (splain) into perl-utils
+- Provide perl version in perl(:VERSION) dependency symbol
+
+* Fri Aug 07 2015 Petr Pisar <ppisar@redhat.com> - 4:5.22.0-350
+- Sub-package Memoize
+- Sub-package Net-Ping
+- Sub-package Pod-Html
+
+* Thu Jul 16 2015 Petr Pisar <ppisar@redhat.com> - 4:5.22.0-349
+- Disable hardening due to some run-time failures (bug #1238804)
+
+* Mon Jul 13 2015 Petr Pisar <ppisar@redhat.com> - 4:5.22.0-348
+- Sub-package bignum
+- Sub-package Math-BigRat
+- Sub-package Math-BigInt-FastCalc
+- Sub-package Math-Complex
+- Remove bundled perl-Config-Perl-V (bug #1238203)
+- Remove bundled perl-MIME-Base64 (bug #1238222)
+- Remove bundled perl-PerlIO-via-QuotedPrint (bug #1238229)
+- Remove bundled perl-Pod-Escapes (bug #1238237)
+- Remove bundled perl-Term-Cap (bug #1238248)
+- Remove bundled perl-Text-Balanced (bug #1238269)
+- Remove bundled perl-libnet (bug #1238689)
+- Remove bundled perl-perlfaq (bug #1238703)
+- Remove bundled perl-Unicode-Normalize (bug #1238730)
+- Remove bundled perl-Unicode-Collate (bug #1238760)
+
+* Wed Jul 08 2015 Petr Pisar <ppisar@redhat.com> - 4:5.22.0-347
+- Store distribution's linker and compiler flags to more Config's options
+  in order to apply them when linking executable programs (bug #1238804)
+- Sub-package Config-Perl-V (bug #1238203)
+- Sub-package MIME-Base64 (bug #1238222)
+- Sub-package PerlIO-via-QuotedPrint (bug #1238229)
+- Update Pod-Escapes metadata (bug #1238237)
+- Sub-package Term-Cap (bug #1238248)
+- Sub-package Text-Balanced (bug #1238269)
+- Sub-package libnet (bug #1238689)
+- Sub-package perlfaq (bug #1238703)
+- Sub-package Unicode-Normalize (bug #1238730)
+- Sub-package Unicode-Collate (bug #1238760)
+- Sub-package Math-BigInt
+- Do not provide Net/libnet.cfg (bug #1238689)
+- Revert downstream change in Net::Config default configuration
+- Move libnetcfg tool from perl-devel into perl-libnetcfg sub-package
+
+* Thu Jun 18 2015 Petr Pisar <ppisar@redhat.com> - 4:5.22.0-346
+- Subpackage "open" module in order to keep deprecated "encoding" module
+  optional (bug #1228378)
+- Control building dual-lived sub-packages by perl_bootstrap macro
+- Make PadlistNAMES() lvalue again (bug #1231165)
+- Make magic vtable writable as a work-around for Coro (bug #1231165)
+- Explain file break-down into RPM packages in perl package description
+
+* Thu Jun 18 2015 Fedora Release Engineering <rel-eng@lists.fedoraproject.org> - 4:5.22.0-345
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_23_Mass_Rebuild
+
+* Wed Jun 10 2015 Jitka Plesnikova <jplesnik@redhat.com> - 4:5.22.0-244
+- Stop providing old perl(MODULE_COMPAT_5.20.*)
+
+* Thu Jun 04 2015 Jitka Plesnikova <jplesnik@redhat.com> - 4:5.22.0-243
+- Move ok and Test::Use::ok to perl-Test-Simple
+
+* Wed Jun 03 2015 Jitka Plesnikova <jplesnik@redhat.com> - 4:5.22.0-242
+- Move bin/encguess to perl-Encode
+
+* Mon Jun 01 2015 Jitka Plesnikova <jplesnik@redhat.com> - 4:5.22.0-241
+- 5.22.0 bump (see <http://search.cpan.org/dist/perl-5.22.0/pod/perldelta.pod>
+  for release notes)
+- Update sub-packages and erase the removed modules from the core
+- Clean patches, not needed with new version
+- Update patches to work with new version
+
+* Wed Apr 15 2015 Jitka Plesnikova <jplesnik@redhat.com> - 4:5.20.2-328
+- Sub-package perl-CGI-Fast and perl-Module-Build-Deprecated
+- Add missing dual-life modules to perl-core
+
+* Thu Apr 02 2015 Petr Šabata <contyk@redhat.com> - 4:5.20.2-327
+- Bump to make koji happy
+
+* Thu Apr 02 2015 Petr Šabata <contyk@redhat.com> - 4:5.20.2-326
+- Correct license tags of the main package, CGI, Compress-Raw-Zlib,
+  Digest-MD5, Test-Simple and Time-Piece
+- Package a Pod-Html license clarification email
+
+* Wed Mar 25 2015 Petr Pisar <ppisar@redhat.com> - 4:5.20.2-325
+- Sub-package Text-Tabs+Wrap (bug #910798)
+
+* Thu Mar 19 2015 Lubomir Rintel <lkundrak@v3.sk> - 4:5.20.2-324
+- Add systemtap probes for new dtrace markers
+
+* Mon Mar 16 2015 Petr Pisar <ppisar@redhat.com> - 4:5.20.2-323
+- Move perl(:MODULE_COMPAT_*) symbol and include directories to perl-libs
+  package (bug #1174951)
+
+* Sat Feb 21 2015 Till Maas <opensource@till.name> - 4:5.20.2-322
+- Rebuilt for Fedora 23 Change
+  https://fedoraproject.org/wiki/Changes/Harden_all_packages_with_position-independent_code
+
+* Wed Feb 18 2015 Jitka Plesnikova <jplesnik@redhat.com> - 4:5.20.2-321
+- Provide 5.20.2 MODULE_COMPAT
+- Clean list of provided files
+- Update names of changed patches
+
+* Tue Feb 17 2015 Jitka Plesnikova <jplesnik@redhat.com> - 4:5.20.2-320
+- 5.20.2 bump (see <http://search.cpan.org/dist/perl-5.20.2/pod/perldelta.pod>
+  for release notes)
+- Regenerate a2p.c (BZ#1177672)
+
+* Mon Feb 16 2015 Petr Pisar <ppisar@redhat.com> - 4:5.20.1-319
+- Improve h2ph fix for GCC 5.0
+
+* Thu Feb 12 2015 Petr Pisar <ppisar@redhat.com> - 4:5.20.1-318
+- Fix regressions with GCC 5.0
+
+* Tue Feb 03 2015 Jitka Plesnikova <jplesnik@redhat.com> - 4:5.20.1-317
+- Sub-package inc-latest module
+
+* Fri Jan 23 2015 Petr Pisar <ppisar@redhat.com> - 4:5.20.1-316
+- Delete dual-living programs clashing on debuginfo files (bug #878863)
+
+* Mon Dec 01 2014 Petr Pisar <ppisar@redhat.com> - 4:5.20.1-315
+- Report inaccesible file on failed require (bug #1166504)
+- Use stronger algorithm needed for FIPS in t/op/taint.t (bug #1128032)
+
+* Wed Nov 19 2014 Petr Pisar <ppisar@redhat.com> - 4:5.20.1-314
+- Consider Filter::Util::Call dependency as mandatory (bug #1165183)
+- Sub-package encoding module
+- Own upper directories by each package that installs a file there and
+  remove empty directories (bug #1165013)
+
+* Thu Nov 13 2014 Petr Pisar <ppisar@redhat.com> - 4:5.20.1-313
+- Freeze epoch at perl-Pod-Checker and perl-Pod-Usage (bug #1163490)
+- Remove bundled perl-ExtUtils-Command (bug #1158536)
+- Remove bundled perl-Filter-Simple (bug #1158542)
+
+* Wed Nov 12 2014 Petr Pisar <ppisar@redhat.com> - 4:5.20.1-312
+- Do not double-own perl-Pod-Usage' and perl-Pod-Checker' files by
+  perl-Pod-Parser on bootstrap
+- Sub-package ExtUtils-Command (bug #1158536)
+- Sub-package Filter-Simple (bug #1158542)
+- Build-require groff-base instead of big groff
+
+* Wed Oct 29 2014 Petr Pisar <ppisar@redhat.com> - 4:5.20.1-311
+- Remove bundled perl-Devel-PPPort (bug #1143999)
+- Remove bundled perl-B-Debug (bug #1142952)
+- Remove bundled perl-ExtUtils-CBuilder (bug #1144033)
+- Remove bundled perl-ExtUtils-Install (bug #1144068)
+
+* Thu Oct 23 2014 Petr Pisar <ppisar@redhat.com> - 4:5.20.1-310
+- Move all Module-CoreList files into perl-Module-CoreList
+- Sub-package corelist(1) into perl-Module-CoreList-tools (bug #1142757)
+- Remove bundled perl-Module-CoreList, and perl-Module-CoreList-tools
+  (bug #1142757)
+- Sub-package Devel-PPPort (bug #1143999)
+- Sub-package B-Debug (bug #1142952)
+- Use native version for perl-ExtUtils-CBuilder
+- Specify all dependencies for perl-ExtUtils-Install (bug #1144068)
+- Require perl-ExtUtils-ParseXS by perl-ExtUtils-MakeMaker because of xsubpp
+
+* Tue Sep 16 2014 Petr Šabata <contyk@redhat.com> - 4:5.20.1-309
+- Provide 5.20.0 MODULE_COMPAT
+
+* Mon Sep 15 2014 Jitka Plesnikova <jplesnik@redhat.com> - 4:5.20.1-308
+- 5.20.1 bump (see <http://search.cpan.org/dist/perl-5.20.1/pod/perldelta.pod>
+  for release notes)
+- Sub-package perl-ExtUtils-Miniperl (bug #1141222)
+
+* Wed Sep 10 2014 Petr Pisar <ppisar@redhat.com> - 4:5.20.0-307
+- Specify all dependencies for perl-CPAN (bug #1090112)
+- Disable non-core modules at perl-CPAN when bootstrapping
+- Remove bundled perl-CPAN (bug #1090112)
+
+* Sun Sep 07 2014 Jitka Plesnikova <jplesnik@redhat.com> - 4:5.20.0-306
+- Stop providing old perl(MODULE_COMPAT_5.18.*)
+
+* Mon Aug 18 2014 Jitka Plesnikova <jplesnik@redhat.com> - 4:5.20.0-305
+- Update to Perl 5.20.0
+- Clean patches, not needed with new version
+- Update patches to work with new version
+- Update version of sub-packages, remove the deleted sub-packages
+- Sub-package perl-IO-Socket-IP, perl-experimental
+- Disable BR perl(local::lib) for cpan tool when bootstraping
+
+* Sun Aug 17 2014 Fedora Release Engineering <rel-eng@lists.fedoraproject.org> - 4:5.18.2-304
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_21_22_Mass_Rebuild
+
+* Fri Aug 08 2014 Petr Pisar <ppisar@redhat.com> - 4:5.18.2-303
+- Declare dependencies for cpan tool (bug #1122498)
+- Use stronger algorithm needed for FIPS in t/op/crypt.t (bug #1128032)
+- Make *DBM_File desctructors thread-safe (bug #1107543)
+
+* Tue Jul 29 2014 Jitka Plesnikova <jplesnik@redhat.com> - 4:5.18.2-302
+- Sub-package perl-Term-ANSIColor and remove it (bug #1121924)
+
+* Fri Jun 27 2014 Petr Pisar <ppisar@redhat.com> - 4:5.18.2-301
+- Remove bundled perl-App-a2p, perl-App-find2perl, perl-App-s2p, and
+  perl-Package-Constants
+- Correct perl-App-s2p license to ((GPL+ or Artistic) and App-s2p)
+
+* Thu Jun 19 2014 Petr Pisar <ppisar@redhat.com> - 4:5.18.2-300
+- Sub-package perl-App-find2perl (bug #1111196)
+- Sub-package perl-App-a2p (bug #1111232)
+- Sub-package perl-App-s2p (bug #1111242)
+
+* Sat Jun 07 2014 Fedora Release Engineering <rel-eng@lists.fedoraproject.org> - 4:5.18.2-299
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_21_Mass_Rebuild
+
+* Thu Apr 10 2014 Petr Pisar <ppisar@redhat.com> - 4:5.18.2-298
+- Pass -fwrapv to stricter GCC 4.9 (bug #1082957)
+
+* Fri Apr 04 2014 Petr Pisar <ppisar@redhat.com> - 4:5.18.2-297
+- Fix t/comp/parser.t not to load system modules (bug #1084399)
+
+* Mon Feb 03 2014 Petr Pisar <ppisar@redhat.com> - 4:5.18.2-296
+- Move macro files into %%{_rpmconfigdir}/macros.d
+
+* Wed Jan 29 2014 Petr Pisar <ppisar@redhat.com> - 4:5.18.2-295
+- Provide perl(CPAN::Meta::Requirements) with six decimal places
+
+* Tue Jan 21 2014 Petr Pisar <ppisar@redhat.com> - 4:5.18.2-294
+- Drop perl-Test-Simple-tests package is it is not delivered by dual-lived
+  version
+- Hide dual-lived perl-Object-Accessor
+
+* Tue Jan 14 2014 Petr Pisar <ppisar@redhat.com> - 4:5.18.2-293
+- Use a macro to cover all 64-bit PowerPC architectures (bug #1052709)
+
+* Tue Jan 14 2014 Petr Pisar <ppisar@redhat.com> - 4:5.18.2-292
+- Use upstream patch to fix a test failure in perl5db.t when TERM=vt100
+
+* Tue Dec 10 2013 Jitka Plesnikova <jplesnik@redhat.com> - 4:5.18.2-291
+- 5.18.2 bump (see <http://search.cpan.org/dist/perl-5.18.2/pod/perldelta.pod>
+  for release notes)
+
+* Mon Dec 02 2013 Petr Pisar <ppisar@redhat.com> - 4:5.18.1-290
+- Document Math::BigInt::CalcEmu requires Math::BigInt (bug #959096)
+
+* Tue Oct 22 2013 Petr Pisar <ppisar@redhat.com> - 4:5.18.1-289
+- perl_default_filter macro does not need to filter private libraries from
+  provides (bug #1020809)
+- perl_default_filter anchors the filter regular expressions
+- perl_default_filter appends the filters instead of redefining them
+
+* Mon Sep 09 2013 Jitka Plesnikova <jplesnik@redhat.com> - 4:5.18.1-288
+- Fix rules for parsing numeric escapes in regexes (bug #978233)
+- Fix crash with \&$glob_copy (bug #989486)
+- Fix coreamp.t's rand test (bug #970567)
+- Reap child in case where exception has been thrown (bug #988805)
+- Fix using regexes with multiple code blocks (bug #982131)
+
+* Tue Aug 13 2013 Jitka Plesnikova <jplesnik@redhat.com> - 4:5.18.1-287
+- 5.18.1 bump (see <http://search.cpan.org/dist/perl-5.18.1/pod/perldelta.pod>
+  for release notes)
+- Disable macro %%{rebuild_from_scratch}
+- Fix regex seqfault 5.18 regression (bug #989921)
+- Fixed interpolating downgraded variables into upgraded (bug #970913)
+- SvTRUE returns correct value (bug #967463)
+- Fixed doc command in perl debugger (bug #967461)
+- Fixed unaligned access in slab allocator (bug #964950)
+
+* Sat Aug 03 2013 Fedora Release Engineering <rel-eng@lists.fedoraproject.org> - 4:5.18.0-286
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_20_Mass_Rebuild
+
+* Mon Jul 15 2013 Petr Pisar <ppisar@redhat.com> - 4:5.18.0-285
+- Stop providing old perl(MODULE_COMPAT_5.16.*)
+
+* Fri Jul 12 2013 Petr Pisar <ppisar@redhat.com> - 4:5.18.0-284
+- Perl 5.18 rebuild
+
+* Tue Jul 09 2013 Petr Pisar <ppisar@redhat.com> - 4:5.18.0-283
+- Define SONAME for libperl.so and move the libary into standard path
+- Link XS modules to libperl.so on Linux (bug #960048)
+
+* Mon Jul 08 2013 Petr Pisar <ppisar@redhat.com> - 4:5.18.0-282
+- Do not load system Term::ReadLine::Gnu while running tests
+- Disable ornaments on perl5db AutoTrace tests
+
+* Thu Jul 04 2013 Jitka Plesnikova <jplesnik@redhat.com> - 4:5.18.0-281
+- Update to Perl 5.18.0
+- Clean patches, not needed with new version
+
+* Wed Jun 26 2013 Petr Pisar <ppisar@redhat.com> - 4:5.16.3-280
+- Edit local patch level before compilation
+
+* Fri Jun 14 2013 Petr Pisar <ppisar@redhat.com> - 4:5.16.3-279
+- Do not distribute File::Spec::VMS (bug #973713)
+- Remove bundled CPANPLUS-Dist-Build (bug #973041)
+
+* Wed Jun 12 2013 Petr Pisar <ppisar@redhat.com> - 4:5.16.3-278
+- Update SystemTap scripts to recognize new phase__change marker and new probe
+  arguments (bug #971094)
+- Update h2ph(1) documentation (bug #948538)
+- Update pod2html(1) documentation (bug #948538)
+- Do not double-own archlib directory (bug #894195)
+
+* Tue Jun 11 2013 Petr Pisar <ppisar@redhat.com> - 4:5.16.3-277
+- Move CPANPLUS-Dist-Build files from perl-CPANPLUS
+- Move CPAN-Meta-Requirements files from CPAN-Meta
+- Add perl-Scalar-List-Utils to perl-core dependencies
+
+* Thu Jun 06 2013 Petr Pisar <ppisar@redhat.com> - 4:5.16.3-276
+- Require $Config{libs} providers (bug #905482)
+
+* Thu May 30 2013 Petr Pisar <ppisar@redhat.com> - 4:5.16.3-275
+- Correct typo in perl-Storable file list (bug #966865)
+- Remove bundled Storable (bug #966865)
+
+* Wed May 29 2013 Petr Pisar <ppisar@redhat.com> - 4:5.16.3-274
+- Sub-package Storable (bug #966865)
+
+* Mon May 13 2013 Petr Pisar <ppisar@redhat.com> - 4:5.16.3-273
+- Use lib64 directories on aarch64 architecture (bug #961900)
+
+* Fri May 10 2013 Petr Pisar <ppisar@redhat.com> - 4:5.16.3-272
+- Make regular expression engine safe in a signal handler (bug #849703)
+- Remove bundled ExtUtils-ParseXS, and Time-HiRes
+
+* Fri Apr 26 2013 Petr Pisar <ppisar@redhat.com> - 4:5.16.3-271
+- Sub-package Time-HiRes (bug #957048)
+- Remove bundled Getopt-Long, Locale-Maketext, and Sys-Syslog
+
+* Wed Apr 10 2013 Petr Pisar <ppisar@redhat.com> - 4:5.16.3-270
+- Fix leaking tied hashes (bug #859910)
+- Fix dead lock in PerlIO after fork from thread (bug #947444)
+- Add proper conflicts to perl-Getopt-Long, perl-Locale-Maketext, and
+  perl-Sys-Syslog
+
+* Tue Apr 09 2013 Petr Pisar <ppisar@redhat.com> - 4:5.16.3-269
+- Sub-package Sys-Syslog (bug #950057)
+
+* Fri Apr 05 2013 Petr Pisar <ppisar@redhat.com> - 4:5.16.3-268
+- Sub-package Getopt-Long (bug #948855)
+- Sub-package Locale-Maketext (bug #948974)
+
+* Fri Apr 05 2013 Petr Pisar <ppisar@redhat.com> - 4:5.16.3-267
+- Remove bundled constant, DB_File, Digest-MD5, Env, Exporter, File-Path,
+  File-Temp, Module-Load, Log-Message-Simple, Pod-Simple, Test-Harness,
+  Text-ParseWords
+
+* Mon Mar 25 2013 Petr Pisar <ppisar@redhat.com> - 4:5.16.3-266
+- Filter provides from *.pl files (bug #924938)
+
+* Fri Mar 22 2013 Petr Pisar <ppisar@redhat.com> - 4:5.16.3-265
+- Conflict perl-autodie with older perl (bug #911226)
+- Sub-package Env (bug #924619)
+- Sub-package Exporter (bug #924645)
+- Sub-package File-Path (bug #924782)
+- Sub-package File-Temp (bug #924822)
+
+* Thu Mar 21 2013 Petr Pisar <ppisar@redhat.com> - 4:5.16.3-264
+- Sub-package constant (bug #924169)
+- Sub-package DB_File (bug #924351)
+
+* Tue Mar 19 2013 Petr Pisar <ppisar@redhat.com> - 4:5.16.3-263
+- Correct perl-Digest-MD5 dependencies
+- Remove bundled Archive-Extract, File-Fetch, HTTP-Tiny,
+  Module-Load-Conditional, Time-Local
+
+* Fri Mar 15 2013 Petr Pisar <ppisar@redhat.com> - 4:5.16.3-262
+- Correct dependencies of perl-HTTP-Tiny
+- Sub-package Time-Local (bug #922054)
+
+* Thu Mar 14 2013 Petr Pisar <ppisar@redhat.com> - 4:5.16.3-261
+- 5.16.3 bump (see <http://search.cpan.org/dist/perl-5.16.3/pod/perldelta.pod>
+  for release notes)
+- Remove bundled autodie, B-Lint, CPANPLUS, Encode, File-CheckTree, IPC-Cmd,
+  Params-Check, Text-Soundex, Thread-Queue
+
+* Tue Mar 05 2013 Petr Pisar <ppisar@redhat.com> - 4:5.16.2-260
+- Fix CVE-2013-1667 (DoS in rehashing code) (bug #918008)
+
+* Mon Feb 18 2013 Petr Pisar <ppisar@redhat.com> - 4:5.16.2-259
+- Sub-package autodie (bug #911226)
+- Add NAME headings to CPAN modules (bug #908113)
+
+* Thu Feb 14 2013 Petr Pisar <ppisar@redhat.com> - 4:5.16.2-258
+- Fix perl-Encode-devel dependency declaration
+
+* Thu Feb 14 2013 Petr Pisar <ppisar@redhat.com> - 4:5.16.2-257
+- Sub-package Thread-Queue (bug #911062)
+
+* Wed Feb 13 2013 Petr Pisar <ppisar@redhat.com> - 4:5.16.2-256
+- Sub-package File-CheckTree (bug #909144)
+- Sub-package Text-ParseWords
+- Sub-package Encode (bug #859149)
+
+* Fri Feb 08 2013 Petr Pisar <ppisar@redhat.com> - 4:5.16.2-255
+- Remove bundled Log-Message
+- Remove bundled Term-UI
+
+* Thu Feb 07 2013 Petr Pisar <ppisar@redhat.com> - 4:5.16.2-254
+- Correct perl-podlators dependencies
+- Obsolete perl-ExtUtils-Typemaps by perl-ExtUtils-ParseXS (bug #891952)
+
+* Tue Feb 05 2013 Petr Pisar <ppisar@redhat.com> - 4:5.16.2-253
+- Sub-package Pod-Checker and Pod-Usage (bugs #907546, #907550)
+
+* Mon Feb 04 2013 Petr Pisar <ppisar@redhat.com> - 4:5.16.2-252
+- Remove bundled PathTools
+
+* Wed Jan 30 2013 Petr Pisar <ppisar@redhat.com> - 4:5.16.2-251
+- Sub-package B-Lint (bug #906015)
+
+* Wed Jan 30 2013 Petr Pisar <ppisar@redhat.com> - 4:5.16.2-250
+- Sub-package Text-Soundex (bug #905889)
+- Fix conflict declaration at perl-Pod-LaTeX (bug #904085)
+- Remove bundled Module-Pluggable (bug #903624)
+
+* Tue Jan 29 2013 Petr Pisar <ppisar@redhat.com> - 4:5.16.2-249
+- Run-require POD convertors by Module-Build and ExtUtils-MakeMaker to
+  generate documentation when building other packages
+
+* Fri Jan 25 2013 Petr Pisar <ppisar@redhat.com> - 4:5.16.2-248
+- Sub-package Pod-LaTeX (bug #904085)
+
+* Wed Jan 16 2013 Petr Pisar <ppisar@redhat.com> - 4:5.16.2-247
+- Remove bundled Pod-Parser
+
+* Fri Jan 11 2013 Petr Pisar <ppisar@redhat.com> - 4:5.16.2-246
+- Fix CVE-2012-6329 (misparsing of maketext strings) (bug #884354)
+
+* Thu Jan 10 2013 Petr Pisar <ppisar@redhat.com> - 4:5.16.2-245
+- Do not package App::Cpan(3pm) to perl-Test-Harness (bug #893768)
+
+* Tue Dec 18 2012 Petr Pisar <ppisar@redhat.com> - 4:5.16.2-244
+- Remove bundled Archive-Tar
+- Remove bundled CPAN-Meta-YAML
+- Remove bundled Module-Metadata
+
+* Tue Dec 18 2012 Petr Pisar <ppisar@redhat.com> - 4:5.16.2-243
+- Remove bundled Filter modules
+
+* Mon Nov 05 2012 Jitka Plesnikova <jplesnik@redhat.com> - 4:5.16.2-242
+- 5.16.2 bump (see
+  http://search.cpan.org/dist/perl-5.16.1/pod/perldelta.pod for release
+  notes)
+
+* Wed Oct 31 2012 Petr Pisar <ppisar@redhat.com> - 4:5.16.1-241
+- Remove bundled podlators (bug #856516)
+
+* Wed Oct 17 2012 Jitka Plesnikova <jplesnik@redhat.com> - 4:5.16.1-240
+- Do not crash when vivifying $| (bug #865296)
+
+* Mon Sep 24 2012 Petr Pisar <ppisar@redhat.com> - 4:5.16.1-239
+- Conflict perl-podlators with perl before sub-packaging (bug #856516)
+
+* Fri Sep 21 2012 Petr Pisar <ppisar@redhat.com> - 4:5.16.1-238
+- Do not leak with attribute on my variable (bug #858966)
+- Allow operator after numeric keyword argument (bug #859328)
+- Extend stack in File::Glob::glob (bug #859332)
+
+* Thu Sep 20 2012 Petr Pisar <ppisar@redhat.com> - 4:5.16.1-237
+- Put perl-podlators into perl-core list (bug #856516)
+
+* Tue Sep 18 2012 Petr Pisar <ppisar@redhat.com> - 4:5.16.1-236
+- Remove bundled perl-ExtUtils-Manifest
+- perl-PathTools uses Carp
+
+* Fri Sep 14 2012 Petr Pisar <ppisar@redhat.com> - 4:5.16.1-235
+- Override the Pod::Simple::parse_file to set output to STDOUT by default
+  (bug #826872)
+
+* Wed Sep 12 2012 Petr Pisar <ppisar@redhat.com> - 4:5.16.1-234
+- Sub-package perl-podlators (bug #856516)
+
+* Tue Sep 11 2012 Petr Pisar <ppisar@redhat.com> - 4:5.16.1-233
+- Do not access freed memory when cloning thread (bug #825749)
+- Match non-breakable space with /[\h]/ in ASCII mode (bug #844919)
+- Clear $@ before `do' I/O error (bug #834226)
+- Do not truncate syscall() return value to 32 bits (bug #838551)
+
+* Wed Sep 05 2012 Petr Pisar <ppisar@redhat.com> - 4:5.16.1-232
+- Move App::Cpan from perl-Test-Harness to perl-CPAN (bug #854577)
+
+* Fri Aug 24 2012 Petr Pisar <ppisar@redhat.com> - 4:5.16.1-231
+- Remove perl-devel dependency from perl-Test-Harness and perl-Test-Simple
+
+* Mon Aug 13 2012 Marcela Mašláňová <mmaslano@redhat.com> - 4:5.16.0-230
+- define perl_compat by macro for rebuilds
+- sub-packages depend on compat rather than on nvr
+
+* Thu Aug  9 2012 Marcela Mašláňová <mmaslano@redhat.com> - 4:5.16.0-229
+- apply conditionals for dual life patches
+
+* Thu Aug 09 2012 Jitka Plesnikova <jplesnik@redhat.com> 4:5.16.1-228
+- 5.16.1 bump (see
+  http://search.cpan.org/dist/perl-5.16.1/pod/perldelta.pod for release
+  notes)
+- Fixed reopening by scalar handle (bug #834221)
+- Fixed tr/// multiple transliteration (bug #831679)
+- Fixed heap-overflow in gv_stashpv (bug #826516)
+
+* Fri Jul 20 2012 Fedora Release Engineering <rel-eng@lists.fedoraproject.org> - 4:5.16.0-227
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_18_Mass_Rebuild
+
+* Fri Jul 13 2012 Paul Howarth <paul@city-fan.org> 4:5.16.0-226
+- Move the rest of ExtUtils-ParseXS into its sub-package, so that the main
+  perl package doesn't need to pull in perl-devel (bug #839953)
+
+* Mon Jul 02 2012 Jitka Plesnikova <jplesnik@redhat.com> 4:5.16.0-225
+- Fix broken atof (bug #835452)
+
+* Wed Jun 27 2012 Petr Pisar <ppisar@redhat.com> - 4:5.16.0-224
+- perl-Pod-Perldoc must require groff-base because Pod::Perldoc::ToMan executes
+  roff
+
+* Mon Jun 25 2012 Petr Pisar <ppisar@redhat.com> - 4:5.16.0-223
+- Test::Build requires Data::Dumper
+- Sub-package perl-Pod-Parser
+
+* Thu Jun 07 2012 Petr Pisar <ppisar@redhat.com> - 4:5.16.0-222
+- Remove MODULE_COMPAT_5.14.* Provides
+
+* Wed Jun 06 2012 Petr Pisar <ppisar@redhat.com> - 4:5.16.0-221
+- Perl 5.16 rebuild
+
+* Wed Jun 06 2012 Petr Pisar <ppisar@redhat.com> - 4:5.16.0-220
+- perl_bootstrap macro is distributed in perl-srpm-macros now
+
+* Fri Jun 01 2012 Petr Pisar <ppisar@redhat.com> - 4:5.16.0-219
+- Own zipdetails and IO::Compress::FAQ by perl-IO-Compress
+
+* Fri Jun  1 2012 Jitka Plesnikova <jplesnik@redhat.com> - 4:5.16.0-218
+- Fix find2perl to translate ? glob properly (bug #825701)
+
+* Thu May 31 2012 Petr Pisar <ppisar@redhat.com> - 4:5.16.0-218
+- Shorten perl-Module-Build version to 2 digits to follow upstream
+
+* Fri May 25 2012 Marcela Mašláňová <mmaslano@redhat.com> - 4:5.16.0-217
+- upload the stable 5.16.0
+
+* Wed May 16 2012 Marcela Mašláňová <mmaslano@redhat.com> - 4:5.16.0-RC2-217
+- clean patches, not needed with new version
+- regen by podcheck list of failed pods. cn, jp, ko pods failed. I can't decide
+  whether it's a real problem or false positives.
+
+* Mon Apr 30 2012 Petr Pisar <ppisar@redhat.com> - 4:5.14.2-216
+- Enable usesitecustomize
+
+* Thu Apr 19 2012 Petr Pisar <ppisar@redhat.com> - 4:5.14.2-215
+- Rebuild perl against Berkeley database version 5 (bug #768846)
+
+* Fri Apr 13 2012 Petr Pisar <ppisar@redhat.com> - 4:5.14.2-214
+- perl-Data-Dumper requires Scalar::Util (bug #811239)
+
+* Tue Apr 10 2012 Petr Pisar <ppisar@redhat.com> - 4:5.14.2-213
+- Sub-package Data::Dumper (bug #811239)
+
+* Tue Feb 21 2012 Petr Pisar <ppisar@redhat.com> - 4:5.14.2-212
+- Sub-package Filter (bug #790349)
+
+* Mon Feb 06 2012 Petr Pisar <ppisar@redhat.com> - 4:5.14.2-211
+- Fix searching for Unicode::Collate::Locale data (bug #756118)
+- Run safe signal handlers before returning from sigsuspend() and pause()
+  (bug #771228)
+- Correct perl-Scalar-List-Utils files list
+- Stop !$^V from leaking (bug #787613)
+
+* Tue Jan 10 2012 Paul Howarth <paul@city-fan.org> - 4:5.14.2-210
+- Rebuild again now that perl dependency generator is fixed (#772632, #772699)
+
+* Fri Jan 06 2012 Iain Arnell <iarnell@gmail.com> -4:5.14.2-209
+- perl-ExtUtils-MakeMaker sub-package requires ExtUtils::Install
+
+* Fri Jan  6 2012 Paul Howarth <paul@city-fan.org> - 4:5.14.2-208
+- Rebuild for gcc 4.7
+
+* Tue Dec 20 2011 Petr Pisar <ppisar@redhat.com> - 4:5.14.2-207
+- Fix interrupted reading. Thanks to Šimon Lukašík for reporting this issue
+  and thanks to Marcela Mašláňová for finding fix. (bug #767931)
+
+* Wed Dec 14 2011 Petr Pisar <ppisar@redhat.com> - 4:5.14.2-206
+- Fix leak with non-matching named captures (bug #767597)
+
+* Tue Nov 29 2011 Petr Pisar <ppisar@redhat.com> - 4:5.14.2-205
+- Sub-package ExtUtils::Install
+- Sub-package ExtUtils::Manifest
+- Do not provide private perl(ExtUtils::MakeMaker::_version)
+
+* Thu Nov 24 2011 Ville Skyttä <ville.skytta@iki.fi> - 4:5.14.2-204
+- Add $RPM_LD_FLAGS to lddlflags.
+
+* Wed Nov 23 2011 Petr Pisar <ppisar@redhat.com> - 4:5.14.2-203
+- Sub-package Socket
+
+* Mon Nov 21 2011 Petr Pisar <ppisar@redhat.com> - 4:5.14.2-202
+- Sub-package Pod::Perldoc
+
+* Fri Nov 18 2011 Petr Pisar <ppisar@redhat.com> - 4:5.14.2-201
+- Increase epoch of perl-Module-CoreList to overcome version regression in
+  upstream (bug #754641)
+
+* Thu Nov  3 2011 Marcela Mašláňová <mmaslano@redhat.com> - 4:5.14.2-200
+- perl(DBIx::Simple) is not needed in spec requirement in CPANPLUS. It's generated
+  automatically.
+
+* Wed Nov 02 2011 Petr Pisar <ppisar@redhat.com> - 4:5.14.2-199
+- Provide perl(DB) by perl
+
+* Mon Oct 24 2011 Petr Pisar <ppisar@redhat.com> - 4:5.14.2-198
+- Do not warn about missing site directories (bug #732799)
+
+* Thu Oct 20 2011 Marcela Mašláňová <mmaslano@redhat.com> - 4:5.14.2-197
+- cleaned spec (thanks to Grigory Batalov)
+-  Module-Metadata sub-package contained perl_privlib instead of privlib
+-  %%files parent section was repeated twice
+
+* Fri Oct 14 2011 Petr Pisar <ppisar@redhat.com> - 4:5.14.2-196
+- Filter false perl(DynaLoader) provide from perl-ExtUtils-MakeMaker
+  (bug #736714)
+- Change Perl_repeatcpy() prototype to allow repeat count above 2^31
+  (bug #720610)
+- Do not own site directories located in /usr/local (bug #732799)
+
+* Tue Oct 04 2011 Petr Pisar <ppisar@redhat.com> - 4:5.14.2-195
+- Fix CVE-2011-3597 (code injection in Digest) (bug #743010)
+- Sub-package Digest and thus Digest::MD5 module (bug #743247)
+
+* Tue Oct 04 2011 Iain Arnell <iarnell@gmail.com> 4:5.14.2-194
+- add provide for perl(:MODULE_COMPAT_5.14.2)
+
+* Mon Oct 03 2011 Petr Pisar <ppisar@redhat.com> - 4:5.14.2-193
+- 5.14.2 bump (see
+  https://metacpan.org/module/FLORA/perl-5.14.2/pod/perldelta.pod for release
+  notes).
+- Fixes panics when processing regular expression with \b class and /aa
+  modifier (bug #731062)
+- Fixes CVE-2011-2728 (File::Glob bsd_glob() crash with certain glob flags)
+  (bug #742987)
+
+* Mon Oct 03 2011 Petr Pisar <ppisar@redhat.com> - 4:5.14.1-192
+- Enable GDBM support again to build against new gdbm 1.9.1
+
+* Fri Sep 30 2011 Petr Pisar <ppisar@redhat.com> - 4:5.14.1-191
+- Disable NDBM support temporarily too as it's provided by gdbm package
+
+* Wed Sep 21 2011 Petr Pisar <ppisar@redhat.com> - 4:5.14.1-190
+- Disable GDBM support temporarily to build new GDBM
+
+* Thu Sep 15 2011 Petr Pisar <ppisar@redhat.com> - 4:5.14.1-189
+- Correct perl-CGI list of Provides
+- Make tests optional
+- Correct perl-ExtUtils-ParseXS Provides
+- Correct perl-Locale-Codes Provides
+- Correct perl-Module-CoreList version
+- Automate perl-Test-Simple-tests Requires version
+
+* Tue Sep 13 2011 Petr Pisar <ppisar@redhat.com> - 4:5.14.1-188
+- Make gdbm support optional to bootstrap with new gdbm
+- Split Carp into standalone sub-package to dual-live with newer versions
+  (bug #736768)
+
+* Tue Aug 30 2011 Petr Pisar <ppisar@redhat.com> - 4:5.14.1-187
+- Split Locale::Codes into standalone sub-package to dual-live with newer
+  versions (bug #717863)
+
+* Sun Aug 14 2011 Iain Arnell <iarnell@gmail.com> 4:5.14.1-186
+- perl needs to own vendorarch/auto directory
+
+* Fri Aug 05 2011 Petr Sabata <contyk@redhat.com> - 4:5.14.1-185
+- Move xsubpp to ExtUtils::ParseXS (#728393)
+
+* Fri Jul 29 2011 Iain Arnell <iarnell@gmail.com> 4:5.14.1-184
+- fix Compress-Raw-Bzip2 pacakging
+- ensure that we never bundle bzip2 or zlib
+
+* Tue Jul 26 2011 Marcela Mašláňová <mmaslano@redhat.com> - 4:5.14.1-183
+- remove from provides MODULE_COMPAT 5.12.*
+
+* Fri Jul 22 2011 Paul Howarth <paul@city-fan.org> - 4:5.14.1-182
+- Have perl-Module-Build explicitly require perl(CPAN::Meta) >= 2.110420,
+  needed for creation of MYMETA files by Build.PL; the dual-life version of
+  the package already has this dependency
+
+* Tue Jul 19 2011 Petr Sabata <contyk@redhat.com> - 4:5.14.1-181
+- Temporarily provide 5.12.* MODULE_COMPAT
+
+* Sat Jul 16 2011 Iain Arnell <iarnell@gmail.com> 4:5.14.1-180
+- fix escaping of the __provides_exclude_from macro
+
+* Wed Jul 13 2011 Iain Arnell <iarnell@gmail.com> 4:5.14.1-179
+- Parse-CPAN-Meta explicitly requires CPAN::Meta::YAML and JSON::PP
+- Exclude CPAN::Meta* from CPAN sub-package
+- Don't try to normalize CPAN-Meta, JSON-PP, and Parse-CPAN-Meta versions;
+  their dual-life packages aren't and have much higher numbers already
+
+* Mon Jun 27 2011 Marcela Mašláňová <mmaslano@redhat.com> - 4:5.14.1-178
+- update macros -> add %%perl_bootstrap 1 and example for readability
+- add into Module::Build dependency on perl-devel (contains macros.perl)
+- create new sub-package macros, because we need macros in minimal buildroot
+
+* Thu Jun 23 2011 Marcela Mašláňová <mmaslano@redhat.com> - 4:5.14.1-175
+- remove from macros BSD, because there exists BSD::Resources
+
+* Tue Jun 21 2011 Marcela Mašláňová <mmaslano@redhat.com> - 4:5.14.1-174
+- remove old MODULE_COMPATs
+
+* Mon Jun 20 2011 Iain Arnell <iarnell@gmail.com> 4:5.14.1-173
+- move ptargrep to Archive-Tar sub-package
+- fix version numbers in last two changelog entries
+
+* Mon Jun 20 2011 Paul Howarth <paul@city-fan.org> - 4:5.14.1-172
+- add provide for perl(:MODULE_COMPAT_5.14.1)
+
+* Mon Jun 20 2011 Marcela Mašláňová <mmaslano@redhat.com> - 4:5.14.1-171
+- update to 5.14.1 - no new modules, just serious bugfixes and doc
+- switch off fork test, which is failing only on koji
+
+* Thu Jun 16 2011 Marcela Mašláňová <mmaslano@redhat.com> - 4:5.14.0-170
+- try to update to latest ExtUtils::MakeMaker, no luck -> rebuild with current 
+  version, fix bug RT#67618 in modules
+
+* Wed Jun 15 2011 Marcela Mašláňová <mmaslano@redhat.com> - 4:5.14.0-169
+- filter even Mac:: requires, polish filter again for correct installation
+- add sub-package Compress-Raw-Bzip2, solve Bzip2 conflicts after install
+- and add IO::Uncompress::Bunzip2 correctly into IO-Compress
+
+* Mon Jun 13 2011 Marcela Mašláňová <mmaslano@redhat.com> - 4:5.14.0-167
+- Perl 5.14 mass rebuild, bump release, remove releases in subpackages
+
+* Thu Jun 09 2011 Marcela Mašláňová <mmaslano@redhat.com> - 4:5.14.0-165
+- Perl 5.14 mass rebuild
+
+* Thu Jun 09 2011 Marcela Mašláňová <mmaslano@redhat.com> - 4:5.14.0-163
+- Perl 5.14 mass rebuild
+
+* Thu Jun  9 2011 Marcela Mašláňová <mmaslano@redhat.com> - 4:5.14.0-162
+- add new sub-packages, remove BR in them
+
+* Wed Jun  1 2011 Marcela Mašláňová <mmaslano@redhat.com> - 4:5.14.0-161
+- arm can't do parallel builds
+- add require EE::MM into IPC::Cmd 711486
+
+* Mon May 16 2011 Marcela Mašláňová <mmaslano@redhat.com> - 4:5.14.0-161
+- test build of released 5.14.0
+- remove Class::ISA from sub-packages
+- patches 8+ are part of new release
+- remove vendorarch/auto/Compress/Zlib
+
+* Wed Apr 13 2011 Marcela Mašláňová <mmaslano@redhat.com> - 4:5.12.3-160
+- add provides UNIVERSAL and DB back into perl
+
+* Thu Apr 07 2011 Petr Pisar <ppisar@redhat.com> - 4:5.12.3-159
+- Remove rpath-make patch because we use --enable-new-dtags linker option
+
+* Fri Apr  1 2011 Marcela Mašláňová <mmaslano@redhat.com> - 4:5.12.3-158
+- 692900 - lc launders tainted flag, RT #87336
+
+* Fri Apr  1 2011 Robin Lee <cheeselee@fedoraproject.org> - 4:5.12.3-157
+- Cwd.so go to the PathTools sub-package
+
+* Tue Mar 15 2011 Marcela Mašláňová <mmaslano@redhat.com> - 4:5.12.3-156
+- sub-package Path-Tools
+
+* Sat Feb 19 2011 Iain Arnell <iarnell@gmail.com> 4:5.12.3-154
+- sub-package Scalar-List-Utils
+
+* Tue Feb 08 2011 Fedora Release Engineering <rel-eng@lists.fedoraproject.org> - 4:5.12.3-153
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_15_Mass_Rebuild
+
+* Thu Jan 27 2011 Petr Pisar <ppisar@redhat.com> - 4:5.12.3-152
+- Document ExtUtils::ParseXS upgrade in local patch tracking
+
+* Wed Jan 26 2011 Tom Callaway <spot@fedoraproject.org> - 4:5.12.3-151
+- update ExtUtils::ParseXS to 2.2206 (current) to fix Wx build
+
+* Wed Jan 26 2011 Petr Pisar <ppisar@redhat.com> - 4:5.12.3-150
+- Make %%global perl_default_filter lazy
+- Do not hard-code tapsetdir path
+
+* Tue Jan 25 2011 Lukas Berk <lberk@redhat.com> - 4:5.12.3-149
+- added systemtap tapset to make use of systemtap-sdt-devel
+- added an example systemtap script
+
+* Mon Jan 24 2011 Marcela Mašláňová <mmaslano@redhat.com> - 4:5.12.3-148
+- stable update 5.12.3
+- add COMPAT
+
+* Thu Dec  9 2010 Marcela Mašláňová <mmaslano@redhat.com> - 4:5.12.2-146
+- 463773 revert change. txt files are needed for example by UCD::Unicode,
+ PDF::API2,...
+
+* Thu Dec  9 2010 Marcela Mašláňová <mmaslano@redhat.com> - 4:5.12.2-145
+- required systemtap-sdt-devel on request in 661553
+
+* Mon Nov 29 2010 Marcela Mašláňová <mmaslano@redhat.com> - 4:5.12.2-144
+- create sub-package for CGI 3.49
+
+* Tue Nov 09 2010 Petr Pisar <ppisar@redhat.com> - 4:5.12.2-143
+- Sub-package perl-Class-ISA (bug #651317)
+
+* Mon Nov 08 2010 Petr Pisar <ppisar@redhat.com> - 4:5.12.2-142
+- Make perl(ExtUtils::ParseXS) version 4 digits long (bug #650882)
+
+* Tue Oct 19 2010 Marcela Mašláňová <mmaslano@redhat.com> - 4:5.12.2-141
+- 643447 fix redefinition of constant C in h2ph (visible in git send mail,
+  XML::Twig test suite)
+- remove ifdef for s390
+
+* Thu Oct 07 2010 Petr Pisar <ppisar@redhat.com> - 4:5.12.2-140
+- Package Test-Simple tests to dual-live with standalone package (bug #640752)
+ 
+* Wed Oct  6 2010 Marcela Mašláňová <mmaslano@redhat.com> - 4:5.12.2-139
+- remove removal of NDBM
+
+* Tue Oct 05 2010 Petr Pisar <ppisar@redhat.com> - 4:5.12.2-138
+- Consolidate Requires filtering
+- Consolidate libperl.so* Provides
+
+* Fri Oct  1 2010 Marcela Mašláňová <mmaslano@redhat.com> - 4:5.12.2-137
+- filter useless requires, provide libperl.so
+
+* Fri Oct 01 2010 Petr Pisar <ppisar@redhat.com> - 4:5.12.2-136
+- Reformat perl-threads description
+- Fix threads directories ownership
+
+* Thu Sep 30 2010 Marcela Mašláňová <mmaslano@redhat.com> - 4:5.12.2-135
+- sub-package threads
+
+* Thu Sep 23 2010 Marcela Mašláňová <mmaslano@redhat.com> - 4:5.12.2-134
+- add vendor path, clean paths in Configure in spec file
+- create sub-package threads-shared
+
+* Tue Sep  7 2010 Petr Pisar <ppisar@redhat.com> - 4:5.12.2-133
+- Do not leak when destroying thread (RT #77352, RHBZ #630667)
+
+* Tue Sep  7 2010 Petr Sabata <psabata@redhat.com> - 5:5.12.2-132
+- Fixing release number for modules
+
+* Tue Sep  7 2010 Petr Sabata <psabata@redhat.com> - 4:5.12.2-1
+- Update to 5.12.2
+- Removed one hardcoded occurence of perl version in build process
+- Added correct path to dtrace binary
+- BuildRequires: systemtap-sdt-devel
+
+* Tue Sep  7 2010 Marcela Mašláňová <mmaslano@redhat.com> - 4:5.12.1-131
+- run Configure with -Dusedtrace for systemtap support
+
+* Wed Aug 18 2010 Petr Pisar <ppisar@redhat.com> - 4:5.12.1-130
+- Run tests in parallel
+- Add "-Wl,--enable-new-dtags" to linker to allow to override perl's rpath by
+  LD_LIBRARY_PATH used in tests. Otherwise tested perl would link to old
+  in-system libperl.so.
+- Normalize spec file indentation
+
+* Mon Jul 26 2010  Marcela Mašláňová <mmaslano@redhat.com> - 4:5.12.1-129
+- 617956 move perlxs* docs files into perl-devel
+
+* Thu Jul 15 2010  Marcela Mašláňová <mmaslano@redhat.com> - 4:5.12.1-128
+- 614662 wrong perl-suidperl version in obsolete
+
+* Sun Jul 11 2010 Dan Horák <dan[at]danny.cz> - 4:5.12.1-127
+- add temporary compat provides needed on s390(x)
+
+* Fri Jul 09 2010 Petr Pisar <ppisar@redhat.com> - 4:5.12.1-126
+- Add Digest::SHA requirement to perl-CPAN and perl-CPANPLUS (bug #612563)
+
+* Thu Jul  8 2010 Marcela Mašláňová <mmaslano@redhat.com> - 4:5.12.1-125
+- 607505 add another dir into Module::Build (thanks to Paul Howarth)
+
+* Mon Jun 28 2010 Ralf Corsépius <corsepiu@fedoraproject.org> -  4:5.12.1-124
+- Address perl-Compress-Raw directory ownership (BZ 607881).
+
+* Thu Jun 10 2010 Marcela Mašláňová <mmaslano@redhat.com> - 4:5.12.1-123
+- remove patch with debugging symbols, which should be now ok without it
+- update to 5.12.1
+- MODULE_COMPAT
+
+* Tue Apr 27 2010 Marcela Mašláňová <mmaslano@redhat.com> - 4:5.12.0-122
+- packages in buildroot needs MODULE_COMPAT 5.10.1, add it back for rebuild
+
+* Sun Apr 25 2010 Marcela Mašláňová <mmaslano@redhat.com> - 4:5.12.0-121
+- rebuild with tests in test buildroot
+
+* Fri Apr 23 2010 Marcela Mašláňová <mmaslano@redhat.com> - 4:5.12.0-120-test
+- MODULE_COMPAT 5.12.0
+- remove BR man
+- clean configure
+- fix provides/requires in IO-Compress
+
+* Wed Apr 14 2010 Marcela Mašláňová <mmaslano@redhat.com> - 4:5.12.0-119.1
+- rebuild 5.12.0 without MODULE_COMPAT
+
+* Wed Apr 14 2010 Marcela Mašláňová <mmaslano@redhat.com> - 4:5.12.0-119
+- initial 5.12.0 build
+
+* Tue Apr  6 2010 Marcela Mašláňová <mmaslano@redhat.com> - 4:5.10.1-118
+- 463773 remove useless txt files from installation
+- 575842 remove PERL_USE_SAFE_PUTENV, use perl putenv
+
+* Tue Mar 16 2010 Chris Weyl <cweyl@alumni.drew.edu> - 4:5.10.1-117
+- package tests in their own subpackage
+
+* Mon Mar 15 2010 Marcela Mašláňová <mmaslano@redhat.com> - 4:5.10.1-116
+- add noarch into correct sub-packages
+- move Provides/Obsoletes into correct modules from main perl
+
+* Thu Mar 11 2010 Paul Howarth <paul@city-fan.org> - 4:5.10.1-115
+- restore missing version macros for Compress::Raw::Zlib, IO::Compress::Base
+  and IO::Compress::Zlib
+
+* Thu Mar 11 2010 Marcela Mašláňová <mmaslano@redhat.com> - 4:5.10.1-114
+- clean spec a little more
+- rebuild with new gdbm
+
+* Fri Mar  5 2010 Marcela Mašláňová <mmaslano@redhat.com> - 4:5.10.1-112
+- fix license according to advice from legal
+- clean unused patches
+
+* Wed Feb 24 2010 Chris Weyl <cweyl@alumni.drew.edu> - 4:5.10.1-111
+- update subpackage tests macros to handle packages with an epoch properly
+
+* Fri Feb 05 2010 Chris Weyl <cweyl@alumni.drew.edu> - 4:5.10.1-110
+- add initial EXPERIMENTAL tests subpackage rpm macros to macros.perl
+
+* Tue Dec 22 2009 Marcela Mašláňová <mmaslano@redhat.com> - 4:5.10.1-109
+- 547656 CVE-2009-3626 perl: regexp matcher crash on invalid UTF-8 characters  
+- 549306 version::Internals should be packaged in perl-version subpackage
+- Parse-CPAN-Meta updated and separate package is dead
+
+* Mon Dec 21 2009 Chris Weyl <cweyl@alumni.drew.edu> - 4:5.10.1-107
+- subpackage parent and Parse-CPAN-Meta; add them to core's dep list
+
+* Fri Dec 18 2009 Ralf Corsépius <corsepiu@fedoraproject.org> - 4:5.10.1-106
+- exclude "parent".
+
+* Fri Dec 18 2009 Ralf Corsépius <corsepiu@fedoraproject.org> - 4:5.10.1-105
+- exclude Parse-CPAN-Meta.
+
+* Mon Dec  7 2009 Stepan Kasal <skasal@redhat.com> - 4:5.10.1-104
+- do not pack Bzip2 manpages either (#544582)
+
+* Mon Dec  7 2009 Stepan Kasal <skasal@redhat.com> - 4:5.10.1-103
+- do not pack Bzip2 modules (#544582)
+- hack: cheat about Compress::Raw::Zlib version (#544582)
+
+* Thu Dec  3 2009 Stepan Kasal <skasal@redhat.com> - 4:5.10.1-102
+- switch off check for ppc64 and s390x
+- remove the hack for "make test," it is no longer needed
+
+* Thu Dec  3 2009 Stepan Kasal <skasal@redhat.com> - 4:5.10.1-101
+- be more careful with the libperl.so compatibility symlink (#543936)
+
+* Wed Dec  2 2009 Stepan Kasal <skasal@redhat.com> - 4:5.10.1-100
+- new upstream version
+- release number must be high, because of stale version numbers of some
+  of the subpackages
+- drop upstreamed patches
+- update the versions of bundled modules
+- shorten the paths in @INC
+- build without DEBUGGING
+- implement compatibility measures for the above two changes, for a short
+  transition period
+- provide perl(:MODULE_COMPAT_5.10.0), for that transition period only
+
+* Tue Dec  1 2009 Stepan Kasal <skasal@redhat.com> - 4:5.10.0-87
+- fix patch-update-Compress-Raw-Zlib.patch (did not patch Zlib.pm)
+- update Compress::Raw::Zlib to 2.023
+- update IO::Compress::Base, and IO::Compress::Zlib to 2.015 (#542645)
+
+* Mon Nov 30 2009 Marcela Mašláňová <mmaslano@redhat.com> - 4:5.10.0-86
+- 542645 update IO-Compress-Base
+
+* Tue Nov 24 2009 Stepan Kasal <skasal@redhat.com> - 4:5.10.0-85
+- back out perl-5.10.0-spamassassin.patch (#528572)
+
+* Thu Oct 01 2009 Chris Weyl <cweyl@alumni.drew.edu> - 4:5.10.0-84
+- add /perl(UNIVERSAL)/d; /perl(DB)/d to perl_default_filter auto-provides
+  filtering
+
+* Thu Oct  1 2009 Stepan Kasal <skasal@redhat.com> - 4:5.10.0-83
+- update Storable to 2.21
+
+* Mon Aug 31 2009 Chris Weyl <cweyl@alumni.drew.edu> - 4:5.10.0-82
+- update our Test-Simple update to 0.92 (patch by Iain Arnell), #519417
+- update Module-Pluggable to 3.9
+
+* Thu Aug 27 2009 Chris Weyl <cweyl@alumni.drew.edu> - 4:5.10.0-81
+- fix macros.perl *sigh*
+
+* Mon Aug 24 2009 Stepan Kasal <skasal@redhat.com> - 4:5.10.0-80
+- Remove -DDEBUGGING=-g, we are not ready yet.
+
+* Fri Aug 21 2009 Chris Weyl <cweyl@alumni.drew.edu> - 4:5.10.0-79
+- add helper filtering macros to -devel, for perl-* package invocation
+  (#502402)
+
+* Fri Jul 31 2009 Stepan Kasal <skasal@redhat.com> - 4:5.10.0-78
+- Add configure option -DDEBUGGING=-g (#156113)
+
+* Tue Jul 28 2009 arcela Mašláňová <mmaslano@redhat.com> - 4:5.10.0-77
+- 510127 spam assassin suffer from tainted bug
+
+* Mon Jul 27 2009 Marcela Mašláňová <mmaslano@redhat.com> - 4:5.10.0-76
+- 494773 much better swap logic to support reentrancy and fix assert failure (rt #60508)
+
+* Sat Jul 25 2009 Fedora Release Engineering <rel-eng@lists.fedoraproject.org> - 4:5.10.0-75
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_12_Mass_Rebuild
+
+* Fri Jul 10 2009 Stepan Kasal <skasal@redhat.com> - 4:5.10.0-74
+- fix generated .ph files so that they no longer cause warnings (#509676)
+- remove PREREQ_FATAL from Makefile.PL's processed by miniperl
+- update to latest Scalar-List-Utils (#507378)
+- perl-skip-prereq.patch: skip more prereq declarations in Makefile.PL files
+
+* Tue Jul  7 2009 Stepan Kasal <skasal@redhat.com> - 4:5.10.0-73
+- re-enable tests
+
+* Tue Jul  7 2009 Stepan Kasal <skasal@redhat.com> - 4:5.10.0-72
+- move -DPERL_USE_SAFE_PUTENV to ccflags (#508496)
+
+* Mon Jun  8 2009 Marcela Mašláňová <mmaslano@redhat.com> - 4:5.10.0-71
+- #504386 update of Compress::Raw::Zlib 2.020
+
+* Thu Jun  4 2009 Marcela Mašláňová <mmaslano@redhat.com> - 4:5.10.0-70
+- update File::Spec (PathTools) to 3.30
+
+* Wed Jun  3 2009 Stepan Kasal <skasal@redhat.com> - 4:5.10.0-69
+- fix #221113, $! wrongly set when EOF is reached
+
+* Fri Apr 10 2009 Marcela Mašláňová <mmaslano@redhat.com> - 4:5.10.0-68
+- do not use quotes in patchlevel.h; it breaks installation from cpan (#495183)
+
+* Tue Apr  7 2009 Stepan Kasal <skasal@redhat.com> - 4:5.10.0-67
+- update CGI to 3.43, dropping upstreamed perl-CGI-escape.patch
+
+* Tue Apr  7 2009 Stepan Kasal <skasal@redhat.com> - 4:5.10.0-66
+- fix CGI::escape for all strings (#472571)
+- perl-CGI-t-util-58.patch: Do not distort lib/CGI/t/util-58.t
+  http://rt.perl.org/rt3/Ticket/Display.html?id=64502
+
+* Fri Mar 27 2009 Stepan Kasal <skasal@redhat.com> - 4:5.10.0-65
+- Move the gargantuan Changes* collection to -devel (#492605)
+
+* Tue Mar 24 2009 Stepan Kasal <skasal@redhat.com> - 4:5.10.0-64
+- update module autodie
+
+* Mon Mar 23 2009 Stepan Kasal <skasal@redhat.com> - 4:5.10.0-63
+- update Digest::SHA (fixes 489221)
+
+* Wed Mar 11 2009 Tom "spot" Callaway <tcallawa@redhat.com> - 4:5.10.0-62
+- drop 26_fix_pod2man_upgrade (don't need it)
+- fix typo in %%define ExtUtils_CBuilder_version
+
+* Wed Mar 11 2009 Tom "spot" Callaway <tcallawa@redhat.com> - 4:5.10.0-61
+- apply Change 34507: Fix memory leak in single-char character class optimization
+- Reorder @INC, based on b9ba2fadb18b54e35e5de54f945111a56cbcb249
+- fix Archive::Extract to fix test failure caused by tar >= 1.21
+- Merge useful Debian patches
+
+* Tue Mar 10 2009 Stepan Kasal <skasal@redhat.com> - 4:5.10.0-60
+- remove compatibility obsolete sitelib directories
+- use a better BuildRoot
+- drop a redundant mkdir in %%install
+- call patchlevel.h only once; rm patchlevel.bak
+- update modules Sys::Syslog, Module::Load::Conditional, Module::CoreList,
+  Test::Harness, Test::Simple, CGI.pm (dropping the upstreamed patch),
+  File::Path (that includes our perl-5.10.0-CVE-2008-2827.patch),
+  constant, Pod::Simple, Archive::Tar, Archive::Extract, File::Fetch,
+  File::Temp, IPC::Cmd, Time::HiRes, Module::Build, ExtUtils::CBuilder
+- standardize the patches for updating embedded modules
+- work around a bug in Module::Build tests bu setting TMPDIR to a directory
+  inside the source tree
+
+* Sun Mar 08 2009 Robert Scheck <robert@fedoraproject.org> - 4:5.10.0-59
+- Rebuilt for https://fedoraproject.org/wiki/Fedora_11_Mass_Rebuild
+
+* Mon Feb 16 2009 Tom "spot" Callaway <tcallawa@redhat.com> - 4:5.10.0-58
+- add /usr/lib/perl5/site_perl to otherlibs (bz 484053)
+
+* Mon Feb 16 2009 Dennis Gilmore <dennis@ausil.us> - 4:5.10.0-57
+- build sparc64 without _smp_mflags
+
+* Sat Feb 07 2009 Dennis Gilmore <dennis@ausil.us> - 4:5.10.0-56
+- limit sparc builds to -j12
+
+* Tue Feb  3 2009 Marcela Mašláňová <mmaslano@redhat.com> - 4:5.10.0-55
+- update IPC::Cmd to v 0.42
+
+* Mon Jan 19 2009 Marcela Mašláňová <mmaslano@redhat.com> - 4:5.10.0-54
+- 455410 http://rt.perl.org/rt3/Public/Bug/Display.html?id=54934
+  Attempt to free unreferenced scalar fiddling with the symbol table
+  Keep the refcount of the globs generated by PerlIO::via balanced.
+
+* Mon Dec 22 2008 Marcela Mašláňová <mmaslano@redhat.com> - 4:5.10.0-53
+- add missing XHTML.pm into Pod::Simple
+
+* Fri Dec 12 2008 Marcela Mašláňová <mmaslano@redhat.com> - 4:5.10.0-52
+- 295021 CVE-2007-4829 perl-Archive-Tar directory traversal flaws
+- add another source for binary files, which test untaring links
+
+* Fri Nov 28 2008 Tom "spot" Callaway <tcallawa@redhat.com> - 4:5.10.0-51
+- to fix Fedora bz 473223, which is really perl bug #54186 (http://rt.perl.org/rt3//Public/Bug/Display.html?id=54186)
+  we apply Changes 33640, 33881, 33896, 33897
+
+* Mon Nov 24 2008 Marcela Mašláňová <mmaslano@redhat.com> - 4:5.10.0-50
+- change summary according to RFC fix summary discussion at fedora-devel :)
+
+* Thu Oct 23 2008 Tom "spot" Callaway <tcallawa@redhat.com> - 4:5.10.0-49
+- update File::Temp to 0.20
+
+* Sun Oct 12 2008 Lubomir Rintel <lkundrak@v3.sk> - 4:5.10.0-48
+- Include fix for rt#52740 to fix a crash when using Devel::Symdump and
+  Compress::Zlib together
+
+* Tue Oct 07 2008 Marcela Mašláňová <mmaslano@redhat.com> 4:5.10.0-47.fc10
+- rt#33242, rhbz#459918. Segfault after reblessing objects in Storable.
+- rhbz#465728 upgrade Simple::Pod to 3.07
+
+* Wed Oct  1 2008 Stepan Kasal <skasal@redhat.com> - 4:5.10.0-46
+- also preserve the timestamp of AUTHORS; move the fix to the recode
+  function, which is where the stamps go wrong
+
+* Wed Oct  1 2008 Tom "spot" Callaway <tcallawa@redhat.com> 4:5.10.0-45
+- give Changes*.gz the same datetime to avoid multilib conflict
+
+* Wed Sep 17 2008 Marcela Maslanova <mmaslano@redhat.com> 4:5.10.0-44.fc10
+- remove Tar.pm from Archive-Extract
+- fix version of Test::Simple in spec
+- update Test::Simple
+- update Archive::Tar to 1.38
+
+* Tue Sep 16 2008 Marcela Maslanova <mmaslano@redhat.com> 4:5.10.0-43.fc10
+- 462444 update Test::Simple to 0.80
+
+* Thu Aug 14 2008 Stepan Kasal <skasal@redhat.com> - 4:5.10.0-42.fc10
+- move libnet to the right directory, along Net/Config.pm
+
+* Wed Aug 13 2008 Stepan Kasal <skasal@redhat.com> - 4:5.10.0-41.fc10
+- do not create directory .../%%{version}/auto
+
+* Tue Aug  5 2008 Marcela Maslanova <mmaslano@redhat.com> 4:5.10.0-40.fc10
+- 457867 remove required IPC::Run from CPANPLUS - needed only by win32
+- 457771 add path
+
+* Fri Aug  1 2008 Stepan Kasal <skasal@redhat.com> 4:5.10.0-39.fc10
+- CGI.pm bug in exists() on tied param hash (#457085)
+- move the enc2xs templates (../Encode/*.e2x) to -devel, (#456534)
+
+* Mon Jul 21 2008 Marcela Maslanova <mmaslano@redhat.com> 4:5.10.0-38
+- 455933 update to CGI-3.38
+- fix fuzz problems (patch6)
+- 217833 pos() function handle unicode characters correct
+
+* Thu Jul 10 2008 Tom "spot" Callaway <tcallawa@redhat.com> 4:5.10.0-36
+- rebuild for new db4 4.7
+
+* Wed Jul  9 2008 Stepan Kasal <skasal@redhat.com> 4:5.10.0-35
+- remove db4 require, it is handled automatically
+
+* Thu Jul  3 2008 Stepan Kasal <skasal@redhat.com> 4:5.10.0-34
+- 453646 use -DPERL_USE_SAFE_PUTENV. Without fail some modules f.e. readline.
+
+* Tue Jul  1 2008 Marcela Maslanova <mmaslano@redhat.com> 4:5.10.0-33
+- 451078 update Test::Harness to 3.12 for more testing. Removed verbose 
+test, new Test::Harness has possibly verbose output, but updated package
+has a lot of features f.e. TAP::Harness. Carefully watched all new bugs 
+related to tests!
+
+* Fri Jun 27 2008 Stepan Kasal <skasal@redhat.com> 4:5.10.0-32
+- bump the release number, so that it is not smaller than in F-9
+
+* Tue Jun 24 2008 Marcela Maslanova <mmaslano@redhat.com> 4:5.10.0-28
+- CVE-2008-2827 perl: insecure use of chmod in rmtree
+
+* Wed Jun 11 2008 Marcela Maslanova <mmaslano@redhat.com> 4:5.10.0-27
+- 447371 wrong access permission rt49003
+
+* Tue Jun 10 2008 Stepan Kasal <skasal@redhat.com> 4:5.10.0-26
+- make config parameter list consistent for 32bit and 64bit platforms,
+  add config option -Dinc_version_list=none (#448735)
+- use perl_archname consistently
+- cleanup of usage of *_lib macros in %%install
+
+* Fri Jun  6 2008 Marcela Maslanova <mmaslano@redhat.com> 4:5.10.0-25
+- 449577 rebuild for FTBFS
+
+* Mon May 26 2008 Marcela Maslanova <mmaslano@redhat.com> 4:5.10.0-24
+- 448392 upstream fix for assertion
+
+* Thu May 22 2008 Tom "spot" Callaway <tcallawa@redhat.com> 4:5.10.0-23
+- sparc64 breaks with the rpath hack patch applied
+
+* Mon May 19 2008 Marcela Maslanova <mmaslano@redhat.com>
+- 447142 upgrade CGI to 3.37 (this actually happened in -21 in rawhide.)
+
+* Sat May 17 2008 Tom "spot" Callaway <tcallawa@redhat.com> 4:5.10.0-21
+- sparc64 fails two tests under mysterious circumstances. we need to get the
+  rest of the tree moving, so we temporarily disable the tests on that arch.
+
+* Tue Mar 18 2008 Tom "spot" Callaway <tcallawa@redhat.com> 4:5.10.0-20
+- create the vendor_perl/%%{perl_version}/%%{perl_archname}/auto directory 
+  in %%{_libdir} so we own it properly
+
+* Tue Mar 18 2008 Tom "spot" Callaway <tcallawa@redhat.com> 4:5.10.0-19
+- fix CPANPLUS-Dist-Build Provides/Obsoletes (bz 437615)
+- bump version on Module-CoreList subpackage
+
+* Tue Mar 18 2008 Tom "spot" Callaway <tcallawa@redhat.com> 4:5.10.0-18
+- forgot to create the auto directory for multilib vendor_perl dirs
+
+* Tue Mar 18 2008 Tom "spot" Callaway <tcallawa@redhat.com> 4:5.10.0-17
+- own multilib vendor_perl directories
+- mark Module::CoreList patch in patchlevel.h
+
+* Tue Mar 18 2008 Marcela Maslanova <mmaslano@redhat.com> 4:5.10.0-16
+- 437817: RFE: Upgrade Module::CoreList to 2.14
+
+* Wed Mar 12 2008 Marcela Maslanova <mmaslano@redhat.com> 4:5.10.0-15
+- xsubpp now lives in perl-devel instead of perl.
+
+* Sat Mar  8 2008 Tom "spot" Callaway <tcallawa@redhat.com> 4:5.10.0-14
+- back out Archive::Extract patch, causing odd test failure
+
+* Sat Mar  8 2008 Tom "spot" Callaway <tcallawa@redhat.com> 4:5.10.0-13
+- add missing lzma test file
+
+* Fri Mar  7 2008 Tom "spot" Callaway <tcallawa@redhat.com> 4:5.10.0-12
+- conditionalize multilib patch report in patchlevel.h
+- Update Archive::Extract to 0.26
+- Update Module::Load::Conditional to 0.24
+
+* Fri Mar  7 2008 Tom "spot" Callaway <tcallawa@redhat.com> 4:5.10.0-11
+- only do it once, and do it for all our patches
+
+* Fri Mar  7 2008 Tom "spot" Callaway <tcallawa@redhat.com> 4:5.10.0-10
+- note 32891 in patchlevel.h
+
+* Fri Mar  7 2008 Tom "spot" Callaway <tcallawa@redhat.com> 4:5.10.0-9
+- get rid of bad conflicts on perl-File-Temp
+
+* Fri Mar  7 2008 Tom "spot" Callaway <tcallawa@redhat.com> 4:5.10.0-8
+- use /usr/local for sitelib/sitearch dirs
+- patch 32891 for significant performance improvement
+
+* Fri Feb 22 2008 Stepan Kasal <skasal@redhat.com> - 4:5.10.0-7
+- Add perl-File-Temp provides/obsoletes/conflicts (#433836),
+  reported by Bill McGonigle <bill@bfccomputing.com>
+- escape the macros in Jan 30 entry
+
+* Tue Feb 19 2008 Fedora Release Engineering <rel-eng@fedoraproject.org> - 4:5.10.0-6
+- Autorebuild for GCC 4.3
+
+* Wed Jan 30 2008 Tom "spot" Callaway <tcallawa@redhat.com> - 4:5.10.0-5
+- disable some futime tests in t/io/fs.t because they started failing on x86_64
+  in the Fedora builders, and no one can figure out why. :/
+
+* Wed Jan 30 2008 Tom "spot" Callaway <tcallawa@redhat.com> - 4:5.10.0-4
+- create %%{_prefix}/lib/perl5/vendor_perl/%%{perl_version}/auto and own it
+  in base perl (resolves bugzilla 214580)
+
+* Thu Jan 10 2008 Tom "spot" Callaway <tcallawa@redhat.com> - 4:5.10.0-3
+- Update Sys::Syslog to 0.24, to fix test failures
+
+* Wed Jan 9 2008 Tom "spot" Callaway <tcallawa@redhat.com> - 4:5.10.0-2
+- add some BR for tests
+
+* Tue Jan 8 2008 Tom "spot" Callaway <tcallawa@redhat.com> - 4:5.10.0-1
+- 5.10.0 final
+- clear out all the unnecessary patches (down to 8 patches!)
+- get rid of super perl debugging mode
+- add new subpackages
+
+* Thu Nov 29 2007 Robin Norwood <rnorwood@redhat.com> - 4:5.10.0_RC2-0.1
+- first attempt at building 5.10.0
+
+
diff --git a/perl.stp b/perl.stp
new file mode 100644
index 0000000..dbc51a8
--- /dev/null
+++ b/perl.stp
@@ -0,0 +1,71 @@
+/*
+   This probe will fire when the perl script enters a subroutine.
+ */
+
+probe perl.sub.call = process("LIBRARY_PATH").mark("sub__entry")
+{
+
+  sub = user_string($arg1)
+  filename = user_string($arg2)
+  lineno = $arg3
+  package = user_string($arg4)
+
+}
+
+/*
+   This probe will fire when the return from a subroutine has been
+   hit.
+ */
+
+probe perl.sub.return = process("LIBRARY_PATH").mark("sub__return")
+{
+
+  sub = user_string($arg1)
+  filename = user_string($arg2)
+  lineno = $arg3
+  package = user_string($arg4)
+
+}
+
+/*
+   This probe will fire when the Perl interperter changes state.
+ */
+
+probe perl.phase.change = process("LIBRARY_PATH").mark("phase__change")
+{
+  newphase = user_string($arg1)
+  oldphase = user_string($arg2)
+
+}
+
+
+/*
+   Fires when Perl has successfully loaded an individual file.
+ */
+
+probe perl.loaded.file = process("LIBRARY_PATH").mark("loaded__file")
+{
+  filename = user_string($arg1)
+
+}
+
+
+/*
+   Fires when Perl is about to load an individual file.
+ */
+
+probe perl.loading.file = process("LIBRARY_PATH").mark("loading__file")
+{
+  filename = user_string($arg1)
+
+}
+
+
+/*
+   Traces the execution of each opcode in the Perl runloop.
+ */
+
+probe perl.op.entry = process("LIBRARY_PATH").mark("op__entry")
+{
+  opname = user_string($arg1)
+}
diff --git a/sources b/sources
new file mode 100644
index 0000000..125fa12
--- /dev/null
+++ b/sources
@@ -0,0 +1 @@
+SHA1 (perl-5.24.4.tar.bz2) = 0606bb25bfe3e00e3e54fe858bd7247a104c3772
diff --git a/system-owned-directories b/system-owned-directories
new file mode 100644
index 0000000..d9cadb4
--- /dev/null
+++ b/system-owned-directories
@@ -0,0 +1,7 @@
+%dir /usr
+%dir /usr/bin
+%dir /usr/lib
+%dir /usr/share
+%dir /usr/share/man
+%dir /usr/share/man/man1
+%dir /usr/share/man/man3