In perl.git, the branch smoke-me/arc/unicode-range-operator has been updated
<http://perl5.git.perl.org/perl.git/commitdiff/e4e5e9bc2a06b222cb3293449c2816d7b9be2a0c?hp=999e15c3c56d038a16de35c748227f739bd91b33> discards 999e15c3c56d038a16de35c748227f739bd91b33 (commit) - Log ----------------------------------------------------------------- commit e4e5e9bc2a06b222cb3293449c2816d7b9be2a0c Author: Aaron Crane <a...@cpan.org> Date: Sun Nov 20 14:18:22 2016 +0000 Fix the Unicode Bug in the range operator ----------------------------------------------------------------------- Summary of changes: .gitignore | 3 + Cross/config.sh-arm-linux | 40 +- Cross/config.sh-arm-linux-n770 | 40 +- Cross/generate_config_sh | 2 +- INSTALL | 30 +- MANIFEST | 12 +- META.json | 2 +- META.yml | 2 +- Makefile.SH | 46 +- NetWare/Makefile | 4 +- NetWare/config_H.wc | 10 +- NetWare/config_h.PL | 4 +- NetWare/config_sh.PL | 4 +- NetWare/t/NWModify.pl | 2 +- NetWare/t/NWScripts.pl | 8 +- Porting/Maintainers.pl | 28 +- Porting/Maintainers.pm | 4 +- Porting/add-package.pl | 4 +- Porting/check83.pl | 2 +- Porting/checkAUTHORS.pl | 3 +- Porting/checkVERSION.pl | 2 +- Porting/checkansi.pl | 2 +- Porting/checkcfguse.pl | 6 +- Porting/config.sh | 42 +- Porting/config_H | 18 +- Porting/config_h.pl | 4 +- Porting/corecpan.pl | 2 +- Porting/epigraphs.pod | 57 + Porting/leakfinder.pl | 6 +- Porting/makerel | 2 +- Porting/manicheck | 2 +- Porting/release_managers_guide.pod | 15 +- Porting/release_schedule.pod | 2 +- Porting/sync-with-cpan | 191 +- Porting/todo.pod | 4 +- README | 2 +- README.haiku | 4 +- README.macosx | 8 +- README.os2 | 2 +- README.vms | 4 +- autodoc.pl | 2 +- charclass_invlists.h | 10419 +++++++++++++------ configpm | 10 +- cpan/Archive-Tar/lib/Archive/Tar.pm | 4 +- cpan/Archive-Tar/lib/Archive/Tar/Constant.pm | 5 +- cpan/Archive-Tar/lib/Archive/Tar/File.pm | 2 +- cpan/Archive-Tar/t/09_roundtrip.t | 2 + cpan/B-Debug/Debug.pm | 2 +- cpan/B-Debug/t/debug.t | 13 +- cpan/Compress-Raw-Bzip2/Bzip2.xs | 4 +- cpan/Compress-Raw-Bzip2/bzip2-src/compress.c | 2 +- cpan/Compress-Raw-Bzip2/lib/Compress/Raw/Bzip2.pm | 8 +- cpan/Compress-Raw-Bzip2/t/000prereq.t | 2 +- cpan/Compress-Raw-Zlib/Zlib.xs | 2 +- cpan/Compress-Raw-Zlib/lib/Compress/Raw/Zlib.pm | 18 +- cpan/Compress-Raw-Zlib/zlib-src/inflate.c | 2 +- cpan/DB_File/DB_File.pm | 2 +- cpan/DB_File/DB_File.xs | 3 + .../lib/Math/BigInt/FastCalc.pm | 2 +- cpan/Math-BigInt/lib/Math/BigFloat.pm | 14 +- cpan/Math-BigInt/lib/Math/BigInt.pm | 106 +- cpan/Math-BigInt/lib/Math/BigInt/Calc.pm | 2 +- cpan/Math-BigInt/lib/Math/BigInt/CalcEmu.pm | 2 +- cpan/Math-BigInt/lib/Math/BigInt/Lib.pm | 162 +- cpan/Math-BigInt/t/Math/BigFloat/#Subclass.pm# | 49 - cpan/Math-BigInt/t/calling.t | 2 +- cpan/Math-BigInt/t/from_bin-mbf.t | 44 +- cpan/Math-BigInt/t/from_bin-mbi.t | 116 + cpan/Math-BigInt/t/from_hex-mbf.t | 44 +- cpan/Math-BigInt/t/from_hex-mbi.t | 116 + cpan/Math-BigInt/t/from_oct-mbf.t | 44 +- cpan/Math-BigInt/t/from_oct-mbi.t | 116 + cpan/Math-BigRat/lib/Math/BigRat.pm | 6 +- cpan/Pod-Simple/lib/Pod/Simple.pm | 2 +- cpan/Pod-Simple/lib/Pod/Simple/BlackBox.pm | 9 +- cpan/Pod-Simple/lib/Pod/Simple/Checker.pm | 2 +- cpan/Pod-Simple/lib/Pod/Simple/Debug.pm | 2 +- cpan/Pod-Simple/lib/Pod/Simple/DumpAsText.pm | 2 +- cpan/Pod-Simple/lib/Pod/Simple/DumpAsXML.pm | 2 +- cpan/Pod-Simple/lib/Pod/Simple/HTML.pm | 2 +- cpan/Pod-Simple/lib/Pod/Simple/HTMLBatch.pm | 2 +- cpan/Pod-Simple/lib/Pod/Simple/LinkSection.pm | 4 +- cpan/Pod-Simple/lib/Pod/Simple/Methody.pm | 2 +- cpan/Pod-Simple/lib/Pod/Simple/Progress.pm | 2 +- cpan/Pod-Simple/lib/Pod/Simple/PullParser.pm | 2 +- .../lib/Pod/Simple/PullParserEndToken.pm | 2 +- .../lib/Pod/Simple/PullParserStartToken.pm | 2 +- .../lib/Pod/Simple/PullParserTextToken.pm | 2 +- cpan/Pod-Simple/lib/Pod/Simple/PullParserToken.pm | 2 +- cpan/Pod-Simple/lib/Pod/Simple/RTF.pm | 2 +- cpan/Pod-Simple/lib/Pod/Simple/Search.pm | 2 +- cpan/Pod-Simple/lib/Pod/Simple/SimpleTree.pm | 2 +- cpan/Pod-Simple/lib/Pod/Simple/Text.pm | 2 +- cpan/Pod-Simple/lib/Pod/Simple/TextContent.pm | 2 +- cpan/Pod-Simple/lib/Pod/Simple/TiedOutFH.pm | 2 +- cpan/Pod-Simple/lib/Pod/Simple/Transcode.pm | 2 +- cpan/Pod-Simple/lib/Pod/Simple/TranscodeDumb.pm | 2 +- cpan/Pod-Simple/lib/Pod/Simple/TranscodeSmart.pm | 2 +- cpan/Pod-Simple/lib/Pod/Simple/XHTML.pm | 2 +- cpan/Pod-Simple/lib/Pod/Simple/XMLOutStream.pm | 2 +- cpan/Pod-Simple/t/search50.t | 18 +- cpan/Scalar-List-Utils/t/tainted.t | 3 + cpan/Test-Simple/lib/Test/Builder.pm | 2 +- cpan/Test-Simple/lib/Test/Builder/Formatter.pm | 2 +- cpan/Test-Simple/lib/Test/Builder/Module.pm | 2 +- cpan/Test-Simple/lib/Test/Builder/Tester.pm | 2 +- cpan/Test-Simple/lib/Test/Builder/Tester/Color.pm | 2 +- cpan/Test-Simple/lib/Test/Builder/TodoDiag.pm | 2 +- cpan/Test-Simple/lib/Test/More.pm | 2 +- cpan/Test-Simple/lib/Test/Simple.pm | 2 +- cpan/Test-Simple/lib/Test/Tester.pm | 2 +- cpan/Test-Simple/lib/Test/Tester/Capture.pm | 2 +- cpan/Test-Simple/lib/Test/Tester/CaptureRunner.pm | 2 +- cpan/Test-Simple/lib/Test/Tester/Delegate.pm | 2 +- cpan/Test-Simple/lib/Test/use/ok.pm | 2 +- cpan/Test-Simple/lib/Test2.pm | 2 +- cpan/Test-Simple/lib/Test2/API.pm | 2 +- cpan/Test-Simple/lib/Test2/API/Breakage.pm | 2 +- cpan/Test-Simple/lib/Test2/API/Context.pm | 2 +- cpan/Test-Simple/lib/Test2/API/Instance.pm | 2 +- cpan/Test-Simple/lib/Test2/API/Stack.pm | 2 +- cpan/Test-Simple/lib/Test2/Event.pm | 43 +- cpan/Test-Simple/lib/Test2/Event/Bail.pm | 2 +- cpan/Test-Simple/lib/Test2/Event/Diag.pm | 2 +- .../lib/Test2/Event/{Exception.pm => Encoding.pm} | 32 +- cpan/Test-Simple/lib/Test2/Event/Exception.pm | 2 +- cpan/Test-Simple/lib/Test2/Event/Generic.pm | 2 +- cpan/Test-Simple/lib/Test2/Event/Info.pm | 2 +- cpan/Test-Simple/lib/Test2/Event/Note.pm | 2 +- cpan/Test-Simple/lib/Test2/Event/Ok.pm | 2 +- cpan/Test-Simple/lib/Test2/Event/Plan.pm | 2 +- cpan/Test-Simple/lib/Test2/Event/Skip.pm | 2 +- cpan/Test-Simple/lib/Test2/Event/Subtest.pm | 42 +- .../Test2/Event/{Exception.pm => TAP/Version.pm} | 29 +- cpan/Test-Simple/lib/Test2/Event/Waiting.pm | 2 +- cpan/Test-Simple/lib/Test2/Formatter.pm | 2 +- cpan/Test-Simple/lib/Test2/Formatter/TAP.pm | 29 +- cpan/Test-Simple/lib/Test2/Hub.pm | 2 +- cpan/Test-Simple/lib/Test2/Hub/Interceptor.pm | 2 +- .../lib/Test2/Hub/Interceptor/Terminator.pm | 2 +- cpan/Test-Simple/lib/Test2/Hub/Subtest.pm | 2 +- cpan/Test-Simple/lib/Test2/IPC.pm | 2 +- cpan/Test-Simple/lib/Test2/IPC/Driver.pm | 2 +- cpan/Test-Simple/lib/Test2/IPC/Driver/Files.pm | 2 +- .../{t/tools.pl => lib/Test2/Tools/Tiny.pm} | 210 +- cpan/Test-Simple/lib/Test2/Util.pm | 2 +- cpan/Test-Simple/lib/Test2/Util/ExternalMeta.pm | 2 +- cpan/Test-Simple/lib/Test2/Util/HashBase.pm | 80 +- cpan/Test-Simple/lib/Test2/Util/Trace.pm | 31 +- cpan/Test-Simple/lib/ok.pm | 2 +- .../t/Legacy_And_Test2/builder_loaded_late.t | 2 +- .../t/Legacy_And_Test2/hidden_warnings.t | 2 +- cpan/Test-Simple/t/Test2/behavior/Formatter.t | 2 +- .../t/Test2/behavior/Subtest_buffer_formatter.t | 2 +- cpan/Test-Simple/t/Test2/behavior/Subtest_events.t | 2 +- cpan/Test-Simple/t/Test2/behavior/Subtest_plan.t | 2 +- cpan/Test-Simple/t/Test2/behavior/Subtest_todo.t | 29 + cpan/Test-Simple/t/Test2/behavior/err_var.t | 2 +- cpan/Test-Simple/t/Test2/behavior/init_croak.t | 2 +- .../t/Test2/behavior/nested_context_exception.t | 2 +- cpan/Test-Simple/t/Test2/behavior/no_load_api.t | 6 +- .../t/Test2/behavior/run_subtest_inherit.t | 2 +- cpan/Test-Simple/t/Test2/behavior/special_names.t | 2 +- cpan/Test-Simple/t/Test2/legacy/TAP.t | 8 +- cpan/Test-Simple/t/Test2/modules/API.t | 4 +- cpan/Test-Simple/t/Test2/modules/API/Breakage.t | 2 +- cpan/Test-Simple/t/Test2/modules/API/Context.t | 2 +- cpan/Test-Simple/t/Test2/modules/API/Instance.t | 2 +- cpan/Test-Simple/t/Test2/modules/API/Stack.t | 2 +- cpan/Test-Simple/t/Test2/modules/Event.t | 2 +- cpan/Test-Simple/t/Test2/modules/Event/Bail.t | 2 +- cpan/Test-Simple/t/Test2/modules/Event/Diag.t | 2 +- cpan/Test-Simple/t/Test2/modules/Event/Exception.t | 2 +- cpan/Test-Simple/t/Test2/modules/Event/Generic.t | 2 +- cpan/Test-Simple/t/Test2/modules/Event/Info.t | 2 +- cpan/Test-Simple/t/Test2/modules/Event/Note.t | 2 +- cpan/Test-Simple/t/Test2/modules/Event/Ok.t | 2 +- cpan/Test-Simple/t/Test2/modules/Event/Plan.t | 2 +- cpan/Test-Simple/t/Test2/modules/Event/Skip.t | 2 +- cpan/Test-Simple/t/Test2/modules/Event/Subtest.t | 2 +- cpan/Test-Simple/t/Test2/modules/Event/Waiting.t | 2 +- cpan/Test-Simple/t/Test2/modules/Formatter/TAP.t | 18 +- cpan/Test-Simple/t/Test2/modules/Hub.t | 2 +- cpan/Test-Simple/t/Test2/modules/Hub/Interceptor.t | 2 +- .../t/Test2/modules/Hub/Interceptor/Terminator.t | 2 +- cpan/Test-Simple/t/Test2/modules/Hub/Subtest.t | 2 +- cpan/Test-Simple/t/Test2/modules/IPC.t | 2 +- cpan/Test-Simple/t/Test2/modules/IPC/Driver.t | 2 +- .../Test-Simple/t/Test2/modules/IPC/Driver/Files.t | 2 +- .../t/{tools.t => Test2/modules/Tools/Tiny.t} | 2 +- cpan/Test-Simple/t/Test2/modules/Util.t | 2 +- .../t/Test2/modules/Util/ExternalMeta.t | 2 +- cpan/Test-Simple/t/Test2/modules/Util/HashBase.t | 84 +- cpan/Test-Simple/t/Test2/modules/Util/Trace.t | 2 +- .../t/Test2/regression/693_ipc_ordering.t | 2 +- .../t/Test2/regression/ipc_files_abort_exit.t | 2 +- .../t/regression/696-intercept_skip_all.t | 2 +- .../t/regression/721-nested-streamed-subtest.t | 2 +- cpan/Test-Simple/t/regression/no_name_in_subtest.t | 2 +- cpan/bignum/lib/Math/BigFloat/Trace.pm | 2 +- cpan/bignum/lib/Math/BigInt/Trace.pm | 2 +- cpan/bignum/lib/bigint.pm | 2 +- cpan/bignum/lib/bignum.pm | 2 +- cpan/bignum/lib/bigrat.pm | 2 +- cpan/bignum/t/scope_f.t | 1 - dist/Devel-SelfStubber/lib/Devel/SelfStubber.pm | 4 +- dist/Devel-SelfStubber/t/Devel-SelfStubber.t | 22 +- dist/Dumpvalue/t/Dumpvalue.t | 2 +- dist/ExtUtils-CBuilder/t/01-basic.t | 2 +- dist/ExtUtils-CBuilder/t/02-link.t | 2 +- dist/ExtUtils-CBuilder/t/03-cplusplus.t | 2 +- dist/I18N-LangTags/lib/I18N/LangTags.pm | 6 +- dist/IO/Makefile.PL | 2 +- dist/IO/t/IO.t | 2 +- dist/IO/t/io_dir.t | 2 +- dist/IO/t/io_file.t | 2 +- dist/IO/t/io_linenum.t | 2 +- dist/IO/t/io_sock.t | 2 +- dist/IO/t/io_unix.t | 2 +- dist/Module-CoreList/Changes | 6 + dist/Module-CoreList/lib/Module/CoreList.pm | 199 +- .../lib/Module/CoreList/TieHashDelta.pm | 2 +- dist/Module-CoreList/lib/Module/CoreList/Utils.pm | 9 +- dist/Safe/t/safe2.t | 2 +- dist/Search-Dict/t/Dict.t | 2 +- dist/Storable/Storable.pm | 10 +- dist/Storable/Storable.xs | 10 +- dist/Storable/t/code.t | 4 +- dist/Storable/t/compat01.t | 2 +- dist/Storable/t/destroy.t | 2 +- dist/Storable/t/file_magic.t | 2 +- dist/Storable/t/forgive.t | 2 +- dist/Storable/t/store.t | 18 +- dist/Storable/t/testlib.pl | 6 +- dist/Term-ReadLine/lib/Term/ReadLine.pm | 7 +- dist/Test/lib/Test.pm | 8 +- dist/Test/t/mix.t | 4 +- dist/Test/t/onfail.t | 2 +- dist/Test/t/todo.t | 4 +- dist/Tie-File/t/01_gen.t | 2 +- dist/Tie-File/t/02_fetchsize.t | 2 +- dist/Tie-File/t/03_longfetch.t | 2 +- dist/Tie-File/t/04_splice.t | 2 +- dist/Tie-File/t/05_size.t | 4 +- dist/Tie-File/t/07_rv_splice.t | 2 +- dist/Tie-File/t/08_ro.t | 4 +- dist/Tie-File/t/09_gen_rs.t | 2 +- dist/Tie-File/t/10_splice_rs.t | 2 +- dist/Tie-File/t/11_rv_splice_rs.t | 2 +- dist/Tie-File/t/12_longfetch_rs.t | 2 +- dist/Tie-File/t/13_size_rs.t | 4 +- dist/Tie-File/t/14_lock.t | 2 +- dist/Tie-File/t/16_handle.t | 2 +- dist/Tie-File/t/19_cache.t | 4 +- dist/Tie-File/t/20_cache_full.t | 4 +- dist/Tie-File/t/21_win32.t | 2 +- dist/Tie-File/t/22_autochomp.t | 2 +- dist/Tie-File/t/23_rv_ac_splice.t | 2 +- dist/Tie-File/t/24_cache_loop.t | 2 +- dist/Tie-File/t/25_gen_nocache.t | 2 +- dist/Tie-File/t/26_twrite.t | 8 +- dist/Tie-File/t/27_iwrite.t | 4 +- dist/Tie-File/t/28_mtwrite.t | 4 +- dist/Tie-File/t/29_downcopy.t | 6 +- dist/Tie-File/t/29a_upcopy.t | 6 +- dist/Tie-File/t/30_defer.t | 6 +- dist/Tie-File/t/31_autodefer.t | 2 +- dist/Tie-File/t/32_defer_misc.t | 2 +- dist/Tie-File/t/33_defer_vs.t | 2 +- dist/Time-HiRes/Makefile.PL | 12 +- dist/Time-HiRes/t/alarm.t | 2 +- dist/Time-HiRes/t/sleep.t | 2 +- dist/Time-HiRes/t/stat.t | 6 +- dist/Time-HiRes/t/utime.t | 4 +- dist/XSLoader/XSLoader_pm.PL | 4 +- dist/lib/lib_pm.PL | 4 +- dist/lib/t/01lib.t | 2 +- dist/threads-shared/lib/threads/shared.pm | 4 +- dist/threads-shared/shared.xs | 10 + dist/threads/lib/threads.pm | 4 +- dist/threads/t/exit.t | 10 +- dist/threads/t/thread.t | 2 +- dist/threads/threads.xs | 2 + djgpp/fixpmain | 6 +- embed.fnc | 82 +- embed.h | 26 +- embedvar.h | 2 + ext/B/B/Xref.pm | 4 +- ext/B/t/OptreeCheck.pm | 4 +- ext/B/t/xref.t | 2 +- ext/Devel-Peek/t/Peek.t | 10 +- ext/DynaLoader/DynaLoader_pm.PL | 4 +- ext/Errno/Errno_pm.PL | 12 +- ext/Fcntl/t/syslfs.t | 2 +- ext/File-Glob/t/basic.t | 2 +- ext/FileCache/t/02maxopen.t | 2 +- ext/GDBM_File/t/fatal.t | 2 +- ext/IPC-Open3/t/IPC-Open3.t | 2 +- ext/IPC-Open3/t/fd.t | 2 +- ext/POSIX/t/sysconf.t | 2 +- ext/PerlIO-encoding/t/encoding.t | 10 +- ext/PerlIO-encoding/t/fallback.t | 6 +- ext/PerlIO-scalar/scalar.pm | 2 +- ext/PerlIO-scalar/scalar.xs | 3 +- ext/PerlIO-via/t/via.t | 4 +- ext/Pod-Html/t/pod2html-lib.pl | 4 +- ext/VMS-DCLsym/DCLsym.pm | 4 +- ext/XS-APItest/APItest.pm | 2 +- ext/XS-APItest/APItest.xs | 865 +- ext/XS-APItest/Makefile.PL | 2 +- ext/XS-APItest/t/handy.t | 651 +- ext/XS-APItest/t/printf.t | 2 +- ext/XS-APItest/t/utf8.t | 67 +- ext/XS-Typemap/t/Typemap.t | 2 +- gv.c | 21 +- h2pl/mksizes | 2 +- h2pl/mkvars | 2 +- handy.h | 607 +- hints/catamount.sh | 4 +- installhtml | 26 +- intrpvar.h | 2 + lib/B/Op_private.pm | 2 +- lib/DBM_Filter/t/01error.t | 2 +- lib/DBM_Filter/t/02core.t | 2 +- lib/English.t | 6 +- lib/ExtUtils/Embed.pm | 4 +- lib/File/Compare.t | 2 +- lib/File/Copy.t | 36 +- lib/File/stat.t | 2 +- lib/SelectSaver.t | 4 +- lib/Symbol.pm | 4 +- lib/Tie/Handle/stdhandle.t | 2 +- lib/Unicode/UCD.pm | 4 +- lib/diagnostics.pm | 6 +- lib/feature.pm | 6 +- lib/h2ph.t | 2 +- lib/h2xs.t | 4 +- lib/overload.pm | 4 +- lib/perl5db.pl | 18 +- lib/perl5db.t | 2 + lib/utf8.t | 2 +- lib/vmsish.t | 6 +- locale.c | 3 +- make_ext.pl | 2 +- makedef.pl | 2 +- makedepend.SH | 2 +- mathoms.c | 8 +- op.c | 38 +- os2/OS2/OS2-Process/Process.pm | 6 +- patchlevel.h | 8 +- perl.c | 6 +- plan9/config.plan9 | 10 +- plan9/config_sh.sample | 38 +- plan9/genconfig.pl | 10 +- pod/.gitignore | 2 +- pod/perl.pod | 1 + pod/perl5258delta.pod | 213 + pod/perldelta.pod | 175 +- pod/perldiag.pod | 46 +- pod/perlhacktips.pod | 10 +- pod/perlhist.pod | 3 + pod/perlop.pod | 9 +- pod/perlre.pod | 17 +- pod/perlref.pod | 6 +- pod/perlrequick.pod | 3 + pod/perlretut.pod | 39 +- pod/perlsyn.pod | 6 +- pod/perlunicode.pod | 10 + pod/perluniintro.pod | 10 +- pod/splitman | 2 +- pod/splitpod | 2 +- pp.c | 32 +- pp_pack.c | 11 +- pp_sort.c | 12 +- proto.h | 86 +- regcharclass.h | 4 +- regcomp.c | 15 +- regen/embed.pl | 2 +- regen/embed_lib.pl | 4 +- regen/feature.pl | 8 +- regen/mk_invlists.pl | 3 +- regen/opcode.pl | 2 +- regen/reentr.pl | 2 +- regen/regcharclass.pl | 2 +- regen/regcomp.pl | 2 +- regen/regen_lib.pl | 6 +- regexec.c | 182 +- sv.c | 12 +- sv.h | 2 +- symbian/config.pl | 24 +- symbian/demo_pl | 2 +- symbian/hexdump.pl | 2 +- symbian/makesis.pl | 6 +- symbian/sisify.pl | 12 +- symbian/version.pl | 2 +- symbian/xsbuild.pl | 28 +- t/lib/overload_fallback.t | 15 +- t/lib/warnings/9uninit | 2 +- t/lib/warnings/sv | 3 + t/lib/warnings/toke | 12 + t/lib/warnings/utf8 | 23 +- t/loc_tools.pl | 2 +- t/op/lex.t | 7 +- t/op/sort.t | 15 +- t/op/split.t | 10 +- t/op/tr.t | 46 +- t/perf/benchmarks | 17 + t/porting/known_pod_issues.dat | 2 +- t/test.pl | 2 +- t/uni/parser.t | 2 + t/uni/variables.t | 2 +- toke.c | 585 +- utf8.c | 833 +- utf8.h | 93 +- utfebcdic.h | 2 +- utils/c2ph.PL | 4 +- utils/corelist.PL | 4 +- utils/cpan.PL | 4 +- utils/enc2xs.PL | 4 +- utils/encguess.PL | 4 +- utils/h2ph.PL | 12 +- utils/h2xs.PL | 22 +- utils/instmodsh.PL | 4 +- utils/json_pp.PL | 4 +- utils/libnetcfg.PL | 2 +- utils/perlbug.PL | 2 +- utils/perldoc.PL | 2 +- utils/perlivp.PL | 2 +- utils/piconv.PL | 4 +- utils/pl2pm.PL | 4 +- utils/pod2html.PL | 2 +- utils/prove.PL | 4 +- utils/ptar.PL | 4 +- utils/ptardiff.PL | 4 +- utils/ptargrep.PL | 4 +- utils/shasum.PL | 4 +- utils/splain.PL | 6 +- utils/xsubpp.PL | 4 +- utils/zipdetails.PL | 4 +- vms/descrip_mms.template | 2 +- vms/gen_shrfls.pl | 4 +- vms/mms2make.pl | 4 +- win32/GNUmakefile | 6 +- win32/Makefile | 6 +- win32/bin/exetype.pl | 2 +- win32/bin/pl2bat.pl | 4 +- win32/bin/search.pl | 6 +- win32/ce-helpers/makedist.pl | 6 +- win32/config_h.PL | 4 +- win32/config_sh.PL | 4 +- win32/makefile.mk | 6 +- win32/pod.mak | 4 + 452 files changed, 13276 insertions(+), 5666 deletions(-) delete mode 100644 cpan/Math-BigInt/t/Math/BigFloat/#Subclass.pm# create mode 100644 cpan/Math-BigInt/t/from_bin-mbi.t create mode 100644 cpan/Math-BigInt/t/from_hex-mbi.t create mode 100644 cpan/Math-BigInt/t/from_oct-mbi.t copy cpan/Test-Simple/lib/Test2/Event/{Exception.pm => Encoding.pm} (53%) copy cpan/Test-Simple/lib/Test2/Event/{Exception.pm => TAP/Version.pm} (61%) rename cpan/Test-Simple/{t/tools.pl => lib/Test2/Tools/Tiny.pm} (55%) create mode 100644 cpan/Test-Simple/t/Test2/behavior/Subtest_todo.t rename cpan/Test-Simple/t/{tools.t => Test2/modules/Tools/Tiny.t} (99%) create mode 100644 pod/perl5258delta.pod diff --git a/.gitignore b/.gitignore index 157390afdb..131b1e4716 100644 --- a/.gitignore +++ b/.gitignore @@ -199,3 +199,6 @@ GPATH GRPATH GRTAGS GTAGS + +# generated by Porting/sync-with-cpan +/make.log diff --git a/Cross/config.sh-arm-linux b/Cross/config.sh-arm-linux index 23865c3522..c2647f05e2 100644 --- a/Cross/config.sh-arm-linux +++ b/Cross/config.sh-arm-linux @@ -32,12 +32,12 @@ alignbytes='4' ansi2knr='' aphostname='/bin/hostname' api_revision='5' -api_subversion='8' +api_subversion='9' api_version='25' -api_versionstring='5.25.8' +api_versionstring='5.25.9' ar='ar' -archlib='/usr/lib/perl5/5.25.8/armv4l-linux' -archlibexp='/usr/lib/perl5/5.25.8/armv4l-linux' +archlib='/usr/lib/perl5/5.25.9/armv4l-linux' +archlibexp='/usr/lib/perl5/5.25.9/armv4l-linux' archname64='' archname='armv4l-linux' archobjs='' @@ -56,7 +56,7 @@ castflags='0' cat='cat' cc='cc' cccdlflags='-fpic' -ccdlflags='-rdynamic -Wl,-rpath,/usr/lib/perl5/5.25.8/armv4l-linux/CORE' +ccdlflags='-rdynamic -Wl,-rpath,/usr/lib/perl5/5.25.9/armv4l-linux/CORE' ccflags='-fno-strict-aliasing -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64' ccflags_uselargefiles='-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64' ccname='arm-linux-gcc' @@ -826,7 +826,7 @@ inc_version_list=' ' inc_version_list_init='0' incpath='' inews='' -installarchlib='./install_me_here/usr/lib/perl5/5.25.8/armv4l-linux' +installarchlib='./install_me_here/usr/lib/perl5/5.25.9/armv4l-linux' installbin='./install_me_here/usr/bin' installhtml1dir='' installhtml3dir='' @@ -834,13 +834,13 @@ installman1dir='./install_me_here/usr/share/man/man1' installman3dir='./install_me_here/usr/share/man/man3' installprefix='./install_me_here/usr' installprefixexp='./install_me_here/usr' -installprivlib='./install_me_here/usr/lib/perl5/5.25.8' +installprivlib='./install_me_here/usr/lib/perl5/5.25.9' installscript='./install_me_here/usr/bin' -installsitearch='./install_me_here/usr/lib/perl5/site_perl/5.25.8/armv4l-linux' +installsitearch='./install_me_here/usr/lib/perl5/site_perl/5.25.9/armv4l-linux' installsitebin='./install_me_here/usr/bin' installsitehtml1dir='' installsitehtml3dir='' -installsitelib='./install_me_here/usr/lib/perl5/site_perl/5.25.8' +installsitelib='./install_me_here/usr/lib/perl5/site_perl/5.25.9' installsiteman1dir='./install_me_here/usr/share/man/man1' installsiteman3dir='./install_me_here/usr/share/man/man3' installsitescript='./install_me_here/usr/bin' @@ -974,8 +974,8 @@ pmake='' pr='' prefix='/usr' prefixexp='/usr' -privlib='/usr/lib/perl5/5.25.8' -privlibexp='/usr/lib/perl5/5.25.8' +privlib='/usr/lib/perl5/5.25.9' +privlibexp='/usr/lib/perl5/5.25.9' procselfexe='"/proc/self/exe"' prototype='define' ptrsize='4' @@ -1040,17 +1040,17 @@ sig_num='0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 sig_num_init='0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, ... [78 chars truncated] sig_size='68' signal_t='void' -sitearch='/usr/lib/perl5/site_perl/5.25.8/armv4l-linux' -sitearchexp='/usr/lib/perl5/site_perl/5.25.8/armv4l-linux' +sitearch='/usr/lib/perl5/site_perl/5.25.9/armv4l-linux' +sitearchexp='/usr/lib/perl5/site_perl/5.25.9/armv4l-linux' sitebin='/usr/bin' sitebinexp='/usr/bin' sitehtml1dir='' sitehtml1direxp='' sitehtml3dir='' sitehtml3direxp='' -sitelib='/usr/lib/perl5/site_perl/5.25.8' +sitelib='/usr/lib/perl5/site_perl/5.25.9' sitelib_stem='/usr/lib/perl5/site_perl' -sitelibexp='/usr/lib/perl5/site_perl/5.25.8' +sitelibexp='/usr/lib/perl5/site_perl/5.25.9' siteman1dir='/usr/share/man/man1' siteman1direxp='/usr/share/man/man1' siteman3dir='/usr/share/man/man3' @@ -1089,7 +1089,7 @@ stdio_stream_array='' strerror_r_proto='0' strings='/usr/include/string.h' submit='' -subversion='8' +subversion='9' sysman='/usr/share/man/man1' tail='' tar='' @@ -1181,8 +1181,8 @@ vendorprefix='' vendorprefixexp='' vendorscript='' vendorscriptexp='' -version='5.25.8' -version_patchlevel_string='version 25 subversion 8' +version='5.25.9' +version_patchlevel_string='version 25 subversion 9' versiononly='undef' vi='' xlibpth='/usr/lib/386 /lib/386' @@ -1196,9 +1196,9 @@ config_args='' config_argc=0 PERL_REVISION=5 PERL_VERSION=25 -PERL_SUBVERSION=8 +PERL_SUBVERSION=9 PERL_API_REVISION=5 PERL_API_VERSION=25 -PERL_API_SUBVERSION=8 +PERL_API_SUBVERSION=9 PERL_PATCHLEVEL= PERL_CONFIG_SH=true diff --git a/Cross/config.sh-arm-linux-n770 b/Cross/config.sh-arm-linux-n770 index e785f3026b..05d51b7e2c 100644 --- a/Cross/config.sh-arm-linux-n770 +++ b/Cross/config.sh-arm-linux-n770 @@ -32,12 +32,12 @@ alignbytes='4' ansi2knr='' aphostname='/bin/hostname' api_revision='5' -api_subversion='8' +api_subversion='9' api_version='25' -api_versionstring='5.25.8' +api_versionstring='5.25.9' ar='ar' -archlib='/usr/lib/perl5/5.25.8/armv4l-linux' -archlibexp='/usr/lib/perl5/5.25.8/armv4l-linux' +archlib='/usr/lib/perl5/5.25.9/armv4l-linux' +archlibexp='/usr/lib/perl5/5.25.9/armv4l-linux' archname64='' archname='armv4l-linux' archobjs='' @@ -55,7 +55,7 @@ castflags='0' cat='cat' cc='arm-none-linux-gnueabi-gcc' cccdlflags='-fpic' -ccdlflags='-rdynamic -Wl,-rpath,/usr/lib/perl5/5.25.8/armv4l-linux/CORE' +ccdlflags='-rdynamic -Wl,-rpath,/usr/lib/perl5/5.25.9/armv4l-linux/CORE' ccflags='-fno-strict-aliasing -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64' ccflags_uselargefiles='-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64' ccname='arm-linux-gcc' @@ -699,7 +699,7 @@ inc_version_list=' ' inc_version_list_init='0' incpath='' inews='' -installarchlib='./install_me_here/usr/lib/perl5/5.25.8/armv4l-linux' +installarchlib='./install_me_here/usr/lib/perl5/5.25.9/armv4l-linux' installbin='./install_me_here/usr/bin' installhtml1dir='' installhtml3dir='' @@ -707,13 +707,13 @@ installman1dir='./install_me_here/usr/share/man/man1' installman3dir='./install_me_here/usr/share/man/man3' installprefix='./install_me_here/usr' installprefixexp='./install_me_here/usr' -installprivlib='./install_me_here/usr/lib/perl5/5.25.8' +installprivlib='./install_me_here/usr/lib/perl5/5.25.9' installscript='./install_me_here/usr/bin' -installsitearch='./install_me_here/usr/lib/perl5/site_perl/5.25.8/armv4l-linux' +installsitearch='./install_me_here/usr/lib/perl5/site_perl/5.25.9/armv4l-linux' installsitebin='./install_me_here/usr/bin' installsitehtml1dir='' installsitehtml3dir='' -installsitelib='./install_me_here/usr/lib/perl5/site_perl/5.25.8' +installsitelib='./install_me_here/usr/lib/perl5/site_perl/5.25.9' installsiteman1dir='./install_me_here/usr/share/man/man1' installsiteman3dir='./install_me_here/usr/share/man/man3' installsitescript='./install_me_here/usr/bin' @@ -841,8 +841,8 @@ pmake='' pr='' prefix='/usr' prefixexp='/usr' -privlib='/usr/lib/perl5/5.25.8' -privlibexp='/usr/lib/perl5/5.25.8' +privlib='/usr/lib/perl5/5.25.9' +privlibexp='/usr/lib/perl5/5.25.9' procselfexe='"/proc/self/exe"' prototype='define' ptrsize='4' @@ -903,17 +903,17 @@ sig_num='0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 sig_num_init='0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, ... [78 chars truncated] sig_size='68' signal_t='void' -sitearch='/usr/lib/perl5/site_perl/5.25.8/armv4l-linux' -sitearchexp='/usr/lib/perl5/site_perl/5.25.8/armv4l-linux' +sitearch='/usr/lib/perl5/site_perl/5.25.9/armv4l-linux' +sitearchexp='/usr/lib/perl5/site_perl/5.25.9/armv4l-linux' sitebin='/usr/bin' sitebinexp='/usr/bin' sitehtml1dir='' sitehtml1direxp='' sitehtml3dir='' sitehtml3direxp='' -sitelib='/usr/lib/perl5/site_perl/5.25.8' +sitelib='/usr/lib/perl5/site_perl/5.25.9' sitelib_stem='/usr/lib/perl5/site_perl' -sitelibexp='/usr/lib/perl5/site_perl/5.25.8' +sitelibexp='/usr/lib/perl5/site_perl/5.25.9' siteman1dir='/usr/share/man/man1' siteman1direxp='/usr/share/man/man1' siteman3dir='/usr/share/man/man3' @@ -950,7 +950,7 @@ stdio_stream_array='' strerror_r_proto='0' strings='/usr/include/string.h' submit='' -subversion='8' +subversion='9' sysman='/usr/share/man/man1' tail='' tar='' @@ -1035,8 +1035,8 @@ vendorprefix='' vendorprefixexp='' vendorscript='' vendorscriptexp='' -version='5.25.8' -version_patchlevel_string='version 25 subversion 8' +version='5.25.9' +version_patchlevel_string='version 25 subversion 9' versiononly='undef' vi='' xlibpth='/usr/lib/386 /lib/386' @@ -1050,9 +1050,9 @@ config_args='' config_argc=0 PERL_REVISION=5 PERL_VERSION=25 -PERL_SUBVERSION=8 +PERL_SUBVERSION=9 PERL_API_REVISION=5 PERL_API_VERSION=25 -PERL_API_SUBVERSION=8 +PERL_API_SUBVERSION=9 PERL_PATCHLEVEL= PERL_CONFIG_SH=true diff --git a/Cross/generate_config_sh b/Cross/generate_config_sh index e47042a25f..203885e981 100755 --- a/Cross/generate_config_sh +++ b/Cross/generate_config_sh @@ -44,7 +44,7 @@ if ($config eq "") { die("Please run me as generate_config_sh path/to/original/config.sh"); } -open(FILE, "$config") || die("Unable to open $config"); +open(FILE, '<', $config) || die("Unable to open $config"); my $line_in; while ($line_in = <FILE>) { diff --git a/INSTALL b/INSTALL index 158b382384..ad6aea92c3 100644 --- a/INSTALL +++ b/INSTALL @@ -581,7 +581,7 @@ The directories set up by Configure fall into three broad categories. =item Directories for the perl distribution -By default, Configure will use the following directories for 5.25.8. +By default, Configure will use the following directories for 5.25.9. $version is the full perl version number, including subversion, e.g. 5.12.3, and $archname is a string like sun4-sunos, determined by Configure. The full definitions of all Configure @@ -2370,7 +2370,7 @@ or The only difference between the two is that make distclean also removes your old config.sh and Policy.sh files. (A plain 'make clean' is now -eqivalent to 'make realclean'.) +equivalent to 'make realclean'.) If you are upgrading from a previous version of perl, or if you change systems or compilers or make other significant changes, or if @@ -2436,7 +2436,7 @@ http://www.chiark.greenend.org.uk/~sgtatham/bugs.html =head1 Coexistence with earlier versions of perl 5 -Perl 5.25.8 is not binary compatible with earlier versions of Perl. +Perl 5.25.9 is not binary compatible with earlier versions of Perl. In other words, you will have to recompile your XS modules. In general, you can usually safely upgrade from one version of Perl @@ -2511,9 +2511,9 @@ won't interfere with another version. (The defaults guarantee this for libraries after 5.6.0, but not for executables. TODO?) One convenient way to do this is by using a separate prefix for each version, such as - sh Configure -Dprefix=/opt/perl5.25.8 + sh Configure -Dprefix=/opt/perl5.25.9 -and adding /opt/perl5.25.8/bin to the shell PATH variable. Such users +and adding /opt/perl5.25.9/bin to the shell PATH variable. Such users may also wish to add a symbolic link /usr/local/bin/perl so that scripts can still start with #!/usr/local/bin/perl. @@ -2528,11 +2528,11 @@ yet. =head2 Upgrading from 5.25.2 or earlier -B<Perl 5.25.8 may not be binary compatible with Perl 5.25.3 or +B<Perl 5.25.9 may not be binary compatible with Perl 5.25.3 or earlier Perl releases.> Perl modules having binary parts (meaning that a C compiler is used) will have to be recompiled to be -used with 5.25.8. If you find you do need to rebuild an extension with -5.25.8, you may safely do so without disturbing the older +used with 5.25.9. If you find you do need to rebuild an extension with +5.25.9, you may safely do so without disturbing the older installations. (See L<"Coexistence with earlier versions of perl 5"> above.) @@ -2565,15 +2565,15 @@ Firstly, the bare minimum to run this script print("$f\n"); } -in Linux with perl-5.25.8 is as follows (under $Config{prefix}): +in Linux with perl-5.25.9 is as follows (under $Config{prefix}): ./bin/perl - ./lib/perl5/5.25.8/strict.pm - ./lib/perl5/5.25.8/warnings.pm - ./lib/perl5/5.25.8/i686-linux/File/Glob.pm - ./lib/perl5/5.25.8/feature.pm - ./lib/perl5/5.25.8/XSLoader.pm - ./lib/perl5/5.25.8/i686-linux/auto/File/Glob/Glob.so + ./lib/perl5/5.25.9/strict.pm + ./lib/perl5/5.25.9/warnings.pm + ./lib/perl5/5.25.9/i686-linux/File/Glob.pm + ./lib/perl5/5.25.9/feature.pm + ./lib/perl5/5.25.9/XSLoader.pm + ./lib/perl5/5.25.9/i686-linux/auto/File/Glob/Glob.so Secondly, for perl-5.10.1, the Debian perl-base package contains 591 files, (of which 510 are for lib/unicore) totaling about 3.5MB in its diff --git a/MANIFEST b/MANIFEST index 2c89f48fe6..b0197df363 100644 --- a/MANIFEST +++ b/MANIFEST @@ -1725,12 +1725,14 @@ cpan/Math-BigInt/t/dparts-mbi.t Test Math::BigInt cpan/Math-BigInt/t/eparts-mbf.t Test Math::BigInt cpan/Math-BigInt/t/eparts-mbi.t Test Math::BigInt cpan/Math-BigInt/t/from_bin-mbf.t Test Math::BigInt +cpan/Math-BigInt/t/from_bin-mbi.t cpan/Math-BigInt/t/from_hex-mbf.t Test Math::BigInt +cpan/Math-BigInt/t/from_hex-mbi.t cpan/Math-BigInt/t/from_oct-mbf.t Test Math::BigInt +cpan/Math-BigInt/t/from_oct-mbi.t cpan/Math-BigInt/t/inf_nan.t Special tests for inf and *NaN* handling cpan/Math-BigInt/t/isa.t Test for Math::BigInt inheritance cpan/Math-BigInt/t/lib_load.t Test sane lib names -cpan/Math-BigInt/t/Math/BigFloat/#Subclass.pm# cpan/Math-BigInt/t/Math/BigFloat/Subclass.pm Empty subclass of BigFloat for test cpan/Math-BigInt/t/Math/BigInt/BareCalc.pm Bigint's simulation of Calc cpan/Math-BigInt/t/Math/BigInt/Lib/Minimal.pm @@ -2612,6 +2614,7 @@ cpan/Test-Simple/lib/Test2/API/Stack.pm cpan/Test-Simple/lib/Test2/Event.pm cpan/Test-Simple/lib/Test2/Event/Bail.pm cpan/Test-Simple/lib/Test2/Event/Diag.pm +cpan/Test-Simple/lib/Test2/Event/Encoding.pm cpan/Test-Simple/lib/Test2/Event/Exception.pm cpan/Test-Simple/lib/Test2/Event/Generic.pm cpan/Test-Simple/lib/Test2/Event/Info.pm @@ -2620,6 +2623,7 @@ cpan/Test-Simple/lib/Test2/Event/Ok.pm cpan/Test-Simple/lib/Test2/Event/Plan.pm cpan/Test-Simple/lib/Test2/Event/Skip.pm cpan/Test-Simple/lib/Test2/Event/Subtest.pm +cpan/Test-Simple/lib/Test2/Event/TAP/Version.pm cpan/Test-Simple/lib/Test2/Event/Waiting.pm cpan/Test-Simple/lib/Test2/Formatter.pm cpan/Test-Simple/lib/Test2/Formatter/TAP.pm @@ -2630,6 +2634,7 @@ cpan/Test-Simple/lib/Test2/Hub/Subtest.pm cpan/Test-Simple/lib/Test2/IPC.pm cpan/Test-Simple/lib/Test2/IPC/Driver.pm cpan/Test-Simple/lib/Test2/IPC/Driver/Files.pm +cpan/Test-Simple/lib/Test2/Tools/Tiny.pm cpan/Test-Simple/lib/Test2/Transition.pod cpan/Test-Simple/lib/Test2/Util.pm cpan/Test-Simple/lib/Test2/Util/ExternalMeta.pm @@ -2813,6 +2818,7 @@ cpan/Test-Simple/t/Test2/behavior/special_names.t cpan/Test-Simple/t/Test2/behavior/Subtest_buffer_formatter.t cpan/Test-Simple/t/Test2/behavior/Subtest_events.t cpan/Test-Simple/t/Test2/behavior/Subtest_plan.t +cpan/Test-Simple/t/Test2/behavior/Subtest_todo.t cpan/Test-Simple/t/Test2/behavior/Taint.t cpan/Test-Simple/t/Test2/legacy/TAP.t cpan/Test-Simple/t/Test2/modules/API.t @@ -2840,6 +2846,7 @@ cpan/Test-Simple/t/Test2/modules/Hub/Subtest.t cpan/Test-Simple/t/Test2/modules/IPC.t cpan/Test-Simple/t/Test2/modules/IPC/Driver.t cpan/Test-Simple/t/Test2/modules/IPC/Driver/Files.t +cpan/Test-Simple/t/Test2/modules/Tools/Tiny.t cpan/Test-Simple/t/Test2/modules/Util.t cpan/Test-Simple/t/Test2/modules/Util/ExternalMeta.t cpan/Test-Simple/t/Test2/modules/Util/HashBase.t @@ -2847,8 +2854,6 @@ cpan/Test-Simple/t/Test2/modules/Util/Trace.t cpan/Test-Simple/t/Test2/regression/693_ipc_ordering.t cpan/Test-Simple/t/Test2/regression/gh_16.t cpan/Test-Simple/t/Test2/regression/ipc_files_abort_exit.t -cpan/Test-Simple/t/tools.pl -cpan/Test-Simple/t/tools.t cpan/Text-Balanced/lib/Text/Balanced.pm Text::Balanced cpan/Text-Balanced/t/01_compile.t See if Text::Balanced works cpan/Text-Balanced/t/02_extbrk.t See if Text::Balanced works @@ -4906,6 +4911,7 @@ pod/perl5254delta.pod Perl changes in version 5.25.4 pod/perl5255delta.pod Perl changes in version 5.25.5 pod/perl5256delta.pod Perl changes in version 5.25.6 pod/perl5257delta.pod Perl changes in version 5.25.7 +pod/perl5258delta.pod Perl changes in version 5.25.8 pod/perl561delta.pod Perl changes in version 5.6.1 pod/perl56delta.pod Perl changes in version 5.6 pod/perl581delta.pod Perl changes in version 5.8.1 diff --git a/META.json b/META.json index 0c22a756e2..41aa72aa67 100644 --- a/META.json +++ b/META.json @@ -126,6 +126,6 @@ "url" : "http://perl5.git.perl.org/" } }, - "version" : "5.025008", + "version" : "5.025009", "x_serialization_backend" : "JSON::PP version 2.27400_02" } diff --git a/META.yml b/META.yml index b5496d4a6b..6753b00f97 100644 --- a/META.yml +++ b/META.yml @@ -113,5 +113,5 @@ resources: homepage: http://www.perl.org/ license: http://dev.perl.org/licenses/ repository: http://perl5.git.perl.org/ -version: '5.025008' +version: '5.025009' x_serialization_backend: 'CPAN::Meta::YAML version 0.018' diff --git a/Makefile.SH b/Makefile.SH index 10003fdac6..6c5ec87c61 100755 --- a/Makefile.SH +++ b/Makefile.SH @@ -522,7 +522,7 @@ miniperl_objs = $(miniperl_objs_nodt) $(DTRACE_MINI_O) perllib_objs = $(perllib_objs_nodt) $(DTRACE_PERLLIB_O) perlmain_objs = perlmain$(OBJ_EXT) $(DTRACE_MAIN_O) -perltoc_pod_prereqs = extra.pods pod/perl5258delta.pod pod/perlapi.pod pod/perlintern.pod pod/perlmodlib.pod pod/perluniprops.pod +perltoc_pod_prereqs = extra.pods pod/perl5259delta.pod pod/perlapi.pod pod/perlintern.pod pod/perlmodlib.pod pod/perluniprops.pod generated_pods = pod/perltoc.pod $(perltoc_pod_prereqs) generated_headers = uudmap.h bitcount.h mg_data.h @@ -1059,9 +1059,9 @@ pod/perlintern.pod: $(MINIPERL_EXE) autodoc.pl embed.fnc pod/perlmodlib.pod: $(MINIPERL_EXE) pod/perlmodlib.PL MANIFEST $(MINIPERL) pod/perlmodlib.PL -q -pod/perl5258delta.pod: pod/perldelta.pod - $(RMS) pod/perl5258delta.pod - $(LNS) perldelta.pod pod/perl5258delta.pod +pod/perl5259delta.pod: pod/perldelta.pod + $(RMS) pod/perl5259delta.pod + $(LNS) perldelta.pod pod/perl5259delta.pod extra.pods: $(MINIPERL_EXE) -@test ! -f extra.pods || rm -f `cat extra.pods` @@ -1349,25 +1349,25 @@ _cleaner2: -rmdir lib/autodie/exception lib/autodie/Scope lib/autodie lib/XS -rmdir lib/Win32API lib/VMS lib/Unicode/Collate/Locale -rmdir lib/Unicode/Collate/CJK lib/Unicode/Collate lib/Tie/Hash - -rmdir lib/Thread lib/Text lib/Test2/Util lib/Test2/IPC/Driver - -rmdir lib/Test2/IPC lib/Test2/Hub/Interceptor lib/Test2/Hub - -rmdir lib/Test2/Formatter lib/Test2/Event lib/Test2/API lib/Test2 - -rmdir lib/Test/use lib/Test/Tester lib/Test/Builder/Tester - -rmdir lib/Test/Builder/IO lib/Test/Builder lib/Test lib/Term - -rmdir lib/TAP/Parser/YAMLish lib/TAP/Parser/SourceHandler - -rmdir lib/TAP/Parser/Scheduler lib/TAP/Parser/Result - -rmdir lib/TAP/Parser/Iterator lib/TAP/Parser lib/TAP/Harness - -rmdir lib/TAP/Formatter/File lib/TAP/Formatter/Console - -rmdir lib/TAP/Formatter lib/TAP lib/Sys/Syslog lib/Sys lib/Sub - -rmdir lib/Search lib/Scalar lib/Pod/Text lib/Pod/Simple - -rmdir lib/Pod/Perldoc lib/PerlIO/via lib/PerlIO lib/Perl - -rmdir lib/Parse/CPAN lib/Parse lib/Params lib/Net/FTP lib/Module/Load - -rmdir lib/Module/CoreList lib/Module lib/Memoize lib/Math/BigInt - -rmdir lib/Math/BigFloat lib/Math lib/MIME lib/Locale/Maketext - -rmdir lib/Locale/Codes lib/Locale lib/List/Util lib/List lib/JSON/PP - -rmdir lib/JSON lib/IPC lib/IO/Uncompress/Adapter lib/IO/Uncompress - -rmdir lib/IO/Socket lib/IO/Compress/Zlib lib/IO/Compress/Zip - -rmdir lib/IO/Compress/Gzip lib/IO/Compress/Base + -rmdir lib/Thread lib/Text lib/Test2/Util lib/Test2/Tools + -rmdir lib/Test2/IPC/Driver lib/Test2/IPC lib/Test2/Hub/Interceptor + -rmdir lib/Test2/Hub lib/Test2/Formatter lib/Test2/Event/TAP + -rmdir lib/Test2/Event lib/Test2/API lib/Test2 lib/Test/use + -rmdir lib/Test/Tester lib/Test/Builder/Tester lib/Test/Builder/IO + -rmdir lib/Test/Builder lib/Test lib/Term lib/TAP/Parser/YAMLish + -rmdir lib/TAP/Parser/SourceHandler lib/TAP/Parser/Scheduler + -rmdir lib/TAP/Parser/Result lib/TAP/Parser/Iterator lib/TAP/Parser + -rmdir lib/TAP/Harness lib/TAP/Formatter/File + -rmdir lib/TAP/Formatter/Console lib/TAP/Formatter lib/TAP + -rmdir lib/Sys/Syslog lib/Sys lib/Sub lib/Search lib/Scalar + -rmdir lib/Pod/Text lib/Pod/Simple lib/Pod/Perldoc lib/PerlIO/via + -rmdir lib/PerlIO lib/Perl lib/Parse/CPAN lib/Parse lib/Params + -rmdir lib/Net/FTP lib/Module/Load lib/Module/CoreList lib/Module + -rmdir lib/Memoize lib/Math/BigInt lib/Math/BigFloat lib/Math lib/MIME + -rmdir lib/Locale/Maketext lib/Locale/Codes lib/Locale lib/List/Util + -rmdir lib/List lib/JSON/PP lib/JSON lib/IPC lib/IO/Uncompress/Adapter + -rmdir lib/IO/Uncompress lib/IO/Socket lib/IO/Compress/Zlib + -rmdir lib/IO/Compress/Zip lib/IO/Compress/Gzip lib/IO/Compress/Base -rmdir lib/IO/Compress/Adapter lib/IO/Compress lib/IO -rmdir lib/I18N/LangTags lib/I18N lib/Hash/Util lib/Hash lib/HTTP -rmdir lib/Filter/Util lib/Filter lib/File/Spec lib/ExtUtils/Typemaps diff --git a/NetWare/Makefile b/NetWare/Makefile index e061552d7d..6a284dcdbb 100644 --- a/NetWare/Makefile +++ b/NetWare/Makefile @@ -86,7 +86,7 @@ NLM_VERSION = 3,20,0 # Here comes the CW tools - TO BE FILLED TO BUILD WITH CW - -MODULE_DESC = "Perl 5.25.8 for NetWare" +MODULE_DESC = "Perl 5.25.9 for NetWare" CCTYPE = CodeWarrior C_COMPILER = mwccnlm -c CPP_COMPILER = mwccnlm @@ -462,7 +462,7 @@ INST_NW_TOP2 = $(INST_NW_DRV)\perl # versioned installation can be obtained by setting INST_TOP above to a # path that includes an arbitrary version string. # -INST_VER = \5.25.8 +INST_VER = \5.25.9 # # Comment this out if you DON'T want your perl installation to have diff --git a/NetWare/config_H.wc b/NetWare/config_H.wc index e444500908..8c02556c22 100644 --- a/NetWare/config_H.wc +++ b/NetWare/config_H.wc @@ -1042,7 +1042,7 @@ * This symbol contains the ~name expanded version of ARCHLIB, to be used * in programs that are not prepared to deal with ~ expansion at run-time. */ -#define ARCHLIB "c:\\perl\\5.25.8\\lib\\NetWare-x86-multi-thread" /**/ +#define ARCHLIB "c:\\perl\\5.25.9\\lib\\NetWare-x86-multi-thread" /**/ /*#define ARCHLIB_EXP "" /**/ /* ARCHNAME: @@ -1073,8 +1073,8 @@ * This symbol is the filename expanded version of the BIN symbol, for * programs that do not want to deal with that at run-time. */ -#define BIN "c:\\perl\\5.25.8\\bin\\NetWare-x86-multi-thread" /**/ -#define BIN_EXP "c:\\perl\\5.25.8\\bin\\NetWare-x86-multi-thread" /**/ +#define BIN "c:\\perl\\5.25.9\\bin\\NetWare-x86-multi-thread" /**/ +#define BIN_EXP "c:\\perl\\5.25.9\\bin\\NetWare-x86-multi-thread" /**/ /* BYTEORDER: * This symbol holds the hexadecimal constant defined in byteorder, @@ -3088,7 +3088,7 @@ * This symbol contains the ~name expanded version of SITEARCH, to be used * in programs that are not prepared to deal with ~ expansion at run-time. */ -#define SITEARCH "c:\\perl\\site\\5.25.8\\lib\\NetWare-x86-multi-thread" /**/ +#define SITEARCH "c:\\perl\\site\\5.25.9\\lib\\NetWare-x86-multi-thread" /**/ /*#define SITEARCH_EXP "" /**/ /* SITELIB: @@ -3111,7 +3111,7 @@ * removed. The elements in inc_version_list (inc_version_list.U) can * be tacked onto this variable to generate a list of directories to search. */ -#define SITELIB "c:\\perl\\site\\5.25.8\\lib" /**/ +#define SITELIB "c:\\perl\\site\\5.25.9\\lib" /**/ /*#define SITELIB_EXP "" /**/ #define SITELIB_STEM "" /**/ diff --git a/NetWare/config_h.PL b/NetWare/config_h.PL index d0eb05a30f..67d5bc3f0b 100644 --- a/NetWare/config_h.PL +++ b/NetWare/config_h.PL @@ -19,7 +19,7 @@ $patchlevel =~ s|~VERSION~|$Config{version}|g; $patchlevel ||= $Config{version}; $patchlevel = qq["$patchlevel"]; -open(SH,"<$name") || die "Cannot open $name:$!"; +open(SH,'<',$name) || die "Cannot open $name:$!"; while (<SH>) { last if /^sed/; @@ -42,7 +42,7 @@ eval $str; die "$str:$@" if $@; -open(H,">$file.new") || die "Cannot open $file.new:$!"; +open(H,'>',"$file.new") || die "Cannot open $file.new:$!"; binmode H; # no CRs (which cause a spurious rebuild) while (<SH>) { diff --git a/NetWare/config_sh.PL b/NetWare/config_sh.PL index 0e1d351c1a..d2daf0ecc1 100644 --- a/NetWare/config_sh.PL +++ b/NetWare/config_sh.PL @@ -18,7 +18,7 @@ sub loadopts { shift @ARGV; my $optfile = shift @ARGV; local (*F); - open OPTF, $optfile or die "Can't open $optfile: $!\n"; + open OPTF, '<', $optfile or die "Can't open $optfile: $!\n"; my @opts; chomp(my $line = <OPTF>); my @vars = split(/\t+~\t+/, $line); @@ -43,7 +43,7 @@ while (@{$optref} && $optref->[0] =~ /^([\w_]+)=(.*)$/) { my $pl_h = '../patchlevel.h'; if (-e $pl_h) { - open PL, "<$pl_h" or die "Can't open $pl_h: $!"; + open PL, '<', $pl_h or die "Can't open $pl_h: $!"; while (<PL>) { if (/^#\s*define\s+(PERL_\w+)\s+([\d.]+)/) { $opt{$1} = $2; diff --git a/NetWare/t/NWModify.pl b/NetWare/t/NWModify.pl index 4e9817448d..fa58b47e82 100644 --- a/NetWare/t/NWModify.pl +++ b/NetWare/t/NWModify.pl @@ -85,7 +85,7 @@ sub Process_File # Do the processing only if the file has '.t' extension. if($ext eq '.t') { - open(FH, "+< $FileToProcess") or die "Unable to open the file, $FileToProcess for reading and writing.\n"; + open(FH, '+<', $FileToProcess) or die "Unable to open the file, $FileToProcess for reading and writing.\n"; @ARRAY = <FH>; # Get the contents of the file into an array. foreach $Line(@ARRAY) # Get each line of the file. diff --git a/NetWare/t/NWScripts.pl b/NetWare/t/NWScripts.pl index c16a4a13cd..5f21244fd9 100644 --- a/NetWare/t/NWScripts.pl +++ b/NetWare/t/NWScripts.pl @@ -30,7 +30,7 @@ foreach $DirItem(@Dirs) # Open once in write mode since later files are opened in append mode, # and if there already exists a file with the same name, all further opens # will append to that file!! - open(FHW, "> $IntAutoScript") or die "Unable to open the file, $IntAutoScript for writing.\n"; + open(FHW, '>', $IntAutoScript) or die "Unable to open the file, $IntAutoScript for writing.\n"; seek(FHW, 0, 0); # seek to the beginning of the file. close FHW; # close the file. } @@ -39,7 +39,7 @@ foreach $DirItem(@Dirs) print "Generating t/nwauto.pl ...\n\n\n"; -open(FHWA, "> t/nwauto.pl") or die "Unable to open the file, t/nwauto.pl for writing.\n"; +open(FHWA, '>', 't/nwauto.pl') or die "Unable to open the file, t/nwauto.pl for writing.\n"; seek(FHWA, 0, 0); # seek to the beginning of the file. $version = sprintf("%vd",$^V); @@ -67,7 +67,7 @@ foreach $FileName(@DirNames) } # Write into the intermediary auto script. - open(FHW, ">> $IntAutoScript") or die "Unable to open the file, $IntAutoScript for appending.\n"; + open(FHW, '>>', $IntAutoScript) or die "Unable to open the file, $IntAutoScript for appending.\n"; seek(FHW, 0, 2); # seek to the end of the file. $pos = tell(FHW); @@ -164,7 +164,7 @@ foreach $DirItem(@Dirs) $IntAutoScript = "t/".$DirItem.".pl"; # Write into the intermediary auto script. - open(FHW, ">> $IntAutoScript") or die "Unable to open the file, $IntAutoScript for appending.\n"; + open(FHW, '>>', $IntAutoScript) or die "Unable to open the file, $IntAutoScript for appending.\n"; seek(FHW, 0, 2); # seek to the end of the file. # Write into the intermediary auto script. diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl index a759592d84..2b72707d4a 100755 --- a/Porting/Maintainers.pl +++ b/Porting/Maintainers.pl @@ -120,7 +120,7 @@ use File::Glob qw(:case); %Modules = ( 'Archive::Tar' => { - 'DISTRIBUTION' => 'BINGOS/Archive-Tar-2.18.tar.gz', + 'DISTRIBUTION' => 'BINGOS/Archive-Tar-2.24.tar.gz', 'FILES' => q[cpan/Archive-Tar], 'BUGS' => 'bug-archive-...@rt.cpan.org', 'EXCLUDED' => [ @@ -173,7 +173,7 @@ use File::Glob qw(:case); }, 'B::Debug' => { - 'DISTRIBUTION' => 'RURBAN/B-Debug-1.23.tar.gz', + 'DISTRIBUTION' => 'RURBAN/B-Debug-1.24.tar.gz', 'FILES' => q[cpan/B-Debug], 'EXCLUDED' => ['t/pod.t'], }, @@ -188,7 +188,7 @@ use File::Glob qw(:case); }, 'bignum' => { - 'DISTRIBUTION' => 'PJACKLAM/bignum-0.45.tar.gz', + 'DISTRIBUTION' => 'PJACKLAM/bignum-0.47.tar.gz', 'FILES' => q[cpan/bignum], 'EXCLUDED' => [ qr{^t/author-}, @@ -206,7 +206,7 @@ use File::Glob qw(:case); }, 'Compress::Raw::Bzip2' => { - 'DISTRIBUTION' => 'PMQS/Compress-Raw-Bzip2-2.069.tar.gz', + 'DISTRIBUTION' => 'PMQS/Compress-Raw-Bzip2-2.070.tar.gz', 'FILES' => q[cpan/Compress-Raw-Bzip2], 'EXCLUDED' => [ qr{^t/Test/}, @@ -217,7 +217,7 @@ use File::Glob qw(:case); }, 'Compress::Raw::Zlib' => { - 'DISTRIBUTION' => 'PMQS/Compress-Raw-Zlib-2.069.tar.gz', + 'DISTRIBUTION' => 'PMQS/Compress-Raw-Zlib-2.070.tar.gz', 'FILES' => q[cpan/Compress-Raw-Zlib], 'EXCLUDED' => [ @@ -335,7 +335,7 @@ use File::Glob qw(:case); }, 'DB_File' => { - 'DISTRIBUTION' => 'PMQS/DB_File-1.838.tar.gz', + 'DISTRIBUTION' => 'PMQS/DB_File-1.840.tar.gz', 'FILES' => q[cpan/DB_File], 'EXCLUDED' => [ qr{^patches/}, @@ -761,7 +761,7 @@ use File::Glob qw(:case); }, 'Math::BigInt' => { - 'DISTRIBUTION' => 'PJACKLAM/Math-BigInt-1.999803.tar.gz', + 'DISTRIBUTION' => 'PJACKLAM/Math-BigInt-1.999806.tar.gz', 'FILES' => q[cpan/Math-BigInt], 'EXCLUDED' => [ qr{^examples/}, @@ -775,7 +775,7 @@ use File::Glob qw(:case); }, 'Math::BigInt::FastCalc' => { - 'DISTRIBUTION' => 'PJACKLAM/Math-BigInt-FastCalc-0.5003.tar.gz', + 'DISTRIBUTION' => 'PJACKLAM/Math-BigInt-FastCalc-0.5005.tar.gz', 'FILES' => q[cpan/Math-BigInt-FastCalc], 'EXCLUDED' => [ qr{^t/author-}, @@ -799,7 +799,7 @@ use File::Glob qw(:case); }, 'Math::BigRat' => { - 'DISTRIBUTION' => 'PJACKLAM/Math-BigRat-0.2609.tar.gz', + 'DISTRIBUTION' => 'PJACKLAM/Math-BigRat-0.2611.tar.gz', 'FILES' => q[cpan/Math-BigRat], 'EXCLUDED' => [ qr{^t/author-}, @@ -843,7 +843,7 @@ use File::Glob qw(:case); }, 'Module::CoreList' => { - 'DISTRIBUTION' => 'BINGOS/Module-CoreList-5.20161120.tar.gz', + 'DISTRIBUTION' => 'BINGOS/Module-CoreList-5.20161220.tar.gz', 'FILES' => q[dist/Module-CoreList], }, @@ -979,7 +979,7 @@ use File::Glob qw(:case); }, 'Pod::Simple' => { - 'DISTRIBUTION' => 'MARCGREEN/Pod-Simple-3.32.tar.gz', + 'DISTRIBUTION' => 'MARCGREEN/Pod-Simple-3.35.tar.gz', 'FILES' => q[cpan/Pod-Simple], }, @@ -1166,7 +1166,7 @@ use File::Glob qw(:case); }, 'Test::Simple' => { - 'DISTRIBUTION' => 'EXODIST/Test-Simple-1.302067.tar.gz', + 'DISTRIBUTION' => 'EXODIST/Test-Simple-1.302073.tar.gz', 'FILES' => q[cpan/Test-Simple], 'EXCLUDED' => [ qr{^examples/}, @@ -1245,7 +1245,7 @@ use File::Glob qw(:case); }, 'threads' => { - 'DISTRIBUTION' => 'JDHEDDEN/threads-2.09.tar.gz', + 'DISTRIBUTION' => 'JDHEDDEN/threads-2.12.tar.gz', 'FILES' => q[dist/threads], 'EXCLUDED' => [ qr{^examples/}, @@ -1257,7 +1257,7 @@ use File::Glob qw(:case); }, 'threads::shared' => { - 'DISTRIBUTION' => 'JDHEDDEN/threads-shared-1.52.tar.gz', + 'DISTRIBUTION' => 'JDHEDDEN/threads-shared-1.54.tar.gz', 'FILES' => q[dist/threads-shared], 'EXCLUDED' => [ qw( examples/class.pl diff --git a/Porting/Maintainers.pm b/Porting/Maintainers.pm index ef56abb912..1c52829f32 100644 --- a/Porting/Maintainers.pm +++ b/Porting/Maintainers.pm @@ -22,7 +22,7 @@ use vars qw(@ISA @EXPORT_OK $VERSION); show_results process_options files_to_modules finish_tap_output reload_manifest); -$VERSION = 0.11; +$VERSION = 0.12; require Exporter; @@ -41,7 +41,7 @@ sub reload_manifest { $manifest_path = "../MANIFEST"; } - if (open(my $manfh, $manifest_path )) { + if (open(my $manfh, '<', $manifest_path )) { while (<$manfh>) { if (/^(\S+)/) { $MANIFEST{$1}++; diff --git a/Porting/add-package.pl b/Porting/add-package.pl index ee03c45b68..012aa77894 100755 --- a/Porting/add-package.pl +++ b/Porting/add-package.pl @@ -374,7 +374,7 @@ my @ChangedFiles; ### update the manifest { my $file = $Repo . '/MANIFEST'; my @manifest; - { open my $fh, "<$file" or die "Could not open $file: $!"; + { open my $fh, '<', $file or die "Could not open $file: $!"; @manifest = <$fh>; close $fh; } @@ -414,7 +414,7 @@ my @ChangedFiles; push @manifest, values %pkg_files; { chmod 0644, $file; - open my $fh, ">$file" or die "Could not open $file for writing: $!"; + open my $fh, '>', $file or die "Could not open $file for writing: $!"; #print $fh sort { lc $a cmp lc $b } @manifest; ### XXX stolen from pod/buildtoc:sub do_manifest print $fh diff --git a/Porting/check83.pl b/Porting/check83.pl index 64eac95b89..fbe5655589 100755 --- a/Porting/check83.pl +++ b/Porting/check83.pl @@ -45,7 +45,7 @@ sub eight_dot_three { my %dir; -if (open(MANIFEST, "MANIFEST")) { +if (open(MANIFEST, '<', 'MANIFEST')) { while (<MANIFEST>) { chomp; s/\s.+//; diff --git a/Porting/checkAUTHORS.pl b/Porting/checkAUTHORS.pl index 4204304536..56fb39eb68 100755 --- a/Porting/checkAUTHORS.pl +++ b/Porting/checkAUTHORS.pl @@ -215,7 +215,7 @@ sub read_authors_files { return unless (@authors); my (%count, %raw); foreach my $filename (@authors) { - open FH, "<$filename" or die "Can't open $filename: $!"; + open FH, '<', $filename or die "Can't open $filename: $!"; binmode FH, ':encoding(UTF-8)'; while (<FH>) { next if /^\#/; @@ -661,6 +661,7 @@ jasons\100cs.unm.edu jasons\100sandy-home.arc.unm.edu jbuehler\100hekimian.com jhpb\100hekimian.com jcromie\100100divsol.com jcromie\100cpan.org + jim.cromie\100gmail.com +jd\100cpanel.net lightsey\100debian.org jdhedden\100cpan.org jerry\100hedden.us + jdhedden\1001979.usna.com + jdhedden\100gmail.com diff --git a/Porting/checkVERSION.pl b/Porting/checkVERSION.pl index 9ad2ff54d8..d63c34ec2e 100755 --- a/Porting/checkVERSION.pl +++ b/Porting/checkVERSION.pl @@ -24,7 +24,7 @@ sub parse_file { my $result; - open(FH,$parsefile) or warn "Could not open '$parsefile': $!"; + open(FH,'<',$parsefile) or warn "Could not open '$parsefile': $!"; my $inpod = 0; while (<FH>) { diff --git a/Porting/checkansi.pl b/Porting/checkansi.pl index c072b28e2c..f16691aa3a 100755 --- a/Porting/checkansi.pl +++ b/Porting/checkansi.pl @@ -50,7 +50,7 @@ for my $k (keys %{$limits{$opt{std}}}) { find(sub { /\.([ch]|xs)$/ or return; - my $fh = IO::File->new($_) or die "$_: $!\n"; + my $fh = IO::File->new($_, 'r') or die "$_: $!\n"; my $ll = ''; while (defined(my $line = <$fh>)) { diff --git a/Porting/checkcfguse.pl b/Porting/checkcfguse.pl index af3dd12cb1..986d4f9041 100755 --- a/Porting/checkcfguse.pl +++ b/Porting/checkcfguse.pl @@ -47,7 +47,7 @@ my @PAT = print STDERR "$0: Looking for symbols...\n"; for my $pat (@PAT) { for my $fn (map { glob($_) } @{ $pat->[0] }) { - if (open(my $fh, $fn)) { + if (open(my $fh, '<', $fn)) { while (<$fh>) { for my $p (@$pat) { for my $sym (/$p/g) { @@ -70,7 +70,7 @@ delete $SYM{'const'}; my $SYM = join("|", sort { length($b) <=> length($a) || $a cmp $b } keys %SYM); -open(my $mani, "MANIFEST") or die "$0: Failed to open MANIFEST\n"; +open(my $mani, '<', "MANIFEST") or die "$0: Failed to open MANIFEST\n"; my %found; while (<$mani>) { @@ -80,7 +80,7 @@ while (<$mani>) { # from metaconfig generated files that refer to # the config symbols, and from pods. next if $fn =~ m{^(?:config_h.SH|Configure|configure\.com|Porting/(?:config|Glossary)|(?:NetWare|plan9|win32)/(?:config|(?:GNU)?[Mm]akefile)|uconfig)|\.pod$}; - open my $fh, $fn or die qq[$0: Failed to open $fn: $!]; + open my $fh, '<', $fn or die qq[$0: Failed to open $fn: $!]; while (<$fh>) { while (/\b($SYM)\b/go) { $found{$1}{$fn}++; diff --git a/Porting/config.sh b/Porting/config.sh index edb0cddad1..fbeca17990 100644 --- a/Porting/config.sh +++ b/Porting/config.sh @@ -39,12 +39,12 @@ alignbytes='8' ansi2knr='' aphostname='/bin/hostname' api_revision='5' -api_subversion='8' +api_subversion='9' api_version='25' -api_versionstring='5.25.8' +api_versionstring='5.25.9' ar='ar' -archlib='/tmp/mblead/lib/perl5/5.25.8/darwin-2level' -archlibexp='/tmp/mblead/lib/perl5/5.25.8/darwin-2level' +archlib='/tmp/mblead/lib/perl5/5.25.9/darwin-2level' +archlibexp='/tmp/mblead/lib/perl5/5.25.9/darwin-2level' archname64='' archname='darwin-2level' archobjs='' @@ -846,7 +846,7 @@ incpath='' incpth='/usr/local/include /Applications/Xcode.app/Contents/Developer/Toolchains/XcodeDefault.xctoolchain/usr/bin/../lib/clang/6.0/include /Applications/Xcode.app/Contents/Developer/Toolchains/XcodeD ... [514 chars truncated] inews='' initialinstalllocation='/tmp/mblead/bin' -installarchlib='/tmp/mblead/lib/perl5/5.25.8/darwin-2level' +installarchlib='/tmp/mblead/lib/perl5/5.25.9/darwin-2level' installbin='/tmp/mblead/bin' installhtml1dir='' installhtml3dir='' @@ -854,13 +854,13 @@ installman1dir='/tmp/mblead/man/man1' installman3dir='/tmp/mblead/man/man3' installprefix='/tmp/mblead' installprefixexp='/tmp/mblead' -installprivlib='/tmp/mblead/lib/perl5/5.25.8' +installprivlib='/tmp/mblead/lib/perl5/5.25.9' installscript='/tmp/mblead/bin' -installsitearch='/tmp/mblead/lib/perl5/site_perl/5.25.8/darwin-2level' +installsitearch='/tmp/mblead/lib/perl5/site_perl/5.25.9/darwin-2level' installsitebin='/tmp/mblead/bin' installsitehtml1dir='' installsitehtml3dir='' -installsitelib='/tmp/mblead/lib/perl5/site_perl/5.25.8' +installsitelib='/tmp/mblead/lib/perl5/site_perl/5.25.9' installsiteman1dir='/tmp/mblead/man/man1' installsiteman3dir='/tmp/mblead/man/man3' installsitescript='/tmp/mblead/bin' @@ -985,7 +985,7 @@ perl_patchlevel='' perl_static_inline='static __inline__' perladmin='aaron@daybreak.nonet' perllibs='-lpthread -ldl -lm -lutil -lc' -perlpath='/tmp/mblead/bin/perl5.25.8' +perlpath='/tmp/mblead/bin/perl5.25.9' pg='pg' phostname='hostname' pidtype='pid_t' @@ -994,8 +994,8 @@ pmake='' pr='' prefix='/tmp/mblead' prefixexp='/tmp/mblead' -privlib='/tmp/mblead/lib/perl5/5.25.8' -privlibexp='/tmp/mblead/lib/perl5/5.25.8' +privlib='/tmp/mblead/lib/perl5/5.25.9' +privlibexp='/tmp/mblead/lib/perl5/5.25.9' procselfexe='' prototype='define' ptrsize='8' @@ -1061,17 +1061,17 @@ sig_num='0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 sig_num_init='0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 6, 0' sig_size='33' signal_t='void' -sitearch='/tmp/mblead/lib/perl5/site_perl/5.25.8/darwin-2level' -sitearchexp='/tmp/mblead/lib/perl5/site_perl/5.25.8/darwin-2level' +sitearch='/tmp/mblead/lib/perl5/site_perl/5.25.9/darwin-2level' +sitearchexp='/tmp/mblead/lib/perl5/site_perl/5.25.9/darwin-2level' sitebin='/tmp/mblead/bin' sitebinexp='/tmp/mblead/bin' sitehtml1dir='' sitehtml1direxp='' sitehtml3dir='' sitehtml3direxp='' -sitelib='/tmp/mblead/lib/perl5/site_perl/5.25.8' +sitelib='/tmp/mblead/lib/perl5/site_perl/5.25.9' sitelib_stem='/tmp/mblead/lib/perl5/site_perl' -sitelibexp='/tmp/mblead/lib/perl5/site_perl/5.25.8' +sitelibexp='/tmp/mblead/lib/perl5/site_perl/5.25.9' siteman1dir='/tmp/mblead/man/man1' siteman1direxp='/tmp/mblead/man/man1' siteman3dir='/tmp/mblead/man/man3' @@ -1097,7 +1097,7 @@ src='.' ssizetype='ssize_t' st_ino_sign='1' st_ino_size='8' -startperl='#!/tmp/mblead/bin/perl5.25.8' +startperl='#!/tmp/mblead/bin/perl5.25.9' startsh='#!/bin/sh' static_ext=' ' stdchar='char' @@ -1110,7 +1110,7 @@ stdio_stream_array='' strerror_r_proto='0' strings='/usr/include/string.h' submit='' -subversion='8' +subversion='9' sysman='/usr/share/man/man1' sysroot='' tail='' @@ -1209,8 +1209,8 @@ vendorprefix='' vendorprefixexp='' vendorscript='' vendorscriptexp='' -version='5.25.8' -version_patchlevel_string='version 25 subversion 8' +version='5.25.9' +version_patchlevel_string='version 25 subversion 9' versiononly='define' vi='' xlibpth='/usr/lib/386 /lib/386' @@ -1220,9 +1220,9 @@ zcat='' zip='zip' PERL_REVISION=5 PERL_VERSION=25 -PERL_SUBVERSION=8 +PERL_SUBVERSION=9 PERL_API_REVISION=5 PERL_API_VERSION=25 -PERL_API_SUBVERSION=8 +PERL_API_SUBVERSION=9 PERL_PATCHLEVEL='' PERL_CONFIG_SH=true diff --git a/Porting/config_H b/Porting/config_H index 421feca1e2..54b5b9df5b 100644 --- a/Porting/config_H +++ b/Porting/config_H @@ -960,8 +960,8 @@ * This symbol contains the ~name expanded version of ARCHLIB, to be used * in programs that are not prepared to deal with ~ expansion at run-time. */ -#define ARCHLIB "/pro/lib/perl5/5.25.8/i686-linux-64int-ld" /**/ -#define ARCHLIB_EXP "/pro/lib/perl5/5.25.8/i686-linux-64int-ld" /**/ +#define ARCHLIB "/pro/lib/perl5/5.25.9/i686-linux-64int-ld" /**/ +#define ARCHLIB_EXP "/pro/lib/perl5/5.25.9/i686-linux-64int-ld" /**/ /* ARCHNAME: * This symbol holds a string representing the architecture name. @@ -2068,8 +2068,8 @@ * This symbol contains the ~name expanded version of PRIVLIB, to be used * in programs that are not prepared to deal with ~ expansion at run-time. */ -#define PRIVLIB "/pro/lib/perl5/5.25.8" /**/ -#define PRIVLIB_EXP "/pro/lib/perl5/5.25.8" /**/ +#define PRIVLIB "/pro/lib/perl5/5.25.9" /**/ +#define PRIVLIB_EXP "/pro/lib/perl5/5.25.9" /**/ /* PTRSIZE: * This symbol contains the size of a pointer, so that the C preprocessor @@ -2119,8 +2119,8 @@ * This symbol contains the ~name expanded version of SITEARCH, to be used * in programs that are not prepared to deal with ~ expansion at run-time. */ -#define SITEARCH "/pro/lib/perl5/site_perl/5.25.8/i686-linux-64int-ld" /**/ -#define SITEARCH_EXP "/pro/lib/perl5/site_perl/5.25.8/i686-linux-64int-ld" /**/ +#define SITEARCH "/pro/lib/perl5/site_perl/5.25.9/i686-linux-64int-ld" /**/ +#define SITEARCH_EXP "/pro/lib/perl5/site_perl/5.25.9/i686-linux-64int-ld" /**/ /* SITELIB: * This symbol contains the name of the private library for this package. @@ -2142,8 +2142,8 @@ * removed. The elements in inc_version_list (inc_version_list.U) can * be tacked onto this variable to generate a list of directories to search. */ -#define SITELIB "/pro/lib/perl5/site_perl/5.25.8" /**/ -#define SITELIB_EXP "/pro/lib/perl5/site_perl/5.25.8" /**/ +#define SITELIB "/pro/lib/perl5/site_perl/5.25.9" /**/ +#define SITELIB_EXP "/pro/lib/perl5/site_perl/5.25.9" /**/ #define SITELIB_STEM "/pro/lib/perl5/site_perl" /**/ /* SSize_t: @@ -4282,7 +4282,7 @@ * script to make sure (one hopes) that it runs with perl and not * some shell. */ -#define STARTPERL "#!/pro/bin/perl5.25.8" /**/ +#define STARTPERL "#!/pro/bin/perl5.25.9" /**/ /* HAS_STDIO_STREAM_ARRAY: * This symbol, if defined, tells that there is an array diff --git a/Porting/config_h.pl b/Porting/config_h.pl index 82f40d9fa0..8ac15824a2 100755 --- a/Porting/config_h.pl +++ b/Porting/config_h.pl @@ -15,7 +15,7 @@ use strict; use warnings; my ($cSH, $ch, @ch, %ch) = ("config_h.SH"); -open $ch, "<$cSH" or die "Cannot open $cSH: $!\n"; +open $ch, '<', $cSH or die "Cannot open $cSH: $!\n"; { local $/ = "\n\n"; @ch = <$ch>; close $ch; @@ -68,7 +68,7 @@ for (grep m{echo .Extracting \$CONFIG_H} => @ch) { push @ch, ";;\nesac\n"; -open $ch, "> $cSH" or die "Cannot write $cSH: $!\n"; +open $ch, '>', $cSH or die "Cannot write $cSH: $!\n"; print $ch <<EOW; #!/bin/sh # diff --git a/Porting/corecpan.pl b/Porting/corecpan.pl index 3a38d112c6..75b18abc77 100755 --- a/Porting/corecpan.pl +++ b/Porting/corecpan.pl @@ -58,7 +58,7 @@ our $opt_f || !-f $packagefile and get_package_details; # Load the package details. All of them. my %cpanversions; -open my $fh, $packagefile or die $!; +open my $fh, '<', $packagefile or die $!; while (<$fh>) { my ($p, $v) = split ' '; next if 1../^\s*$/; # skip header diff --git a/Porting/epigraphs.pod b/Porting/epigraphs.pod index 69fa0d2910..93a96cf901 100644 --- a/Porting/epigraphs.pod +++ b/Porting/epigraphs.pod @@ -17,6 +17,21 @@ Consult your favorite dictionary for details. =head1 EPIGRAPHS +=head2 v5.25.8 - Langston Hughes, So long + +L<Announced on 2016-12-20 by Sawyer X|http://www.nntp.perl.org/group/perl.perl5.porters/2016/12/msg241739.html> + + So long + is in the song + and it's in the way you're gone + but it's like a foreign language + in my mind + and maybe was I blind + I could not see + and would not know + you're gone so long + so long. + =head2 v5.25.7 - J.R.R. Tolkien, "The Silmarillion" L<Announced on 2016-11-20 by Chad 'Exodist' Granum|http://www.nntp.perl.org/group/perl.perl5.porters/2016/11/msg241120.html> @@ -178,6 +193,24 @@ L<Announced on 2016-05-09 by Ricardo Signes|http://www.nntp.perl.org/group/perl. To find that the utmost reward Of daring should be still to dare. +=head2 v5.24.1-RC5 - John Milton, ed. Gordon Campbell, "Paradise Regained", Book IV + +L<Announced on 2017-01-02 by Steve Hay|http://www.nntp.perl.org/group/perl.perl5.porters/2017/01/msg242016.html> + + Thus passed the night so foul, till Morning fair + Came forth with pilgrim steps, in amice grey; + Who with her radiant finger stilled the roar + Of thunder, chased the clouds, and laid the winds, + And grisly spectres, which the fiend had raised + To tempt the Son of God with terrors dire. + And now the sun with more effectual beams + Had cheered the face of earth, and dried the wet + From drooping plant, or dropping tree; the birds, + Who all things now behold more fresh and green, + After a night of storm so ruinous, + Cleared up their choicest notes in bush and spray, + To gratulate the sweet return of morn. + =head2 v5.24.1-RC4 - John Milton, ed. Gordon Campbell, "Paradise Lost", Book II L<Announced on 2016-10-12 by Steve Hay|http://www.nntp.perl.org/group/perl.perl5.porters/2016/10/msg240224.html> @@ -648,6 +681,30 @@ L<Announced on 2015-06-20 by Ricardo Signes|http://www.nntp.perl.org/group/perl. They sing while you slave and I just get bored I ain't gonna work on Maggie's farm no more +=head2 v5.22.3-RC5 - John Milton, ed. Gordon Campbell, "Paradise Regained", Book II + +L<Announced on 2017-01-02 by Steve Hay|http://www.nntp.perl.org/group/perl.perl5.porters/2017/01/msg242017.html> + + Thus wore out night; and now the herald lark + Left his ground-nest, high towering to descry + The Morn's approach, and greet her with his song; + As lightly from his grassy couch up rose + Our Saviour, and found all was but a dream; + Fasting he went to sleep, and fasting waked. + Up to a hill anon his steps he reared, + From whose high top to ken the prospect round, + If cottage were in view, sheep-cote, or herd; + But cottage, herd, or sheep-cote, none he saw -- + Only in a bottom saw a pleasant grove, + With chant of tuneful birds resounding loud; + Thither he bent his way, determined there + To rest at noon, and entered soon the shade, + High-roofed and walks beneath, and alleys brown, + That opened in the midst a woody scene; + Nature's own work it seemed (Nature taught Art), + And, to a superstitious eye, the haunt + Of wood-gods and wood-nymphs. + =head2 v5.22.3-RC4 - John Milton, ed. Gordon Campbell, "Paradise Lost", Book II L<Announced on 2016-10-12 by Steve Hay|http://www.nntp.perl.org/group/perl.perl5.porters/2016/10/msg240223.html> diff --git a/Porting/leakfinder.pl b/Porting/leakfinder.pl index c22a58e4cf..370ae5c6d9 100644 --- a/Porting/leakfinder.pl +++ b/Porting/leakfinder.pl @@ -31,9 +31,9 @@ for(`find .`) { =~ s/\0/'."\\0".'/grid; $prog = <<end; open oUt, ">&", STDOUT; - open STDOUT, ">/dev/null"; - open STDIN, "</dev/null"; - open STDERR, ">/dev/null"; + open STDOUT, ">", "/dev/null"; + open STDIN, "<", "/dev/null"; + open STDERR, ">", "/dev/null"; \$unused_variable = '$q'; eval \$unused_variable while \$also_unused++ < 4; print oUt sv_count, "\n"; diff --git a/Porting/makerel b/Porting/makerel index 0bf79908a3..53ecdc2cda 100755 --- a/Porting/makerel +++ b/Porting/makerel @@ -48,7 +48,7 @@ $relroot = defined $opts{r} ? $opts{r} : ".."; die "Must be in root of the perl source tree.\n" unless -f "./MANIFEST" and -f "patchlevel.h"; -open PATCHLEVEL,"<patchlevel.h" or die; +open PATCHLEVEL, '<', 'patchlevel.h' or die; my @patchlevel_h = <PATCHLEVEL>; close PATCHLEVEL; my $patchlevel_h = join "", grep { /^#\s*define/ } @patchlevel_h; diff --git a/Porting/manicheck b/Porting/manicheck index 1b506d928f..b544a12252 100644 --- a/Porting/manicheck +++ b/Porting/manicheck @@ -8,7 +8,7 @@ use strict; use warnings; use File::Find; -open my $fh, 'MANIFEST' or die "Can't read MANIFEST: $!\n"; +open my $fh, '<', 'MANIFEST' or die "Can't read MANIFEST: $!\n"; my @files = map { (split)[0] } <$fh>; close $fh; for (@files) { diff --git a/Porting/release_managers_guide.pod b/Porting/release_managers_guide.pod index d148c21d8f..86f5e41c38 100644 --- a/Porting/release_managers_guide.pod +++ b/Porting/release_managers_guide.pod @@ -245,6 +245,15 @@ have some extra changes. =head3 How to sync a CPAN module with a cpanE<sol> distro +In most cases, once a new version of a distribution shipped with core has been +uploaded to CPAN, the core version thereof can be synchronized automatically +with the program F<Porting/sync-with-cpan>. (But see the comments at the +beginning of that program. In particular, it has not yet been exercised on +Windows as much as it has on Unix-like platforms.) + +If, however, F<Porting/sync-with-cpan> does not provide good results, follow +the steps below. + =over 4 =item * @@ -326,12 +335,6 @@ If everything is ok, commit the changes. For entries with a non-simple C<FILES> section, or with a C<MAP>, you may have to take more steps than listed above. -F<Porting/sync-with-cpan> is a script that automates most of the steps -above; but see the comments at the beginning of the file. In particular, -it has not yet been exercised on Windows, but will certainly require a set -of Unix tools such as Cygwin, and steps that run C<make> will need to run -C<nmake> instead. - =head3 dual-life CPAN module stability Ensure dual-life CPAN modules are stable, which comes down to: diff --git a/Porting/release_schedule.pod b/Porting/release_schedule.pod index 4b8315d7f5..49ab41fcaa 100644 --- a/Porting/release_schedule.pod +++ b/Porting/release_schedule.pod @@ -56,7 +56,7 @@ you should reset the version numbers to the next blead series. 2016-09-20 5.25.5 â Stevan Little 2016-10-20 5.25.6 â Aaron Crane 2016-11-20 5.25.7 â Chad Granum - 2016-12-20 5.25.8 Sawyer X + 2016-12-20 5.25.8 â Sawyer X 2017-01-20 5.25.9 Abigail 2017-02-20 5.25.10 Renée Bäcker diff --git a/Porting/sync-with-cpan b/Porting/sync-with-cpan index d0cc1d62be..9c6a6b02d2 100755 --- a/Porting/sync-with-cpan +++ b/Porting/sync-with-cpan @@ -66,7 +66,7 @@ Restore files mentioned in C<CUSTOMIZED> =item * -Adds new files to F<MANIFEST> +Updates the contents of F<MANIFEST> =item * @@ -90,13 +90,19 @@ Runs the porting tests C<--tarball> should be the path to the tarball; the version is extracted from the filename -- but can be overwritten by the C<--version> option. -=head1 TODO +=head1 OPTIONS =over 4 -=item * +=item C<--jobs> I<N> + +When running C<make>, pass a C<< -jI<N> >> option to it. -Delete files from F<MANIFEST> +=back + +=head1 TODO + +=over 4 =item * @@ -128,15 +134,25 @@ use strict; use warnings; use Getopt::Long; use Archive::Tar; +use File::Basename qw( basename ); use File::Path qw( remove_tree ); use File::Find; +use File::Spec::Functions qw( tmpdir ); use Config qw( %Config ); $| = 1; +use constant WIN32 => $^O eq 'MSWin32'; + die "This does not look like a top level directory" unless -d "cpan" && -d "Porting"; +# Check that there's a Makefile, if needed; otherwise, we'll do most of our +# work only to fail when we try to run make, and the user will have to +# either unpick everything we've done, or do the rest manually. +die "Please run Configure before using $0\n" + if !WIN32 && !-f "Makefile"; + our @IGNORABLE; our %Modules; @@ -144,9 +160,11 @@ use autodie; require "Porting/Maintainers.pl"; +my $MAKE_LOG = 'make.log'; + my %IGNORABLE = map {$_ => 1} @IGNORABLE; -my $tmpdir= $ENV{ TEMP } // '/tmp'; +my $tmpdir = tmpdir(); my $package = "02packages.details.txt"; my $package_url = "http://www.cpan.org/modules/$package"; @@ -166,6 +184,7 @@ sub usage GetOptions ('tarball=s' => \my $tarball, 'version=s' => \my $version, + 'jobs=i' => \my $make_jobs, force => \my $force, help => sub { usage 0; }, ) or die "Failed to parse arguments"; @@ -184,30 +203,73 @@ sub find_type_f { # Equivalent of `chmod a-x` sub de_exec { - for my $filename ( @_ ) { - my $mode= (stat $filename)[2] & 0777; - if( $mode & 0111 ) { # exec-bit set - chmod $mode & 0666, $filename; - }; + my ($filename) = @_; + my $mode = (stat $filename)[2] & 0777; + if ($mode & 0111) { # exec-bit set + chmod $mode & 0666, $filename; + } +} + +# Equivalent of `chmod +w` +sub make_writable { + my ($filename) = @_; + my $mode = (stat $filename)[2] & 0777; + if (!($mode & 0222)) { # not writable + chmod $mode | (0222 & ~umask), $filename; } } sub make { my @args= @_; - if( $^O eq 'MSWin32') { + unshift @args, "-j$make_jobs" if defined $make_jobs; + if (WIN32) { chdir "Win32"; - system "$Config{make} @args> ..\\make.log 2>&1" and die "Running make failed, see make.log"; + system "$Config{make} @args> ..\\$MAKE_LOG 2>&1" + and die "Running make failed, see $MAKE_LOG"; chdir '..'; } else { - system "$Config{make} @args> make.log 2>&1" and die "Running make failed, see make.log"; + system "$Config{make} @args> $MAKE_LOG 2>&1" + and die "Running make failed, see $MAKE_LOG"; }; }; my ($module) = shift; -my $cpan_mod = @ARGV ? shift : $module; +my $info = $Modules{$module}; +if (!$info) { + # Maybe the user said "Test-Simple" instead of "Test::Simple", or + # "IO::Compress" instead of "IO-Compress". See if we can fix it up. + my $guess = $module; + s/-/::/g or s/::/-/g for $guess; + $info = $Modules{$guess} or die <<"EOF"; +Cannot find module $module. +The available options are listed in the %Modules hash in Porting/Maintainers.pl +EOF + say "Guessing you meant $guess instead of $module"; + $module = $guess; +} + +if ($info->{CUSTOMIZED}) { + print <<"EOF"; +$module has a CUSTOMIZED entry in Porting/Maintainers.pl. + +This program's behaviour is to copy every CUSTOMIZED file into the version +of the module being imported. But that might not be the right thing: in some +cases, the new CPAN version will supersede whatever changes had previously +been made in blead, so it would be better to import the new CPAN files. + +If you've checked that the CUSTOMIZED versions are still correct, you can +proceed now. Otherwise, you should abort and investigate the situation. If +the blead customizations are no longer needed, delete the CUSTOMIZED entry +for $module in Porting/Maintainers.pl (and you'll also need to regenerate +t/porting/customized.dat in that case; see t/porting/customized.t). + +EOF + print "Hit return to continue; ^C to abort "; <STDIN>; +} + +my $cpan_mod = @ARGV ? shift : $module; -my $info = $Modules {$module} or die "Cannot find module $module"; my $distribution = $$info {DISTRIBUTION}; my @files = glob $$info {FILES}; @@ -238,7 +300,15 @@ if ($cpan_mod =~ /-/ && $cpan_mod !~ /::/) { # my $new_file; my $new_version; -unless ($tarball) { +if (defined $tarball) { + die "Tarball $tarball does not exist\n" if !-e $tarball; + die "Tarball $tarball is not a plain file\n" if !-f _; + $new_file = $tarball; + $new_version = $version // ($new_file =~ /-([0-9._]+(?:-TRIAL[0-9]*)?)\.tar\.gz/) [0]; + die "Blead and that tarball both have version $new_version of $module\n" + if $new_version eq $old_version; +} +else { # # Poor man's cache # @@ -261,6 +331,9 @@ unless ($tarball) { } $new_file = (split '/', $new_path) [-1]; + die "The latest version of $module is $new_version, but blead already has it\n" + if $new_version eq $old_version; + my $url = "http://search.cpan.org/CPAN/authors/id/$new_path"; say "Fetching $url"; # @@ -273,10 +346,6 @@ unless ($tarball) { 1 } or system wget => $url, '-qO', $new_file; } -else { - $new_file = $tarball; - $new_version = $version // ($new_file =~ /-([0-9._]+(?:-TRIAL[0-9]*)?)\.tar\.gz/) [0]; -} my $old_dir = "$pkg_dir-$old_version"; @@ -286,12 +355,11 @@ system git => 'clean', '-dfxq', $pkg_dir; say "Unpacking $new_file"; Archive::Tar->extract_archive( $new_file ); -(my $new_dir = $new_file) =~ s/\.tar\.gz//; +(my $new_dir = basename($new_file)) =~ s/\.tar\.gz//; # ensure 'make' will update all files my $t= time; for my $file (find_type_f($new_dir)) { - open(my $fh,">>$file") || die "Cannot write $file:$!"; - close($fh); + make_writable($file); # for convenience if the user later edits it utime($t,$t,$file); }; @@ -439,23 +507,58 @@ if ($$info {CUSTOMIZED}) { } chdir ".."; -if (@commit) { +if (@commit || @gone) { say "Fixing MANIFEST"; - my $MANIFEST = "MANIFEST"; - my $MANIFEST_SORT = "$MANIFEST.sorted"; - open my $fh, ">>", $MANIFEST; - say $fh "cpan/$pkg_dir/$_" for @commit; - close $fh; - system perl => "Porting/manisort", '--output', $MANIFEST_SORT; - rename $MANIFEST_SORT => $MANIFEST; + my $MANIFEST = "MANIFEST"; + my $MANIFEST_NEW = "$MANIFEST.new"; + + open my $orig, "<", $MANIFEST + or die "Failed to open $MANIFEST for reading: $!\n"; + open my $new, ">", $MANIFEST_NEW + or die "Failed to open $MANIFEST_NEW for writing: $!\n"; + my %gone = map +("cpan/$pkg_dir/$_" => 1), @gone; + while (my $line = <$orig>) { + my ($file) = $line =~ /^(\S+)/ + or die "Can't parse MANIFEST line: $line"; + print $new $line if !$gone{$file}; + } + + say $new "cpan/$pkg_dir/$_" for @commit; + + close $new or die "Can't close $MANIFEST: $!\n"; + + system $^X => "Porting/manisort", '--quiet', "--output=$MANIFEST", $MANIFEST_NEW; + unlink $MANIFEST_NEW + or die "Can't delete temporary $MANIFEST_NEW: $!\n"; } -print "Running a make ... "; +print "Running a make and saving its output to $MAKE_LOG ... "; # Prepare for running (selected) tests make 'test-prep'; print "done\n"; +# The build system installs code from CPAN dists into the lib/ directory, +# creating directories as needed. This means that the cleaning-related rules +# in the Makefile need to know which directories to clean up. The Makefile +# is generated by Configure from Makefile.SH, so *that* file needs the list +# of directories. regen/lib_cleanup.pl is capable of automatically updating +# the contents of Makefile.SH (and win32/Makefile, which needs similar but +# not identical lists of directories), so we can just run that (using the +# newly-built Perl, as is done with the regen programs run by "make regen"). +# +# We do this if any files at all have been added or deleted, regardless of +# whether those changes result in any directories being added or deleted, +# because the alternative would be to replicate the regen/lib_cleanup.pl +# logic here. That's fine, because regen/lib_cleanup.pl is idempotent if run +# repeatedly. +if (@commit || @gone) { + say "Running regen/lib_cleanup.pl to handle potential added/deleted dirs"; + my $exe_dir = WIN32 ? ".\\" : './'; + system "${exe_dir}perl$Config{_exe}", "-Ilib", "regen/lib_cleanup.pl" + and die "regen/lib_cleanup.pl failed\n"; +} + # # Must clean up, or else t/porting/FindExt.t will fail. # Note that we can always retrieve the original directory with a git checkout. @@ -471,8 +574,8 @@ unlink "cpan/$new_file" unless $tarball; # chdir "t"; say "Running module tests"; -my @test_files = grep { /\.t$/ } find_type_f( $pkg_dir ); -my $exe_dir= $^O =~ /MSWin/ ? "..\\" : './'; +my @test_files = grep { /\.t$/ } find_type_f( "../cpan/$pkg_dir" ); +my $exe_dir = WIN32 ? "..\\" : './'; my $output = `${exe_dir}perl$Config{_exe} TEST @test_files`; unless ($output =~ /All tests successful/) { say $output; @@ -494,7 +597,6 @@ print "\n"; say "Failed tests: @failed" if @failed; -say "Attempting to update Maintainers.pl"; chdir '..'; open my $Maintainers_pl, '<', 'Porting/Maintainers.pl'; @@ -516,7 +618,7 @@ while (<$Maintainers_pl>) { } } - if (/\Q$cpan_mod/) { + if (/\Q$module/) { $in_mod_section = 1; } } @@ -525,6 +627,7 @@ while (<$Maintainers_pl>) { } if ($found) { + say "Successfully updated Maintainers.pl"; unlink 'Porting/Maintainers.pl'; rename 'Maintainers.pl' => 'Porting/Maintainers.pl'; chmod 0755 => 'Porting/Maintainers.pl'; @@ -534,8 +637,20 @@ else { say "Make sure you update this by hand before committing."; } -say "$o_module is now version $new_version"; -say "Now you ought to run a make; make test ..."; +print <<"EOF"; + +======================================================================= + +$o_module is now at version $new_version +Next, you should run a "make test". + +Hopefully that will complete successfully, but if not, you can make any +changes you need to get the tests to pass. Don't forget that you'll need +a "CUSTOMIZED" entry in Porting/Maintainers.pl if you change any of the +files under cpan/$pkg_dir. + +Once all tests pass, you can "git add -u" and "git commit" the changes. +EOF __END__ diff --git a/Porting/todo.pod b/Porting/todo.pod index b4e79aa1df..f8ae8420ac 100644 --- a/Porting/todo.pod +++ b/Porting/todo.pod @@ -485,7 +485,7 @@ Natively 64-bit systems need neither -Duse64bitint nor -Duse64bitall. On these systems, it might be the default compilation mode, and there is currently no guarantee that passing no use64bitall option to the Configure process will build a 32bit perl. Implementing -Duse32bit* -options would be nice for perl 5.25.8. +options would be nice for perl 5.25.9. =head2 Profile Perl - am I hot or not? @@ -1205,7 +1205,7 @@ L<http://www.xray.mpe.mpg.de/mailing-lists/perl5-porters/2013-01/msg00339.html> =head1 Big projects Tasks that will get your name mentioned in the description of the "Highlights -of 5.25.8" +of 5.25.9" =head2 make ithreads more robust diff --git a/README b/README index d46e72eda0..02ac59ca4c 100644 --- a/README +++ b/README @@ -1,6 +1,6 @@ Perl is Copyright (C) 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011, 2012, -2013, 2014, 2015, 2016 by Larry Wall and others. All rights reserved. +2013, 2014, 2015, 2016, 2017 by Larry Wall and others. All rights reserved. diff --git a/README.haiku b/README.haiku index 5b7c0b244e..f91496550c 100644 --- a/README.haiku +++ b/README.haiku @@ -22,9 +22,9 @@ The build procedure is completely standard: Make perl executable and create a symlink for libperl: chmod a+x /boot/common/bin/perl - cd /boot/common/lib; ln -s perl5/5.25.8/BePC-haiku/CORE/libperl.so . + cd /boot/common/lib; ln -s perl5/5.25.9/BePC-haiku/CORE/libperl.so . -Replace C<5.25.8> with your respective version of Perl. +Replace C<5.25.9> with your respective version of Perl. =head1 KNOWN PROBLEMS diff --git a/README.macosx b/README.macosx index c3cb53c28d..6d93d15640 100644 --- a/README.macosx +++ b/README.macosx @@ -10,9 +10,9 @@ perlmacosx - Perl under Mac OS X This document briefly describes Perl under Mac OS X. - curl -O http://www.cpan.org/src/perl-5.25.8.tar.gz - tar -xzf perl-5.25.8.tar.gz - cd perl-5.25.8 + curl -O http://www.cpan.org/src/perl-5.25.9.tar.gz + tar -xzf perl-5.25.9.tar.gz + cd perl-5.25.9 ./Configure -des -Dprefix=/usr/local/ make make test @@ -20,7 +20,7 @@ This document briefly describes Perl under Mac OS X. =head1 DESCRIPTION -The latest Perl release (5.25.8 as of this writing) builds without changes +The latest Perl release (5.25.9 as of this writing) builds without changes under all versions of Mac OS X from 10.3 "Panther" onwards. In order to build your own version of Perl you will need 'make', diff --git a/README.os2 b/README.os2 index 964584809c..475dcc40d7 100644 --- a/README.os2 +++ b/README.os2 @@ -619,7 +619,7 @@ C<set PERLLIB_PREFIX> in F<Config.sys>, see L</"C<PERLLIB_PREFIX>">. =item Additional Perl modules - unzip perl_ste.zip -d f:/perllib/lib/site_perl/5.25.8/ + unzip perl_ste.zip -d f:/perllib/lib/site_perl/5.25.9/ Same remark as above applies. Additionally, if this directory is not one of directories on @INC (and @INC is influenced by C<PERLLIB_PREFIX>), you diff --git a/README.vms b/README.vms index 4b8738edc2..d9218adc92 100644 --- a/README.vms +++ b/README.vms @@ -142,11 +142,11 @@ You may need to set up a foreign symbol for the unpacking utility of choice. Once you have done so, use a command like the following to unpack the archive: - vmstar -xvf perl-5^.25^.8.tar + vmstar -xvf perl-5^.25^.9.tar Then set default to the top-level source directory like so: - set default [.perl-5^.25^.8] + set default [.perl-5^.25^.9] and proceed with configuration as described in the next section. diff --git a/autodoc.pl b/autodoc.pl index 597607cc98..2e6a1c3f63 100644 --- a/autodoc.pl +++ b/autodoc.pl @@ -355,7 +355,7 @@ open my $fh, '<', 'MANIFEST' while (my $line = <$fh>) { next unless my ($file) = $line =~ /^(\S+\.[ch])\t/; - open F, "< $file" or die "Cannot open $file for docs: $!\n"; + open F, '<', $file or die "Cannot open $file for docs: $!\n"; $curheader = "Functions in file $file\n"; autodoc(\*F,$file); close F or die "Error closing $file: $!\n"; diff --git a/charclass_invlists.h b/charclass_invlists.h index 3f1411982c..038336db20 100644 --- a/charclass_invlists.h +++ b/charclass_invlists.h @@ -42,81 +42,488 @@ static const UV ASCII_invlist[] = { /* for ASCII/Latin1 */ 0x80 }; -static const UV Cased_invlist[] = { /* for ASCII/Latin1 */ - 271, /* Number of elements */ +static const UV Assigned_invlist[] = { /* for ASCII/Latin1 */ + 1276, /* Number of elements */ 148565664, /* Version and data structure type */ - 1, /* 0 if the list starts at 0; + 0, /* 0 if the list starts at 0; 1 if it starts at the element beyond 0 */ 0x0, - 0x41, - 0x5B, - 0x61, - 0x7B, - 0xAA, - 0xAB, - 0xB5, - 0xB6, - 0xBA, - 0xBB, - 0xC0, - 0xD7, - 0xD8, - 0xF7, - 0xF8, - 0x1BB, - 0x1BC, - 0x1C0, - 0x1C4, - 0x294, - 0x295, - 0x2B9, - 0x2C0, - 0x2C2, - 0x2E0, - 0x2E5, - 0x345, - 0x346, - 0x370, - 0x374, - 0x376, 0x378, 0x37A, - 0x37E, - 0x37F, 0x380, - 0x386, - 0x387, - 0x388, + 0x384, 0x38B, 0x38C, 0x38D, 0x38E, 0x3A2, 0x3A3, - 0x3F6, - 0x3F7, - 0x482, - 0x48A, 0x530, 0x531, 0x557, + 0x559, + 0x560, 0x561, 0x588, - 0x10A0, + 0x589, + 0x58B, + 0x58D, + 0x590, + 0x591, + 0x5C8, + 0x5D0, + 0x5EB, + 0x5F0, + 0x5F5, + 0x600, + 0x61D, + 0x61E, + 0x70E, + 0x70F, + 0x74B, + 0x74D, + 0x7B2, + 0x7C0, + 0x7FB, + 0x800, + 0x82E, + 0x830, + 0x83F, + 0x840, + 0x85C, + 0x85E, + 0x85F, + 0x8A0, + 0x8B5, + 0x8B6, + 0x8BE, + 0x8D4, + 0x984, + 0x985, + 0x98D, + 0x98F, + 0x991, + 0x993, + 0x9A9, + 0x9AA, + 0x9B1, + 0x9B2, + 0x9B3, + 0x9B6, + 0x9BA, + 0x9BC, + 0x9C5, + 0x9C7, + 0x9C9, + 0x9CB, + 0x9CF, + 0x9D7, + 0x9D8, + 0x9DC, + 0x9DE, + 0x9DF, + 0x9E4, + 0x9E6, + 0x9FC, + 0xA01, + 0xA04, + 0xA05, + 0xA0B, + 0xA0F, + 0xA11, + 0xA13, + 0xA29, + 0xA2A, + 0xA31, + 0xA32, + 0xA34, + 0xA35, + 0xA37, + 0xA38, + 0xA3A, + 0xA3C, + 0xA3D, + 0xA3E, + 0xA43, + 0xA47, + 0xA49, + 0xA4B, + 0xA4E, + 0xA51, + 0xA52, + 0xA59, + 0xA5D, + 0xA5E, + 0xA5F, + 0xA66, + 0xA76, + 0xA81, + 0xA84, + 0xA85, + 0xA8E, + 0xA8F, + 0xA92, + 0xA93, + 0xAA9, + 0xAAA, + 0xAB1, + 0xAB2, + 0xAB4, + 0xAB5, + 0xABA, + 0xABC, + 0xAC6, + 0xAC7, + 0xACA, + 0xACB, + 0xACE, + 0xAD0, + 0xAD1, + 0xAE0, + 0xAE4, + 0xAE6, + 0xAF2, + 0xAF9, + 0xAFA, + 0xB01, **** PATCH TRUNCATED AT 2000 LINES -- 28762 NOT SHOWN **** -- Perl5 Master Repository