diff options
| author | Ricardo Signes <rjbs@cpan.org> | 2016-04-10 20:49:39 -0400 |
|---|---|---|
| committer | Ricardo Signes <rjbs@cpan.org> | 2016-04-10 20:49:39 -0400 |
| commit | 9b1bcf24cc1d223ccff3dc5419dee83dbfcd64c1 (patch) | |
| tree | 0fc099def241107544558a8cce3138777f5f4967 | |
| parent | fc82b82ef4784a38877f35f56ee16f14934460ce (diff) | |
| parent | de1edec79312f19875b9df8046973bcbf44f4658 (diff) | |
| download | perl-9b1bcf24cc1d223ccff3dc5419dee83dbfcd64c1.tar.gz | |
Merge branch 'release-5.24' into blead
This commit is just prep, turning blead into the branch from which
v5.24.0 will be released, after suitable testing.
53 files changed, 1866 insertions, 426 deletions
diff --git a/Cross/config.sh-arm-linux b/Cross/config.sh-arm-linux index 7c4de32760..48578067ac 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='10' -api_version='23' -api_versionstring='5.23.10' +api_subversion='0' +api_version='24' +api_versionstring='5.24.0' ar='ar' -archlib='/usr/lib/perl5/5.23.10/armv4l-linux' -archlibexp='/usr/lib/perl5/5.23.10/armv4l-linux' +archlib='/usr/lib/perl5/5.24.0/armv4l-linux' +archlibexp='/usr/lib/perl5/5.24.0/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.23.10/armv4l-linux/CORE' +ccdlflags='-rdynamic -Wl,-rpath,/usr/lib/perl5/5.24.0/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' @@ -808,7 +808,7 @@ inc_version_list=' ' inc_version_list_init='0' incpath='' inews='' -installarchlib='./install_me_here/usr/lib/perl5/5.23.10/armv4l-linux' +installarchlib='./install_me_here/usr/lib/perl5/5.24.0/armv4l-linux' installbin='./install_me_here/usr/bin' installhtml1dir='' installhtml3dir='' @@ -816,13 +816,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.23.10' +installprivlib='./install_me_here/usr/lib/perl5/5.24.0' installscript='./install_me_here/usr/bin' -installsitearch='./install_me_here/usr/lib/perl5/site_perl/5.23.10/armv4l-linux' +installsitearch='./install_me_here/usr/lib/perl5/site_perl/5.24.0/armv4l-linux' installsitebin='./install_me_here/usr/bin' installsitehtml1dir='' installsitehtml3dir='' -installsitelib='./install_me_here/usr/lib/perl5/site_perl/5.23.10' +installsitelib='./install_me_here/usr/lib/perl5/site_perl/5.24.0' installsiteman1dir='./install_me_here/usr/share/man/man1' installsiteman3dir='./install_me_here/usr/share/man/man3' installsitescript='./install_me_here/usr/bin' @@ -956,8 +956,8 @@ pmake='' pr='' prefix='/usr' prefixexp='/usr' -privlib='/usr/lib/perl5/5.23.10' -privlibexp='/usr/lib/perl5/5.23.10' +privlib='/usr/lib/perl5/5.24.0' +privlibexp='/usr/lib/perl5/5.24.0' procselfexe='"/proc/self/exe"' prototype='define' ptrsize='4' @@ -1022,17 +1022,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, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 6, 17, 29, 31, 0' sig_size='68' signal_t='void' -sitearch='/usr/lib/perl5/site_perl/5.23.10/armv4l-linux' -sitearchexp='/usr/lib/perl5/site_perl/5.23.10/armv4l-linux' +sitearch='/usr/lib/perl5/site_perl/5.24.0/armv4l-linux' +sitearchexp='/usr/lib/perl5/site_perl/5.24.0/armv4l-linux' sitebin='/usr/bin' sitebinexp='/usr/bin' sitehtml1dir='' sitehtml1direxp='' sitehtml3dir='' sitehtml3direxp='' -sitelib='/usr/lib/perl5/site_perl/5.23.10' +sitelib='/usr/lib/perl5/site_perl/5.24.0' sitelib_stem='/usr/lib/perl5/site_perl' -sitelibexp='/usr/lib/perl5/site_perl/5.23.10' +sitelibexp='/usr/lib/perl5/site_perl/5.24.0' siteman1dir='/usr/share/man/man1' siteman1direxp='/usr/share/man/man1' siteman3dir='/usr/share/man/man3' @@ -1071,7 +1071,7 @@ stdio_stream_array='' strerror_r_proto='0' strings='/usr/include/string.h' submit='' -subversion='10' +subversion='0' sysman='/usr/share/man/man1' tail='' tar='' @@ -1163,8 +1163,8 @@ vendorprefix='' vendorprefixexp='' vendorscript='' vendorscriptexp='' -version='5.23.10' -version_patchlevel_string='version 23 subversion 10' +version='5.24.0' +version_patchlevel_string='version 24 subversion 0' versiononly='undef' vi='' xlibpth='/usr/lib/386 /lib/386' @@ -1177,10 +1177,10 @@ config_arg0='Configure' config_args='' config_argc=0 PERL_REVISION=5 -PERL_VERSION=23 -PERL_SUBVERSION=10 +PERL_VERSION=24 +PERL_SUBVERSION=0 PERL_API_REVISION=5 -PERL_API_VERSION=23 -PERL_API_SUBVERSION=10 +PERL_API_VERSION=24 +PERL_API_SUBVERSION=0 PERL_PATCHLEVEL= PERL_CONFIG_SH=true diff --git a/Cross/config.sh-arm-linux-n770 b/Cross/config.sh-arm-linux-n770 index 0a71e53660..a1f4603a0b 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='10' -api_version='23' -api_versionstring='5.23.10' +api_subversion='0' +api_version='24' +api_versionstring='5.24.0' ar='ar' -archlib='/usr/lib/perl5/5.23.10/armv4l-linux' -archlibexp='/usr/lib/perl5/5.23.10/armv4l-linux' +archlib='/usr/lib/perl5/5.24.0/armv4l-linux' +archlibexp='/usr/lib/perl5/5.24.0/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.23.10/armv4l-linux/CORE' +ccdlflags='-rdynamic -Wl,-rpath,/usr/lib/perl5/5.24.0/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.23.10/armv4l-linux' +installarchlib='./install_me_here/usr/lib/perl5/5.24.0/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.23.10' +installprivlib='./install_me_here/usr/lib/perl5/5.24.0' installscript='./install_me_here/usr/bin' -installsitearch='./install_me_here/usr/lib/perl5/site_perl/5.23.10/armv4l-linux' +installsitearch='./install_me_here/usr/lib/perl5/site_perl/5.24.0/armv4l-linux' installsitebin='./install_me_here/usr/bin' installsitehtml1dir='' installsitehtml3dir='' -installsitelib='./install_me_here/usr/lib/perl5/site_perl/5.23.10' +installsitelib='./install_me_here/usr/lib/perl5/site_perl/5.24.0' 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.23.10' -privlibexp='/usr/lib/perl5/5.23.10' +privlib='/usr/lib/perl5/5.24.0' +privlibexp='/usr/lib/perl5/5.24.0' 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, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 6, 17, 29, 31, 0' sig_size='68' signal_t='void' -sitearch='/usr/lib/perl5/site_perl/5.23.10/armv4l-linux' -sitearchexp='/usr/lib/perl5/site_perl/5.23.10/armv4l-linux' +sitearch='/usr/lib/perl5/site_perl/5.24.0/armv4l-linux' +sitearchexp='/usr/lib/perl5/site_perl/5.24.0/armv4l-linux' sitebin='/usr/bin' sitebinexp='/usr/bin' sitehtml1dir='' sitehtml1direxp='' sitehtml3dir='' sitehtml3direxp='' -sitelib='/usr/lib/perl5/site_perl/5.23.10' +sitelib='/usr/lib/perl5/site_perl/5.24.0' sitelib_stem='/usr/lib/perl5/site_perl' -sitelibexp='/usr/lib/perl5/site_perl/5.23.10' +sitelibexp='/usr/lib/perl5/site_perl/5.24.0' 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='10' +subversion='0' sysman='/usr/share/man/man1' tail='' tar='' @@ -1035,8 +1035,8 @@ vendorprefix='' vendorprefixexp='' vendorscript='' vendorscriptexp='' -version='5.23.10' -version_patchlevel_string='version 23 subversion 10' +version='5.24.0' +version_patchlevel_string='version 24 subversion 0' versiononly='undef' vi='' xlibpth='/usr/lib/386 /lib/386' @@ -1049,10 +1049,10 @@ config_arg0='Configure' config_args='' config_argc=0 PERL_REVISION=5 -PERL_VERSION=23 -PERL_SUBVERSION=10 +PERL_VERSION=24 +PERL_SUBVERSION=0 PERL_API_REVISION=5 -PERL_API_VERSION=23 -PERL_API_SUBVERSION=10 +PERL_API_VERSION=24 +PERL_API_SUBVERSION=0 PERL_PATCHLEVEL= PERL_CONFIG_SH=true @@ -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.23.10. +By default, Configure will use the following directories for 5.24.0. $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 @@ -2437,7 +2437,7 @@ http://www.chiark.greenend.org.uk/~sgtatham/bugs.html =head1 Coexistence with earlier versions of perl 5 -Perl 5.23.10 is not binary compatible with earlier versions of Perl. +Perl 5.24.0 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 @@ -2512,9 +2512,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.23.10 + sh Configure -Dprefix=/opt/perl5.24.0 -and adding /opt/perl5.23.10/bin to the shell PATH variable. Such users +and adding /opt/perl5.24.0/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. @@ -2527,13 +2527,13 @@ seriously consider using a separate directory, since development subversions may not have all the compatibility wrinkles ironed out yet. -=head2 Upgrading from 5.23.9 or earlier +=head2 Upgrading from v5.22 or earlier -B<Perl 5.23.10 may not be binary compatible with Perl 5.23.9 or +B<Perl 5.24.0 may not be binary compatible with Perl v5.22 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.23.10. If you find you do need to rebuild an extension with -5.23.10, you may safely do so without disturbing the older +used with 5.24.0. If you find you do need to rebuild an extension with +5.24.0, you may safely do so without disturbing the older installations. (See L<"Coexistence with earlier versions of perl 5"> above.) @@ -2566,15 +2566,15 @@ Firstly, the bare minimum to run this script print("$f\n"); } -in Linux with perl-5.23.10 is as follows (under $Config{prefix}): +in Linux with perl-5.24.0 is as follows (under $Config{prefix}): ./bin/perl - ./lib/perl5/5.23.10/strict.pm - ./lib/perl5/5.23.10/warnings.pm - ./lib/perl5/5.23.10/i686-linux/File/Glob.pm - ./lib/perl5/5.23.10/feature.pm - ./lib/perl5/5.23.10/XSLoader.pm - ./lib/perl5/5.23.10/i686-linux/auto/File/Glob/Glob.so + ./lib/perl5/5.24.0/strict.pm + ./lib/perl5/5.24.0/warnings.pm + ./lib/perl5/5.24.0/i686-linux/File/Glob.pm + ./lib/perl5/5.24.0/feature.pm + ./lib/perl5/5.24.0/XSLoader.pm + ./lib/perl5/5.24.0/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 @@ -111,7 +111,7 @@ "vxs.inc" ] }, - "release_status" : "unstable", + "release_status" : "testing", "resources" : { "bugtracker" : { "web" : "https://rt.perl.org/" @@ -124,6 +124,6 @@ "url" : "http://perl5.git.perl.org/" } }, - "version" : "5.023010", + "version" : "5.024000", "x_serialization_backend" : "JSON::PP version 2.27300" } @@ -111,5 +111,5 @@ resources: homepage: http://www.perl.org/ license: http://dev.perl.org/licenses/ repository: http://perl5.git.perl.org/ -version: '5.023010' +version: '5.024000' x_serialization_backend: 'CPAN::Meta::YAML version 0.018' diff --git a/Makefile.SH b/Makefile.SH index e03a349c61..916b332908 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/perl52310delta.pod pod/perlapi.pod pod/perlintern.pod pod/perlmodlib.pod pod/perluniprops.pod +perltoc_pod_prereqs = extra.pods pod/perl5240delta.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 @@ -1085,9 +1085,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/perl52310delta.pod: pod/perldelta.pod - $(RMS) pod/perl52310delta.pod - $(LNS) perldelta.pod pod/perl52310delta.pod +pod/perl5240delta.pod: pod/perldelta.pod + $(RMS) pod/perl5240delta.pod + $(LNS) perldelta.pod pod/perl5240delta.pod extra.pods: $(MINIPERL_EXE) -@test ! -f extra.pods || rm -f `cat extra.pods` diff --git a/NetWare/Makefile b/NetWare/Makefile index 07234f653c..327cb8a9a6 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.23.10 for NetWare" +MODULE_DESC = "Perl 5.24.0 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.23.10 +INST_VER = \5.24.0 # # 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 97313a3400..74143102ed 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.23.10\\lib\\NetWare-x86-multi-thread" /**/ +#define ARCHLIB "c:\\perl\\5.24.0\\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.23.10\\bin\\NetWare-x86-multi-thread" /**/ -#define BIN_EXP "c:\\perl\\5.23.10\\bin\\NetWare-x86-multi-thread" /**/ +#define BIN "c:\\perl\\5.24.0\\bin\\NetWare-x86-multi-thread" /**/ +#define BIN_EXP "c:\\perl\\5.24.0\\bin\\NetWare-x86-multi-thread" /**/ /* BYTEORDER: * This symbol holds the hexadecimal constant defined in byteorder, @@ -3047,7 +3047,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.23.10\\lib\\NetWare-x86-multi-thread" /**/ +#define SITEARCH "c:\\perl\\site\\5.24.0\\lib\\NetWare-x86-multi-thread" /**/ /*#define SITEARCH_EXP "" /**/ /* SITELIB: @@ -3070,7 +3070,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.23.10\\lib" /**/ +#define SITELIB "c:\\perl\\site\\5.24.0\\lib" /**/ /*#define SITELIB_EXP "" /**/ #define SITELIB_STEM "" /**/ diff --git a/Porting/config.sh b/Porting/config.sh index b433b50c81..aee95506f2 100644 --- a/Porting/config.sh +++ b/Porting/config.sh @@ -39,12 +39,12 @@ alignbytes='4' ansi2knr='' aphostname='/bin/hostname' api_revision='5' -api_subversion='10' -api_version='23' -api_versionstring='5.23.10' +api_subversion='0' +api_version='24' +api_versionstring='5.24.0' ar='ar' -archlib='/pro/lib/perl5/5.23.10/i686-linux-64int' -archlibexp='/pro/lib/perl5/5.23.10/i686-linux-64int' +archlib='/pro/lib/perl5/5.24.0/i686-linux-64int' +archlibexp='/pro/lib/perl5/5.24.0/i686-linux-64int' archname64='64int' archname='i686-linux-64int' archobjs='' @@ -825,7 +825,7 @@ incpath='' incpth='/usr/lib/gcc/i586-suse-linux/4.8/include /usr/local/include /usr/lib/gcc/i586-suse-linux/4.8/include-fixed /usr/lib/gcc/i586-suse-linux/4.8/../../../../i586-suse-linux/include /usr/include' inews='' initialinstalllocation='/pro/bin' -installarchlib='/pro/lib/perl5/5.23.10/i686-linux-64int' +installarchlib='/pro/lib/perl5/5.24.0/i686-linux-64int' installbin='/pro/bin' installhtml1dir='' installhtml3dir='' @@ -833,13 +833,13 @@ installman1dir='/pro/local/man/man1' installman3dir='/pro/local/man/man3' installprefix='/pro' installprefixexp='/pro' -installprivlib='/pro/lib/perl5/5.23.10' +installprivlib='/pro/lib/perl5/5.24.0' installscript='/pro/bin' -installsitearch='/pro/lib/perl5/site_perl/5.23.10/i686-linux-64int' +installsitearch='/pro/lib/perl5/site_perl/5.24.0/i686-linux-64int' installsitebin='/pro/bin' installsitehtml1dir='' installsitehtml3dir='' -installsitelib='/pro/lib/perl5/site_perl/5.23.10' +installsitelib='/pro/lib/perl5/site_perl/5.24.0' installsiteman1dir='/pro/local/man/man1' installsiteman3dir='/pro/local/man/man3' installsitescript='/pro/bin' @@ -965,7 +965,7 @@ perl_patchlevel='' perl_static_inline='static __inline__' perladmin='hmbrand@cpan.org' perllibs='-lnsl -ldl -lm -lcrypt -lutil -lc' -perlpath='/pro/bin/perl5.23.10' +perlpath='/pro/bin/perl5.24.0' pg='pg' phostname='hostname' pidtype='pid_t' @@ -974,8 +974,8 @@ pmake='' pr='' prefix='/pro' prefixexp='/pro' -privlib='/pro/lib/perl5/5.23.10' -privlibexp='/pro/lib/perl5/5.23.10' +privlib='/pro/lib/perl5/5.24.0' +privlibexp='/pro/lib/perl5/5.24.0' procselfexe='"/proc/self/exe"' prototype='define' ptrsize='4' @@ -1041,17 +1041,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, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 6, 17, 29, 31, 0' sig_size='69' signal_t='void' -sitearch='/pro/lib/perl5/site_perl/5.23.10/i686-linux-64int' -sitearchexp='/pro/lib/perl5/site_perl/5.23.10/i686-linux-64int' +sitearch='/pro/lib/perl5/site_perl/5.24.0/i686-linux-64int' +sitearchexp='/pro/lib/perl5/site_perl/5.24.0/i686-linux-64int' sitebin='/pro/bin' sitebinexp='/pro/bin' sitehtml1dir='' sitehtml1direxp='' sitehtml3dir='' sitehtml3direxp='' -sitelib='/pro/lib/perl5/site_perl/5.23.10' +sitelib='/pro/lib/perl5/site_perl/5.24.0' sitelib_stem='/pro/lib/perl5/site_perl' -sitelibexp='/pro/lib/perl5/site_perl/5.23.10' +sitelibexp='/pro/lib/perl5/site_perl/5.24.0' siteman1dir='/pro/local/man/man1' siteman1direxp='/pro/local/man/man1' siteman3dir='/pro/local/man/man3' @@ -1077,7 +1077,7 @@ src='.' ssizetype='ssize_t' st_ino_sign='1' st_ino_size='8' -startperl='#!/pro/bin/perl5.23.10' +startperl='#!/pro/bin/perl5.24.0' startsh='#!/bin/sh' static_ext=' ' stdchar='char' @@ -1090,7 +1090,7 @@ stdio_stream_array='' strerror_r_proto='0' strings='/usr/include/string.h' submit='' -subversion='10' +subversion='0' sysman='/usr/share/man/man1' sysroot='' tail='' @@ -1189,8 +1189,8 @@ vendorprefix='' vendorprefixexp='' vendorscript='' vendorscriptexp='' -version='5.23.10' -version_patchlevel_string='version 23 subversion 10' +version='5.24.0' +version_patchlevel_string='version 24 subversion 0' versiononly='define' vi='' xlibpth='/usr/lib/386 /lib/386' @@ -1199,11 +1199,11 @@ yaccflags='' zcat='' zip='zip' PERL_REVISION=5 -PERL_VERSION=23 -PERL_SUBVERSION=10 +PERL_VERSION=24 +PERL_SUBVERSION=0 PERL_API_REVISION=5 -PERL_API_VERSION=23 -PERL_API_SUBVERSION=10 +PERL_API_VERSION=24 +PERL_API_SUBVERSION=0 PERL_PATCHLEVEL='' PERL_CONFIG_SH=true : Variables propagated from previous config.sh file. diff --git a/Porting/config_H b/Porting/config_H index ac08cb02ab..12b23f6ebd 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.23.10/i686-linux-64int-ld" /**/ -#define ARCHLIB_EXP "/pro/lib/perl5/5.23.10/i686-linux-64int-ld" /**/ +#define ARCHLIB "/pro/lib/perl5/5.24.0/i686-linux-64int-ld" /**/ +#define ARCHLIB_EXP "/pro/lib/perl5/5.24.0/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.23.10" /**/ -#define PRIVLIB_EXP "/pro/lib/perl5/5.23.10" /**/ +#define PRIVLIB "/pro/lib/perl5/5.24.0" /**/ +#define PRIVLIB_EXP "/pro/lib/perl5/5.24.0" /**/ /* 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.23.10/i686-linux-64int-ld" /**/ -#define SITEARCH_EXP "/pro/lib/perl5/site_perl/5.23.10/i686-linux-64int-ld" /**/ +#define SITEARCH "/pro/lib/perl5/site_perl/5.24.0/i686-linux-64int-ld" /**/ +#define SITEARCH_EXP "/pro/lib/perl5/site_perl/5.24.0/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.23.10" /**/ -#define SITELIB_EXP "/pro/lib/perl5/site_perl/5.23.10" /**/ +#define SITELIB "/pro/lib/perl5/site_perl/5.24.0" /**/ +#define SITELIB_EXP "/pro/lib/perl5/site_perl/5.24.0" /**/ #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.23.10" /**/ +#define STARTPERL "#!/pro/bin/perl5.24.0" /**/ /* HAS_STDIO_STREAM_ARRAY: * This symbol, if defined, tells that there is an array diff --git a/Porting/epigraphs.pod b/Porting/epigraphs.pod index ad4093ccb3..d54eb51568 100644 --- a/Porting/epigraphs.pod +++ b/Porting/epigraphs.pod @@ -299,6 +299,40 @@ 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.2-RC1 - Gaston Leroux, trans. Mireille Ribière, "The Phantom of the Opera" + +L<Announced on 2016-04-10 by Steve Hay|http://www.nntp.perl.org/group/perl.perl5.porters/2016/04/msg235732.html> + +This annual ball was quite a magnificent affair. It was given some time +before Shrovetide to celebrate the birthday of a famous illustrator +whose pencil had immortalized, in the style of Gavarni, the extravagant +carnival parade down La Courtille. As such, the ball was an altogether +merrier, noisier and more Bohemian occasion than was usual for a masked +ball. Many artists had arranged to meet there; they arrived with an +entourage of models and pupils, who, by midnight, had become quite +boisterous. +Raoul climbed the grand staircase at five minutes to midnight. He did +not linger to admire the many-coloured costumes on display all the way +up the marble steps of one of the most luxurious settings in the world; +nor did he allow himself to be drawn into the facetious conversation of +masked guests. He simply ignored all the jesting remarks, and shook off +the attentions of several all too merry couples. +Crossing the big crush-room and escaping from the dancers' farandole +that had encircled him awhile, he at last entered the salon mentioned by +Christine in her letter. The small room was crammed with people either +on their way to supper at the restaurant in the Rotunda or back from +raising a glass of champagne. +In the midst of the gay and lively hubbub, Raoul thought that, for their +mysterious assignation, Christine must have preferred this crowd to some +lonely corner. +He leaned against a door-jamb and waited. He did not have to wait long; +a black domino passed him and deftly touched his hand. He understood +that it was Christine and followed her. +'Is that you, Christine?' he murmured, barely moving his slips. +The black domino promptly looked back and raised her finger to her lips, +no doubt to caution him against uttering her name again. Raoul followed +on in silence. + =head2 v5.22.1 - Wilhelm Müller, trans. Anon., "Courage" (No. 22 in Schubert's song-cycle, "Winterreise") L<Announced on 2015-12-13 by Steve Hay|http://www.nntp.perl.org/group/perl.perl5.porters/2015/12/msg233318.html> diff --git a/Porting/perldelta_template.pod b/Porting/perldelta_template.pod index cd912cb15d..8167bb174a 100644 --- a/Porting/perldelta_template.pod +++ b/Porting/perldelta_template.pod @@ -378,7 +378,7 @@ here. XXX Generate this with: - perl Porting/acknowledgements.pl v5.23.10..HEAD + perl Porting/acknowledgements.pl v5.24.0..HEAD =head1 Reporting Bugs diff --git a/Porting/todo.pod b/Porting/todo.pod index fc018fb395..aab7691a08 100644 --- a/Porting/todo.pod +++ b/Porting/todo.pod @@ -467,7 +467,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.23.10. +options would be nice for perl 5.24.0. =head2 Profile Perl - am I hot or not? @@ -1170,7 +1170,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.23.10" +of 5.24.0" =head2 make ithreads more robust diff --git a/README.haiku b/README.haiku index ec12d6c971..95efcb4cec 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.23.10/BePC-haiku/CORE/libperl.so . + cd /boot/common/lib; ln -s perl5/5.24.0/BePC-haiku/CORE/libperl.so . -Replace C<5.23.10> with your respective version of Perl. +Replace C<5.24.0> with your respective version of Perl. =head1 KNOWN PROBLEMS diff --git a/README.macosx b/README.macosx index 8f997981b8..f07fd879b8 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.23.10.tar.gz - tar -xzf perl-5.23.10.tar.gz - cd perl-5.23.10 + curl -O http://www.cpan.org/src/perl-5.24.0.tar.gz + tar -xzf perl-5.24.0.tar.gz + cd perl-5.24.0 ./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.23.10 as of this writing) builds without changes +The latest Perl release (5.24.0 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 58bd0c3ea1..d27f1d23b3 100644 --- a/README.os2 +++ b/README.os2 @@ -619,7 +619,7 @@ C<set PERLLIB_PREFIX> in F<Config.sys>, see L<"PERLLIB_PREFIX">. =item Additional Perl modules - unzip perl_ste.zip -d f:/perllib/lib/site_perl/5.23.10/ + unzip perl_ste.zip -d f:/perllib/lib/site_perl/5.24.0/ 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 00396c0035..1ad082a6b6 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^.23^.10.tar + vmstar -xvf perl-5^.24^.0.tar Then set default to the top-level source directory like so: - set default [.perl-5^.23^.10] + set default [.perl-5^.24^.0] and proceed with configuration as described in the next section. diff --git a/README.win32 b/README.win32 index 46efd62d58..df4170250f 100644 --- a/README.win32 +++ b/README.win32 @@ -393,7 +393,7 @@ Be sure to read the instructions near the top of the makefiles carefully. Type "dmake" (or "nmake" if you are using that make). This should build everything. Specifically, it will create perl.exe, -perl523.dll at the perl toplevel, and various other extension dll's +perl524.dll at the perl toplevel, and various other extension dll's under the lib\auto directory. If the build fails for any reason, make sure you have done the previous steps correctly. diff --git a/cygwin/cygwin.c b/cygwin/cygwin.c index 59aa730448..24b278f2fd 100644 --- a/cygwin/cygwin.c +++ b/cygwin/cygwin.c @@ -154,7 +154,15 @@ wide_to_utf8(const wchar_t *wbuf) { char *buf; int wlen = 0; - char *oldlocale = setlocale(LC_CTYPE, NULL); + char *oldlocale; + dVAR; + + /* Here and elsewhere in this file, we have a critical section to prevent + * another thread from changing the locale out from under us. XXX But why + * not just use uvchr_to_utf8? */ + LOCALE_LOCK; + + oldlocale = setlocale(LC_CTYPE, NULL); setlocale(LC_CTYPE, "utf-8"); /* uvchr_to_utf8(buf, chr) or Encoding::_bytes_to_utf8(sv, "UCS-2BE"); */ @@ -164,6 +172,9 @@ wide_to_utf8(const wchar_t *wbuf) if (oldlocale) setlocale(LC_CTYPE, oldlocale); else setlocale(LC_CTYPE, "C"); + + LOCALE_UNLOCK; + return buf; } @@ -172,8 +183,13 @@ utf8_to_wide(const char *buf) { wchar_t *wbuf; mbstate_t mbs; - char *oldlocale = setlocale(LC_CTYPE, NULL); + char *oldlocale; int wlen = sizeof(wchar_t)*strlen(buf); + dVAR; + + LOCALE_LOCK; + + oldlocale = setlocale(LC_CTYPE, NULL); setlocale(LC_CTYPE, "utf-8"); wbuf = (wchar_t *) safemalloc(wlen); @@ -182,6 +198,9 @@ utf8_to_wide(const char *buf) if (oldlocale) setlocale(LC_CTYPE, oldlocale); else setlocale(LC_CTYPE, "C"); + + LOCALE_UNLOCK; + return wbuf; } #endif /* cygwin 1.7 */ @@ -280,7 +299,12 @@ XS(XS_Cygwin_win_to_posix_path) wchar_t *wbuf = (wchar_t *) safemalloc(wlen); if (!IN_BYTES) { mbstate_t mbs; - char *oldlocale = setlocale(LC_CTYPE, NULL); + char *oldlocale; + dVAR; + + LOCALE_LOCK; + + oldlocale = setlocale(LC_CTYPE, NULL); setlocale(LC_CTYPE, "utf-8"); /* utf8_to_uvchr_buf(src_path, src_path + wlen, wpath) or Encoding::_utf8_to_bytes(sv, "UCS-2BE"); */ wlen = mbsrtowcs(wpath, (const char**)&src_path, wlen, &mbs); @@ -288,6 +312,8 @@ XS(XS_Cygwin_win_to_posix_path) err = cygwin_conv_path(what, wpath, wbuf, wlen); if (oldlocale) setlocale(LC_CTYPE, oldlocale); else setlocale(LC_CTYPE, "C"); + + LOCALE_UNLOCK; } else { /* use bytes; assume already ucs-2 encoded bytestream */ err = cygwin_conv_path(what, src_path, wbuf, wlen); } @@ -365,7 +391,12 @@ XS(XS_Cygwin_posix_to_win_path) int wlen = sizeof(wchar_t)*(len + 260 + 1001); wchar_t *wpath = (wchar_t *) safemalloc(sizeof(wchar_t)*len); wchar_t *wbuf = (wchar_t *) safemalloc(wlen); - char *oldlocale = setlocale(LC_CTYPE, NULL); + char *oldlocale; + dVAR; + + LOCALE_LOCK; + + oldlocale = setlocale(LC_CTYPE, NULL); setlocale(LC_CTYPE, "utf-8"); if (!IN_BYTES) { mbstate_t mbs; @@ -388,6 +419,8 @@ XS(XS_Cygwin_posix_to_win_path) wcsrtombs(win_path, (const wchar_t **)&wbuf, wlen, NULL); if (oldlocale) setlocale(LC_CTYPE, oldlocale); else setlocale(LC_CTYPE, "C"); + + LOCALE_UNLOCK; } else { int what = absolute_flag ? CCP_POSIX_TO_WIN_A : CCP_POSIX_TO_WIN_A | CCP_RELATIVE; win_path = (char *) safemalloc(len + 260 + 1001); diff --git a/dist/Module-CoreList/lib/Module/CoreList.pm b/dist/Module-CoreList/lib/Module/CoreList.pm index fa721e1d1d..8b8fc9ef4a 100644 --- a/dist/Module-CoreList/lib/Module/CoreList.pm +++ b/dist/Module-CoreList/lib/Module/CoreList.pm @@ -291,7 +291,7 @@ sub changes_between { 5.023007 => '2016-01-20', 5.023008 => '2016-02-20', 5.023009 => '2016-03-20', - 5.023010 => '????-??-??', + 5.024000 => '????-??-??', ); for my $version ( sort { $a <=> $b } keys %released ) { @@ -12360,14 +12360,21 @@ for my $version ( sort { $a <=> $b } keys %released ) { 'Win32API::File::ExtUtils::Myconst2perl'=> 1, } }, - 5.023010 => { + 5.024000 => { delta_from => 5.023009, changed => { - 'B::Op_private' => '5.023010', - 'Config' => '5.02301', - 'Module::CoreList' => '5.20160420', - 'Module::CoreList::TieHashDelta'=> '5.20160420', - 'Module::CoreList::Utils'=> '5.20160420', + 'B::Op_private' => '5.024000', + 'Config' => '5.024', + 'File::Path' => '2.12_01', + 'File::Spec::AmigaOS' => '3.64', + 'ODBM_File' => '1.14', + 'POSIX' => '1.65', + 'Pod::Man' => '4.07', + 'Pod::ParseLink' => '4.07', + 'Pod::Text' => '4.07', + 'Pod::Text::Color' => '4.07', + 'Pod::Text::Overstrike' => '4.07', + 'Pod::Text::Termcap' => '4.07', }, removed => { } @@ -13012,7 +13019,7 @@ for my $version (sort { $a <=> $b } keys %delta) { removed => { } }, - 5.023010 => { + 5.024000 => { delta_from => 5.023009, changed => { }, @@ -13789,7 +13796,7 @@ for my $version (sort { $a <=> $b } keys %deprecated) { 'TAP::Parser::SourceHandler::RawTAP'=> 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness', 'TAP::Parser::YAMLish::Reader'=> 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness', 'TAP::Parser::YAMLish::Writer'=> 'http://rt.cpan.org/Public/Dist/Display.html?Name=Test-Harness', - 'Term::ANSIColor' => 'https://rt.cpan.org/Public/Dist/Display.html?Name=Term::ANSIColor', + 'Term::ANSIColor' => 'https://rt.cpan.org/Dist/Display.html?Name=Term-ANSIColor', 'Term::Cap' => undef, 'Test::Builder' => 'http://github.com/Test-More/test-more/issues/', 'Test::Builder::IO::Scalar'=> 'http://github.com/Test-More/test-more/issues/', diff --git a/dist/Module-CoreList/lib/Module/CoreList/Utils.pm b/dist/Module-CoreList/lib/Module/CoreList/Utils.pm index 5c2d6c991e..72b230af77 100644 --- a/dist/Module-CoreList/lib/Module/CoreList/Utils.pm +++ b/dist/Module-CoreList/lib/Module/CoreList/Utils.pm @@ -1136,7 +1136,7 @@ my %delta = ( removed => { } }, - 5.023010 => { + 5.024000 => { delta_from => 5.023009, changed => { }, @@ -52,9 +52,9 @@ #endif /* DJGPP */ #ifndef PERL_SYS_TERM_BODY -# define PERL_SYS_TERM_BODY() \ - HINTS_REFCNT_TERM; OP_CHECK_MUTEX_TERM; \ - OP_REFCNT_TERM; PERLIO_TERM; MALLOC_TERM +# define PERL_SYS_TERM_BODY() \ + HINTS_REFCNT_TERM; OP_CHECK_MUTEX_TERM; \ + OP_REFCNT_TERM; PERLIO_TERM; MALLOC_TERM; LOCALE_TERM; #endif #define dXSUB_SYS diff --git a/embedvar.h b/embedvar.h index c366d474ec..7e551be021 100644 --- a/embedvar.h +++ b/embedvar.h @@ -387,6 +387,8 @@ #define PL_Ghints_mutex (my_vars->Ghints_mutex) #define PL_keyword_plugin (my_vars->Gkeyword_plugin) #define PL_Gkeyword_plugin (my_vars->Gkeyword_plugin) +#define PL_locale_mutex (my_vars->Glocale_mutex) +#define PL_Glocale_mutex (my_vars->Glocale_mutex) #define PL_malloc_mutex (my_vars->Gmalloc_mutex) #define PL_Gmalloc_mutex (my_vars->Gmalloc_mutex) #define PL_mmap_page_size (my_vars->Gmmap_page_size) diff --git a/hints/catamount.sh b/hints/catamount.sh index e66d684e19..b7ea2ffca5 100644 --- a/hints/catamount.sh +++ b/hints/catamount.sh @@ -31,11 +31,11 @@ # mkdir -p /opt/perl-catamount # mkdir -p /opt/perl-catamount/include # mkdir -p /opt/perl-catamount/lib -# mkdir -p /opt/perl-catamount/lib/perl5/5.23.10 +# mkdir -p /opt/perl-catamount/lib/perl5/5.24.0 # mkdir -p /opt/perl-catamount/bin # cp *.h /opt/perl-catamount/include # cp libperl.a /opt/perl-catamount/lib -# cp -pr lib/* /opt/perl-catamount/lib/perl5/5.23.10 +# cp -pr lib/* /opt/perl-catamount/lib/perl5/5.24.0 # cp miniperl perl run.sh cc.sh /opt/perl-catamount/lib # # With the headers and the libperl.a you can embed Perl to your Catamount diff --git a/lib/B/Op_private.pm b/lib/B/Op_private.pm index d78a663474..237cad8af5 100644 --- a/lib/B/Op_private.pm +++ b/lib/B/Op_private.pm @@ -118,7 +118,7 @@ package B::Op_private; our %bits; -our $VERSION = "5.023010"; +our $VERSION = "5.024000"; $bits{$_}{3} = 'OPpENTERSUB_AMPER' for qw(entersub rv2cv); $bits{$_}{6} = 'OPpENTERSUB_DB' for qw(entersub rv2cv); @@ -1809,13 +1809,21 @@ Perl__is_in_locale_category(pTHX_ const bool compiling, const int category) char * Perl_my_strerror(pTHX_ const int errnum) { + dVAR; /* Uses C locale for the error text unless within scope of 'use locale' for * LC_MESSAGES */ #ifdef USE_LOCALE_MESSAGES if (! IN_LC(LC_MESSAGES)) { - char * save_locale = setlocale(LC_MESSAGES, NULL); + char * save_locale; + + /* We have a critical section to prevent another thread from changing + * the locale out from under us (or zapping the buffer returned from + * setlocale() ) */ + LOCALE_LOCK; + + save_locale = setlocale(LC_MESSAGES, NULL); if (! isNAME_C_OR_POSIX(save_locale)) { char *errstr; @@ -1830,8 +1838,13 @@ Perl_my_strerror(pTHX_ const int errnum) { setlocale(LC_MESSAGES, save_locale); Safefree(save_locale); + + LOCALE_UNLOCK; + return errstr; } + + LOCALE_UNLOCK; } #endif diff --git a/makedef.pl b/makedef.pl index 78ee0b17f5..104696c8f3 100644 --- a/makedef.pl +++ b/makedef.pl @@ -364,6 +364,7 @@ unless ($define{'USE_ITHREADS'}) { PL_regex_padav PL_dollarzero_mutex PL_hints_mutex + PL_locale_mutex PL_my_ctx_mutex PL_perlio_mutex PL_stashpad diff --git a/patchlevel.h b/patchlevel.h index e5bd14770f..f94d151d7c 100644 --- a/patchlevel.h +++ b/patchlevel.h @@ -14,8 +14,8 @@ * exactly on the third column */ #define PERL_REVISION 5 /* age */ -#define PERL_VERSION 23 /* epoch */ -#define PERL_SUBVERSION 10 /* generation */ +#define PERL_VERSION 24 /* epoch */ +#define PERL_SUBVERSION 0 /* generation */ /* The following numbers describe the earliest compatible version of Perl ("compatibility" here being defined as sufficient binary/API @@ -35,8 +35,8 @@ changing them should not be necessary. */ #define PERL_API_REVISION 5 -#define PERL_API_VERSION 23 -#define PERL_API_SUBVERSION 10 +#define PERL_API_VERSION 24 +#define PERL_API_SUBVERSION 0 /* XXX Note: The selection of non-default Configure options, such as -Duselonglong may invalidate these settings. Currently, Configure @@ -133,6 +133,7 @@ hunk. # endif static const char * const local_patches[] = { NULL + ,"RC0" #ifdef PERL_GIT_UNCOMMITTED_CHANGES ,"uncommitted-changes" #endif @@ -93,6 +93,7 @@ S_init_tls_and_interp(PerlInterpreter *my_perl) OP_REFCNT_INIT; OP_CHECK_MUTEX_INIT; HINTS_REFCNT_INIT; + LOCALE_INIT; MUTEX_INIT(&PL_dollarzero_mutex); MUTEX_INIT(&PL_my_ctx_mutex); # endif @@ -5954,6 +5954,13 @@ typedef struct am_table_short AMTS; #ifdef USE_LOCALE /* These locale things are all subject to change */ + +# define LOCALE_INIT MUTEX_INIT(&PL_locale_mutex) +# define LOCALE_TERM MUTEX_DESTROY(&PL_locale_mutex) + +# define LOCALE_LOCK MUTEX_LOCK(&PL_locale_mutex) +# define LOCALE_UNLOCK MUTEX_UNLOCK(&PL_locale_mutex) + /* Returns TRUE if the plain locale pragma without a parameter is in effect */ # define IN_LOCALE_RUNTIME cBOOL(CopHINTS_get(PL_curcop) & HINT_LOCALE) @@ -6037,6 +6044,10 @@ typedef struct am_table_short AMTS; # endif /* PERL_CORE or PERL_IN_XSUB_RE */ #else /* No locale usage */ +# define LOCALE_INIT +# define LOCALE_TERM +# define LOCALE_LOCK +# define LOCALE_UNLOCK # define IN_LOCALE_RUNTIME 0 # define IN_SOME_LOCALE_FORM_RUNTIME 0 # define IN_LOCALE_COMPILETIME 0 @@ -123,6 +123,8 @@ END_EXTERN_C #define PL_hints_mutex (*Perl_Ghints_mutex_ptr(NULL)) #undef PL_keyword_plugin #define PL_keyword_plugin (*Perl_Gkeyword_plugin_ptr(NULL)) +#undef PL_locale_mutex +#define PL_locale_mutex (*Perl_Glocale_mutex_ptr(NULL)) #undef PL_malloc_mutex #define PL_malloc_mutex (*Perl_Gmalloc_mutex_ptr(NULL)) #undef PL_mmap_page_size diff --git a/perlvars.h b/perlvars.h index 86a369e9ba..5466294963 100644 --- a/perlvars.h +++ b/perlvars.h @@ -99,6 +99,8 @@ PERLVARI(G, mmap_page_size, IV, 0) #if defined(USE_ITHREADS) PERLVAR(G, hints_mutex, perl_mutex) /* Mutex for refcounted he refcounting */ +PERLVAR(G, locale_mutex, perl_mutex) /* Mutex for setlocale() changing */ + #endif #ifdef DEBUGGING diff --git a/plan9/config.plan9 b/plan9/config.plan9 index e1672bf077..74b353f22f 100644 --- a/plan9/config.plan9 +++ b/plan9/config.plan9 @@ -3329,8 +3329,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 "/sys/lib/perl/5.23.10" /**/ -#define PRIVLIB_EXP "/sys/lib/perl/5.23.10" /**/ +#define PRIVLIB "/sys/lib/perl/5.24.0" /**/ +#define PRIVLIB_EXP "/sys/lib/perl/5.24.0" /**/ /* PTRSIZE: * This symbol contains the size of a pointer, so that the C preprocessor @@ -3457,9 +3457,9 @@ * 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 "/sys/lib/perl/5.23.10/site_perl" /**/ -#define SITELIB_EXP "/sys/lib/perl/5.23.10/site_perl" /**/ -#define SITELIB_STEM "/sys/lib/perl/5.23.10/site_perl" /**/ +#define SITELIB "/sys/lib/perl/5.24.0/site_perl" /**/ +#define SITELIB_EXP "/sys/lib/perl/5.24.0/site_perl" /**/ +#define SITELIB_STEM "/sys/lib/perl/5.24.0/site_perl" /**/ /* Size_t_size: * This symbol holds the size of a Size_t in bytes. diff --git a/plan9/config_sh.sample b/plan9/config_sh.sample index 06a369bdba..fef2205899 100644 --- a/plan9/config_sh.sample +++ b/plan9/config_sh.sample @@ -32,12 +32,12 @@ alignbytes='4' ansi2knr='' aphostname='/bin/uname -n' api_revision='5' -api_subversion='10' -api_version='23' -api_versionstring='5.23.10' +api_subversion='0' +api_version='24' +api_versionstring='5.24.0' ar='ar' -archlib='/sys/lib/perl5/5.23.10/386' -archlibexp='/sys/lib/perl5/5.23.10/386' +archlib='/sys/lib/perl5/5.24.0/386' +archlibexp='/sys/lib/perl5/5.24.0/386' archname64='' archname='386' archobjs='' @@ -802,17 +802,17 @@ inc_version_list=' ' inc_version_list_init='0' incpath='' inews='' -installarchlib='/sys/lib/perl/5.23.10/386' +installarchlib='/sys/lib/perl/5.24.0/386' installbin='/usr/bin' installman1dir='/sys/man/1pub' installman3dir='/sys/man/2pub' installprefix='/usr' installprefixexp='/usr' -installprivlib='/sys/lib/perl/5.23.10' +installprivlib='/sys/lib/perl/5.24.0' installscript='/usr/bin' -installsitearch='/sys/lib/perl/5.23.10/site_perl/386' +installsitearch='/sys/lib/perl/5.24.0/site_perl/386' installsitebin='/usr/bin' -installsitelib='/sys/lib/perl/5.23.10/site_perl' +installsitelib='/sys/lib/perl/5.24.0/site_perl' installstyle='lib/perl5' installusrbinperl='undef' installvendorarch='' @@ -937,8 +937,8 @@ pmake='' pr='' prefix='/usr' prefixexp='/usr' -privlib='/sys/lib/perl/5.23.10' -privlibexp='/sys/lib/perl/5.23.10' +privlib='/sys/lib/perl/5.24.0' +privlibexp='/sys/lib/perl/5.24.0' procselfexe='' prototype='define' ptrsize='4' @@ -1003,13 +1003,13 @@ 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, 49, 0' sig_size='50' signal_t='void' -sitearch='/sys/lib/perl/5.23.10/site_perl/386' +sitearch='/sys/lib/perl/5.24.0/site_perl/386' sitearchexp='/sys/lib/perl/site_perl/386' sitebin='/usr/bin' sitebinexp='/usr/bin' -sitelib='/sys/lib/perl/5.23.10/site_perl' -sitelib_stem='/sys/lib/perl/5.23.10/site_perl' -sitelibexp='/sys/lib/perl/5.23.10/site_perl' +sitelib='/sys/lib/perl/5.24.0/site_perl' +sitelib_stem='/sys/lib/perl/5.24.0/site_perl' +sitelibexp='/sys/lib/perl/5.24.0/site_perl' siteprefix='/usr' siteprefixexp='/usr' sizesize='4' @@ -1042,7 +1042,7 @@ stdio_stream_array='' strerror_r_proto='0' strings='/sys/include/ape/string.h' submit='' -subversion='10' +subversion='0' sysman='/sys/man/1pub' tail='' tar='' @@ -1124,8 +1124,8 @@ vendorlib_stem='' vendorlibexp='' vendorprefix='' vendorprefixexp='' -version='5.23.10' -version_patchlevel_string='version 23 subversion 10' +version='5.24.0' +version_patchlevel_string='version 24 subversion 0' versiononly='undef' vi='' xlibpth='' @@ -1138,10 +1138,10 @@ config_arg0='./Configure' config_args='' config_argc=0 PERL_REVISION=5 -PERL_VERSION=23 -PERL_SUBVERSION=10 +PERL_VERSION=24 +PERL_SUBVERSION=0 PERL_API_REVISION=5 -PERL_API_VERSION=23 -PERL_API_SUBVERSION=10 +PERL_API_VERSION=24 +PERL_API_SUBVERSION=0 PERL_PATCHLEVEL= PERL_CONFIG_SH=true diff --git a/pod/.gitignore b/pod/.gitignore index 7b84df3959..cd6539ff5b 100644 --- a/pod/.gitignore +++ b/pod/.gitignore @@ -53,7 +53,7 @@ /roffitall # generated -/perl52310delta.pod +/perl5240delta.pod /perlapi.pod /perlintern.pod *.html diff --git a/pod/perldelta.pod b/pod/perldelta.pod index 57cf7c1daa..e0ae30f4f4 100644 --- a/pod/perldelta.pod +++ b/pod/perldelta.pod @@ -2,166 +2,591 @@ =head1 NAME -[ this is a template for a new perldelta file. Any text flagged as XXX needs -to be processed before release. ] - -perldelta - what is new for perl v5.23.10 +perldelta - what is new for perl v5.24.0 =head1 DESCRIPTION -This document describes differences between the 5.23.9 release and the 5.23.10 -release. +This document describes the differences between the 5.22.0 release and the +5.24.0 release. -If you are upgrading from an earlier release such as 5.23.8, first read -L<perl5239delta>, which describes differences between 5.23.8 and 5.23.9. +=head1 Core Enhancements -=head1 Notice +=head2 Postfix dereferencing is no longer experimental -XXX Any important notices here +Using the C<postderef> and C<postderef_qq> features no longer emits a +warning. Existing code that disables the C<experimental::postderef> warning +category that they previously used will continue to work. The C<postderef> +feature has no effect; all Perl code can use postfix dereferencing, +regardless of what feature declarations are in scope. The C<5.24> feature +bundle now includes the C<postderef_qq> feature. -=head1 Core Enhancements +=head2 Unicode 8.0 is now supported + +For details on what is in this release, see +L<http://www.unicode.org/versions/Unicode8.0.0/>. + +=head2 perl will now croak when closing an in-place output file fails + +Until now, failure to close the output file for an in-place edit was not +detected, meaning that the input file could be clobbered without the edit being +successfully completed. Now, when the output file cannot be closed +successfully, an exception is raised. + +=head2 New C<\b{lb}> boundary in regular expressions + +C<lb> stands for Line Break. It is a Unicode property +that determines where a line of text is suitable to break (typically so +that it can be output without overflowing the available horizontal +space). This capability has long been furnished by the +L<Unicode::LineBreak> module, but now a light-weight, non-customizable +version that is suitable for many purposes is in core Perl. + +=head2 C<qr/(?[ ])/> now works in UTF-8 locales + +L<Extended Bracketed Character Classes|perlrecharclass/Extended Bracketed Character Classes> +now will successfully compile when S<C<use locale>> is in effect. The compiled +pattern will use standard Unicode rules. If the runtime locale is not a +UTF-8 one, a warning is raised and standard Unicode rules are used +anyway. No tainting is done since the outcome does not actually depend +on the locale. + +=head2 Integer shift (C<< << >> and C<< >> >>) now more explicitly defined + +Negative shifts are reverse shifts: left shift becomes right shift, +and right shift becomes left shift. + +Shifting by the number of bits in a native integer (or more) is zero, +except when the "overshift" is right shifting a negative value under +C<use integer>, in which case the result is -1 (arithmetic shift). + +Until now negative shifting and overshifting have been undefined +because they have relied on whatever the C implementation happens +to do. For example, for the overshift a common C behavior is +"modulo shift": + + 1 >> 64 == 1 >> (64 % 64) == 1 >> 0 == 1 # Common C behavior. + + # And the same for <<, while Perl now produces 0 for both. + +Now these behaviors are well-defined under Perl, regardless of what +the underlying C implementation does. Note, however, that you cannot +escape the native integer width, you need to know how far left you +can go. You can use for example: + + use Config; + my $wordbits = $Config{uvsize} * 8; # Or $Config{uvsize} << 3. + +If you need a more bits on the left shift, you can use for example +the C<bigint> pragma, or the C<Bit::Vector> module from CPAN. + +=head2 printf and sprintf now allow reordered precision arguments + +That is, C<< sprintf '|%.*2$|', 2, 3 >> now returns C<|002|>. This extends +the existing reordering mechanism (which allows reordering for arguments +that are used as format fields, widths, and vector separators). -XXX New core language features go here. Summarize user-visible core language -enhancements. Particularly prominent performance optimisations could go -here, but most should go in the L</Performance Enhancements> section. +=head2 More fields provided to C<sigaction> callback with C<SA_SIGINFO> -[ List each enhancement as a =head2 entry ] +When passing the C<SA_SIGINFO> flag to L<sigaction|POSIX/sigaction>, the +C<errno>, C<status>, C<uid>, C<pid>, C<addr> and C<band> fields are now +included in the hash passed to the handler, if supported by the +platform. =head1 Security -XXX Any security-related notices go here. In particular, any security -vulnerabilities closed should be noted here rather than in the -L</Selected Bug Fixes> section. +=head2 Set proper umask before calling C<mkstemp(3)> -[ List each security issue as a =head2 entry ] +In 5.22 perl started setting umask to 0600 before calling C<mkstemp(3)> +and restoring it afterwards. This wrongfully tells open(2) to strip +the owner read and write bits from the given mode before applying it, +rather than the intended negation of leaving only those bits in place. + +Systems that use mode 0666 in C<mkstemp(3)> (like old versions of +glibc) create a file with permissions 0066, leaving world read and +write permissions regardless of current umask. + +This has been fixed by using umask 0177 instead. [perl #127322] + +=head2 fix out of boundary access in Win32 path handling + +This is CVE-2015-8608. For more information see +L<[perl #126755]|https://rt.perl.org/Ticket/Display.html?id=126755> + +=head2 fix loss of taint in canonpath + +This is CVE-2015-8607. For more information see +L<[perl #126862]|https://rt.perl.org/Ticket/Display.html?id=126862> + +=head2 Avoid accessing uninitialized memory in win32 C<crypt()> + +Added validation that will detect both a short salt and invalid characters +in the salt. +L<[perl #126922]|https://rt.perl.org/Ticket/Display.html?id=126922> + +=head2 Remove duplicate environment variables from C<environ> + +Previously, if an environment variable appeared more than once in +C<environ[]>, C<%ENV> would contain the last entry for that name, +while a typical C<getenv()> would return the first entry. We now +make sure C<%ENV> contains the same as what C<getenv> returns. + +Second, we remove duplicates from C<environ[]>, so if a setting +with that name is set in C<%ENV> we won't pass an unsafe value +to a child process. + +[CVE-2016-2381] =head1 Incompatible Changes -XXX For a release on a stable branch, this section aspires to be: +=head2 The C<autoderef> feature has been removed + +The experimental C<autoderef> feature (which allowed calling C<push>, +C<pop>, C<shift>, C<unshift>, C<splice>, C<keys>, C<values>, and C<each> on +a scalar argument) has been deemed unsuccessful. It has now been removed; +trying to use the feature (or to disable the C<experimental::autoderef> +warning it previously triggered) now yields an exception. + +=head2 Lexical $_ has been removed + +C<my $_> was introduced in Perl 5.10, and subsequently caused much confusion +with no obvious solution. In Perl 5.18.0, it was made experimental on the +theory that it would either be removed or redesigned in a less confusing (but +backward-incompatible) way. Over the following years, no alternatives were +proposed. The feature has now been removed and will fail to compile. + +=head2 C<qr/\b{wb}/> is now tailored to Perl expectations + +This is now more suited to be a drop-in replacement for plain C<\b>, but +giving better results for parsing natural language. Previously it +strictly followed the current Unicode rules which calls for it to match +between each white space character. Now it doesn't generally match +within spans of white space, behaving like C<\b> does. See +L<perlrebackslash/\b{wb}> + +=head2 Regular expression compilation errors + +Some regular expression patterns that had runtime errors now +don't compile at all. + +Almost all Unicode properties using the C<\p{}> and C<\P{}> regular +expression pattern constructs are now checked for validity at pattern +compilation time, and invalid ones will cause the program to not +compile. In earlier releases, this check was often deferred until run +time. Whenever an error check is moved from run- to compile time, +erroneous code is caught 100% of the time, whereas before it would only +get caught if and when the offending portion actually gets executed, +which for unreachable code might be never. - There are no changes intentionally incompatible with 5.XXX.XXX - If any exist, they are bugs, and we request that you submit a - report. See L</Reporting Bugs> below. +=head2 C<qr/\N{}/> now disallowed under C<use re "strict"> -[ List each incompatible change as a =head2 entry ] +An empty C<\N{}> makes no sense, but for backwards compatibility is +silently accepted as doing nothing. But now this is a fatal error under +the experimental feature L<re/'strict' mode>. + +=head2 Nested declarations are now disallowed + +A C<my>, C<our>, or C<state> declaration is no longer allowed inside +of another C<my>, C<our>, or C<state> declaration. + +For example, these are now fatal: + + my ($x, my($y)); + our (my $x); + +L<[perl #125587]|https://rt.perl.org/Ticket/Display.html?id=125587> + +L<[perl #121058]|https://rt.perl.org/Ticket/Display.html?id=121058> + +=head2 The C</\C/> character class has been removed. + +This regular expression character class was deprecated in v5.20.0 and has +produced a deprecation warning since v5.22.0. It is now a compile-time +error. If you need to examine the individual bytes that make up a +UTF8-encoded character, then use C<utf8::encode()> on the string (or a +copy) first. + +=head2 C<chdir('')> no longer chdirs home + +Using C<chdir('')> or C<chdir(undef)> to chdir home has been deprecated since +perl v5.8, and will now fail. Use C<chdir()> instead. + +=head2 ASCII characters in variable names must now be all visible + +It was legal until now on ASCII platforms for variable names to contain +non-graphical ASCII control characters (ordinals 0 through 31, and 127, +which are the C0 controls and C<DELETE>). This usage has been +deprecated since v5.20, and as of now causes a syntax error. The +variables these names referred to are special, reserved by Perl for +whatever use it may choose, now, or in the future. Each such variable +has an alternative way of spelling it. Instead of the single +non-graphic control character, a two character sequence beginning with a +caret is used, like C<$^]> and C<${^GLOBAL_PHASE}>. Details are at +L<perlvar>. It remains legal, though unwise and deprecated (raising a +deprecation warning), to use certain non-graphic non-ASCII characters in +variables names when not under S<C<use utf8>>. No code should do this, +as all such variables are reserved by Perl, and Perl doesn't currently +define any of them (but could at any time, without notice). + +=head2 An off by one issue in C<$Carp::MaxArgNums> has been fixed + +C<$Carp::MaxArgNums> is supposed to be the number of arguments to display. +Prior to this version, it was instead showing C<$Carp::MaxArgNums> + 1 arguments, +contrary to the documentation. + +=head2 Only blanks and tabs are now allowed within C<[...]> within C<(?[...])>. + +The experimental Extended Bracketed Character Classes can contain regular +bracketed character classes within them. These differ from regular ones in +that white space is generally ignored, unless escaped by preceding it with a +backslash. The white space that is ignored is now limited to just tab C<\t> +and SPACE characters. Previously, it was any white space. See +L<perlrecharclass/Extended Bracketed Character Classes>. =head1 Deprecations -=head2 \N{} with nothing between the braces is deprecated +=head2 Using code points above the platform's C<IV_MAX> is now deprecated + +Unicode defines code points in the range C<0..0x10FFFF>. Some standards +at one time defined them up to 2**31 - 1, but Perl has allowed them to +be as high as anything that will fit in a word on the platform being +used. However, use of those above the platform's C<IV_MAX> is broken in +some constructs, notably C<tr///>, regular expression patterns involving +quantifiers, and in some arithmetic and comparison operations, such as +being the upper limit of a loop. Now the use of such code points raises +a deprecation warning, unless that warning category is turned off. +C<IV_MAX> is typically 2**31 -1 on 32-bit platforms, and 2**63-1 on +64-bit ones. + +=head2 Doing bitwise operations on strings containing code points above +0xFF is deprecated + +The string bitwise operators treat their operands as strings of bytes, +and values beyond 0xFF are nonsensical in this context. To operate on +encoded bytes, first encode the strings. To operate on code points' +numeric values, use C<split> and C<map ord>. In the future, this +warning will be replaced by an exception. + +=head2 sysread(), syswrite(), recv() and send() are deprecated on +:utf8 handles + +The sysread(), recv(), syswrite() and send() operators +are deprecated on handles that have the C<:utf8> layer, either +explicitly, or implicitly, eg., with the C<:encoding(UTF-16LE)> layer. + +Both sysread() and recv() currently use only the C<:utf8> flag for the +stream, ignoring the actual layers. Since sysread() and recv() do no +UTF-8 validation they can end up creating invalidly encoded scalars. + +Similarly, syswrite() and send() use only the C<:utf8> flag, otherwise +ignoring any layers. If the flag is set, both write the value UTF-8 +encoded, even if the layer is some different encoding, such as the +example above. + +Ideally, all of these operators would completely ignore the C<:utf8> +state, working only with bytes, but this would result in silently +breaking existing code. To avoid this a future version of perl will +throw an exception when any of sysread(), recv(), syswrite() or send() +are called on handle with the C<:utf8> layer. -This had been illegal until v5.22, and will be illegal again in a future -Perl version. +=head1 Performance Enhancements -=head2 Module removals +=over 4 -XXX Remove this section if inapplicable. +=item * -The following modules will be removed from the core distribution in a -future release, and will at that time need to be installed from CPAN. -Distributions on CPAN which require these modules will need to list them as -prerequisites. +The overhead of scope entry and exit has been considerably reduced, so +for example subroutine calls, loops and basic blocks are all faster now. +This empty function call now takes about a third less time to execute: -The core versions of these modules will now issue C<"deprecated">-category -warnings to alert you to this fact. To silence these deprecation warnings, -install the modules in question from CPAN. + sub f{} f(); -Note that these are (with rare exceptions) fine modules that you are encouraged -to continue to use. Their disinclusion from core primarily hinges on their -necessity to bootstrapping a fully functional, CPAN-capable Perl installation, -not usually on concerns over their design. +=item * -=over +Many languages, such as Chinese, are caseless. Perl now knows about +most modern commercially important ones, and skips much of the work when +a program tries to change case in them (like C<ucfirst()>) or match +caselessly (C<qr//i>). This will speed up a program, such as a web +server, that can operate on multiple languages, while operating on a +caseless one. -=item XXX +=item * + +C</fixed-substr/> has been made much faster. + +On platforms with a libc memchr() implementation which makes good use of +underlying hardware support, patterns which include fixed substrings will now +often be much faster; for example with glibc on a recent x86_64 CPU, this: + + $s = "a" x 1000 . "wxyz"; + $s =~ /wxyz/ for 1..30000 + +is now about 7 times faster. On systems with slow memchr(), e.g. 32-bit ARM +Raspberry Pi, there will be a small or little speedup. Conversely, some +pathological cases, such as C<"ab" x 1000 =~ /aa/> will be slower now; up to 3 +times slower on the rPi, 1.5x slower on x86_64. + +=item * + +Faster addition, subtraction and multiplication. + +Since 5.8.0, arithmetic became slower due to the need to support +64-bit integers. To deal with 64-bit integers, a lot more corner +cases need to be checked, which adds time. We now detect common +cases where there is no need to check for those corner cases, +and special-case them. + +=item * + +Preincrement, predecrement, postincrement, and postdecrement have been +made faster by internally splitting the functions which handled multiple +cases into different functions. + +=item * + +Creating Perl debugger data structures (see L<perldebguts/"Debugger Internals">) +for XSUBs and const subs has been removed. This removed one glob/scalar combo +for each unique C<.c> file that XSUBs and const subs came from. On startup +(C<perl -e"0">) about half a dozen glob/scalar debugger combos were created. +Loading XS modules created more glob/scalar combos. These things were created +regardless if the perl debugger was being used or not, unlike for pure perl +subs, and ignores that the perl debugger can not debug C code. + +=item * + +On Win32, C<stat>ing or C<-X>ing a path, if the file or directory does not +exist, is now 3.5x faster than before. + +=item * -XXX Note that deprecated modules should be listed here even if they are listed -as an updated module in the L</Modules and Pragmata> section. +Single arguments in list assign are now slightly faster: + + ($x) = (...); + (...) = ($x); + +=item * + +Less peak memory is now used when compiling regular expression patterns. =back -[ List each other deprecation as a =head2 entry ] +=head1 Modules and Pragmata -=head1 Performance Enhancements +=head2 Updated Modules and Pragmata + +XXX: todo -XXX Changes which enhance performance without changing behaviour go here. -There may well be none in a stable release. +=head1 Documentation + +=head2 Changes to Existing Documentation -[ List each enhancement as a =item entry ] +=head3 L<perlapi> =over 4 =item * -XXX +The process of using undocumented globals has been documented, namely, that one +should send email to L<perl5-porters@perl.org|mailto:perl5-porters@perl.org> +first to get the go-ahead for documenting and using an undocumented function or +global variable. =back -=head1 Modules and Pragmata +=head3 L<perlcall> -XXX All changes to installed files in F<cpan/>, F<dist/>, F<ext/> and F<lib/> -go here. If Module::CoreList is updated, generate an initial draft of the -following sections using F<Porting/corelist-perldelta.pl>. A paragraph summary -for important changes should then be added by hand. In an ideal world, -dual-life modules would have a F<Changes> file that could be cribbed. +=over 4 -[ Within each section, list entries as a =item entry ] +=item * -=head2 New Modules and Pragmata +A number of cleanups have been made to perlcall, including: =over 4 =item * -XXX +use EXTEND(SP, n) and PUSHs() instead of XPUSHs() where applicable +and update prose to match + +=item * + +add POPu, POPul and POPpbytex to the "complete list of POP macros" +and clarify the documentation for some of the existing entries, and +a note about side-effects + +=item * + +add API documentation for POPu and POPul + +=item * + +use ERRSV more efficiently + +=item * + +approaches to thread-safety storage of SVs. =back -=head2 Updated Modules and Pragmata +=back + +=head3 L<perlfunc> =over 4 =item * -L<XXX> has been upgraded from version A.xx to B.yy. +The documentation of C<hex> has been revised to clarify valid inputs. + +=item * + +Better explain meaning of negative PIDs in C<waitpid>. +L<[perl #127080]|https://rt.perl.org/Ticket/Display.html?id=127080> + +=item * + +General cleanup: there's more consistency now (in POD usage, grammar, code +examples), better practices in code examples (use of C<my>, removal of bareword +filehandles, dropped usage of C<&> when calling subroutines, ...), etc. =back -=head2 Removed Modules and Pragmata +=head3 L<perlguts> =over 4 =item * -XXX +A new section has been added, L<perlguts/"Dynamic Scope and the Context +Stack">, which explains how the perl context stack works. =back -=head1 Documentation +=head3 L<perlmodlib> -XXX Changes to files in F<pod/> go here. Consider grouping entries by -file and be sure to link to the appropriate page, e.g. L<perlfunc>. +=over 4 -=head2 New Documentation +=item * -XXX Changes which create B<new> files in F<pod/> go here. +We now recommend contacting the module-authors list or PAUSE in seeking +guidance on the naming of modules. -=head3 L<XXX> +=back -XXX Description of the purpose of the new file here +=head3 L<perlop> -=head2 Changes to Existing Documentation +=over 4 + +=item * + +The documentation of C<qx//> now describes how C<$?> is affected. + +=back + +=head3 L<perlpolicy> + +=over 4 + +=item * + +This note has been added to perlpolicy: + + While civility is required, kindness is encouraged; if you have any doubt + about whether you are being civil, simply ask yourself, "Am I being kind?" + and aspire to that. + +=back + +=head3 L<perlreftut> + +=over 4 + +=item * + +Fix some examples to be L<strict> clean. + +=back + +=head3 L<perlrebackslash> + +=over 4 + +=item * + +Clarify that in languages like Japanese and Thai, dictionary lookup +is required to determine word boundaries. + +=back + +=head3 L<perlsub> + +=over 4 + +=item * + +Updated to note that anonymous subroutines can have signatures. + +=back + +=head3 L<perlsyn> + +=over 4 + +=item * -XXX Changes which significantly change existing files in F<pod/> go here. -However, any changes to F<pod/perldiag.pod> should go in the L</Diagnostics> -section. +Fixed a broken example where C<=> was used instead of +C<==> in conditional in do/while example. -=head3 L<XXX> +=back + +=head3 L<perltie> =over 4 =item * -XXX Description of the change here +The usage of C<FIRSTKEY> and C<NEXTKEY> has been clarified. + +=back + +=head3 L<perlunicode> + +=over 4 + +=item * + +Discourage use of 'In' prefix for Unicode Block property. + +=back + +=head3 L<perlvar> + +=over 4 + +=item * + +The documentation of C<$@> was reworded to clarify that it is not just for +syntax errors in C<eval>. +L<[perl #124034]|https://rt.perl.org/Ticket/Display.html?id=124034> + +=item * + +The specific true value of C<$!{E...}> is now documented, noting that it is +subject to change and not guaranteed. + +=item * + +Use of C<$OLD_PERL_VERSION> is now discouraged. + +=back + +=head3 L<perlxs> + +=over 4 + +=item * + +The documentation of C<PROTOTYPES> has been corrected; they are I<disabled> +by default, not I<enabled>. =back @@ -171,21 +596,65 @@ The following additions or changes have been made to diagnostic output, including warnings and fatal error messages. For the complete list of diagnostic messages, see L<perldiag>. -XXX New or changed warnings emitted by the core's C<C> code go here. Also -include any changes in L<perldiag> that reconcile it to the C<C> code. - =head2 New Diagnostics -XXX Newly added diagnostic messages go under here, separated into New Errors -and New Warnings - =head3 New Errors =over 4 =item * -XXX L<message|perldiag/"message"> +L<%s must not be a named sequence in transliteration operator|perldiag/"%s must not be a named sequence in transliteration operator"> + +(F) Transliteration (C<tr///> and C<y///>) transliterates individual +characters. But a named sequence by definition is more than an +individual charater, and hence doing this operation on it doesn't make +sense. + +=item * + +L<Can't find Unicode property definition "%s" in regex;|perldiag/"Can't find Unicode property definition "%s" in regex; marked by <-- HERE in m/%s/"> + +=item * + +L<Can't redeclare "%s" in "%s"|perldiag/"Can't redeclare "%s" in "%s""> + +(F) A "my", "our" or "state" declaration was found within another declaration, +such as C<my ($x, my($y), $z)> or C<our (my $x)>. + +=item * + +L<Character following \p must be '{' or a single-character Unicode property name in regex;|perldiag/"Character following \%c must be '{' or a single-character Unicode property name in regex; marked by <-- HERE in m/%s/"> + +=item * + +L<Empty \%c in regex; marked by E<lt>-- HERE in mE<sol>%sE<sol> +|perldiag/"Empty \%c in regex; marked by <-- HERE in mE<sol>%sE<sol>"> + +=item * + +L<Illegal user-defined property name|perldiag/"Illegal user-defined property name"> + +=item * + +L<Invalid number '%s' for -C option.|perldiag/"Invalid number '%s' for -C option."> + +(F) You supplied a number to the -C option that either has extra leading +zeroes or overflows perl's unsigned integer representation. + +=item * + +L<<< Sequence (?... not terminated in regex; marked by S<<-- HERE> in mE<sol>%sE<sol>|perldiag/"Sequence (?... not terminated in regex; marked by <-- HERE in mE<sol>%sE<sol>" >>> + +=item * + +L<<< Sequence (?PE<lt>... not terminated in regex; marked by E<lt>-- HERE in mE<sol>%sE<sol> +|perldiag/"Sequence (?PE<lt>... not terminated in regex; marked by <-- HERE in mE<sol>%sE<sol>" >>> + +=item * + +L<Sequence (?PE<gt>... not terminated in regex; marked by E<lt>-- HERE in mE<sol>%sE<sol> +|perldiag/"Sequence (?PE<gt>... not terminated in regex; marked by <-- HERE in mE<sol>%sE<sol>"> =back @@ -195,200 +664,1053 @@ XXX L<message|perldiag/"message"> =item * -XXX L<message|perldiag/"message"> +L<Assuming NOT a POSIX class since %s in regex; marked by E<lt>-- HERE in mE<sol>%sE<sol>| +perldiag/Assuming NOT a POSIX class since %s in regex; marked by <-- HERE in mE<sol>%sE<sol>> + +=item * + +L<%s() is deprecated on :utf8 handles|perldiag/"%s() is deprecated on :utf8 handles"> + +(W deprecated) The sysread(), recv(), syswrite() and send() operators +are deprecated on handles that have the C<:utf8> layer, either +explicitly, or implicitly, eg., with the C<:encoding(UTF-16LE)> layer. + +Both sysread() and recv() currently use only the C<:utf8> flag for the +stream, ignoring the actual layers. Since sysread() and recv() do no +UTF-8 validation they can end up creating invalidly encoded scalars. + +Similarly, syswrite() and send() use only the C<:utf8> flag, otherwise +ignoring any layers. If the flag is set, both write the value UTF-8 +encoded, even if the layer is some different encoding, such as the +example above. + +Ideally, all of these operators would completely ignore the C<:utf8> +state, working only with bytes, but this would result in silently +breaking existing code. To avoid this a future version of perl will +throw an exception when any of sysread(), recv(), syswrite() or send() +are called on handle with the C<:utf8> layer. =back =head2 Changes to Existing Diagnostics -XXX Changes (i.e. rewording) of diagnostic messages go here - =over 4 =item * -XXX Describe change here - -=back +Accessing the C<IO> part of a glob as C<FILEHANDLE> instead of C<IO> is no +longer deprecated. It is discouraged to encourage uniformity (so that, for +example, one can grep more easily) but it will not be removed. +L<[perl #127060]|https://rt.perl.org/Ticket/Display.html?id=127060> -=head1 Utility Changes +=item * -XXX Changes to installed programs such as F<perlbug> and F<xsubpp> go here. -Most of these are built within the directory F<utils>. +The diagnostic C<< Hexadecimal float: internal error >> has been changed to +C<< Hexadecimal float: internal error (%s) >> to include more information. -[ List utility changes as a =head2 entry for each utility and =item -entries for each change -Use L<XXX> with program names to get proper documentation linking. ] +=item * -=head2 L<XXX> +L<Can't modify non-lvalue subroutine call of &%s|perldiag/"Can't modify non-lvalue subroutine call of &%s"> -=over 4 +This error now reports the name of the non-lvalue subroutine you attempted to +use as an lvalue. =item * -XXX +When running out of memory during an attempt the increase the stack +size, previously, perl would die using the cryptic message +C<< panic: av_extend_guts() negative count (-9223372036854775681) >>. +This has been fixed to show the prettier message: +L<< Out of memory during stack extend|perldiag/"Out of memory during %s extend" >> =back =head1 Configuration and Compilation -XXX Changes to F<Configure>, F<installperl>, F<installman>, and analogous tools -go here. Any other changes to the Perl build process should be listed here. -However, any platform-specific changes should be listed in the -L</Platform Support> section, instead. +=over 4 -[ List changes as a =item entry ]. +=item * -=over 4 +C<Configure> now acts as if the C<-O> option is always passed, allowing command +line options to override saved configuration. This should eliminate confusion +when command line options are ignored for no obvious reason. C<-O> is now +permitted, but ignored. + +=item * + +Bison 3.0 is now supported. =item * -XXX +F<Configure> no longer probes for F<libnm> by default. Originally +this was the "New Math" library, but the name has been re-used by the +GNOME NetworkManager. +L<[perl #127131]|https://rt.perl.org/Ticket/Display.html?id=127131> + +=item * + +Added F<Configure> probes for C<newlocale>, C<freelocale>, and C<uselocale>. + +=item * + +C<< PPPort.so/PPPort.dll >> no longer get installed, as they are +not used by C<< PPPort.pm >>, only by its test files. + +=item * + +It is now possible to specify which compilation date to show on +C<< perl -V >> output, by setting the macro C<< PERL_BUILD_DATE >>. + +=item * + +Using the C<NO_HASH_SEED> define in combination with the default hash algorithm +C<PERL_HASH_FUNC_ONE_AT_A_TIME_HARD> resulted in a fatal error while compiling +the interpreter, since Perl 5.17.10. This has been fixed. + +=item * + +F<Configure> should handle spaces in paths a little better. + +=item * + +No longer generate EBCDIC POSIX-BC tables. We don't believe anyone is +using Perl and POSIX-BC at this time, and by not generating these tables +it saves time during development, and makes the resulting tar ball smaller. + +=item * + +The GNU Make makefile for Win32 now supports parallel builds. [perl #126632] + +=item * + +You can now build perl with MSVC++ on Win32 using GNU Make. [perl #126632] + +=item * + +The Win32 miniperl now has a real C<getcwd> which increases build performance +resulting in C<getcwd()> being 605x faster in Win32 miniperl. =back =head1 Testing -XXX Any significant changes to the testing of a freshly built perl should be -listed here. Changes which create B<new> files in F<t/> go here as do any -large changes to the testing harness (e.g. when parallel testing was added). -Changes to existing files in F<t/> aren't worth summarizing, although the bugs -that they represent may be covered elsewhere. +=over 4 -[ List each test improvement as a =item entry ] +=item * -=over 4 +A new test (F<t/op/aassign.t>) has been added to test the list assignment operator +C<OP_AASSIGN>. =item * -XXX +Parallel building has been added to the dmake C<makefile.mk> makefile. All +Win32 compilers are supported. =back =head1 Platform Support -XXX Any changes to platform support should be listed in the sections below. +=head2 Platform-Specific Notes + +=over 4 + +=item AmigaOS + +The AmigaOS port has been reintegrated into the main tree, based off of +Perl 5.22.1. -[ Within the sections, list each platform as a =item entry with specific -changes as paragraphs below it. ] +=item Cygwin -=head2 New Platforms +Tests are more robust against unusual cygdrive prefixes. +L<[perl #126834]|https://rt.perl.org/Ticket/Display.html?id=126834> -XXX List any platforms that this version of perl compiles on, that previous -versions did not. These will either be enabled by new files in the F<hints/> -directories, or new subdirectories and F<README> files at the top level of the -source tree. +=item EBCDIC =over 4 -=item XXX-some-platform +=item UTF-EBCDIC extended + +UTF-EBCDIC is like UTF-8, but for EBCDIC platforms. It now has been +extended so that it can represent code points up to 2 ** 64 - 1 on +platforms with 64-bit words. This brings it into parity with UTF-8. +This enhancement requires an incompatible change to the representation +of code points in the range 2 ** 30 to 2 ** 31 -1 (the latter was the +previous maximum representable code point). This means that a file that +contains one of these code points, written out with previous versions of +perl cannot be read in, without conversion, by a perl containing this +change. We do not believe any such files are in existence, but if you +do have one, submit a ticket at L<perlbug@perl.org|mailto:perlbug@perl.org>, +and we will write a conversion script for you. + +=item EBCDIC C<cmp()> and C<sort()> fixed for UTF-EBCDIC strings -XXX +Comparing two strings that were both encoded in UTF-8 (or more +precisely, UTF-EBCDIC) did not work properly until now. Since C<sort()> +uses C<cmp()>, this fixes that as well. + +=item EBCDIC C<tr///> and C<y///> fixed for C<\N{}>, and C<S<use utf8>> ranges + +Perl v5.22 introduced the concept of portable ranges to regular +expression patterns. A portable range matches the same set of +characters no matter what platform is being run on. This concept is now +extended to C<tr///>. See +C<L<trE<sol>E<sol>E<sol>|perlop/trE<sol>SEARCHLISTE<sol>REPLACEMENTLISTE<sol>cdsr>>. + +There were also some problems with these operations under S<C<use +utf8>>, which are now fixed =back -=head2 Discontinued Platforms +=item FreeBSD -XXX List any platforms that this version of perl no longer compiles on. +=over -=over 4 +=item * + +Use the C<fdclose()> function from FreeBSD if it is available. +L<[perl #126847]|https://rt.perl.org/Ticket/Display.html?id=126847> + +=back + +=item IRIX -=item XXX-some-platform +=over + +=item * + +Under some circumstances IRIX stdio fgetc() and fread() set the errno to +C<ENOENT>, which made no sense according to either IRIX or POSIX docs. Errno +is now cleared in such cases. +L<[perl #123977]|https://rt.perl.org/Ticket/Display.html?id=123977> + +=item * -XXX +Problems when multiplying long doubles by infinity have been fixed. +L<[perl #126396]|https://rt.perl.org/Ticket/Display.html?id=126396> =back -=head2 Platform-Specific Notes +=item MacOS X -XXX List any changes for specific platforms. This could include configuration -and compilation changes or changes in portability/compatibility. However, -changes within modules for platforms should generally be listed in the -L</Modules and Pragmata> section. +=over -=over 4 +=item * -=item XXX-some-platform +Until now OS X builds of perl have specified a link target of 10.3 (Panther, +2003) but have not specified a compiler target. From now on, builds of perl on +OS X 10.6 or later (Snow Leopard, 2008) by default capture the current OS X +version and specify that as the explicit build target in both compiler and +linker flags, thus preserving binary compatibility for extensions built later +regardless of changes in OS X, SDK, or compiler and linker versions. To +override the default value used in the build and preserved in the flags, +specify C<export MACOSX_DEPLOYMENT_TARGET=10.N> before configuring and building +perl, where 10.N is the version of OS X you wish to target. In OS X 10.5 or +earlier there is no change to the behavior present when those systems were +current; the link target is still OS X 10.3 and there is no explicit compiler +target. -XXX +=item * + +Builds with both -DDEBUGGING and threading enabled would fail with a +"panic: free from wrong pool" error when built or tested from Terminal +on OS X. This was caused by perl's internal management of the +environment conflicting with an atfork handler using the libc +setenv() function to update the environment. + +Perl now uses setenv()/unsetenv() to update the environment on OS X. +L<[perl #126240]|https://rt.perl.org/Ticket/Display.html?id=126240> =back -=head1 Internal Changes +=item Solaris -XXX Changes which affect the interface available to C<XS> code go here. Other -significant internal changes for future core maintainers should be noted as -well. +All Solaris now builds shared libperl. -[ List each change as a =item entry ] +Solaris and variants like OpenIndiana now always build with the shared +Perl library (Configure -Duseshrplib). This was required for the +OpenIndiana builds, but this has also been the setting for Oracle/Sun +Perl builds for several years. -=over 4 +=item Tru64 + +Workaround where Tru64 balks when prototypes are listed as +C<< PERL_STATIC_INLINE >>, but where the test is build with +C<< -DPERL_NO_INLINE_FUNCTIONS >>. + +=item VMS + +=over + +=item * + +On VMS, the math function prototypes in C<math.h> are now visible under C++. +Now building the POSIX extension with C++ will no longer crash. + +=item * + +VMS has had C<setenv/unsetenv> since v7.0 (released in 1996), C<Perl_vmssetenv> +now always uses C<setenv/unsetenv>. + +=item * + +Perl now implements its own C<killpg> by scanning for processes in the +specified process group, which may not mean exactly the same thing as a Unix +process group, but allows us to send a signal to a parent (or master) process +and all of its sub-processes. At the perl level, this means we can now send a +negative pid like so: + + kill SIGKILL, -$pid; + +to signal all processes in the same group as C<$pid>. =item * -XXX +For those C<%ENV> elements based on the CRTL environ array, we've always +preserved case when setting them but did look-ups only after upcasing the +key first, which made lower- or mixed-case entries go missing. This problem +has been corrected by making C<%ENV> elements derived from the environ array +case-sensitive on look-up as well as case-preserving on store. + +=item * + +Environment look-ups for C<PERL5LIB> and C<PERLLIB> previously only +considered logical names, but now consider all sources of C<%ENV> as +determined by C<PERL_ENV_TABLES> and as documented in L<perlvms/%ENV>. + +=item * + +The minimum supported version of VMS is now v7.3-2, released in 2003. As a +side effect of this change, VAX is no longer supported as the terminal +release of OpenVMS VAX was v7.3 in 2001. =back -=head1 Selected Bug Fixes +=item Win32 -XXX Important bug fixes in the core language are summarized here. Bug fixes in -files in F<ext/> and F<lib/> are best summarized in L</Modules and Pragmata>. +=over -[ List each fix as a =item entry ] +=item * -=over 4 +A new build option C<USE_NO_REGISTRY> has been added to the makefiles. This +option is off by default, meaning the default is to do Windows registry +lookups. This option stops Perl from looking inside the registry for anything. +For what values are looked up in the registry see L<perlwin32>. Internally, in +C, the name of this option is C<WIN32_NO_REGISTRY>. =item * -XXX +The behavior of Perl using C<HKEY_CURRENT_USER\Software\Perl> and +C<HKEY_LOCAL_MACHINE\Software\Perl> to lookup certain values, including C<%ENV> +vars starting with C<PERL> has changed. Previously, the 2 keys were checked +for entries at all times through Perl processes life time even if they did not +exist. For performance reasons, now, if the root key (i.e. +C<HKEY_CURRENT_USER\Software\Perl> or C<HKEY_LOCAL_MACHINE\Software\Perl>) does +not exist at process start time, it will not be checked again for C<%ENV> +override entries for the remainder of the Perl processes life. This more +closely matches Unix behaviour in that the environment is copied or inherited +on startup and changing the variable in the parent process or another process +or editing F<.bashrc> will not change the environmental variable in other +existing, running, processes. + +=item * + +One glob fetch was removed for each C<-X> or C<stat> call whether done from +Perl code or internally from Perl's C code. The glob being looked up was +C<${^WIN32_SLOPPY_STAT}> which is a special variable. This makes C<-X> and +C<stat> slightly faster. + +=item * + +During miniperl's process startup, during the build process, 4 to 8 IO calls +related to the process starting F<.pl> and the F<buildcustomize.pl> file were +removed from the code opening and executing the first 1 or 2 F<.pl> files. + +=item * + +Builds using Microsoft Visual C++ 2003 and earlier no longer produce +an "INTERNAL COMPILER ERROR" message. [perl #126045] + +=item * + +Visual C++ 2013 builds will now execute on XP and higher. Previously they would +only execute on Vista and higher. + +=item * + +You can now build perl with GNU Make and GCC. [perl #123440] + +=item * + +C<truncate($filename, $size)> now works for files over 4GB in size. +[perl #125347] + +=item * + +Parallel building has been added to the dmake C<makefile.mk> makefile. All +Win32 compilers are supported. + +=item * + +Building a 64-bit perl with a 64-bit GCC but a 32-bit gmake would +result in an invalid C<$Config{archname}> for the resulting perl. +[perl #127584] + +=item * + +Errors set by Winsock functions are now put directly into C<$^E>, and the +relevant C<WSAE*> error codes are now exported from the L<Errno> and L<POSIX> +modules for testing this against. + +The previous behaviour of putting the errors (converted to POSIX-style C<E*> +error codes since Perl 5.20.0) into C<$!> was buggy due to the non-equivalence +of like-named Winsock and POSIX error constants, a relationship between which +has unfortunately been established in one way or another since Perl 5.8.0. + +The new behaviour provides a much more robust solution for checking Winsock +errors in portable software without accidentally matching POSIX tests that were +intended for other OSes and may have different meanings for Winsock. + +The old behaviour is currently retained, warts and all, for backwards +compatibility, but users are encouraged to change any code that tests C<$!> +against C<E*> constants for Winsock errors to instead test C<$^E> against +C<WSAE*> constants. After a suitable deprecation period, the old behaviour may +be removed, leaving C<$!> unchanged after Winsock function calls, to avoid any +possible confusion over which error variable to check. + +=back + +=item ppc64el floating point + +The floating point format of ppc64el (Debian naming for little-endian +PowerPC) is now detected correctly. =back -=head1 Known Problems +=head1 Internal Changes -XXX Descriptions of platform agnostic bugs we know we can't fix go here. Any -tests that had to be C<TODO>ed for the release would be noted here. Unfixed -platform specific bugs also go here. +=over 4 -[ List each fix as a =item entry ] +=item * + +The implementation of perl's context stack system, and its internal API, +have been heavily reworked. Note that no significant changes have been +made to any external APIs, but XS code which relies on such internal +details may need to be fixed. The main changes are: =over 4 =item * -XXX +The C<PUSHBLOCK()>, C<POPSUB()> etc. macros have been replaced with static +inline functions such as C<cx_pushblock()>, C<cx_popsub()> etc. These use +function args rather than implicitly relying on local vars such as +C<gimme> and C<newsp> being available. Also their functionality has +changed: in particular, C<cx_popblock()> no longer decrements +C<cxstack_ix>. The ordering of the steps in the C<pp_leave*> functions +involving C<cx_popblock()>, C<cx_popsub()> etc. has changed. See the new +documentation, L<perlguts/"Dynamic Scope and the Context Stack">, for +details on how to use them. + +=item * + +Various macros, which now consistently have a CX_ prefix, have been added: + + CX_CUR(), CX_LEAVE_SCOPE(), CX_POP() + +or renamed: + + CX_POP_SAVEARRAY(), CX_DEBUG(), CX_PUSHSUBST(), CX_POPSUBST() + +=item * + +C<cx_pushblock()> now saves C<PL_savestack_ix> and C<PL_tmps_floor>, so +C<pp_enter*> and C<pp_leave*> no longer do + + ENTER; SAVETMPS; ....; LEAVE + +=item * + +C<cx_popblock()> now also restores C<PL_curpm>. + +=item * + +In C<dounwind()> for every context type, the current savestack frame is +now processed before each context is popped; formerly this was only done +for sub-like context frames. This action has been removed from +C<cx_popsub()> and placed into its own macro, C<CX_LEAVE_SCOPE(cx)>, which +must be called before C<cx_popsub()> etc. + +C<dounwind()> now also does a C<cx_popblock()> on the last popped frame +(formerly it only did the C<cx_popsub()> etc. actions on each frame). + +=item * + +The temps stack is now freed on scope exit; previously, temps created +during the last statement of a block wouldn't be freed until the next +C<nextstate> following the block (apart from an existing hack that did +this for recursive subs in scalar context); and in something like +C<f(g())>, the temps created by the last statement in C<g()> would +formerly not be freed until the statement following the return from +C<f()>. + +=item * + +Most values that were saved on the savestack on scope entry are now +saved in suitable new fields in the context struct, and saved and +restored directly by C<cx_pushfoo()> and C<cx_popfoo()>, which is much +faster. + +=item * + +Various context struct fields have been added, removed or modified. + +=item * + +The handling of C<@_> in C<cx_pushsub()> and C<cx_popsub()> has been +considerably tidied up, including removing the C<argarray> field from the +context struct, and extracting out some common (but rarely used) code into +a separate function, C<clear_defarray()>. Also, useful subsets of +C<cx_popsub()> which had been unrolled in places like C<pp_goto> have been +gathered into the new functions C<cx_popsub_args()> and +C<cx_popsub_common()>. + +=item * + +C<pp_leavesub> and C<pp_leavesublv> now use the same function as the rest +of the C<pp_leave*>'s to process return args. + +=item * + +C<CXp_FOR_PAD> and C<CXp_FOR_GV> flags have been added, and +C<CXt_LOOP_FOR> has been split into C<CXt_LOOP_LIST>, C<CXt_LOOP_ARY>. + +=item * + +Some variables formerly declared by C<dMULTICALL> (but not documented) have +been removed. =back -=head1 Errata From Previous Releases +=item * -=over 4 +The obscure C<PL_timesbuf> variable, effectively a vestige of Perl 1, has +been removed. It was documented as deprecated in Perl 5.20, with a statement +that it would be removed early in the 5.21.x series; that has now finally +happened. +L<[perl #121351]|https://rt.perl.org/Ticket/Display.html?id=121351> + +=item * + +Remove unwarranted assertion in C<Perl_newATTRSUB_x()>. If a stub subroutine +definition with a prototype has been seen, then any subsequent stub (or +definition) of the same subroutine with an attribute was causing an assertion +failure because of a null pointer. +L<[perl #126845]|https://rt.perl.org/Ticket/Display.html?id=126845> + +=item * + +Replace C<::> with C<__> in C<ExtUtils::ParseXS> like it's done for +parameters/return values. This is more consistent, and simplifies writing XS +code wrapping C++ classes into a nested Perl namespace (it requires only +a typedef for C<Foo__Bar> rather than two, one for C<Foo_Bar> and the other +for C<Foo::Bar>). + +=item * + +Deprecate the C<to_utf8_case()> function, see +L<http://nntp.perl.org/group/perl.perl5.porters/233287>. + +=item * + +Perl core code and the threads extension have been annotated so that, +if Perl is configured to use threads, then during compile-time clang (3.6 +or later) will warn about suspicious uses of mutexes. +See L<http://clang.llvm.org/docs/ThreadSafetyAnalysis.html> for more +information. + +=item * + +The C<signbit()> emulation has been enhanced. This will help older +and/or more exotic platforms or configurations. =item * -XXX Add anything here that we forgot to add, or were mistaken about, in -the perldelta of a previous release. +The C<to_utf8_case> function is discouraged in favor of C<toUPPER_utf8>, +C<toTITLE_utf8>, C<toLOWER_utf8>, and C<toFOLD_utf8>. + +=item * + +EBCDIC code paths have largely been unified to avoid repetition. + +=item * + +MSWin32 code for C<$^X> has been moved out of the F<win32> directory to +F<caretx.c>, where other operating systems set that variable. + +=item * + +C<< sv_ref() >> is now part of the API. + +=item * + +L<perlapi/sv_backoff> had its return type changed from C<int> to C<void>. It +previously has always returned C<0> since Perl 5.000 stable but that was +undocumented. Although C<sv_backoff> is marked as public API, XS code is not +expected to be impacted since the proper API call would be through public API +C<sv_setsv(sv, &PL_sv_undef)>, or quasi-public C<SvOOK_off>, or non-public +C<SvOK_off> calls, and the return value of C<sv_backoff> was previously a +meaningless constant that can be rewritten as C<(sv_backoff(sv),0)>. + +=item * + +The C<EXTEND> and C<MEXTEND> macros have been improved to avoid various issues +with integer truncation and wrapping. In particular, some casts formerly used +within the macros have been removed. This means for example that passing an +unsigned nitems argument is likely to raise a compiler warning now (it's always +been documented to require a signed value; formerly int, lately SSize_t). + +=item * + +C<PL_sawalias> and C<GPf_ALIASED_SV> have been removed. + +=item * + +C<GvASSIGN_GENERATION> and C<GvASSIGN_GENERATION_set> have been removed. =back -=head1 Obituary +=head1 Selected Bug Fixes -XXX If any significant core contributor has died, we've added a short obituary -here. +=over 4 -=head1 Acknowledgements +=item * + +It now works properly to specify a user-defined property, such as + + qr/\p{mypkg1::IsMyProperty}/i + +with C</i> caseless matching, an explicit package name, and +I<IsMyProperty> not defined at the time of the pattern compilation. + +=item * + +Perl's memcpy(), memmove(), memset() and memcmp() fallbacks are now +more compatible with the originals. [perl #127619] + +=item * + +Fixed the issue where a C<< s///r >>) with B<< -DPERL_NO_COW >> attempts +to modify the source SV, resulting in the program dying. [perl #127635] + +=item * + +Fixed a spurious warning about posix character classes. [perl #127581] + +=item * + +Fixed an obscure case where a pattern could fail to match. This only +occurred when matching characters from the set of C1 controls, when +the target matched string was in UTF-8, and only on EBCDIC platforms. + +=item * + +Fixed over eager warnings for C<< /[.foo.]/ >>. + +This prevents Perl from warning about constructs like C<< /[.].*[.]/ >>. +[perl #127582, #127604] + +=item * + +Narrow the filename check in F<strict.pm> and F<warnings.pm>. Previously, +it assumed that if the filename (without the F<.pmc?> extension) differed +from the package name, if was a misspelled use statement (i.e. C<use Strict> +instead of C<use strict>). We now check whether there's really a +miscapitalization happening, and not another issue. + +=item * + +Turn an assertion into a more user friendly failure when parsing +regexes. [perl #127599] + +=item * + +Correctly raise an error when trying to compile patterns with +unterminated character classes while there are trailing backslashes. +[perl #126141]. + +=item * + +Line numbers larger than 2**31-1 but less than 2**32 are no longer +returned by caller() as negative numbers. [perl #126991] + +=item * + +C<< unless ( I<assignment> ) >> now properly warns when syntax +warnings are enabled. [perl #127122] + +=item * + +Setting an C<ISA> glob to an array reference now properly adds +C<isaelem> magic to any existing elements. Previously modifying such +an element would not update the ISA cache, so method calls would call +the wrong function. Perl would also crash if the C<ISA> glob was +destroyed, since new code added in 5.23.7 would try to release the +C<isaelem> magic from the elements. [perl #127351] + +=item * + +If a here-doc was found while parsing another operator, the parser had +already read end of file, and the here-doc was not terminated, perl +could produce an assertion or a segmentation fault. This now reliably +complains about the unterminated here-doc. [perl #125540] + +=item * + +untie() would sometimes return the last value returned by the UNTIE() +handler as well as it's normal value, messing up the stack. [perl +#126621] + +=item * + +Fixed an operator precedence problem when C< castflags & 2> is true. +[perl #127474] + +=item * + +Caching of DESTROY methods could result in a non-pointer or a +non-STASH stored in the SvSTASH() slot of a stash, breaking the B +STASH() method. The DESTROY method is now cached in the MRO metadata +for the stash. [perl #126410] + +=item * + +The AUTOLOAD method is now called when searching for a DESTROY method, +and correctly sets C<$AUTOLOAD> too. [perl #124387] [perl #127494] + +=item * + +Avoid parsing beyond the end of the buffer when processing a C<#line> +directive with no filename. [perl #127334] + +=item * + +Perl now raises a warning when a regular expression pattern looks like +it was supposed to contain a POSIX class, like C<qr/[[:alpha:]]/>, but +there was some slight defect in its specification which causes it to +instead be treated as a regular bracketed character class. An example +would be missing the second colon in the above like this: +C<qr/[[:alpha]]/>. This compiles to match a sequence of two characters. +The second is C<"]">, and the first is any of: C<"[">, C<":">, C<"a">, +C<"h">, C<"l">, or C<"p">. This is unlikely to be the intended +meaning, and now a warning is raised. No warning is raised unless the +specification is very close to one of the 14 legal POSIX classes. (See +L<perlrecharclass/POSIX Character Classes>.) +[perl #8904] + +=item * + +Certain regex patterns involving a complemented POSIX class in an +inverted bracketed character class, and matching something else +optionally would improperly fail to match. An example of one that could +fail is C</qr/_?[^\Wbar]\x{100}/>. This has been fixed. +[perl #127537] + +=item * + +Perl 5.22 added support to the C99 hexadecimal floating point notation, +but sometimes misparses hex floats. This has been fixed. +[perl #127183] + +=item * + +A regression that allowed undeclared barewords in hash keys to work despite +strictures has been fixed. +L<[perl #126981]|https://rt.perl.org/Ticket/Display.html?id=126981> + +=item * + +Calls to the placeholder C<&PL_sv_yes> used internally when an C<import()> +or C<unimport()> method isn't found now correctly handle scalar context. +L<[perl #126042]|https://rt.perl.org/Ticket/Display.html?id=126042> + +=item * + +Report more context when we see an array where we expect to see an +operator and avoid an assertion failure. +L<[perl #123737]|https://rt.perl.org/Ticket/Display.html?id=123737> + +=item * + +Modifying an array that was previously a package C<@ISA> no longer +causes assertion failures or crashes. +L<[perl #123788]|https://rt.perl.org/Ticket/Display.html?id=123788> + +=item * + +Retain binary compatibility across plain and DEBUGGING perl builds. +L<[perl #127212]|https://rt.perl.org/Ticket/Display.html?id=127212> + +=item * + +Avoid leaking memory when setting C<$ENV{foo}> on darwin. +L<[perl #126240]|https://rt.perl.org/Ticket/Display.html?id=126240> + +=item * + +C</...\G/> no longer crashes on utf8 strings. When C<\G> is a fixed number +of characters from the start of the regex, perl needs to count back that +many characters from the current C<pos()> position and start matching from +there. However, it was counting back bytes rather than characters, which +could lead to panics on utf8 strings. + +=item * + +In some cases operators that return integers would return negative +integers as large positive integers. +L<[perl #126635]|https://rt.perl.org/Ticket/Display.html?id=126635> + +=item * + +The C<pipe()> operator would assert for DEBUGGING builds instead of +producing the correct error message. The condition asserted on is +detected and reported on correctly without the assertions, so the +assertions were removed. +L<[perl #126480]|https://rt.perl.org/Ticket/Display.html?id=126480> + +=item * + +In some cases, failing to parse a here-doc would attempt to use freed +memory. This was caused by a pointer not being restored correctly. +L<[perl #126443]|https://rt.perl.org/Ticket/Display.html?id=126443> + +=item * + +C<< @x = sort { *a = 0; $a <=> $b } 0 .. 1 >> no longer frees the GP +for *a before restoring its SV slot. +L<[perl #124097]|https://rt.perl.org/Ticket/Display.html?id=124097> + +=item * + +Multiple problems with the new hexadecimal floating point printf +format C<%a> were fixed: +L<[perl #126582]|https://rt.perl.org/Ticket/Display.html?id=126582>, +L<[perl #126586]|https://rt.perl.org/Ticket/Display.html?id=126586>, +L<[perl #126822]|https://rt.perl.org/Ticket/Display.html?id=126822> + +=item * + +Calling mg_set() in leave_scope() no longer leaks. + +=item * + +A regression from Perl v5.20 was fixed in which debugging output of regular +expression compilation was wrong. (The pattern was correctly compiled, but +what got displayed for it was wrong.) + +=item * + +C<\b{sb}> works much better. In Perl v5.22.0, this new construct didn't +seem to give the expected results, yet passed all the tests in the +extensive suite furnished by Unicode. It turns out that it was because +these were short input strings, and the failures had to do with longer +inputs. This was fixed in Perl 5.23.4, but the improvement was not +noticed until after that was released, so is included here now. + +=item * + +Certain syntax errors in +L<perlrecharclass/Extended Bracketed Character Classes> caused panics +instead of the proper error message. This has now been fixed. [perl +#126481] + +=item * + +An earlier commit added a message when a quantifier in a regular +expression was useless, but then caused the parser to skip it; +this caused the surplus quantifier to be silently ignored, instead +of throwing an error. This is now fixed. [perl #126253] + +=item * -XXX Generate this with: +The switch to building non-XS modules last in win32/makefile.mk (introduced +by design as part of the changes to enable parallel building) caused the +build of POSIX to break due to problems with the version module. This +is now fixed. + +=item * + +Improved parsing of hex float constants. + +=item * + +Fixed an issue with C<< pack >> where C<< pack "H" >> (and C<< pack "h" >>) +could read past the source when given a non-utf8 source, and a utf8 target. +[perl #126325] + +=item * + +Fixed several cases where perl would abort due to a segmentation fault, +or a C-level assert. [perl #126615], [perl #126602], [perl #126193]. + +=item * + +There were places in regular expression patterns where comments (C<(?#...)>) +weren't allowed, but should have been. This is now fixed. +L<[perl #116639]|https://rt.perl.org/Ticket/Display.html?id=116639> + +=item * + +Some regressions from Perl 5.20 have been fixed, in which some syntax errors in +L<C<(?[...])>|perlrecharclass/Extended Bracketed Character Classes> constructs +within regular expression patterns could cause a segfault instead of a proper +error message. +L<[perl #126180]|https://rt.perl.org/Ticket/Display.html?id=126180> +L<[perl #126404]|https://rt.perl.org/Ticket/Display.html?id=126404> + +=item * + +Another problem with +L<C<(?[...])>|perlrecharclass/Extended Bracketed Character Classes> +constructs has been fixed wherein things like C<\c]> could cause panics. +L<[perl #126181]|https://rt.perl.org/Ticket/Display.html?id=126181> + +=item * + +Some problems with attempting to extend the perl stack to around 2G or 4G +entries have been fixed. This was particularly an issue on 32-bit perls built +to use 64-bit integers, and was easily noticeable with the list repetition +operator, e.g. + + @a = (1) x $big_number + +Formerly perl may have crashed, depending on the exact value of C<$big_number>; +now it will typically raise an exception. +L<[perl #125937]|https://rt.perl.org/Ticket/Display.html?id=125937> + +=item * + +In a regex conditional expression C<(?(condition)yes-pattern|no-pattern)>, if +the condition is C<(?!)> then perl failed the match outright instead of +matching the no-pattern. This has been fixed. +L<[perl #126222]|https://rt.perl.org/Ticket/Display.html?id=126222> + +=item * + +The special backtracking control verbs C<(*VERB:ARG)> now all allow an optional +argument and set C<REGERROR>/C<REGMARK> appropriately as well. +L<[perl #126186]|https://rt.perl.org/Ticket/Display.html?id=126186> + +=item * + +Several bugs, including a segmentation fault, have been fixed with the bounds +checking constructs (introduced in Perl 5.22) C<\b{gcb}>, C<\b{sb}>, C<\b{wb}>, +C<\B{gcb}>, C<\B{sb}>, and C<\B{wb}>. All the C<\B{}> ones now match an empty +string; none of the C<\b{}> ones do. +L<[perl #126319]|https://rt.perl.org/Ticket/Display.html?id=126319> + +=item * + +Duplicating a closed file handle for write no longer creates a +filename of the form F<GLOB(0xXXXXXXXX)>. [perl #125115] + +=item * + +Warning fatality is now ignored when rewinding the stack. This +prevents infinite recursion when the now fatal error also causes +rewinding of the stack. [perl #123398] + +=item * + +In perl v5.22.0, the logic changed when parsing a numeric parameter to the -C +option, such that the successfully parsed number was not saved as the option +value if it parsed to the end of the argument. [perl #125381] + +=item * + +The PadlistNAMES macro is an lvalue again. + +=item * + +Zero -DPERL_TRACE_OPS memory for sub-threads. + +perl_clone_using() was missing Zero init of PL_op_exec_cnt[]. This +caused sub-threads in threaded -DPERL_TRACE_OPS builds to spew exceedingly +large op-counts at destruct. These counts would print %x as "ABABABAB", +clearly a mem-poison value. + +=item * + +A leak in the XS typemap caused one scalar to be leaked each time a C<FILE *> +or a C<PerlIO *> was C<OUTPUT:>ed or imported to Perl, since perl 5.000. These +particular typemap entries are thought to be extremely rarely used by XS +modules. [perl #124181] + +=item * + +C<alarm()> and C<sleep()> will now warn if the argument is a negative number +and return undef. Previously they would pass the negative value to the +underlying C function which may have set up a timer with a surprising value. + +=item * + +Perl can again be compiled with any Unicode version. This used to +(mostly) work, but was lost in v5.18 through v5.20. The property +C<Name_Alias> did not exist prior to Unicode 5.0. L<Unicode::UCD> +incorrectly said it did. This has been fixed. + +=item * + +Very large code-points (beyond Unicode) in regular expressions no +longer cause a buffer overflow in some cases when converted to UTF-8. +L<[perl #125826]|https://rt.perl.org/Ticket/Display.html?id=125826> + +=item * + +The integer overflow check for the range operator (...) in list +context now correctly handles the case where the size of the range is +larger than the address space. This could happen on 32-bits with +-Duse64bitint. +L<[perl #125781]|https://rt.perl.org/Ticket/Display.html?id=125781> + +=item * + +A crash with C<< %::=(); J->${\"::"} >> has been fixed. +L<[perl #125541]|https://rt.perl.org/Ticket/Display.html?id=125541> + +=item * + +C<qr/(?[ () ])/> no longer segfaults, giving a syntax error message instead. +[perl #125805] + +=item * + +Regular expression possessive quantifier v5.20 regression now fixed. +C<qr/>I<PAT>C<{>I<min>,I<max>C<}+>C</> is supposed to behave identically +to C<qr/(?E<gt>>I<PAT>C<{>I<min>,I<max>C<})/>. Since v5.20, this didn't +work if I<min> and I<max> were equal. [perl #125825] + +=item * + +C<< BEGIN <> >> no longer segfaults and properly produces an error +message. [perl #125341] + +=item * + +In C<tr///> an illegal backwards range like C<tr/\x{101}-\x{100}//> was +not always detected, giving incorrect results. This is now fixed. + +=back + +=head1 Acknowledgements - perl Porting/acknowledgements.pl v5.23.9..HEAD +[ XXX: generate this just in time, Ricardo! ] =head1 Reporting Bugs If you find what you think is a bug, you might check the articles recently posted to the comp.lang.perl.misc newsgroup and the perl bug database at -L<https://rt.perl.org/> . There may also be information at -L<http://www.perl.org/> , the Perl Home Page. +https://rt.perl.org/ . There may also be information at +http://www.perl.org/ , the Perl Home Page. If you believe you have an unreported bug, please run the L<perlbug> program included with your release. Be sure to trim your bug down to a tiny but diff --git a/pod/perlhist.pod b/pod/perlhist.pod index a68885900e..9c2befb440 100644 --- a/pod/perlhist.pod +++ b/pod/perlhist.pod @@ -565,6 +565,7 @@ the strings?). Steve 5.22.1-RC3 2015-Dec-02 Steve 5.22.1-RC4 2015-Dec-08 Steve 5.22.1 2015-Dec-13 + Steve 5.22.2-RC1 2016-Apr-10 Ricardo 5.23.0 2015-Jun-20 The 5.23 development track Matthew 5.23.1 2015-Jul-20 diff --git a/symbian/symbianish.h b/symbian/symbianish.h index da5332c27a..80c580b16a 100644 --- a/symbian/symbianish.h +++ b/symbian/symbianish.h @@ -120,8 +120,10 @@ #define Mkdir(path,mode) mkdir((path),(mode)) #ifndef PERL_SYS_TERM_BODY -#define PERL_SYS_TERM_BODY() HINTS_REFCNT_TERM; OP_REFCNT_TERM; \ - PERLIO_TERM; MALLOC_TERM; CloseSTDLIB(); +#define PERL_SYS_TERM_BODY() HINTS_REFCNT_TERM; OP_REFCNT_TERM; \ + PERLIO_TERM; MALLOC_TERM; CloseSTDLIB(); \ + PERL_LOCALE_TERM + #endif #define BIT_BUCKET "NUL:" diff --git a/t/re/pat.t b/t/re/pat.t index 906ffc8686..295a9f7138 100644 --- a/t/re/pat.t +++ b/t/re/pat.t @@ -23,7 +23,7 @@ BEGIN { skip_all_without_unicode_tables(); } -plan tests => 790; # Update this when adding/deleting tests. +plan tests => 789; # Update this when adding/deleting tests. run_tests() unless caller; @@ -1758,17 +1758,6 @@ EOP fresh_perl_is($code, $expect, {}, "$bug - $test_name" ); } } - { - # [perl #127855] Slowdown in m//g on COW strings of certain lengths - my $elapsed= -time; - my $len= 4e6; - my $zeros= 10000; - my $str= ( "0" x $zeros ) . ( "1" x ( $len - $zeros ) ); - my $substr= substr( $str, 1 ); - 1 while $substr=~m/0/g; - $elapsed += time; - ok( $elapsed < 1, "should not COW on long string with substr and m//g"); - } } # End of sub run_tests 1; diff --git a/t/re/speed.t b/t/re/speed.t index 28d4dbbe0e..648f2e9b74 100644 --- a/t/re/speed.t +++ b/t/re/speed.t @@ -23,7 +23,7 @@ BEGIN { skip_all_without_unicode_tables(); } -plan tests => 57; #** update watchdog timeouts proportionally when adding tests +plan tests => 58; #** update watchdog timeouts proportionally when adding tests use strict; use warnings; @@ -140,6 +140,20 @@ PROG } } + { + # [perl #127855] Slowdown in m//g on COW strings of certain lengths + # this should take milliseconds, but took 10's of seconds. + my $elapsed= -time; + my $len= 4e6; + my $zeros= 40000; + my $str= ( "0" x $zeros ) . ( "1" x ( $len - $zeros ) ); + my $substr= substr( $str, 1 ); + 1 while $substr=~m/0/g; + $elapsed += time; + ok( $elapsed <= 1, "should not COW on long string with substr and m//g"); + } + + } # End of sub run_tests 1; @@ -915,8 +915,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 "/usr/local/lib/perl5/5.23/unknown" / **/ -/*#define ARCHLIB_EXP "/usr/local/lib/perl5/5.23/unknown" / **/ +/*#define ARCHLIB "/usr/local/lib/perl5/5.24/unknown" / **/ +/*#define ARCHLIB_EXP "/usr/local/lib/perl5/5.24/unknown" / **/ /* ARCHNAME: * This symbol holds a string representing the architecture name. @@ -3088,8 +3088,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 "/usr/local/lib/perl5/5.23" /**/ -#define PRIVLIB_EXP "/usr/local/lib/perl5/5.23" /**/ +#define PRIVLIB "/usr/local/lib/perl5/5.24" /**/ +#define PRIVLIB_EXP "/usr/local/lib/perl5/5.24" /**/ /* CAN_PROTOTYPE: * If defined, this macro indicates that the C compiler can handle @@ -3232,8 +3232,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 "/usr/local/lib/perl5/5.23/unknown" / **/ -/*#define SITEARCH_EXP "/usr/local/lib/perl5/5.23/unknown" / **/ +/*#define SITEARCH "/usr/local/lib/perl5/5.24/unknown" / **/ +/*#define SITEARCH_EXP "/usr/local/lib/perl5/5.24/unknown" / **/ /* SITELIB: * This symbol contains the name of the private library for this package. @@ -3255,8 +3255,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 "/usr/local/lib/perl5/5.23" /**/ -#define SITELIB_EXP "/usr/local/lib/perl5/5.23" /**/ +#define SITELIB "/usr/local/lib/perl5/5.24" /**/ +#define SITELIB_EXP "/usr/local/lib/perl5/5.24" /**/ #define SITELIB_STEM "/usr/local/lib/perl5" /**/ /* Size_t_size: @@ -5249,5 +5249,5 @@ /* Generated from: * dc6a0dd949dd1c707248914e2fdada06beb0e6193be5e94cb1423c6f050e65c3 config_h.SH - * ea0c70d2693a5911f8c16818794db0e782e9c4b40b9688a200dea7bcfcdfd820 uconfig.sh + * fc611849cb5b1e14ec1687b255dac15414cc5e2e11b192d94e08136cfe277f75 uconfig.sh * ex: set ro: */ diff --git a/uconfig.sh b/uconfig.sh index d0cb2de80d..93a2ee362b 100644 --- a/uconfig.sh +++ b/uconfig.sh @@ -6,8 +6,8 @@ afs='false' afsroot='/afs' alignbytes='4' aphostname='/bin/hostname' -archlib='/usr/local/lib/perl5/5.23/unknown' -archlibexp='/usr/local/lib/perl5/5.23/unknown' +archlib='/usr/local/lib/perl5/5.24/unknown' +archlibexp='/usr/local/lib/perl5/5.24/unknown' archname='unknown' asctime_r_proto='0' bin='/usr/local/bin' @@ -764,8 +764,8 @@ package='perl5' perl_static_inline='static' phostname='hostname' pidtype=int -privlib='/usr/local/lib/perl5/5.23' -privlibexp='/usr/local/lib/perl5/5.23' +privlib='/usr/local/lib/perl5/5.24' +privlibexp='/usr/local/lib/perl5/5.24' procselfexe='' prototype='undef' ptrsize='4' @@ -815,11 +815,11 @@ sig_name_init='0' sig_num_init='0' sig_size='1' signal_t=int -sitearch='/usr/local/lib/perl5/5.23/unknown' -sitearchexp='/usr/local/lib/perl5/5.23/unknown' -sitelib='/usr/local/lib/perl5/5.23' +sitearch='/usr/local/lib/perl5/5.24/unknown' +sitearchexp='/usr/local/lib/perl5/5.24/unknown' +sitelib='/usr/local/lib/perl5/5.24' sitelib_stem='/usr/local/lib/perl5' -sitelibexp='/usr/local/lib/perl5/5.23' +sitelibexp='/usr/local/lib/perl5/5.24' sizesize=4 sizetype='size_t' socksizetype='int' diff --git a/uconfig64.sh b/uconfig64.sh index 218e92d098..0b121472af 100644 --- a/uconfig64.sh +++ b/uconfig64.sh @@ -7,8 +7,8 @@ afsroot='/afs' alignbytes='8' ansi2knr='' aphostname='/bin/hostname' -archlib='/usr/local/lib/perl5/5.23/unknown' -archlibexp='/usr/local/lib/perl5/5.23/unknown' +archlib='/usr/local/lib/perl5/5.24/unknown' +archlibexp='/usr/local/lib/perl5/5.24/unknown' archname='unknown64' asctime_r_proto='0' bin='/usr/local/bin' @@ -765,8 +765,8 @@ package='perl5' perl_static_inline='static' phostname='hostname' pidtype=int -privlib='/usr/local/lib/perl5/5.23' -privlibexp='/usr/local/lib/perl5/5.23' +privlib='/usr/local/lib/perl5/5.24' +privlibexp='/usr/local/lib/perl5/5.24' procselfexe='' prototype='undef' ptrsize='8' @@ -816,11 +816,11 @@ sig_name_init='0' sig_num_init='0' sig_size='1' signal_t=int -sitearch='/usr/local/lib/perl5/5.23/unknown' -sitearchexp='/usr/local/lib/perl5/5.23/unknown' -sitelib='/usr/local/lib/perl5/5.23' +sitearch='/usr/local/lib/perl5/5.24/unknown' +sitearchexp='/usr/local/lib/perl5/5.24/unknown' +sitelib='/usr/local/lib/perl5/5.24' sitelib_stem='/usr/local/lib/perl5' -sitelibexp='/usr/local/lib/perl5/5.23' +sitelibexp='/usr/local/lib/perl5/5.24' sizesize=4 sizetype='size_t' socksizetype='int' @@ -138,9 +138,10 @@ int afstat(int fd, struct stat *statb); #if defined(__amigaos4__) # define PERL_SYS_INIT_BODY(c,v) \ MALLOC_CHECK_TAINT2(*c,*v) PERL_FPU_INIT; PERLIO_INIT; MALLOC_INIT; amigaos4_init_fork_array(); amigaos4_init_environ_sema(); -# define PERL_SYS_TERM_BODY() \ - HINTS_REFCNT_TERM; OP_CHECK_MUTEX_TERM; \ - OP_REFCNT_TERM; PERLIO_TERM; MALLOC_TERM; amigaos4_dispose_fork_array(); +# define PERL_SYS_TERM_BODY() \ + HINTS_REFCNT_TERM; OP_CHECK_MUTEX_TERM; \ + OP_REFCNT_TERM; PERLIO_TERM; MALLOC_TERM; LOCALE_TERM; \ + amigaos4_dispose_fork_array(); #endif #ifndef PERL_SYS_INIT_BODY @@ -149,9 +150,10 @@ int afstat(int fd, struct stat *statb); #endif #ifndef PERL_SYS_TERM_BODY -# define PERL_SYS_TERM_BODY() \ - HINTS_REFCNT_TERM; OP_CHECK_MUTEX_TERM; \ - OP_REFCNT_TERM; PERLIO_TERM; MALLOC_TERM; +# define PERL_SYS_TERM_BODY() \ + HINTS_REFCNT_TERM; OP_CHECK_MUTEX_TERM; \ + OP_REFCNT_TERM; PERLIO_TERM; MALLOC_TERM; \ + LOCALE_TERM; #endif diff --git a/vms/descrip_mms.template b/vms/descrip_mms.template index 9018386b54..620eec98f5 100644 --- a/vms/descrip_mms.template +++ b/vms/descrip_mms.template @@ -307,7 +307,7 @@ utils : $(utils1) $(utils2) $(utils3) $(utils4) $(utils5) extra.pods : miniperl @ @extra_pods.com -PERLDELTA_CURRENT = [.pod]perl52310delta.pod +PERLDELTA_CURRENT = [.pod]perl5240delta.pod $(PERLDELTA_CURRENT) : [.pod]perldelta.pod Copy/NoConfirm/Log $(MMS$SOURCE) $(PERLDELTA_CURRENT) diff --git a/vms/vmsish.h b/vms/vmsish.h index cf1c9a8552..1aea82944c 100644 --- a/vms/vmsish.h +++ b/vms/vmsish.h @@ -315,7 +315,8 @@ struct interp_intern { #define BIT_BUCKET "/dev/null" #define PERL_SYS_INIT_BODY(c,v) MALLOC_CHECK_TAINT2(*c,*v) vms_image_init((c),(v)); PERLIO_INIT; MALLOC_INIT -#define PERL_SYS_TERM_BODY() HINTS_REFCNT_TERM; OP_REFCNT_TERM; PERLIO_TERM; MALLOC_TERM +#define PERL_SYS_TERM_BODY() HINTS_REFCNT_TERM; OP_REFCNT_TERM; \ + PERLIO_TERM; MALLOC_TERM; LOCALE_TERM #define dXSUB_SYS #define HAS_KILL #define HAS_WAIT diff --git a/win32/GNUmakefile b/win32/GNUmakefile index b447eb3f6c..05d811e158 100644 --- a/win32/GNUmakefile +++ b/win32/GNUmakefile @@ -6,7 +6,7 @@ # Windows SDK 64-bit compiler and tools # # This is set up to build a perl.exe that runs off a shared library -# (perl523.dll). Also makes individual DLLs for the XS extensions. +# (perl524.dll). Also makes individual DLLs for the XS extensions. # # The easiest way to customize the build process is to use parameters like this: # @@ -67,7 +67,7 @@ INST_TOP := $(INST_DRV)\perl # versioned installation can be obtained by setting INST_TOP above to a # path that includes an arbitrary version string. # -#INST_VER := \5.23.10 +#INST_VER := \5.24.0 # # Comment this out if you DON'T want your perl installation to have @@ -221,7 +221,7 @@ CCTYPE := GCC # set this to additionally provide a statically linked perl-static.exe. # Note that dynamic loading will not work with this perl, so you must # include required modules statically using the STATIC_EXT or ALL_STATIC -# variables below. A static library perl523s.lib will also be created. +# variables below. A static library perl524s.lib will also be created. # Ordinary perl.exe is not affected by this option. # #BUILD_STATIC := define @@ -860,9 +860,9 @@ ifeq ($(CCTYPE),GCC) CFGSH_TMPL = config.gc CFGH_TMPL = config_H.gc -PERLIMPLIB = $(COREDIR)\libperl523$(a) -PERLIMPLIBBASE = libperl523$(a) -PERLSTATICLIB = ..\libperl523s$(a) +PERLIMPLIB = $(COREDIR)\libperl524$(a) +PERLIMPLIBBASE = libperl524$(a) +PERLSTATICLIB = ..\libperl524s$(a) INT64 = long long else @@ -875,11 +875,11 @@ endif # makedef.pl must be updated if this changes, and this should normally # only change when there is an incompatible revision of the public API. -PERLIMPLIB ?= $(COREDIR)\perl523$(a) -PERLIMPLIBBASE ?= perl523$(a) -PERLEXPLIB ?= $(COREDIR)\perl523.exp -PERLSTATICLIB ?= ..\perl523s$(a) -PERLDLL = ..\perl523.dll +PERLIMPLIB ?= $(COREDIR)\perl524$(a) +PERLIMPLIBBASE ?= perl524$(a) +PERLEXPLIB ?= $(COREDIR)\perl524.exp +PERLSTATICLIB ?= ..\perl524s$(a) +PERLDLL = ..\perl524.dll # don't let "gmake -n all" try to run "miniperl.exe make_ext.pl" PLMAKE = gmake @@ -1544,7 +1544,7 @@ utils: $(HAVEMINIPERL) ..\utils\Makefile copy ..\README.tw ..\pod\perltw.pod copy ..\README.vos ..\pod\perlvos.pod copy ..\README.win32 ..\pod\perlwin32.pod - copy ..\pod\perldelta.pod ..\pod\perl52310delta.pod + copy ..\pod\perldelta.pod ..\pod\perl5240delta.pod $(MINIPERL) -I..\lib $(PL2BAT) $(UTILS) $(MINIPERL) -I..\lib ..\autodoc.pl .. $(MINIPERL) -I..\lib ..\pod\perlmodlib.PL -q .. @@ -1640,7 +1640,7 @@ distclean: realclean -if exist $(LIBDIR)\Win32API rmdir /s /q $(LIBDIR)\Win32API -if exist $(LIBDIR)\XS rmdir /s /q $(LIBDIR)\XS -cd $(PODDIR) && del /f *.html *.bat roffitall \ - perl52310delta.pod perlaix.pod perlamiga.pod perlandroid.pod \ + perl5240delta.pod perlaix.pod perlamiga.pod perlandroid.pod \ perlapi.pod perlbs2000.pod perlce.pod perlcn.pod perlcygwin.pod \ perldos.pod perlfreebsd.pod perlhaiku.pod perlhpux.pod \ perlhurd.pod perlintern.pod perlirix.pod perljp.pod perlko.pod \ diff --git a/win32/Makefile b/win32/Makefile index 6ebdde784d..9594c4ded0 100644 --- a/win32/Makefile +++ b/win32/Makefile @@ -5,7 +5,7 @@ # Windows SDK 64-bit compiler and tools # # This is set up to build a perl.exe that runs off a shared library -# (perl523.dll). Also makes individual DLLs for the XS extensions. +# (perl524.dll). Also makes individual DLLs for the XS extensions. # ## @@ -38,7 +38,7 @@ INST_TOP = $(INST_DRV)\perl # versioned installation can be obtained by setting INST_TOP above to a # path that includes an arbitrary version string. # -#INST_VER = \5.23.10 +#INST_VER = \5.24.0 # # Comment this out if you DON'T want your perl installation to have @@ -192,7 +192,7 @@ CCTYPE = MSVC60 # set this to additionally provide a statically linked perl-static.exe. # Note that dynamic loading will not work with this perl, so you must # include required modules statically using the STATIC_EXT or ALL_STATIC -# variables below. A static library perl523s.lib will also be created. +# variables below. A static library perl524s.lib will also be created. # Ordinary perl.exe is not affected by this option. # #BUILD_STATIC = define @@ -630,9 +630,9 @@ $(o).dll: # makedef.pl must be updated if this changes, and this should normally # only change when there is an incompatible revision of the public API. -PERLIMPLIB = ..\perl523.lib -PERLSTATICLIB = ..\perl523s.lib -PERLDLL = ..\perl523.dll +PERLIMPLIB = ..\perl524.lib +PERLSTATICLIB = ..\perl524s.lib +PERLDLL = ..\perl524.dll MINIPERL = ..\miniperl.exe MINIDIR = .\mini @@ -1215,7 +1215,7 @@ utils: $(PERLEXE) ..\utils\Makefile copy ..\README.tw ..\pod\perltw.pod copy ..\README.vos ..\pod\perlvos.pod copy ..\README.win32 ..\pod\perlwin32.pod - copy ..\pod\perldelta.pod ..\pod\perl52310delta.pod + copy ..\pod\perldelta.pod ..\pod\perl5240delta.pod cd ..\win32 $(PERLEXE) $(PL2BAT) $(UTILS) $(MINIPERL) -I..\lib ..\autodoc.pl .. @@ -1313,7 +1313,7 @@ distclean: realclean -if exist $(LIBDIR)\Win32API rmdir /s /q $(LIBDIR)\Win32API -if exist $(LIBDIR)\XS rmdir /s /q $(LIBDIR)\XS -cd $(PODDIR) && del /f *.html *.bat roffitall \ - perl52310delta.pod perlaix.pod perlamiga.pod perlandroid.pod \ + perl5240delta.pod perlaix.pod perlamiga.pod perlandroid.pod \ perlapi.pod perlbs2000.pod perlce.pod perlcn.pod perlcygwin.pod \ perldos.pod perlfreebsd.pod perlhaiku.pod perlhpux.pod \ perlhurd.pod perlintern.pod perlirix.pod perljp.pod perlko.pod \ diff --git a/win32/Makefile.ce b/win32/Makefile.ce index b9a979cd5c..1886be2f14 100644 --- a/win32/Makefile.ce +++ b/win32/Makefile.ce @@ -5,7 +5,7 @@ # SRCDIR = .. -PV = 523 +PV = 524 # INSTALL_ROOT specifies a path where this perl will be installed on CE device INSTALL_ROOT=/netzwerk/sprache/perl diff --git a/win32/makefile.mk b/win32/makefile.mk index 4165a13020..8b9a29d0e8 100644 --- a/win32/makefile.mk +++ b/win32/makefile.mk @@ -6,7 +6,7 @@ # Windows SDK 64-bit compiler and tools # # This is set up to build a perl.exe that runs off a shared library -# (perl523.dll). Also makes individual DLLs for the XS extensions. +# (perl524.dll). Also makes individual DLLs for the XS extensions. # ## @@ -44,7 +44,7 @@ INST_TOP *= $(INST_DRV)\perl # versioned installation can be obtained by setting INST_TOP above to a # path that includes an arbitrary version string. # -#INST_VER *= \5.23.10 +#INST_VER *= \5.24.0 # # Comment this out if you DON'T want your perl installation to have @@ -212,7 +212,7 @@ CCTYPE *= GCC # set this to additionally provide a statically linked perl-static.exe. # Note that dynamic loading will not work with this perl, so you must # include required modules statically using the STATIC_EXT or ALL_STATIC -# variables below. A static library perl523s.lib will also be created. +# variables below. A static library perl524s.lib will also be created. # Ordinary perl.exe is not affected by this option. # #BUILD_STATIC *= define @@ -846,8 +846,8 @@ UTILS = \ CFGSH_TMPL = config.gc CFGH_TMPL = config_H.gc -PERLIMPLIB = $(COREDIR)\libperl523$(a) -PERLSTATICLIB = ..\libperl523s$(a) +PERLIMPLIB = $(COREDIR)\libperl524$(a) +PERLSTATICLIB = ..\libperl524s$(a) INT64 = long long .ELSE @@ -860,10 +860,10 @@ INT64 = __int64 # makedef.pl must be updated if this changes, and this should normally # only change when there is an incompatible revision of the public API. -PERLIMPLIB *= $(COREDIR)\perl523$(a) -PERLEXPLIB *= $(COREDIR)\perl523.exp -PERLSTATICLIB *= ..\perl523s$(a) -PERLDLL = ..\perl523.dll +PERLIMPLIB *= $(COREDIR)\perl524$(a) +PERLEXPLIB *= $(COREDIR)\perl524.exp +PERLSTATICLIB *= ..\perl524s$(a) +PERLDLL = ..\perl524.dll #EUMM on Win32 isn't ready for parallel make, so only allow this file to be parallel #$(MAKE) will contain the -P that this makefile was called with, which is bad for @@ -1511,7 +1511,7 @@ utils: $(HAVEMINIPERL) ..\utils\Makefile copy ..\README.tw ..\pod\perltw.pod copy ..\README.vos ..\pod\perlvos.pod copy ..\README.win32 ..\pod\perlwin32.pod - copy ..\pod\perldelta.pod ..\pod\perl52310delta.pod + copy ..\pod\perldelta.pod ..\pod\perl5240delta.pod $(MINIPERL) -I..\lib $(PL2BAT) $(UTILS) $(MINIPERL) -I..\lib ..\autodoc.pl .. $(MINIPERL) -I..\lib ..\pod\perlmodlib.PL -q .. @@ -1608,7 +1608,7 @@ distclean: realclean -if exist $(LIBDIR)\Win32API rmdir /s /q $(LIBDIR)\Win32API -if exist $(LIBDIR)\XS rmdir /s /q $(LIBDIR)\XS -cd $(PODDIR) && del /f *.html *.bat roffitall \ - perl52310delta.pod perlaix.pod perlamiga.pod perlandroid.pod \ + perl5240delta.pod perlaix.pod perlamiga.pod perlandroid.pod \ perlapi.pod perlbs2000.pod perlce.pod perlcn.pod perlcygwin.pod \ perldos.pod perlfreebsd.pod perlhaiku.pod perlhpux.pod \ perlhurd.pod perlintern.pod perlirix.pod perljp.pod perlko.pod \ diff --git a/win32/pod.mak b/win32/pod.mak index 6719bc2709..deb273bf12 100644 --- a/win32/pod.mak +++ b/win32/pod.mak @@ -43,7 +43,6 @@ POD = perl.pod \ perl5220delta.pod \ perl5221delta.pod \ perl5230delta.pod \ - perl52310delta.pod \ perl5231delta.pod \ perl5232delta.pod \ perl5233delta.pod \ @@ -53,6 +52,7 @@ POD = perl.pod \ perl5237delta.pod \ perl5238delta.pod \ perl5239delta.pod \ + perl5240delta.pod \ perl561delta.pod \ perl56delta.pod \ perl581delta.pod \ @@ -190,7 +190,6 @@ MAN = perl.man \ perl5220delta.man \ perl5221delta.man \ perl5230delta.man \ - perl52310delta.man \ perl5231delta.man \ perl5232delta.man \ perl5233delta.man \ @@ -200,6 +199,7 @@ MAN = perl.man \ perl5237delta.man \ perl5238delta.man \ perl5239delta.man \ + perl5240delta.man \ perl561delta.man \ perl56delta.man \ perl581delta.man \ @@ -337,7 +337,6 @@ HTML = perl.html \ perl5220delta.html \ perl5221delta.html \ perl5230delta.html \ - perl52310delta.html \ perl5231delta.html \ perl5232delta.html \ perl5233delta.html \ @@ -347,6 +346,7 @@ HTML = perl.html \ perl5237delta.html \ perl5238delta.html \ perl5239delta.html \ + perl5240delta.html \ perl561delta.html \ perl56delta.html \ perl581delta.html \ @@ -484,7 +484,6 @@ TEX = perl.tex \ perl5220delta.tex \ perl5221delta.tex \ perl5230delta.tex \ - perl52310delta.tex \ perl5231delta.tex \ perl5232delta.tex \ perl5233delta.tex \ @@ -494,6 +493,7 @@ TEX = perl.tex \ perl5237delta.tex \ perl5238delta.tex \ perl5239delta.tex \ + perl5240delta.tex \ perl561delta.tex \ perl56delta.tex \ perl581delta.tex \ diff --git a/win32/win32.c b/win32/win32.c index 651b97b417..6ac73e2af0 100644 --- a/win32/win32.c +++ b/win32/win32.c @@ -4529,6 +4529,7 @@ Perl_win32_term(void) OP_REFCNT_TERM; PERLIO_TERM; MALLOC_TERM; + LOCALE_TERM; #ifndef WIN32_NO_REGISTRY /* handles might be NULL, RegCloseKey then returns ERROR_INVALID_HANDLE but no point of checking and we can't die() at this point */ diff --git a/win32/wince.c b/win32/wince.c index bcc66c8c12..ce064810ed 100644 --- a/win32/wince.c +++ b/win32/wince.c @@ -2705,6 +2705,7 @@ Perl_win32_term(void) OP_REFCNT_TERM; PERLIO_TERM; MALLOC_TERM; + LOCALE_TERM; } void |