diff options
author | Andrew Fresh <afresh1@cvs.openbsd.org> | 2023-07-08 14:18:38 +0000 |
---|---|---|
committer | Andrew Fresh <afresh1@cvs.openbsd.org> | 2023-07-08 14:18:38 +0000 |
commit | 9f170bbe734a80434fbf548d76e6bb046acf27bf (patch) | |
tree | 114b8acfa28c9b13f07583bfacb9b90cfe5ec233 /gnu | |
parent | 9383c02a1c9ac69f7af40da31ba7785f0e157da0 (diff) |
Update to perl 5.36.1
Many small bugfixes
you should commit 5.36.1 bluhm@
Diffstat (limited to 'gnu')
61 files changed, 3637 insertions, 1941 deletions
diff --git a/gnu/usr.bin/perl/AUTHORS b/gnu/usr.bin/perl/AUTHORS index b9d2c66b250..8f25e9d8357 100644 --- a/gnu/usr.bin/perl/AUTHORS +++ b/gnu/usr.bin/perl/AUTHORS @@ -434,6 +434,7 @@ Edward Moy <emoy@apple.com> Edward Peschko <edwardp@excitehome.net> Elaine -HFB- Ashton <elaine@chaos.wustl.edu> Elizabeth Mattijsen <liz@dijkmat.nl> +Elvin Aslanov <rwp.primary@gmail.com> Enrico Sorcinelli <bepi@perl.it> Eric Amick Eric Arnold <eric.arnold@sun.com> diff --git a/gnu/usr.bin/perl/Configure b/gnu/usr.bin/perl/Configure index 982838a01b1..5c5cf89ea02 100644 --- a/gnu/usr.bin/perl/Configure +++ b/gnu/usr.bin/perl/Configure @@ -4638,7 +4638,7 @@ esac # so we will take those off from locincpth. case "$gccversion" in 3.*) - echo "main(){}">try.c + echo "int main(){}">try.c for incdir in $locincpth; do warn=`$cc $ccflags -I$incdir -c try.c 2>&1 | \ grep '^c[cp]p*[01]: warning: changing search order '` @@ -5790,6 +5790,7 @@ case "$intsize" in #ifdef I_STDLIB #include <stdlib.h> #endif +#include <stdio.h> int main() { printf("intsize=%d;\n", (int)sizeof(int)); @@ -6863,6 +6864,7 @@ case "$doublesize" in #ifdef I_STDLIB #include <stdlib.h> #endif +#include <stdio.h> int main() { printf("%d\n", (int)sizeof(double)); @@ -7907,46 +7909,20 @@ esac : compute the return types of malloc and free echo " " -$cat >malloc.c <<END -#$i_malloc I_MALLOC -#$i_stdlib I_STDLIB -#include <stdio.h> -#include <sys/types.h> -#ifdef I_MALLOC -#include <malloc.h> -#endif -#ifdef I_STDLIB -#include <stdlib.h> -#endif -#ifdef TRY_MALLOC -void *malloc(); -#endif -#ifdef TRY_FREE -void free(); -#endif -END case "$malloctype" in '') - if $cc $ccflags -c -DTRY_MALLOC malloc.c >/dev/null 2>&1; then - malloctype='void *' - else - malloctype='char *' - fi + malloctype='void *' ;; esac echo "Your system wants malloc to return '$malloctype', it would seem." >&4 case "$freetype" in '') - if $cc $ccflags -c -DTRY_FREE malloc.c >/dev/null 2>&1; then - freetype='void' - else - freetype='int' - fi + freetype='void' ;; esac echo "Your system uses $freetype free(), it would seem." >&4 -$rm -f malloc.[co] + : determine where site specific architecture-dependent libraries go. : sitelib default is /usr/local/lib/perl5/site_perl/$version : sitearch default is /usr/local/lib/perl5/site_perl/$version/$archname @@ -12624,7 +12600,7 @@ case "$dlsrc" in dl_dlopen.xs) echo "Checking whether your dlsym() needs a leading underscore ..." >&4 $cat >dyna.c <<'EOM' -fred () { } +void fred (void) { } EOM $cat >fred.c<<EOM @@ -12643,7 +12619,7 @@ $cat >fred.c<<EOM #include <link.h> #endif -extern int fred() ; +extern void fred(void) ; int main() { @@ -13677,6 +13653,7 @@ $cat >try.c <<EOP #ifdef I_STDLIB #include <stdlib.h> #endif +#include <string.h> #define FILE_ptr(fp) $stdio_ptr #define FILE_cnt(fp) $stdio_cnt int main() { @@ -16184,6 +16161,7 @@ echo "Checking to see if your libm supports _LIB_VERSION..." >&4 $cat >try.c <<EOCP #include <unistd.h> #include <math.h> +#include <stdio.h> int main (int argc, char *argv[]) { printf ("%d\n", _LIB_VERSION); @@ -22081,13 +22059,15 @@ pager="$ans" : see if ar generates random libraries by itself echo " " echo "Checking how to generate random libraries on your machine..." >&4 -echo 'int bar1() { return bar2(); }' > bar1.c +echo 'extern int bar2(); int bar1() { return bar2(); }' > bar1.c echo 'int bar2() { return 2; }' > bar2.c $cat > foo.c <<EOP #$i_stdlib I_STDLIB #ifdef I_STDLIB #include <stdlib.h> #endif +#include <stdio.h> +extern int bar1(); int main() { printf("%d\n", bar1()); exit(0); } EOP $cc $ccflags -c bar1.c >/dev/null 2>&1 @@ -22313,7 +22293,7 @@ EOM for nfd in 'int' 'size_t' 'unsigned long' 'unsigned' ; do for tmo in 'struct timeval *' 'const struct timeval *'; do case "$val" in - '') try="$extern_C select _(($nfd, $xxx, $xxx, $xxx, $tmo));" + '') try="$extern_C int select _(($nfd, $xxx, $xxx, $xxx, $tmo));" if ./protochk "$try" $hdrs; then echo "Your system accepts $xxx." val="$xxx" diff --git a/gnu/usr.bin/perl/Cross/config.sh-arm-linux b/gnu/usr.bin/perl/Cross/config.sh-arm-linux index f2303707b7c..5edb8e8e90a 100644 --- a/gnu/usr.bin/perl/Cross/config.sh-arm-linux +++ b/gnu/usr.bin/perl/Cross/config.sh-arm-linux @@ -35,8 +35,8 @@ api_subversion='0' api_version='36' api_versionstring='5.36.0' ar='ar' -archlib='/usr/lib/perl5/5.36.0/armv4l-linux' -archlibexp='/usr/lib/perl5/5.36.0/armv4l-linux' +archlib='/usr/lib/perl5/5.36.1/armv4l-linux' +archlibexp='/usr/lib/perl5/5.36.1/armv4l-linux' archname64='' archname='armv4l-linux' archobjs='' @@ -55,7 +55,7 @@ castflags='0' cat='cat' cc='cc' cccdlflags='-fpic' -ccdlflags='-rdynamic -Wl,-rpath,/usr/lib/perl5/5.36.0/armv4l-linux/CORE' +ccdlflags='-rdynamic -Wl,-rpath,/usr/lib/perl5/5.36.1/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' @@ -831,7 +831,7 @@ inc_version_list=' ' inc_version_list_init='0' incpath='' inews='' -installarchlib='./install_me_here/usr/lib/perl5/5.36.0/armv4l-linux' +installarchlib='./install_me_here/usr/lib/perl5/5.36.1/armv4l-linux' installbin='./install_me_here/usr/bin' installhtml1dir='' installhtml3dir='' @@ -839,13 +839,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.36.0' +installprivlib='./install_me_here/usr/lib/perl5/5.36.1' installscript='./install_me_here/usr/bin' -installsitearch='./install_me_here/usr/lib/perl5/site_perl/5.36.0/armv4l-linux' +installsitearch='./install_me_here/usr/lib/perl5/site_perl/5.36.1/armv4l-linux' installsitebin='./install_me_here/usr/bin' installsitehtml1dir='' installsitehtml3dir='' -installsitelib='./install_me_here/usr/lib/perl5/site_perl/5.36.0' +installsitelib='./install_me_here/usr/lib/perl5/site_perl/5.36.1' installsiteman1dir='./install_me_here/usr/share/man/man1' installsiteman3dir='./install_me_here/usr/share/man/man3' installsitescript='./install_me_here/usr/bin' @@ -980,8 +980,8 @@ pmake='' pr='' prefix='/usr' prefixexp='/usr' -privlib='/usr/lib/perl5/5.36.0' -privlibexp='/usr/lib/perl5/5.36.0' +privlib='/usr/lib/perl5/5.36.1' +privlibexp='/usr/lib/perl5/5.36.1' procselfexe='"/proc/self/exe"' prototype='define' ptrsize='4' @@ -1046,17 +1046,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.36.0/armv4l-linux' -sitearchexp='/usr/lib/perl5/site_perl/5.36.0/armv4l-linux' +sitearch='/usr/lib/perl5/site_perl/5.36.1/armv4l-linux' +sitearchexp='/usr/lib/perl5/site_perl/5.36.1/armv4l-linux' sitebin='/usr/bin' sitebinexp='/usr/bin' sitehtml1dir='' sitehtml1direxp='' sitehtml3dir='' sitehtml3direxp='' -sitelib='/usr/lib/perl5/site_perl/5.36.0' +sitelib='/usr/lib/perl5/site_perl/5.36.1' sitelib_stem='/usr/lib/perl5/site_perl' -sitelibexp='/usr/lib/perl5/site_perl/5.36.0' +sitelibexp='/usr/lib/perl5/site_perl/5.36.1' siteman1dir='/usr/share/man/man1' siteman1direxp='/usr/share/man/man1' siteman3dir='/usr/share/man/man3' @@ -1097,7 +1097,7 @@ stdio_stream_array='' strerror_r_proto='0' strings='/usr/include/string.h' submit='' -subversion='0' +subversion='1' sysman='/usr/share/man/man1' tail='' tar='' @@ -1188,8 +1188,8 @@ vendorprefix='' vendorprefixexp='' vendorscript='' vendorscriptexp='' -version='5.36.0' -version_patchlevel_string='version 36 subversion 0' +version='5.36.1' +version_patchlevel_string='version 36 subversion 1' versiononly='undef' vi='' xlibpth='/usr/lib/386 /lib/386' @@ -1204,7 +1204,7 @@ config_args='' config_argc=0 PERL_REVISION=5 PERL_VERSION=36 -PERL_SUBVERSION=0 +PERL_SUBVERSION=1 PERL_API_REVISION=5 PERL_API_VERSION=36 PERL_API_SUBVERSION=0 diff --git a/gnu/usr.bin/perl/Cross/config.sh-arm-linux-n770 b/gnu/usr.bin/perl/Cross/config.sh-arm-linux-n770 index b1e697f17f1..9c8c159b9ab 100644 --- a/gnu/usr.bin/perl/Cross/config.sh-arm-linux-n770 +++ b/gnu/usr.bin/perl/Cross/config.sh-arm-linux-n770 @@ -35,8 +35,8 @@ api_subversion='0' api_version='36' api_versionstring='5.36.0' ar='ar' -archlib='/usr/lib/perl5/5.36.0/armv4l-linux' -archlibexp='/usr/lib/perl5/5.36.0/armv4l-linux' +archlib='/usr/lib/perl5/5.36.1/armv4l-linux' +archlibexp='/usr/lib/perl5/5.36.1/armv4l-linux' archname64='' archname='armv4l-linux' archobjs='' @@ -54,7 +54,7 @@ castflags='0' cat='cat' cc='arm-none-linux-gnueabi-gcc' cccdlflags='-fpic' -ccdlflags='-rdynamic -Wl,-rpath,/usr/lib/perl5/5.36.0/armv4l-linux/CORE' +ccdlflags='-rdynamic -Wl,-rpath,/usr/lib/perl5/5.36.1/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' @@ -829,7 +829,7 @@ inc_version_list=' ' inc_version_list_init='0' incpath='' inews='' -installarchlib='./install_me_here/usr/lib/perl5/5.36.0/armv4l-linux' +installarchlib='./install_me_here/usr/lib/perl5/5.36.1/armv4l-linux' installbin='./install_me_here/usr/bin' installhtml1dir='' installhtml3dir='' @@ -837,13 +837,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.36.0' +installprivlib='./install_me_here/usr/lib/perl5/5.36.1' installscript='./install_me_here/usr/bin' -installsitearch='./install_me_here/usr/lib/perl5/site_perl/5.36.0/armv4l-linux' +installsitearch='./install_me_here/usr/lib/perl5/site_perl/5.36.1/armv4l-linux' installsitebin='./install_me_here/usr/bin' installsitehtml1dir='' installsitehtml3dir='' -installsitelib='./install_me_here/usr/lib/perl5/site_perl/5.36.0' +installsitelib='./install_me_here/usr/lib/perl5/site_perl/5.36.1' installsiteman1dir='./install_me_here/usr/share/man/man1' installsiteman3dir='./install_me_here/usr/share/man/man3' installsitescript='./install_me_here/usr/bin' @@ -978,8 +978,8 @@ pmake='' pr='' prefix='/usr' prefixexp='/usr' -privlib='/usr/lib/perl5/5.36.0' -privlibexp='/usr/lib/perl5/5.36.0' +privlib='/usr/lib/perl5/5.36.1' +privlibexp='/usr/lib/perl5/5.36.1' procselfexe='"/proc/self/exe"' prototype='define' ptrsize='4' @@ -1044,17 +1044,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.36.0/armv4l-linux' -sitearchexp='/usr/lib/perl5/site_perl/5.36.0/armv4l-linux' +sitearch='/usr/lib/perl5/site_perl/5.36.1/armv4l-linux' +sitearchexp='/usr/lib/perl5/site_perl/5.36.1/armv4l-linux' sitebin='/usr/bin' sitebinexp='/usr/bin' sitehtml1dir='' sitehtml1direxp='' sitehtml3dir='' sitehtml3direxp='' -sitelib='/usr/lib/perl5/site_perl/5.36.0' +sitelib='/usr/lib/perl5/site_perl/5.36.1' sitelib_stem='/usr/lib/perl5/site_perl' -sitelibexp='/usr/lib/perl5/site_perl/5.36.0' +sitelibexp='/usr/lib/perl5/site_perl/5.36.1' siteman1dir='/usr/share/man/man1' siteman1direxp='/usr/share/man/man1' siteman3dir='/usr/share/man/man3' @@ -1095,7 +1095,7 @@ stdio_stream_array='' strerror_r_proto='0' strings='/usr/include/string.h' submit='' -subversion='0' +subversion='1' sysman='/usr/share/man/man1' tail='' tar='' @@ -1186,8 +1186,8 @@ vendorprefix='' vendorprefixexp='' vendorscript='' vendorscriptexp='' -version='5.36.0' -version_patchlevel_string='version 36 subversion 0' +version='5.36.1' +version_patchlevel_string='version 36 subversion 1' versiononly='undef' vi='' xlibpth='/usr/lib/386 /lib/386' @@ -1202,7 +1202,7 @@ config_args='' config_argc=0 PERL_REVISION=5 PERL_VERSION=36 -PERL_SUBVERSION=0 +PERL_SUBVERSION=1 PERL_API_REVISION=5 PERL_API_VERSION=36 PERL_API_SUBVERSION=0 diff --git a/gnu/usr.bin/perl/INSTALL b/gnu/usr.bin/perl/INSTALL index 4e74bd4ce78..8731b96f64b 100644 --- a/gnu/usr.bin/perl/INSTALL +++ b/gnu/usr.bin/perl/INSTALL @@ -90,10 +90,10 @@ to F<pod/perldelta.pod> for more detailed information. =head3 Compatibility with earlier versions -B<WARNING:> This version is not binary compatible with earlier versions -of Perl. If you have built extensions (i.e. modules that include C code) -using an earlier version of Perl, you will need to rebuild and reinstall -those extensions. +B<WARNING:> This version is not binary compatible with versions of Perl +earlier than 5.36.0. If you have built extensions (i.e. modules that +include C code) using an earlier version of Perl, you will need to +rebuild and reinstall those extensions. Pure perl modules without XS or C code should continue to work fine without reinstallation. See the discussion below on @@ -683,7 +683,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.36.0. +By default, Configure will use the following directories for 5.36.1. $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 @@ -2506,8 +2506,8 @@ L<https://www.chiark.greenend.org.uk/~sgtatham/bugs.html> =head1 Coexistence with earlier versions of perl 5 -Perl 5.36.0 is not binary compatible with earlier versions of Perl. -In other words, you will have to recompile your XS modules. +Perl 5.36.1 is not binary compatible with versions of Perl earlier than. +5.36.0. In other words, you will have to recompile your XS modules. In general, you can usually safely upgrade from one stable version of Perl (e.g. 5.30.0) to another similar minor version (e.g. 5.30.1) without @@ -2581,9 +2581,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.36.0 + sh Configure -Dprefix=/opt/perl5.36.1 -and adding /opt/perl5.36.0/bin to the shell PATH variable. Such users +and adding /opt/perl5.36.1/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. @@ -2598,11 +2598,11 @@ yet. =head2 Upgrading from 5.35.11 or earlier -B<Perl 5.36.0 may not be binary compatible with Perl 5.35.11 or +B<Perl 5.36.1 may not be binary compatible with Perl 5.35.11 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.36.0. If you find you do need to rebuild an extension with -5.36.0, you may safely do so without disturbing the older +used with 5.36.1. If you find you do need to rebuild an extension with +5.36.1, you may safely do so without disturbing the older installations. (See L<"Coexistence with earlier versions of perl 5"> above.) @@ -2635,15 +2635,15 @@ Firstly, the bare minimum to run this script print("$f\n"); } -in Linux with perl-5.36.0 is as follows (under $Config{prefix}): +in Linux with perl-5.36.1 is as follows (under $Config{prefix}): ./bin/perl - ./lib/perl5/5.36.0/strict.pm - ./lib/perl5/5.36.0/warnings.pm - ./lib/perl5/5.36.0/i686-linux/File/Glob.pm - ./lib/perl5/5.36.0/feature.pm - ./lib/perl5/5.36.0/XSLoader.pm - ./lib/perl5/5.36.0/i686-linux/auto/File/Glob/Glob.so + ./lib/perl5/5.36.1/strict.pm + ./lib/perl5/5.36.1/warnings.pm + ./lib/perl5/5.36.1/i686-linux/File/Glob.pm + ./lib/perl5/5.36.1/feature.pm + ./lib/perl5/5.36.1/XSLoader.pm + ./lib/perl5/5.36.1/i686-linux/auto/File/Glob/Glob.so Secondly, for perl-5.10.1, the Debian perl-base package contains 591 files, (of which 510 are for lib/unicore) totaling about 3.5MB in its diff --git a/gnu/usr.bin/perl/MANIFEST b/gnu/usr.bin/perl/MANIFEST index 3b9a4cca9fa..2151630286b 100644 --- a/gnu/usr.bin/perl/MANIFEST +++ b/gnu/usr.bin/perl/MANIFEST @@ -5875,6 +5875,7 @@ pod/perl5320delta.pod Perl changes in version 5.32.0 pod/perl5321delta.pod Perl changes in version 5.32.1 pod/perl5340delta.pod Perl changes in version 5.34.0 pod/perl5341delta.pod Perl changes in version 5.34.1 +pod/perl5360delta.pod Perl changes in version 5.36.0 pod/perl561delta.pod Perl changes in version 5.6.1 pod/perl56delta.pod Perl changes in version 5.6 pod/perl581delta.pod Perl changes in version 5.8.1 diff --git a/gnu/usr.bin/perl/META.json b/gnu/usr.bin/perl/META.json index 6c89ee22b02..ddc92c77866 100644 --- a/gnu/usr.bin/perl/META.json +++ b/gnu/usr.bin/perl/META.json @@ -118,6 +118,6 @@ "url" : "https://github.com/Perl/perl5" } }, - "version" : "5.036000", + "version" : "5.036001", "x_serialization_backend" : "JSON::PP version 4.07" } diff --git a/gnu/usr.bin/perl/META.yml b/gnu/usr.bin/perl/META.yml index 2bfde7bff20..e8c10bb20f1 100644 --- a/gnu/usr.bin/perl/META.yml +++ b/gnu/usr.bin/perl/META.yml @@ -105,5 +105,5 @@ resources: homepage: https://www.perl.org/ license: https://dev.perl.org/licenses/ repository: https://github.com/Perl/perl5 -version: '5.036000' +version: '5.036001' x_serialization_backend: 'CPAN::Meta::YAML version 0.018' diff --git a/gnu/usr.bin/perl/Makefile.SH b/gnu/usr.bin/perl/Makefile.SH index bc9b7e26055..c9f6308b1b5 100644 --- a/gnu/usr.bin/perl/Makefile.SH +++ b/gnu/usr.bin/perl/Makefile.SH @@ -614,7 +614,7 @@ esac $spitshell >>$Makefile <<'!NO!SUBS!' -perltoc_pod_prereqs = extra.pods pod/perl5360delta.pod pod/perlapi.pod pod/perlintern.pod pod/perlmodlib.pod +perltoc_pod_prereqs = extra.pods pod/perl5361delta.pod pod/perlapi.pod pod/perlintern.pod pod/perlmodlib.pod generated_pods = pod/perltoc.pod $(perltoc_pod_prereqs) generated_headers = uudmap.h bitcount.h mg_data.h @@ -1129,9 +1129,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/perl5360delta.pod: pod/perldelta.pod - $(RMS) pod/perl5360delta.pod - $(LNS) perldelta.pod pod/perl5360delta.pod +pod/perl5361delta.pod: pod/perldelta.pod + $(RMS) pod/perl5361delta.pod + $(LNS) perldelta.pod pod/perl5361delta.pod extra.pods: $(MINIPERL_EXE) -@test ! -f extra.pods || rm -f `cat extra.pods` diff --git a/gnu/usr.bin/perl/Makefile.bsd-wrapper1 b/gnu/usr.bin/perl/Makefile.bsd-wrapper1 index 49da1b4055d..3636f3eb5e6 100644 --- a/gnu/usr.bin/perl/Makefile.bsd-wrapper1 +++ b/gnu/usr.bin/perl/Makefile.bsd-wrapper1 @@ -87,6 +87,7 @@ _quick3p= perl5340delta 1 pod/perl5340delta.pod \ perl5341delta 1 pod/perl5341delta.pod \ perl5360delta 1 pod/perl5360delta.pod \ + perl5361delta 1 pod/perl5361delta.pod \ perl561delta 1 pod/perl561delta.pod \ perl56delta 1 pod/perl56delta.pod \ perl581delta 1 pod/perl581delta.pod \ diff --git a/gnu/usr.bin/perl/Porting/config.sh b/gnu/usr.bin/perl/Porting/config.sh index 91086e62aad..cc649123294 100644 --- a/gnu/usr.bin/perl/Porting/config.sh +++ b/gnu/usr.bin/perl/Porting/config.sh @@ -50,8 +50,8 @@ api_subversion='0' api_version='36' api_versionstring='5.36.0' ar='ar' -archlib='/opt/perl/lib/5.36.0/x86_64-linux-thread-multi-ld' -archlibexp='/opt/perl/lib/5.36.0/x86_64-linux-thread-multi-ld' +archlib='/opt/perl/lib/5.36.1/x86_64-linux-thread-multi-ld' +archlibexp='/opt/perl/lib/5.36.1/x86_64-linux-thread-multi-ld' archname64='' archname='x86_64-linux-thread-multi-ld' archobjs='' @@ -860,7 +860,7 @@ incpath='' incpth='/usr/lib64/gcc/x86_64-suse-linux/10/include /usr/local/include /usr/lib64/gcc/x86_64-suse-linux/10/include-fixed /usr/lib64/gcc/x86_64-suse-linux/10/../../../../x86_64-suse-linux/include /usr/include' inews='' initialinstalllocation='/opt/perl/bin' -installarchlib='/opt/perl/lib/5.36.0/x86_64-linux-thread-multi-ld' +installarchlib='/opt/perl/lib/5.36.1/x86_64-linux-thread-multi-ld' installbin='/opt/perl/bin' installhtml1dir='' installhtml3dir='' @@ -868,13 +868,13 @@ installman1dir='/opt/perl/man/man1' installman3dir='/opt/perl/man/man3' installprefix='/opt/perl' installprefixexp='/opt/perl' -installprivlib='/opt/perl/lib/5.36.0' +installprivlib='/opt/perl/lib/5.36.1' installscript='/opt/perl/bin' -installsitearch='/opt/perl/lib/site_perl/5.36.0/x86_64-linux-thread-multi-ld' +installsitearch='/opt/perl/lib/site_perl/5.36.1/x86_64-linux-thread-multi-ld' installsitebin='/opt/perl/bin' installsitehtml1dir='' installsitehtml3dir='' -installsitelib='/opt/perl/lib/site_perl/5.36.0' +installsitelib='/opt/perl/lib/site_perl/5.36.1' installsiteman1dir='/opt/perl/man/man1' installsiteman3dir='/opt/perl/man/man3' installsitescript='/opt/perl/bin' @@ -1000,7 +1000,7 @@ perl_static_inline='static __inline__' perl_thread_local='' perladmin='yourname@yourhost.yourplace.com' perllibs='-lpthread -lnsl -ldl -lm -lcrypt -lutil -lc' -perlpath='/opt/perl/bin/perl5.36.0' +perlpath='/opt/perl/bin/perl5.36.1' pg='pg' phostname='' pidtype='pid_t' @@ -1009,8 +1009,8 @@ pmake='' pr='' prefix='/opt/perl' prefixexp='/opt/perl' -privlib='/opt/perl/lib/5.36.0' -privlibexp='/opt/perl/lib/5.36.0' +privlib='/opt/perl/lib/5.36.1' +privlibexp='/opt/perl/lib/5.36.1' procselfexe='"/proc/self/exe"' ptrsize='8' quadkind='2' @@ -1075,17 +1075,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, 0' sig_size='68' signal_t='void' -sitearch='/opt/perl/lib/site_perl/5.36.0/x86_64-linux-thread-multi-ld' -sitearchexp='/opt/perl/lib/site_perl/5.36.0/x86_64-linux-thread-multi-ld' +sitearch='/opt/perl/lib/site_perl/5.36.1/x86_64-linux-thread-multi-ld' +sitearchexp='/opt/perl/lib/site_perl/5.36.1/x86_64-linux-thread-multi-ld' sitebin='/opt/perl/bin' sitebinexp='/opt/perl/bin' sitehtml1dir='' sitehtml1direxp='' sitehtml3dir='' sitehtml3direxp='' -sitelib='/opt/perl/lib/site_perl/5.36.0' +sitelib='/opt/perl/lib/site_perl/5.36.1' sitelib_stem='/opt/perl/lib/site_perl' -sitelibexp='/opt/perl/lib/site_perl/5.36.0' +sitelibexp='/opt/perl/lib/site_perl/5.36.1' siteman1dir='/opt/perl/man/man1' siteman1direxp='/opt/perl/man/man1' siteman3dir='/opt/perl/man/man3' @@ -1113,7 +1113,7 @@ st_dev_sign='1' st_dev_size='4' st_ino_sign='1' st_ino_size='8' -startperl='#!/opt/perl/bin/perl5.36.0' +startperl='#!/opt/perl/bin/perl5.36.1' startsh='#!/bin/sh' static_ext=' ' stdchar='char' @@ -1125,7 +1125,7 @@ stdio_ptr='((fp)->_ptr)' stdio_stream_array='' strerror_r_proto='REENTRANT_PROTO_B_IBW' submit='' -subversion='0' +subversion='1' sysman='/usr/share/man/man1' sysroot='' tail='' @@ -1224,8 +1224,8 @@ vendorprefix='' vendorprefixexp='' vendorscript='' vendorscriptexp='' -version='5.36.0' -version_patchlevel_string='version 36 subversion 0' +version='5.36.1' +version_patchlevel_string='version 36 subversion 1' versiononly='define' vi='' xlibpth='/usr/lib/386 /lib/386' @@ -1236,7 +1236,7 @@ zcat='' zip='zip' PERL_REVISION=5 PERL_VERSION=36 -PERL_SUBVERSION=0 +PERL_SUBVERSION=1 PERL_API_REVISION=5 PERL_API_VERSION=36 PERL_API_SUBVERSION=0 diff --git a/gnu/usr.bin/perl/Porting/config_H b/gnu/usr.bin/perl/Porting/config_H index 80692093f61..bf8709052b7 100644 --- a/gnu/usr.bin/perl/Porting/config_H +++ b/gnu/usr.bin/perl/Porting/config_H @@ -1239,8 +1239,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 "/opt/perl/lib/5.36.0/x86_64-linux" /**/ -#define ARCHLIB_EXP "/opt/perl/lib/5.36.0/x86_64-linux" /**/ +#define ARCHLIB "/opt/perl/lib/5.36.1/x86_64-linux" /**/ +#define ARCHLIB_EXP "/opt/perl/lib/5.36.1/x86_64-linux" /**/ /* BIN: * This symbol holds the path of the bin directory where the package will @@ -1293,8 +1293,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 "/opt/perl/lib/5.36.0" /**/ -#define PRIVLIB_EXP "/opt/perl/lib/5.36.0" /**/ +#define PRIVLIB "/opt/perl/lib/5.36.1" /**/ +#define PRIVLIB_EXP "/opt/perl/lib/5.36.1" /**/ /* SITEARCH: * This symbol contains the name of the private library for this package. @@ -1311,8 +1311,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 "/opt/perl/lib/site_perl/5.36.0/x86_64-linux" /**/ -#define SITEARCH_EXP "/opt/perl/lib/site_perl/5.36.0/x86_64-linux" /**/ +#define SITEARCH "/opt/perl/lib/site_perl/5.36.1/x86_64-linux" /**/ +#define SITEARCH_EXP "/opt/perl/lib/site_perl/5.36.1/x86_64-linux" /**/ /* SITELIB: * This symbol contains the name of the private library for this package. @@ -1334,8 +1334,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 "/opt/perl/lib/site_perl/5.36.0" /**/ -#define SITELIB_EXP "/opt/perl/lib/site_perl/5.36.0" /**/ +#define SITELIB "/opt/perl/lib/site_perl/5.36.1" /**/ +#define SITELIB_EXP "/opt/perl/lib/site_perl/5.36.1" /**/ #define SITELIB_STEM "/opt/perl/lib/site_perl" /**/ /* PERL_VENDORARCH: @@ -4109,7 +4109,7 @@ * script to make sure (one hopes) that it runs with perl and not * some shell. */ -#define STARTPERL "#!/opt/perl/bin/perl5.36.0" /**/ +#define STARTPERL "#!/opt/perl/bin/perl5.36.1" /**/ /* HAS_STDIO_STREAM_ARRAY: * This symbol, if defined, tells that there is an array diff --git a/gnu/usr.bin/perl/Porting/epigraphs.pod b/gnu/usr.bin/perl/Porting/epigraphs.pod index 018400bf77e..a6f6359d072 100644 --- a/gnu/usr.bin/perl/Porting/epigraphs.pod +++ b/gnu/usr.bin/perl/Porting/epigraphs.pod @@ -17,6 +17,185 @@ Consult your favorite dictionary for details. =head1 EPIGRAPHS +=head2 v5.37.11 - Ben Aaronovitch, "Moon Over Soho" + +L<Announced on 2023-04-20 by Steve Hay|https://www.nntp.perl.org/group/perl.perl5.porters/2023/04/msg266242.html> + +My dad always said that a trumpet player likes to aim his weapon at the +audience, but a sax man likes to cut a good profile and that they always +have a favourite side. It being an article of faith with my dad that +you don't even pick up a reed instrument unless you're vain about the +shape your face makes when you're blowing down it. + +=head2 v5.37.10 - Lewis Carroll "The Walrus and the Carpenter" + +L<Announced on 2023-03-21 by Yves Orton|https://www.nntp.perl.org/group/perl.perl5.porters/2023/03/msg266078.html> + + The time has come,' the Walrus said, + To talk of many things: + Of shoes - and ships - and sealing-wax - + Of cabbages - and kings - + And why the sea is boiling hot - + And whether pigs have wings.' + +=head2 v5.37.9 - Virginia Woolf + +L<Announced on 2023-02-20 by Karen Etheridge|https://www.nntp.perl.org/group/perl.perl5.porters/2023/02/msg265769.html> + +Each has his past shut in him like the leaves of a book known to him by +heart and his friends can only read the title. + +=head2 v5.37.8 - Helmut Schmidt + +L<Announced on 2023-01-20 by Renee Baecker|https://www.nntp.perl.org/group/perl.perl5.porters/2023/01/msg265547.html> + +Honesty doesn't require saying everything you think. Honesty only +requires that you don't say anything that you don't think. + +=head2 v5.37.7 - Terry Pratchett, "Hogfather" + +L<Announced on 2022-12-20 by Richard Leach|https://www.nntp.perl.org/group/perl.perl5.porters/2022/12/msg265263.html> + +TO THE HOGFATHER, ALL PORK PIES ARE AS ONE PORK PIE. +EXCEPT THE ONE LIKE A TURNIP. + +=head2 v5.37.6 - N. K. Jemisin - The City We Became + +L<Announced on 2022-11-20 by Max Maischein|https://www.nntp.perl.org/group/perl.perl5.porters/2022/11/msg265080.html> + +Queens sighs with the air of someone who is used to not being +understood. She takes out her phone and starts texting someone, +her bottom lip poked out a little. + +Brooklyn's expression turns grim. To Broca she says, "You said +becoming a city punches through other universes." +So she's not stupid. Bronca inclined her head to the woman, in +respect if not in approval. "Yes". + +"Okay, so." Brooklyn visibly braces herself. "So what +happens to those universes that our city punches through?" + + The City We Became - N.K. Jemisin + +=head2 v5.37.5 - Nori - The Lord of the Rings: The Rings of Power + +L<Announced on 2022-10-20 by Todd Rinaldo|https://www.nntp.perl.org/group/perl.perl5.porters/2022/10/msg264959.html> + +If we didn't do everything we weren't supposed to, we'd hardly do +anything at all. + +=head2 v5.37.4 - C. F. Kettering + +L<Announced on 2022-09-20 by Karen Etheridge|https://www.nntp.perl.org/group/perl.perl5.porters/2022/09/msg264815.html> + +A problem well stated is a problem half solved. + +=head2 v5.37.3 - John Steinbeck, "East of Eden" + +L<Announced on 2022-08-20 by Neil B|https://www.nntp.perl.org/group/perl.perl5.porters/2022/08/msg264651.html> + +And now that you don't have to be perfect, you can be good. + +=head2 v5.37.2 - James Clear, "Atomic Habits" + +L<Announced on 2022-07-20 by Nicolas R.|https://www.nntp.perl.org/group/perl.perl5.porters/2022/07/msg264438.html> + +If you can get one percent better each day for one year, +you'll end up thiry-seven times better by the time you are done + +=head2 v5.37.1 - Squirt, "Finding Nemo" + +L<Announced on 2022-06-20 by Matthew Horsfall|https://www.nntp.perl.org/group/perl.perl5.porters/2022/06/msg264107.html> + +Good afternoon! We're gonna have a great jump today! +Okay, crank a hard cutback as you hit the wall. +There's a screaming bottom curve, so watch out. +Remember: Rip it! Roll it! And punch it! + +=head2 v5.37.0 - John Cage, "Lecture on Nothing" + +L<Announced on 2022-05-27 by Ricardo Signes|https://www.nntp.perl.org/group/perl.perl5.porters/2022/05/msg263786.html> + +I have nothing to say, and I am saying it. + +=head2 v5.36.1-RC3 - Karl Leimer & Walter Gieseking, trans. Frederick C. Rauser, "Rhythmics, Dynamics, Pedal and Other Problems of Piano Playing" + +L<Announced on 2023-04-16 by Steve Hay|https://www.nntp.perl.org/group/perl.perl5.porters/2023/04/msg266232.html> + +Generally, no clear opinions exist as to the usefulness of mental work +in order to acquire a good technique. We do not seem to know exactly +what it means or how to develop technique through "brain work." +Technique, when playing an instrument, means controlling the fingers. +Generally, it is used only in a limited sense regarding fluency, rapid +execution of difficult passages and steady aim. +In order to acquire a perfect technique through brain work, an exact +impression of the note picture upon the mind is the first problem which +we must solve. Thereafter we should busy ourselves with the study in +question, as to fingering, touch, note value, etc., to achieve +perfection along these lines in the broadest sense. This occurs +quickest and completely through intensive concentration of all +intellectual powers and is, therefore, strenuous brain work. + +=head2 v5.36.1-RC2 - Karl Leimer & Walter Gieseking, "The Shortest Way to Pianistic Perfection" + +L<Announced on 2023-04-11 by Steve Hay|https://www.nntp.perl.org/group/perl.perl5.porters/2023/04/msg266203.html> + +In order to attain a natural manner of playing the piano, that is to +say, with the least possible strain and exertion, it is of the utmost +importance to learn to exert the muscles consciously, and, what is of +still greater importance, to relax them consciously. My manner of +accomplishing this differs from that of many other pedagogues. I +contrive to raise a feeling of relaxation from within, as it were. This +is generally attempted by the aid of visible movements. All superfluous +movements are injurious. The aim should be the very least possible +strain of the muscles when playing the piano. + +=head2 v5.36.1-RC1 - Josef Lhevinne, "Basic Principles in Pianoforte Playing" + +L<Announced on 2023-04-10 by Steve Hay|https://www.nntp.perl.org/group/perl.perl5.porters/2023/04/msg266184.html> + +Avoid worry and distractions of any kind when you are practicing. Your +mind must be every minute on what you are doing, or the value of your +practice is lessened enormously. By intense concentration, love of your +work and the spirit in which you approach it, you can do more in a half +hour than in an hour spent purposelessly. Do not think you have been +practicing, if you have played a single note with your mind on anything +else. + +=head2 v5.36.0 - Alexandre Dumas, "The Three Musketeers" + +L<Announced on 2022-05-27 by Ricardo Signes|https://www.nntp.perl.org/group/perl.perl5.porters/2022/05/msg263783.html> + +“What!" cried he, in an accent of greater astonishment than before "your second +witness is Monsieur Aramis?" + +"Doubtless! Are you not aware that we are never seen one without the others, +and that we are called among the Musketeers and the Guards, at the court and in +the city, Athos, Porthos, and Aramis, or the Three Inseparables?” + +=head2 v5.36.0-RC3 - The Three Amigos + +L<Announced on 2022-05-22 by Ricardo Signes|https://www.nntp.perl.org/group/perl.perl5.porters/2022/05/msg263750.html> + + Lucky Day: I'll come back one day + Carmen: Why? + — The Three Amigos + +=head2 v5.36.0-RC1 - The Three Amigos + +L<Announced on 2022-05-20 by Ricardo Signes|https://www.nntp.perl.org/group/perl.perl5.porters/2022/05/msg263728.html> + + Jefe: I have put many beautiful piñatas in the storeroom, each of them filled + with little surprises. + El Guapo: Many piñatas? + Jefe: Oh yes, many! + El Guapo: Would you say I have a plethora of piñatas? + Jefe: A what? + El Guapo: A plethora. + Jefe: Oh yes, you have a plethora. + + — The Three Amigos + =head2 v5.35.11 - Marcel Allain and Pierre Souvestre, "Fantômas" L<Announced on 2022-04-20 by Steve Hay|https://www.nntp.perl.org/group/perl.perl5.porters/2022/04/msg263644.html> diff --git a/gnu/usr.bin/perl/Porting/make-rmg-checklist b/gnu/usr.bin/perl/Porting/make-rmg-checklist index e25186c85e0..699412e7c40 100644 --- a/gnu/usr.bin/perl/Porting/make-rmg-checklist +++ b/gnu/usr.bin/perl/Porting/make-rmg-checklist @@ -1,145 +1,225 @@ -#!perl +#!/usr/bin/perl use strict; use warnings; -use autodie; +use Getopt::Long qw< :config no_ignore_case >; -use Getopt::Long; -use Pod::Simple::HTML; +sub pod { + my $filename = shift; -sub main { - my ( $help, $type, $html ); - GetOptions( - 'type:s' => \$type, - 'html' => \$html, - 'help' => \$help, - ); + open my $fh, '<', $filename + or die "Cannot open file ($filename): $!\n"; - if ($help) { - print <<'EOF'; -make-rmg-checklist [--type TYPE] + my @lines = <$fh>; + + close $fh + or die "Cannot close file ($filename): $!\n"; + + return \@lines; +} + +sub _help { + my $msg = shift; + if ($msg) { + print "Error: $msg\n\n"; + } + + print << "_END_HELP"; +$0 --version VERSION This script creates a release checklist as a simple HTML document. It accepts the following arguments: - --type The release type for the checklist. This can be BLEAD-FINAL, - BLEAD-POINT, MAINT, or RC. This defaults to BLEAD-POINT. + --version The version you are working on. This will infer the type + of release you want to have - --html Output HTML instead of POD + --html Output HTML instead of POD +_END_HELP -EOF + exit; +} - exit; - } +sub _type_from_version { + my $version = shift; - $type = _validate_type($type); + # 5.26.0 = BLEAD-FINAL + # 5.26.0-RC1 = RC + # 5.26.1 = MAINT + # 5.27.0 = BLEAD-POINT + # 5.27.1 = BLEAD-POINT + $version =~ m{^ 5\. (\d{1,2}) \. (\d{1,2}) (?: -RC(\d) )? $}xms + or die "Version must be 5.x.y or 5.x.y-RC#\n"; - open my $fh, '<', 'Porting/release_managers_guide.pod'; - my $pod = do { local $/; <$fh> }; - close $fh; + my ( $major, $minor, $rc ) = ( $1, $2, $3 ); - my $heads = _parse_rmg( $pod, $type ); - my $new_pod = _munge_pod( $pod, $heads ); + # Dev release + if ( $major % 2 != 0 ) { + defined $rc + and die "Cannot have BLEAD-POINT RC release\n"; - if ($html) { - my $simple = Pod::Simple::HTML->new(); - $simple->output_fh(*STDOUT); - $simple->parse_string_document($new_pod); - } - else { - print $new_pod; + return 'BLEAD-POINT'; } -} -sub _validate_type { - my $type = shift || 'BLEAD-POINT'; + defined $rc + and return 'RC'; - my @valid = qw( BLEAD-FINAL BLEAD-POINT MAINT RC ); - my %valid = map { $_ => 1 } @valid; + return $minor == 0 ? 'BLEAD-FINAL' : 'MAINT'; +} - unless ( $valid{ uc $type } ) { - my $err - = "The type you provided ($type) is not a valid release type. It must be one of "; - $err .= join ', ', @valid; - $err .= "\n"; +sub iterate_items { + my ( $items, $type, $cb ) = @_; - die $err; - } + ITEM: + foreach my $item ( @{$items} ) { + foreach my $meta ( @{ $item->{'metadata'} || [] } ) { + if ( $meta =~ /skip .+ $type/xms ) { + next ITEM; + } + elsif ( $meta =~ /skip/xms ) { + $item->{content} =~ + s/^ [^\n]* \b MUST\ SKIP\ this\ step \b [^\n]* \n\n//xms; + } + } - return $type; + $cb->($item); + } } -sub _parse_rmg { - my $pod = shift; - my $type = shift; +sub create_checklist { + my ( $type, $items ) = @_; - my @heads; - my $include = 0; - my %skip; + my $collect; + my $prev_head = 0; + my $over_level; + iterate_items( $items, $type, sub { + my $item = shift; + + foreach my $meta ( @{ $item->{'metadata'} || [] } ) { + $meta =~ /checklist \s+ begin/xmsi + and $collect = 1; + + $meta =~ /checklist \s+ end/xmsi + and $collect = 0; - for ( split /\n/, $pod ) { - if (/^=for checklist begin/) { - $include = 1; - next; } - next unless $include; + $collect + or return; - last if /^=for checklist end/; + $over_level = ( $item->{'head'} - 1 ) * 4; - if (/^=for checklist skip (.+)/) { - %skip = map { $_ => 1 } split / /, $1; - next; - } + print $prev_head < $item->{'head'} ? "=over $over_level\n\n" + : $prev_head > $item->{'head'} ? "=back\n\n" + : ''; - if (/^=head(\d) (.+)/) { - unless ( keys %skip && $skip{$type} ) { - push @heads, [ $1, $2 ]; - } + chomp( my $name = $item->{'name'} ); + print "=item * L<< /$name >>\n\n"; - %skip = (); - } - } + $prev_head = $item->{'head'}; + }); - return \@heads; + print "=back\n\n" x ( $over_level / 4 ); } -sub _munge_pod { - my $pod = shift; - my $heads = shift; +my ($version, $html); +GetOptions( + 'version|v=s' => \$version, + 'html' => \$html, + 'help|h' => sub { _help(); }, +); + +defined $version + or _help('You must provide a version number'); + +my $pod_output = ''; +if ($html) { + require Pod::Simple::HTML; + open my $fh, '>', \$pod_output + or die "Can't create fh to string: $!\n"; + select $fh; +} - $pod =~ s/=head1 NAME.+?(=head1 SYNOPSIS)/$1/s; +my $type = _type_from_version($version); - my $new_pod = <<'EOF'; -=head1 NAME +chomp( my @pod_lines = @{ pod('Porting/release_managers_guide.pod') } ); -Release Manager's Guide with Checklist +my ( @items, $current_element, @leading_attrs ); +my $skip_headers = qr/^=encoding/xms; +my $passthru_headers = qr/^= (?: over | item | back | cut )/xms; -=head2 Checklist +# version used when generating diffs (acknowledgements, Module::CoreList etc) +# 5.36.0 -> 5.34.0 +# 5.36.1 -> 5.36.0 +my ($major, $minor, $point) = split(/\./, $version); +my $last_version = join('.', $major, ($point == 0 ? ($minor - 2, 0) : ($minor, $point-1))); -EOF - my $last_level = 0; - for my $head ( @{$heads} ) { - my $level = $head->[0] - 1; +foreach my $line (@pod_lines) { + $line =~ $skip_headers + and next; - if ( $level > $last_level ) { - $new_pod .= '=over ' . $level * 4; - $new_pod .= "\n\n"; - } - elsif ( $level < $last_level ) { - $new_pod .= "=back\n\n" for 1 .. ( $last_level - $level ); + if ( $line =~ /^ =head(\d) \s+ (.+) $/xms ) { + my ( $head_num, $head_title ) = ( $1, $2 ); + + my $elem = { + 'head' => $head_num, + 'name' => $head_title, + }; + + if (@leading_attrs) { + $elem->{'metadata'} = [ @leading_attrs ]; + @leading_attrs = (); } - $new_pod .= '=item * ' . 'L<< /' . $head->[1] . " >>\n\n"; + $current_element = $elem; + push @items, $elem; - $last_level = $level; + next; } - $new_pod .= "=back\n\n" while $last_level--; + if ( $line =~ /^ =for \s+ (.+) $ /xms ) { + push @leading_attrs, $1; + next; + } - $new_pod .= $pod; + $line =~ $passthru_headers + or length $line == 0 # allow empty lines + or $line =~ /^[^=]/xms + or die "Cannot recognize line: '$line'\n"; - return $new_pod; + $line =~ s/\Q5.X.Y\E/$version/g; + $line =~ s/\Q5.LAST\E/$last_version/g; + $line =~ s/\Q5.X\E-b/$major.$minor/g; + + $current_element->{'content'} .= "\n" . $line; } -main(); +print << "_END_BEGINNING"; +=head1 NAME + +Release Manager's Guide with Checklist for $version ($type) + +=head2 Checklist + +_END_BEGINNING + +# Remove beginning +# This can also be done with a '=for introduction' in the future +$items[0]{'name'} =~ /^NAME/xmsi + and shift @items; + +$items[0]{'name'} =~ /^MAKING \s+ A \s+ CHECKLIST/xmsi + and shift @items; + +create_checklist( $type, \@items ); + +iterate_items( \@items, $type, sub { + my $item = shift; + print "=head$item->{'head'} $item->{'name'}"; + print "$item->{'content'}\n"; +} ); + +if ($html) { + my $simple = Pod::Simple::HTML->new; + $simple->output_fh(*STDOUT); + $simple->parse_string_document($pod_output); +} diff --git a/gnu/usr.bin/perl/Porting/perldelta_template.pod b/gnu/usr.bin/perl/Porting/perldelta_template.pod index f0a104866e8..0c18644c21f 100644 --- a/gnu/usr.bin/perl/Porting/perldelta_template.pod +++ b/gnu/usr.bin/perl/Porting/perldelta_template.pod @@ -403,7 +403,7 @@ died, add a short obituary here. XXX Generate this with: - perl Porting/acknowledgements.pl v5.36.0..HEAD + perl Porting/acknowledgements.pl v5.36.1..HEAD =head1 Reporting Bugs diff --git a/gnu/usr.bin/perl/Porting/release_managers_guide.pod b/gnu/usr.bin/perl/Porting/release_managers_guide.pod index ffdb17e1749..37fde782fef 100644 --- a/gnu/usr.bin/perl/Porting/release_managers_guide.pod +++ b/gnu/usr.bin/perl/Porting/release_managers_guide.pod @@ -16,13 +16,13 @@ document that starts with a checklist for your release. This script is run as: perl Porting/make-rmg-checklist \ - --version [5.x.y-RC#] > /tmp/rmg.pod + --version [5.X.Y-RC#] > /tmp/rmg.pod You can also pass the C<--html> flag to generate an HTML document instead of POD. perl Porting/make-rmg-checklist --html \ - --version [5.x.y-RC#] > /tmp/rmg.html + --version [5.X.Y-RC#] > /tmp/rmg.html =head1 SYNOPSIS @@ -67,13 +67,21 @@ of these release types. If a step does not apply to a given type of release, you will see a notation to that effect at the beginning of the step. +This guide assumes you are working on the Perl master repository (i.e. +L<https://github.com/Perl/perl5>) and B<not> on your own fork of the perl5 +repository. While it is possible to prepare a release on your own fork +this guide is not written with that in mind and as a result several +key steps are missing. If you do use your own fork then extra care +needs to be taken when setting/pushing the tag and doing the merge +(do B<not> use a PR). + =head2 Release types =over 4 =item Release Candidate (RC) -A release candidate is an attempt to produce a tarball that is a close as +A release candidate is an attempt to produce a tarball that is as close as possible to the final release. Indeed, unless critical faults are found during the RC testing, the final release will be identical to the RC barring a few minor fixups (updating the release date in F<perlhist.pod>, @@ -469,7 +477,7 @@ Commit your changes: $ git diff B<review the delta carefully> - $ git commit -a -m 'Bump the perl version in various places for 5.x.y' + $ git commit -a -m 'Bump the perl version in various places for 5.X.Y' At this point you may want to compare the commit with a previous bump to see if they look similar. See commit f7cf42bb69 for an example of a @@ -525,7 +533,7 @@ to use the last known git commit by GitHub. Review the changes to the AUTHORS file, be sure you are not adding duplicate entries or removing any entries, then commit your changes. - $ git commit -a AUTHORS -m 'Update AUTHORS list for 5.x.y' + $ git commit -a AUTHORS -m 'Update AUTHORS list for 5.X.Y' =head3 Check copyright years @@ -596,7 +604,7 @@ need to freeze blead during the release. This is less important for BLEAD-FINAL, MAINT, and RC releases, since blead will already be frozen in those cases. Create the branch by running - git checkout -b release-5.xx.yy + git checkout -b release-5.X.Y =head3 build a clean perl @@ -616,7 +624,7 @@ For each Perl release since the previous release of the current branch, check for modules that have identical version numbers but different contents by running: - $ ./perl -Ilib Porting/cmpVERSION.pl --tag=v5.X.YY + $ ./perl -Ilib Porting/cmpVERSION.pl --tag=v5.X.Y (This is done automatically by F<t/porting/cmp_version.t> for the previous release of the current branch, but not for any releases from other branches.) @@ -731,7 +739,7 @@ Finally, commit the new version of Module::CoreList: (unless this is for MAINT; in which case commit it to blead first, then cherry-pick it back). - $ git commit -m 'Update Module::CoreList for 5.x.y' \ + $ git commit -m 'Update Module::CoreList for 5.X.Y' \ dist/Module-CoreList/Changes \ dist/Module-CoreList/lib/Module/CoreList.pm \ dist/Module-CoreList/lib/Module/CoreList/Utils.pm @@ -746,7 +754,7 @@ ensure all tests are passing. Finalize the perldelta. In particular, fill in the Acknowledgements section, which can be generated with something like: - $ perl Porting/acknowledgements.pl v5.15.0..HEAD + $ perl Porting/acknowledgements.pl v5.LAST..HEAD Fill in the "New/Updated Modules" sections now that Module::CoreList is updated: @@ -919,22 +927,22 @@ Be sure to commit any changes (if applicable): Build perl, then make sure it passes its own test suite, and installs: $ git clean -xdf - $ ./Configure -des -Dprefix=/tmp/perl-5.x.y-pretest + $ ./Configure -des -Dprefix=/tmp/perl-5.X.Y-pretest # or if it's an odd-numbered version: - $ ./Configure -des -Dusedevel -Dprefix=/tmp/perl-5.x.y-pretest + $ ./Configure -des -Dusedevel -Dprefix=/tmp/perl-5.X.Y-pretest $ make test install -Check that the output of C</tmp/perl-5.x.y-pretest/bin/perl -v> and -C</tmp/perl-5.x.y-pretest/bin/perl -V> are as expected, +Check that the output of C</tmp/perl-5.X.Y-pretest/bin/perl -v> and +C</tmp/perl-5.X.Y-pretest/bin/perl -V> are as expected, especially as regards version numbers, patch and/or RC levels, and @INC paths. Note that as they have been built from a git working directory, they will still identify themselves using git tags and commits. (Note that for an odd-numbered version, perl will install -itself as C<perl5.x.y>). C<perl -v> will identify itself as: +itself as C<perl5.X.Y>). C<perl -v> will identify itself as: - This is perl 5, version X, subversion Y (v5.X.Y (v5.X.Z-NNN-gdeadbeef)) + This is perl 5, version X, subversion Y (v5.X.Y (v5.XX.Z-NNN-gdeadbeef)) where 5.X.Z is the latest tag, NNN the number of commits since this tag, and C<< deadbeef >> commit of that tag. @@ -943,7 +951,7 @@ Then delete the temporary installation. =head3 create the release tag -Create the tag identifying this release (e.g.): +Create the I<annotated> tag identifying this release (e.g.): $ git tag v5.11.0 -m 'First release of the v5.11 series!' @@ -953,6 +961,16 @@ wrong before you publish your newly-created tag, you can delete and recreate it. Once you push your tag, we're stuck with it and you'll need to use a new version number for your release. +Verify that your tag is annotated: + + $ git show v5.X.Y + +The output must look similar to the following: + + tag v5.X.Y + Tagger: Jesse Vincent <jesse@bestpractical.com> + Date: Fri Oct 2 16:29:56 2009 -0400 + =head3 build the tarball Before you run the following, you might want to install 7-Zip (the @@ -979,10 +997,6 @@ Create a tarball. Use the C<-s> option to specify a suitable suffix for the tarball and directory name: $ cd root/of/perl/tree - $ make distclean # make sure distclean works - $ git clean -xdf # make sure perl and git agree on files - # git clean should not output anything! - $ git status --ignored # and there's nothing lying around $ perl Porting/makerel -x -s RC1 # for a release candidate $ perl Porting/makerel -x # for the release itself @@ -1060,7 +1074,7 @@ which is why you should test from the tarball. $ ./perl -Ilib ./utils/perlivp # Or, perhaps: - $ ./perl5.x.y ./utils/perlivp5.x.y + $ ./perl5.X.Y ./utils/perlivp5.X.Y ... All tests successful. $ @@ -1094,7 +1108,7 @@ Bootstrap the CPAN client on the clean install: $ bin/cpan # Or, perhaps: - $ bin/cpan5.xx.x + $ bin/cpan5.X.Y =head4 Install the Inline module with CPAN and test it @@ -1182,7 +1196,13 @@ Do not proceed any further until you are sure that your tarballs are on CPAN. Check your authors directory metacpan.org to confirm that your uploads have been successful. - https://metacpan.org/author/YOUR_PAUSE_ID + https://metacpan.org/author/YOUR_PAUSE_ID/releases + +You can also check + + https://metacpan.org/release/YOUR_PAUSE_ID/perl-5.X.Y + +which may be faster. =for checklist skip RC BLEAD-POINT @@ -1232,9 +1252,9 @@ Merge the (local) release branch back into master now, and delete it. git checkout blead git pull - git merge release-5.xx.yy + git merge release-5.X.Y git push - git branch -d release-5.xx.yy + git branch -d release-5.X.Y Note: The merge will create a merge commit if other changes have been pushed to blead while you've been working on your release branch. Do NOT rebase your @@ -1248,7 +1268,7 @@ Now that you've shipped the new perl release to PAUSE and pushed your changes to the Perl master repository, it's time to publish the tag you created earlier too (e.g.): - $ git push origin tag v5.11.0 + $ git push origin tag v5.X.Y =head3 update epigraphs.pod @@ -1264,8 +1284,9 @@ why you chose that particular quote for your epigraph. =head3 update the link to the latest perl on perlweb -Submit a pull request to L<https://github.com/perlorg/perlweb> to update the -link in F<docs/dev/perl5/index.html> to point to your release. +Submit a pull request to L<https://github.com/perlorg/perlweb>. For a dev +release, update the link in F<docs/dev/perl5/index.html>. For a stable +release, update F<docs/shared/tpl/stats.html>. =for checklist skip RC @@ -1425,8 +1446,8 @@ the commit tagged as the current release. Assuming you're using git 1.7.x or newer: - $ git checkout -b maint-5.12 v5.12.0 - $ git push origin -u maint-5.12 + $ git checkout -b maint-5.X v5.X.0 + $ git push origin -u maint-5.X =for checklist skip BLEAD-POINT MAINT RC @@ -1555,7 +1576,7 @@ about blead's current version. Commit and push your changes. $ git add -u - $ git commit -m "Prepare Module::Corelist for 5.XX.Y" + $ git commit -m "Prepare Module::Corelist for 5.X.Y" $ git push origin =back @@ -1603,6 +1624,18 @@ Go over your notes from the release (you did take some, right?) and update F<Porting/release_managers_guide.pod> with any fixes or information that will make life easier for the next release manager. +=head3 For a BLEAD-POINT .0 release + +This is the time for the project to decide the fate and begin to +implement the required changes for experimental/deprecated features and +API elements for the next BLEAD-FINAL, a year away. + +Fortunately your job is not to do this yourself, but merely to remind +people that this needs to get done. Send email to +L<p5p|mailto:perl5-porters@perl.org>. All of L<perlexperiment>, +L<perldeprecation>, F<mathoms.c>, L<perlapi>, and L<perlintern> need to +be considered. + =for checklist end =head1 SOURCE @@ -1612,4 +1645,3 @@ L<http://www.xray.mpe.mpg.de/mailing-lists/perl5-porters/2009-05/msg00608.html>, plus a whole bunch of other sources, including private correspondence. =cut - diff --git a/gnu/usr.bin/perl/Porting/release_schedule.pod b/gnu/usr.bin/perl/Porting/release_schedule.pod index a7ceb8f46d3..304f3fbede7 100644 --- a/gnu/usr.bin/perl/Porting/release_schedule.pod +++ b/gnu/usr.bin/perl/Porting/release_schedule.pod @@ -11,15 +11,15 @@ release schedules for the next, current and previous stable versions of Perl. Dates with two or more question marks will only be releases if deemed necessary by the Steering Council. -=head2 Perl 5.34 +=head2 Perl 5.36 - 2021-05-20 5.34.0 ✓ Sawyer X - 2022-03-13 5.34.1 ✓ Steve Hay + 2022-05-27 5.36.0 ✓ Ricardo Signes + 2022-04-23 5.36.1 Steve Hay -=head2 Perl 5.32 +=head2 Perl 5.34 - 2020-06-20 5.32.0 ✓ Sawyer X - 2021-01-23 5.32.1 ✓ Steve Hay + 2021-05-20 5.34.0 ✓ Sawyer X + 2022-03-13 5.34.1 ✓ Steve Hay =head1 DEVELOPMENT RELEASE SCHEDULE @@ -35,23 +35,23 @@ When shipping a release, you should include the schedule for (at least) the next four releases. If a stable version of Perl is released, you should reset the version numbers to the next blead series. -=head2 Perl 5.35 - - 2021-05-20 5.35.0 ✓ Ricardo Signes - 2021-06-20 5.35.1 ✓ Max Maischein - 2021-07-20 5.35.2 ✓ Neil Bowers - 2021-08-20 5.35.3 ✓ Karen Etheridge - 2021-09-20 5.35.4 ✓ Matthew Horsfall - 2021-10-20 5.35.5 ✓ Leon Timmermans - 2021-11-20 5.35.6 ✓ Richard Leach - 2021-12-20 5.35.7 ✓ Neil Bowers - 2022-01-20 5.35.8 ✓ Nicolas R - 2022-02-20 5.35.9 ✓ Renee Contentious changes freeze - 2022-03-20 5.35.10 ✓ Sawyer X User-visible changes to - correctly functioning programs - freeze - 2022-04-20 5.35.11 ✓ Steve Hay Full code freeze - 2022-05-20 5.36.0 Ricardo New perl! +=head2 Perl 5.37 + + 2022-05-27 5.37.0 ✓ Ricardo Signes + 2022-06-20 5.37.1 ✓ Matthew Horsfall + 2022-07-20 5.37.2 ✓ Nicolas R + 2022-08-20 5.37.3 ✓ Neil Bowers + 2022-09-20 5.37.4 ✓ Karen Etheridge + 2022-10-20 5.37.5 ✓ Todd Rinaldo + 2022-11-20 5.37.6 ✓ Max Maischein + 2022-12-20 5.37.7 ✓ Richard Leach + 2023-01-20 5.37.8 ✓ Renée Bäcker + 2023-02-20 5.37.9 ✓ Karen Etheridge Contentious changes freeze + 2023-03-20 5.37.10 ✓ Yves Orton User-visible changes to + correctly functioning + programs freeze + 2023-04-20 5.37.11 ✓ Steve Hay Full code freeze + 2023-05-20 5.38.0 Ricardo Signes New perl! =head1 VICTIMS diff --git a/gnu/usr.bin/perl/Porting/todo.pod b/gnu/usr.bin/perl/Porting/todo.pod index a775b201272..adb6fe0c989 100644 --- a/gnu/usr.bin/perl/Porting/todo.pod +++ b/gnu/usr.bin/perl/Porting/todo.pod @@ -486,7 +486,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.36.0. +options would be nice for perl 5.36.1. =head2 Profile Perl - am I hot or not? @@ -1183,7 +1183,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.36.0" +of 5.36.1" =head2 make ithreads more robust diff --git a/gnu/usr.bin/perl/README b/gnu/usr.bin/perl/README index 75628f153a7..7dd3a2db564 100644 --- a/gnu/usr.bin/perl/README +++ b/gnu/usr.bin/perl/README @@ -1,7 +1,5 @@ -Perl is Copyright (C) 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, -2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011, 2012, -2013, 2014, 2015, 2016, 2017, 2018, 2019, 2020, 2021, 2022 -by Larry Wall and others. +Perl is Copyright (C) 1993 - 2023 by Larry Wall and others. + All rights reserved. diff --git a/gnu/usr.bin/perl/README.haiku b/gnu/usr.bin/perl/README.haiku index cd142d0329b..b052a72969a 100644 --- a/gnu/usr.bin/perl/README.haiku +++ b/gnu/usr.bin/perl/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.36.0/BePC-haiku/CORE/libperl.so . + cd /boot/common/lib; ln -s perl5/5.36.1/BePC-haiku/CORE/libperl.so . -Replace C<5.36.0> with your respective version of Perl. +Replace C<5.36.1> with your respective version of Perl. =head1 KNOWN PROBLEMS diff --git a/gnu/usr.bin/perl/README.macosx b/gnu/usr.bin/perl/README.macosx index 407b01d2bdb..06566f6948b 100644 --- a/gnu/usr.bin/perl/README.macosx +++ b/gnu/usr.bin/perl/README.macosx @@ -10,9 +10,9 @@ perlmacosx - Perl under Mac OS X This document briefly describes Perl under Mac OS X. - curl -O https://www.cpan.org/src/perl-5.36.0.tar.gz - tar -xzf perl-5.36.0.tar.gz - cd perl-5.36.0 + curl -O https://www.cpan.org/src/perl-5.36.1.tar.gz + tar -xzf perl-5.36.1.tar.gz + cd perl-5.36.1 ./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.36.0 as of this writing) builds without changes +The latest Perl release (5.36.1 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/gnu/usr.bin/perl/README.os2 b/gnu/usr.bin/perl/README.os2 index a3fe1dfc8fa..1f2b0201ee3 100644 --- a/gnu/usr.bin/perl/README.os2 +++ b/gnu/usr.bin/perl/README.os2 @@ -619,7 +619,7 @@ C<set PERLLIB_PREFIX> in F<Config.sys>, see L</"C<PERLLIB_PREFIX>">. =item Additional Perl modules - unzip perl_ste.zip -d f:/perllib/lib/site_perl/5.36.0/ + unzip perl_ste.zip -d f:/perllib/lib/site_perl/5.36.1/ 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/gnu/usr.bin/perl/README.vms b/gnu/usr.bin/perl/README.vms index 0981579fa50..70077782784 100644 --- a/gnu/usr.bin/perl/README.vms +++ b/gnu/usr.bin/perl/README.vms @@ -137,11 +137,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^.36^.0.tar + vmstar -xvf perl-5^.36^.1.tar Then set default to the top-level source directory like so: - set default [.perl-5^.36^.0] + set default [.perl-5^.36^.1] and proceed with configuration as described in the next section. diff --git a/gnu/usr.bin/perl/configure.com b/gnu/usr.bin/perl/configure.com index 1ea419785bc..e9001adaeee 100644 --- a/gnu/usr.bin/perl/configure.com +++ b/gnu/usr.bin/perl/configure.com @@ -1160,8 +1160,7 @@ $! base name early because not all questions are worth asking on all $! platforms. $! $! Please use F$ELEMENT(0,"-",archname) .EQS. "VMS_AXP" (or -$! "VMS_IA64") from here on to allow cross-platform configuration (e.g. -$! configure a IA64 build on an Alpha). +$! "VMS_IA64", "VMS_x86_64", etc.) from here on to query the current architecture. $! $ IF (F$GETSYI("HW_MODEL") .LT. 1024 .AND. F$GETSYI("HW_MODEL") .GT. 0) $ THEN @@ -1171,16 +1170,15 @@ $ exit 44 $ ELSE $ IF (F$GETSYI("ARCH_TYPE") .EQ. 2) $ THEN -$ archname = "VMS_AXP" -$ otherarch = "IA64" +$ archname = "VMS_AXP" ! oops, F$GETSYI("ARCH_NAME") gives us 'Alpha' not 'AXP' $ arch_type = "ARCH-TYPE=__AXP__" $ ELSE -$ archname = "VMS_IA64" -$ otherarch = "Alpha" -$ arch_type = "ARCH-TYPE=__IA64__" +$! This works for Itanium and x86_64 and hopefully whatever's next (AARCH64? RISC-V?) +$ archname = "VMS_" + F$GETSYI("ARCH_NAME") +$ arch_type = "ARCH-TYPE=__" + F$GETSYI("ARCH_NAME") + "__" $ ENDIF -$ alignbytes="8" $ ENDIF +$ alignbytes="8" $! $!: set the base revision $ baserev="5.0" diff --git a/gnu/usr.bin/perl/dist/Module-CoreList/Changes b/gnu/usr.bin/perl/dist/Module-CoreList/Changes index c5ebcdade11..0809894105b 100644 --- a/gnu/usr.bin/perl/dist/Module-CoreList/Changes +++ b/gnu/usr.bin/perl/dist/Module-CoreList/Changes @@ -1,3 +1,42 @@ +5.20230423 + - Updated for v5.36.1 + +5.20230420 + - Updated for v5.37.11 + +5.20230320 + - Updated for v5.37.10 + +5.20230220 + - Updated for v5.37.9 + +5.20230120 + - Updated for v5.37.8 + +5.20221220 + - Updated for v5.37.7 + +5.20221120 + - Updated for v5.37.6 + +5.20221024 + - Updated for v5.37.6 + +5.20221020 + - Updated for v5.37.5 + +5.20220920 + - Updated for v5.37.4 + +5.20220820 + - Updated for v5.37.3 + +5.20220720 + - Updated for v5.37.2 + +5.20220620 + - Updated for v5.37.1 + 5.20220520 - Updated for v5.35.12 diff --git a/gnu/usr.bin/perl/dist/Module-CoreList/Makefile.PL b/gnu/usr.bin/perl/dist/Module-CoreList/Makefile.PL index 03e71652522..6f1a674f7ab 100644 --- a/gnu/usr.bin/perl/dist/Module-CoreList/Makefile.PL +++ b/gnu/usr.bin/perl/dist/Module-CoreList/Makefile.PL @@ -8,7 +8,7 @@ push @extra, 'INSTALLDIRS' => 'perl' if $] >= 5.008009 and $] < 5.012; push @extra, 'META_MERGE' => { resources => { - repository => 'git://github.com/Perl/perl5.git', + repository => 'https://github.com/Perl/perl5.git', bugtracker => 'https://github.com/Perl/perl5/issues', homepage => "http://dev.perl.org/", }, diff --git a/gnu/usr.bin/perl/dist/Module-CoreList/lib/Module/CoreList.pm b/gnu/usr.bin/perl/dist/Module-CoreList/lib/Module/CoreList.pm index 29f815c4967..4d6d4466e26 100644 --- a/gnu/usr.bin/perl/dist/Module-CoreList/lib/Module/CoreList.pm +++ b/gnu/usr.bin/perl/dist/Module-CoreList/lib/Module/CoreList.pm @@ -4,7 +4,7 @@ use strict; our ( %released, %version, %families, %upstream, %bug_tracker, %deprecated, %delta ); use version; -our $VERSION = '5.20220520'; +our $VERSION = '5.20230423'; sub PKG_PATTERN () { q#\A[a-zA-Z_][0-9a-zA-Z_]*(?:(::|')[0-9a-zA-Z_]+)*\z# } sub _looks_like_invocant ($) { local $@; !!eval { $_[0]->isa(__PACKAGE__) } } @@ -392,6 +392,19 @@ sub changes_between { 5.035010 => '2022-03-20', 5.035011 => '2022-04-20', 5.036000 => '2022-05-27', + 5.037000 => '2022-05-27', + 5.037001 => '2022-06-20', + 5.037002 => '2022-07-20', + 5.037003 => '2022-08-20', + 5.037004 => '2022-09-20', + 5.037005 => '2022-10-20', + 5.037006 => '2022-11-20', + 5.037007 => '2022-12-20', + 5.037008 => '2023-01-20', + 5.037009 => '2023-02-20', + 5.037010 => '2023-03-20', + 5.037011 => '2023-04-20', + 5.036001 => '2023-04-23', ); for my $version ( sort { $a <=> $b } keys %released ) { @@ -19430,6 +19443,852 @@ for my $version ( sort { $a <=> $b } keys %released ) { removed => { } }, + 5.037000 => { + delta_from => 5.036000, + changed => { + 'feature' => '1.73', + 'Module::CoreList' => '5.20220527', + 'Module::CoreList::Utils'=> '5.20220527', + }, + removed => { + } + }, + 5.037001 => { + delta_from => 5.037000, + changed => { + 'B' => '1.84', + 'B::Op_private' => '5.037001', + 'Carp' => '1.53', + 'Carp::Heavy' => '1.53', + 'Config' => '5.037001', + 'Cwd' => '3.85', + 'Data::Dumper' => '2.185', + 'ExtUtils::CBuilder' => '0.280237', + 'ExtUtils::CBuilder::Base'=> '0.280237', + 'ExtUtils::CBuilder::Platform::Unix'=> '0.280237', + 'ExtUtils::CBuilder::Platform::VMS'=> '0.280237', + 'ExtUtils::CBuilder::Platform::Windows'=> '0.280237', + 'ExtUtils::CBuilder::Platform::Windows::BCC'=> '0.280237', + 'ExtUtils::CBuilder::Platform::Windows::GCC'=> '0.280237', + 'ExtUtils::CBuilder::Platform::Windows::MSVC'=> '0.280237', + 'ExtUtils::CBuilder::Platform::aix'=> '0.280237', + 'ExtUtils::CBuilder::Platform::android'=> '0.280237', + 'ExtUtils::CBuilder::Platform::cygwin'=> '0.280237', + 'ExtUtils::CBuilder::Platform::darwin'=> '0.280237', + 'ExtUtils::CBuilder::Platform::dec_osf'=> '0.280237', + 'ExtUtils::CBuilder::Platform::os2'=> '0.280237', + 'ExtUtils::Miniperl' => '1.12', + 'File::Spec' => '3.85', + 'File::Spec::AmigaOS' => '3.85', + 'File::Spec::Cygwin' => '3.85', + 'File::Spec::Epoc' => '3.85', + 'File::Spec::Functions' => '3.85', + 'File::Spec::Mac' => '3.85', + 'File::Spec::OS2' => '3.85', + 'File::Spec::Unix' => '3.85', + 'File::Spec::VMS' => '3.85', + 'File::Spec::Win32' => '3.85', + 'FileHandle' => '2.04', + 'GDBM_File' => '1.24', + 'IO::Handle' => '1.49', + 'IO::Pipe' => '1.50', + 'IO::Socket::INET' => '1.50', + 'IO::Socket::UNIX' => '1.50', + 'Module::CoreList' => '5.20220620', + 'Module::CoreList::Utils'=> '5.20220620', + 'ODBM_File' => '1.18', + 'OS2::REXX' => '1.06', + 'Opcode' => '1.58', + 'POSIX' => '2.04', + 'SDBM_File' => '1.16', + 'Unicode::Normalize' => '1.32', + 'XS::APItest' => '1.23', + 'builtin' => '0.007', + 'encoding::warnings' => '0.14', + 'feature' => '1.74', + 'threads' => '2.28', + }, + removed => { + } + }, + 5.037002 => { + delta_from => 5.037001, + changed => { + 'B' => '1.85', + 'B::Concise' => '1.007', + 'B::Deparse' => '1.65', + 'B::Op_private' => '5.037002', + 'CPAN' => '2.34', + 'CPAN::Distribution' => '2.34', + 'Compress::Raw::Bzip2' => '2.201', + 'Compress::Raw::Zlib' => '2.202', + 'Compress::Zlib' => '2.201', + 'Config' => '5.037002', + 'Cwd' => '3.86', + 'DB_File' => '1.858', + 'Data::Dumper' => '2.186', + 'Encode' => '3.18', + 'Encode::MIME::Header' => '2.29', + 'File::Glob' => '1.38', + 'File::Spec' => '3.86', + 'File::Spec::AmigaOS' => '3.86', + 'File::Spec::Cygwin' => '3.86', + 'File::Spec::Epoc' => '3.86', + 'File::Spec::Functions' => '3.86', + 'File::Spec::Mac' => '3.86', + 'File::Spec::OS2' => '3.86', + 'File::Spec::Unix' => '3.86', + 'File::Spec::VMS' => '3.86', + 'File::Spec::Win32' => '3.86', + 'Filter::Util::Call' => '1.61', + 'Hash::Util' => '0.29', + 'I18N::LangTags::List' => '0.41', + 'IO::Compress::Adapter::Bzip2'=> '2.201', + 'IO::Compress::Adapter::Deflate'=> '2.201', + 'IO::Compress::Adapter::Identity'=> '2.201', + 'IO::Compress::Base' => '2.201', + 'IO::Compress::Base::Common'=> '2.201', + 'IO::Compress::Bzip2' => '2.201', + 'IO::Compress::Deflate' => '2.201', + 'IO::Compress::Gzip' => '2.201', + 'IO::Compress::Gzip::Constants'=> '2.201', + 'IO::Compress::RawDeflate'=> '2.201', + 'IO::Compress::Zip' => '2.201', + 'IO::Compress::Zip::Constants'=> '2.201', + 'IO::Compress::Zlib::Constants'=> '2.201', + 'IO::Compress::Zlib::Extra'=> '2.201', + 'IO::Uncompress::Adapter::Bunzip2'=> '2.201', + 'IO::Uncompress::Adapter::Identity'=> '2.201', + 'IO::Uncompress::Adapter::Inflate'=> '2.201', + 'IO::Uncompress::AnyInflate'=> '2.201', + 'IO::Uncompress::AnyUncompress'=> '2.201', + 'IO::Uncompress::Base' => '2.201', + 'IO::Uncompress::Bunzip2'=> '2.201', + 'IO::Uncompress::Gunzip'=> '2.201', + 'IO::Uncompress::Inflate'=> '2.201', + 'IO::Uncompress::RawInflate'=> '2.201', + 'IO::Uncompress::Unzip' => '2.201', + 'JSON::PP' => '4.10', + 'JSON::PP::Boolean' => '4.10', + 'Math::BigFloat' => '1.999837', + 'Math::BigFloat::Trace' => '0.66', + 'Math::BigInt' => '1.999837', + 'Math::BigInt::Calc' => '1.999837', + 'Math::BigInt::FastCalc'=> '0.5013', + 'Math::BigInt::Lib' => '1.999837', + 'Math::BigInt::Trace' => '0.66', + 'Math::BigRat' => '0.2624', + 'Math::BigRat::Trace' => '0.66', + 'Module::CoreList' => '5.20220720', + 'Module::CoreList::Utils'=> '5.20220720', + 'Opcode' => '1.59', + 'PerlIO::via::QuotedPrint'=> '0.10', + 'Pod::Checker' => '1.75', + 'Pod::Usage' => '2.03', + 'Socket' => '2.035', + 'Storable' => '3.27', + 'Test2' => '1.302191', + 'Test2::API' => '1.302191', + 'Test2::API::Breakage' => '1.302191', + 'Test2::API::Context' => '1.302191', + 'Test2::API::Instance' => '1.302191', + 'Test2::API::InterceptResult'=> '1.302191', + 'Test2::API::InterceptResult::Event'=> '1.302191', + 'Test2::API::InterceptResult::Facet'=> '1.302191', + 'Test2::API::InterceptResult::Hub'=> '1.302191', + 'Test2::API::InterceptResult::Squasher'=> '1.302191', + 'Test2::API::Stack' => '1.302191', + 'Test2::Event' => '1.302191', + 'Test2::Event::Bail' => '1.302191', + 'Test2::Event::Diag' => '1.302191', + 'Test2::Event::Encoding'=> '1.302191', + 'Test2::Event::Exception'=> '1.302191', + 'Test2::Event::Fail' => '1.302191', + 'Test2::Event::Generic' => '1.302191', + 'Test2::Event::Note' => '1.302191', + 'Test2::Event::Ok' => '1.302191', + 'Test2::Event::Pass' => '1.302191', + 'Test2::Event::Plan' => '1.302191', + 'Test2::Event::Skip' => '1.302191', + 'Test2::Event::Subtest' => '1.302191', + 'Test2::Event::TAP::Version'=> '1.302191', + 'Test2::Event::V2' => '1.302191', + 'Test2::Event::Waiting' => '1.302191', + 'Test2::EventFacet' => '1.302191', + 'Test2::EventFacet::About'=> '1.302191', + 'Test2::EventFacet::Amnesty'=> '1.302191', + 'Test2::EventFacet::Assert'=> '1.302191', + 'Test2::EventFacet::Control'=> '1.302191', + 'Test2::EventFacet::Error'=> '1.302191', + 'Test2::EventFacet::Hub'=> '1.302191', + 'Test2::EventFacet::Info'=> '1.302191', + 'Test2::EventFacet::Info::Table'=> '1.302191', + 'Test2::EventFacet::Meta'=> '1.302191', + 'Test2::EventFacet::Parent'=> '1.302191', + 'Test2::EventFacet::Plan'=> '1.302191', + 'Test2::EventFacet::Render'=> '1.302191', + 'Test2::EventFacet::Trace'=> '1.302191', + 'Test2::Formatter' => '1.302191', + 'Test2::Formatter::TAP' => '1.302191', + 'Test2::Hub' => '1.302191', + 'Test2::Hub::Interceptor'=> '1.302191', + 'Test2::Hub::Interceptor::Terminator'=> '1.302191', + 'Test2::Hub::Subtest' => '1.302191', + 'Test2::IPC' => '1.302191', + 'Test2::IPC::Driver' => '1.302191', + 'Test2::IPC::Driver::Files'=> '1.302191', + 'Test2::Tools::Tiny' => '1.302191', + 'Test2::Util' => '1.302191', + 'Test2::Util::ExternalMeta'=> '1.302191', + 'Test2::Util::Facets2Legacy'=> '1.302191', + 'Test2::Util::HashBase' => '1.302191', + 'Test2::Util::Trace' => '1.302191', + 'Test::Builder' => '1.302191', + 'Test::Builder::Formatter'=> '1.302191', + 'Test::Builder::Module' => '1.302191', + 'Test::Builder::Tester' => '1.302191', + 'Test::Builder::Tester::Color'=> '1.302191', + 'Test::Builder::TodoDiag'=> '1.302191', + 'Test::More' => '1.302191', + 'Test::Simple' => '1.302191', + 'Test::Tester' => '1.302191', + 'Test::Tester::Capture' => '1.302191', + 'Test::Tester::CaptureRunner'=> '1.302191', + 'Test::Tester::Delegate'=> '1.302191', + 'Test::use::ok' => '1.302191', + 'Text::Balanced' => '2.06', + 'XS::APItest' => '1.24', + 'bigfloat' => '0.66', + 'bigint' => '0.66', + 'bignum' => '0.66', + 'bigrat' => '0.66', + 'builtin' => '0.008', + 'feature' => '1.75', + 'ok' => '1.302191', + 'threads::shared' => '1.65', + }, + removed => { + } + }, + 5.037003 => { + delta_from => 5.037002, + changed => { + 'B' => '1.86', + 'B::Deparse' => '1.68', + 'B::Op_private' => '5.037003', + 'Config' => '5.037003', + 'Digest::SHA' => '6.03', + 'DynaLoader' => '1.53', + 'Encode' => '3.19', + 'Encode::Alias' => '2.25', + 'ExtUtils::PL2Bat' => '0.005', + 'File::Find' => '1.41', + 'Filter::Util::Call' => '1.64', + 'HTTP::Tiny' => '0.082', + 'JSON::PP' => '4.11', + 'JSON::PP::Boolean' => '4.11', + 'List::Util' => '1.63', + 'List::Util::XS' => '1.63', + 'Memoize' => '1.10', + 'Memoize::AnyDBM_File' => '1.10', + 'Memoize::Expire' => '1.10', + 'Memoize::NDBM_File' => '1.10', + 'Memoize::SDBM_File' => '1.10', + 'Memoize::Storable' => '1.10', + 'Module::CoreList' => '5.20220820', + 'Module::CoreList::Utils'=> '5.20220820', + 'NDBM_File' => '1.16', + 'Opcode' => '1.60', + 'Scalar::Util' => '1.63', + 'Socket' => '2.036', + 'Sub::Util' => '1.63', + 'XS::APItest' => '1.25', + 'attributes' => '0.35', + 'threads' => '2.29', + }, + removed => { + 'Memoize::ExpireFile' => 1, + 'Memoize::ExpireTest' => 1, + } + }, + 5.037004 => { + delta_from => 5.037003, + changed => { + 'B::Deparse' => '1.69', + 'B::Op_private' => '5.037004', + 'Carp' => '1.54', + 'Carp::Heavy' => '1.54', + 'Class::Struct' => '0.67', + 'Config' => '5.037004', + 'Config::Perl::V' => '0.34', + 'Errno' => '1.37', + 'ExtUtils::ParseXS' => '3.46', + 'ExtUtils::ParseXS::Constants'=> '3.46', + 'ExtUtils::ParseXS::CountLines'=> '3.46', + 'ExtUtils::ParseXS::Eval'=> '3.46', + 'ExtUtils::ParseXS::Utilities'=> '3.46', + 'ExtUtils::Typemaps' => '3.46', + 'ExtUtils::Typemaps::Cmd'=> '3.46', + 'ExtUtils::Typemaps::InputMap'=> '3.46', + 'ExtUtils::Typemaps::OutputMap'=> '3.46', + 'ExtUtils::Typemaps::Type'=> '3.46', + 'File::Basename' => '2.86', + 'File::Copy' => '2.40', + 'File::Spec' => '3.87', + 'File::stat' => '1.13', + 'FileHandle' => '2.05', + 'Hash::Util' => '0.30', + 'I18N::Langinfo' => '0.22', + 'IO' => '1.51', + 'IO::Dir' => '1.51', + 'IO::File' => '1.51', + 'IO::Handle' => '1.51', + 'IO::Pipe' => '1.51', + 'IO::Poll' => '1.51', + 'IO::Seekable' => '1.51', + 'IO::Select' => '1.51', + 'IO::Socket' => '1.51', + 'IO::Socket::INET' => '1.51', + 'IO::Socket::UNIX' => '1.51', + 'Locale::Maketext' => '1.32', + 'Module::CoreList' => '5.20220920', + 'Module::CoreList::Utils'=> '5.20220920', + 'Net::protoent' => '1.02', + 'Net::servent' => '1.03', + 'Opcode' => '1.61', + 'POSIX' => '2.06', + 'Safe' => '2.44', + 'Sys::Hostname' => '1.25', + 'Time::HiRes' => '1.9771', + 'User::grent' => '1.04', + 'User::pwent' => '1.02', + 'XS::APItest' => '1.26', + 'XSLoader' => '0.32', + 'feature' => '1.76', + }, + removed => { + } + }, + 5.037005 => { + delta_from => 5.037004, + changed => { + 'B::Deparse' => '1.70', + 'B::Op_private' => '5.037005', + 'Config' => '5.037005', + 'JSON::PP' => '4.12', + 'JSON::PP::Boolean' => '4.12', + 'Math::Complex' => '1.5903', + 'Math::Trig' => '1.2301', + 'Memoize' => '1.14', + 'Memoize::AnyDBM_File' => '1.14', + 'Memoize::Expire' => '1.14', + 'Memoize::NDBM_File' => '1.14', + 'Memoize::SDBM_File' => '1.14', + 'Memoize::Storable' => '1.14', + 'Module::CoreList' => '5.20221020', + 'Module::CoreList::Utils'=> '5.20221020', + 'Net::Ping' => '2.75', + 'POSIX' => '2.07', + 'Unicode' => '15.0.0', + 'threads' => '2.31', + 'warnings' => '1.59', + }, + removed => { + } + }, + 5.037006 => { + delta_from => 5.037005, + changed => { + 'Attribute::Handlers' => '1.03', + 'B' => '1.87', + 'B::Deparse' => '1.71', + 'B::Op_private' => '5.037006', + 'Config' => '5.037006', + 'Data::Dumper' => '2.187', + 'Devel::PPPort' => '3.69', + 'ExtUtils::CBuilder' => '0.280238', + 'ExtUtils::CBuilder::Base'=> '0.280238', + 'ExtUtils::CBuilder::Platform::Unix'=> '0.280238', + 'ExtUtils::CBuilder::Platform::VMS'=> '0.280238', + 'ExtUtils::CBuilder::Platform::Windows'=> '0.280238', + 'ExtUtils::CBuilder::Platform::Windows::BCC'=> '0.280238', + 'ExtUtils::CBuilder::Platform::Windows::GCC'=> '0.280238', + 'ExtUtils::CBuilder::Platform::Windows::MSVC'=> '0.280238', + 'ExtUtils::CBuilder::Platform::aix'=> '0.280238', + 'ExtUtils::CBuilder::Platform::android'=> '0.280238', + 'ExtUtils::CBuilder::Platform::cygwin'=> '0.280238', + 'ExtUtils::CBuilder::Platform::darwin'=> '0.280238', + 'ExtUtils::CBuilder::Platform::dec_osf'=> '0.280238', + 'ExtUtils::CBuilder::Platform::os2'=> '0.280238', + 'ExtUtils::ParseXS' => '3.48', + 'ExtUtils::ParseXS::Constants'=> '3.48', + 'ExtUtils::ParseXS::CountLines'=> '3.48', + 'ExtUtils::ParseXS::Eval'=> '3.48', + 'ExtUtils::ParseXS::Utilities'=> '3.48', + 'ExtUtils::Typemaps' => '3.48', + 'ExtUtils::Typemaps::Cmd'=> '3.48', + 'ExtUtils::Typemaps::InputMap'=> '3.48', + 'ExtUtils::Typemaps::OutputMap'=> '3.48', + 'ExtUtils::Typemaps::Type'=> '3.48', + 'Getopt::Long' => '2.54', + 'Memoize' => '1.15', + 'Memoize::AnyDBM_File' => '1.15', + 'Memoize::Expire' => '1.15', + 'Memoize::NDBM_File' => '1.15', + 'Memoize::SDBM_File' => '1.15', + 'Memoize::Storable' => '1.15', + 'Module::CoreList' => '5.20221120', + 'Module::CoreList::Utils'=> '5.20221120', + 'Opcode' => '1.62', + 'POSIX' => '2.08', + 'Storable' => '3.28', + 'Time::HiRes' => '1.9772', + 'XS::APItest' => '1.27', + 'experimental' => '0.029', + 'feature' => '1.77', + 'overload' => '1.36', + 'threads' => '2.32', + 'utf8' => '1.25', + 'warnings' => '1.61', + }, + removed => { + } + }, + 5.037007 => { + delta_from => 5.037006, + changed => { + 'B::Deparse' => '1.72', + 'B::Op_private' => '5.037007', + 'Config' => '5.037007', + 'Cwd' => '3.88', + 'ExtUtils::Miniperl' => '1.13', + 'ExtUtils::ParseXS' => '3.49', + 'ExtUtils::ParseXS::Constants'=> '3.49', + 'ExtUtils::ParseXS::CountLines'=> '3.49', + 'ExtUtils::ParseXS::Eval'=> '3.49', + 'ExtUtils::ParseXS::Utilities'=> '3.49', + 'ExtUtils::Typemaps' => '3.49', + 'ExtUtils::Typemaps::Cmd'=> '3.49', + 'ExtUtils::Typemaps::InputMap'=> '3.49', + 'ExtUtils::Typemaps::OutputMap'=> '3.49', + 'ExtUtils::Typemaps::Type'=> '3.49', + 'File::Glob' => '1.39', + 'File::Spec' => '3.88', + 'File::Spec::AmigaOS' => '3.88', + 'File::Spec::Cygwin' => '3.88', + 'File::Spec::Epoc' => '3.88', + 'File::Spec::Functions' => '3.88', + 'File::Spec::Mac' => '3.88', + 'File::Spec::OS2' => '3.88', + 'File::Spec::Unix' => '3.88', + 'File::Spec::VMS' => '3.88', + 'File::Spec::Win32' => '3.88', + 'Module::CoreList' => '5.20221220', + 'Module::CoreList::Utils'=> '5.20221220', + 'Opcode' => '1.63', + 'POSIX' => '2.10', + 'Pod::Html' => '1.34', + 'Pod::Html::Util' => '1.34', + 'Pod::Man' => '5.00', + 'Pod::ParseLink' => '5.00', + 'Pod::Text' => '5.00', + 'Pod::Text::Color' => '5.00', + 'Pod::Text::Overstrike' => '5.00', + 'Pod::Text::Termcap' => '5.00', + 'XS::APItest' => '1.28', + 'experimental' => '0.030', + 'feature' => '1.78', + 'parent' => '0.239', + 'threads' => '2.33', + }, + removed => { + } + }, + 5.037008 => { + delta_from => 5.037007, + changed => { + 'B::Op_private' => '5.037008', + 'Config' => '5.037008', + 'Config::Perl::V' => '0.35', + 'ExtUtils::Command' => '7.66', + 'ExtUtils::Command::MM' => '7.66', + 'ExtUtils::Install' => '2.22', + 'ExtUtils::Installed' => '2.22', + 'ExtUtils::Liblist' => '7.66', + 'ExtUtils::Liblist::Kid'=> '7.66', + 'ExtUtils::MM' => '7.66', + 'ExtUtils::MM_AIX' => '7.66', + 'ExtUtils::MM_Any' => '7.66', + 'ExtUtils::MM_BeOS' => '7.66', + 'ExtUtils::MM_Cygwin' => '7.66', + 'ExtUtils::MM_DOS' => '7.66', + 'ExtUtils::MM_Darwin' => '7.66', + 'ExtUtils::MM_MacOS' => '7.66', + 'ExtUtils::MM_NW5' => '7.66', + 'ExtUtils::MM_OS2' => '7.66', + 'ExtUtils::MM_OS390' => '7.66', + 'ExtUtils::MM_QNX' => '7.66', + 'ExtUtils::MM_UWIN' => '7.66', + 'ExtUtils::MM_Unix' => '7.66', + 'ExtUtils::MM_VMS' => '7.66', + 'ExtUtils::MM_VOS' => '7.66', + 'ExtUtils::MM_Win32' => '7.66', + 'ExtUtils::MM_Win95' => '7.66', + 'ExtUtils::MY' => '7.66', + 'ExtUtils::MakeMaker' => '7.66', + 'ExtUtils::MakeMaker::Config'=> '7.66', + 'ExtUtils::MakeMaker::Locale'=> '7.66', + 'ExtUtils::MakeMaker::version'=> '7.66', + 'ExtUtils::MakeMaker::version::regex'=> '7.66', + 'ExtUtils::Mkbootstrap' => '7.66', + 'ExtUtils::Mksymlists' => '7.66', + 'ExtUtils::Packlist' => '2.22', + 'ExtUtils::testlib' => '7.66', + 'File::Find' => '1.42', + 'IO::Zlib' => '1.14', + 'JSON::PP' => '4.16', + 'JSON::PP::Boolean' => '4.16', + 'Math::Complex' => '1.6', + 'Math::Trig' => '1.6', + 'Module::CoreList' => '5.20230120', + 'Module::CoreList::Utils'=> '5.20230120', + 'POSIX' => '2.11', + 'Pod::Man' => '5.01', + 'Pod::ParseLink' => '5.01', + 'Pod::Text' => '5.01', + 'Pod::Text::Color' => '5.01', + 'Pod::Text::Overstrike' => '5.01', + 'Pod::Text::Termcap' => '5.01', + 'Storable' => '3.29', + 'XS::APItest' => '1.30', + 'feature' => '1.79', + 're' => '0.44', + 'threads' => '2.34', + }, + removed => { + } + }, + 5.037009 => { + delta_from => 5.037008, + changed => { + 'B' => '1.88', + 'B::Op_private' => '5.037009', + 'Compress::Raw::Bzip2' => '2.204', + 'Compress::Raw::Zlib' => '2.204', + 'Compress::Zlib' => '2.204', + 'Config' => '5.037009', + 'Devel::PPPort' => '3.70', + 'Devel::Peek' => '1.33', + 'Fatal' => '2.36', + 'File::Find' => '1.43', + 'IO::Compress::Adapter::Bzip2'=> '2.204', + 'IO::Compress::Adapter::Deflate'=> '2.204', + 'IO::Compress::Adapter::Identity'=> '2.204', + 'IO::Compress::Base' => '2.204', + 'IO::Compress::Base::Common'=> '2.204', + 'IO::Compress::Bzip2' => '2.204', + 'IO::Compress::Deflate' => '2.204', + 'IO::Compress::Gzip' => '2.204', + 'IO::Compress::Gzip::Constants'=> '2.204', + 'IO::Compress::RawDeflate'=> '2.204', + 'IO::Compress::Zip' => '2.204', + 'IO::Compress::Zip::Constants'=> '2.204', + 'IO::Compress::Zlib::Constants'=> '2.204', + 'IO::Compress::Zlib::Extra'=> '2.204', + 'IO::Uncompress::Adapter::Bunzip2'=> '2.204', + 'IO::Uncompress::Adapter::Identity'=> '2.204', + 'IO::Uncompress::Adapter::Inflate'=> '2.204', + 'IO::Uncompress::AnyInflate'=> '2.204', + 'IO::Uncompress::AnyUncompress'=> '2.204', + 'IO::Uncompress::Base' => '2.204', + 'IO::Uncompress::Bunzip2'=> '2.204', + 'IO::Uncompress::Gunzip'=> '2.204', + 'IO::Uncompress::Inflate'=> '2.204', + 'IO::Uncompress::RawInflate'=> '2.204', + 'IO::Uncompress::Unzip' => '2.204', + 'Math::Complex' => '1.61', + 'Math::Trig' => '1.61', + 'Memoize' => '1.16', + 'Memoize::AnyDBM_File' => '1.16', + 'Memoize::Expire' => '1.16', + 'Memoize::NDBM_File' => '1.16', + 'Memoize::SDBM_File' => '1.16', + 'Memoize::Storable' => '1.16', + 'Module::CoreList' => '5.20230220', + 'Module::CoreList::Utils'=> '5.20230220', + 'Opcode' => '1.64', + 'Term::Cap' => '1.18', + 'Test2' => '1.302192', + 'Test2::API' => '1.302192', + 'Test2::API::Breakage' => '1.302192', + 'Test2::API::Context' => '1.302192', + 'Test2::API::Instance' => '1.302192', + 'Test2::API::InterceptResult'=> '1.302192', + 'Test2::API::InterceptResult::Event'=> '1.302192', + 'Test2::API::InterceptResult::Facet'=> '1.302192', + 'Test2::API::InterceptResult::Hub'=> '1.302192', + 'Test2::API::InterceptResult::Squasher'=> '1.302192', + 'Test2::API::Stack' => '1.302192', + 'Test2::Event' => '1.302192', + 'Test2::Event::Bail' => '1.302192', + 'Test2::Event::Diag' => '1.302192', + 'Test2::Event::Encoding'=> '1.302192', + 'Test2::Event::Exception'=> '1.302192', + 'Test2::Event::Fail' => '1.302192', + 'Test2::Event::Generic' => '1.302192', + 'Test2::Event::Note' => '1.302192', + 'Test2::Event::Ok' => '1.302192', + 'Test2::Event::Pass' => '1.302192', + 'Test2::Event::Plan' => '1.302192', + 'Test2::Event::Skip' => '1.302192', + 'Test2::Event::Subtest' => '1.302192', + 'Test2::Event::TAP::Version'=> '1.302192', + 'Test2::Event::V2' => '1.302192', + 'Test2::Event::Waiting' => '1.302192', + 'Test2::EventFacet' => '1.302192', + 'Test2::EventFacet::About'=> '1.302192', + 'Test2::EventFacet::Amnesty'=> '1.302192', + 'Test2::EventFacet::Assert'=> '1.302192', + 'Test2::EventFacet::Control'=> '1.302192', + 'Test2::EventFacet::Error'=> '1.302192', + 'Test2::EventFacet::Hub'=> '1.302192', + 'Test2::EventFacet::Info'=> '1.302192', + 'Test2::EventFacet::Info::Table'=> '1.302192', + 'Test2::EventFacet::Meta'=> '1.302192', + 'Test2::EventFacet::Parent'=> '1.302192', + 'Test2::EventFacet::Plan'=> '1.302192', + 'Test2::EventFacet::Render'=> '1.302192', + 'Test2::EventFacet::Trace'=> '1.302192', + 'Test2::Formatter' => '1.302192', + 'Test2::Formatter::TAP' => '1.302192', + 'Test2::Hub' => '1.302192', + 'Test2::Hub::Interceptor'=> '1.302192', + 'Test2::Hub::Interceptor::Terminator'=> '1.302192', + 'Test2::Hub::Subtest' => '1.302192', + 'Test2::IPC' => '1.302192', + 'Test2::IPC::Driver' => '1.302192', + 'Test2::IPC::Driver::Files'=> '1.302192', + 'Test2::Tools::Tiny' => '1.302192', + 'Test2::Util' => '1.302192', + 'Test2::Util::ExternalMeta'=> '1.302192', + 'Test2::Util::Facets2Legacy'=> '1.302192', + 'Test2::Util::HashBase' => '1.302192', + 'Test2::Util::Trace' => '1.302192', + 'Test::Builder' => '1.302192', + 'Test::Builder::Formatter'=> '1.302192', + 'Test::Builder::Module' => '1.302192', + 'Test::Builder::Tester' => '1.302192', + 'Test::Builder::Tester::Color'=> '1.302192', + 'Test::Builder::TodoDiag'=> '1.302192', + 'Test::More' => '1.302192', + 'Test::Simple' => '1.302192', + 'Test::Tester' => '1.302192', + 'Test::Tester::Capture' => '1.302192', + 'Test::Tester::CaptureRunner'=> '1.302192', + 'Test::Tester::Delegate'=> '1.302192', + 'Test::use::ok' => '1.302192', + 'Tie::File' => '1.07', + 'UNIVERSAL' => '1.15', + 'autodie' => '2.36', + 'autodie::Scope::Guard' => '2.36', + 'autodie::Scope::GuardStack'=> '2.36', + 'autodie::Util' => '2.36', + 'autodie::exception' => '2.36', + 'autodie::exception::system'=> '2.36', + 'autodie::hints' => '2.36', + 'autodie::skip' => '2.36', + 'experimental' => '0.031', + 'feature' => '1.80', + 'mro' => '1.28', + 'ok' => '1.302192', + 'parent' => '0.241', + 'stable' => '0.031', + 'warnings' => '1.62', + }, + removed => { + } + }, + 5.037010 => { + delta_from => 5.037009, + changed => { + 'B::Op_private' => '5.037010', + 'Benchmark' => '1.24', + 'Class::Struct' => '0.68', + 'Config' => '5.03701', + 'Config::Perl::V' => '0.36', + 'Cwd' => '3.89', + 'Data::Dumper' => '2.188', + 'Digest::SHA' => '6.04', + 'Env' => '1.06', + 'Math::Complex' => '1.62', + 'Math::Trig' => '1.62', + 'Module::CoreList' => '5.20230320', + 'Module::CoreList::Utils'=> '5.20230320', + 'Net::Cmd' => '3.15', + 'Net::Config' => '3.15', + 'Net::Domain' => '3.15', + 'Net::FTP' => '3.15', + 'Net::FTP::A' => '3.15', + 'Net::FTP::E' => '3.15', + 'Net::FTP::I' => '3.15', + 'Net::FTP::L' => '3.15', + 'Net::FTP::dataconn' => '3.15', + 'Net::NNTP' => '3.15', + 'Net::Netrc' => '3.15', + 'Net::POP3' => '3.15', + 'Net::SMTP' => '3.15', + 'Net::Time' => '3.15', + 'POSIX' => '2.12', + 'Storable' => '3.31', + 'Test2' => '1.302194', + 'Test2::API' => '1.302194', + 'Test2::API::Breakage' => '1.302194', + 'Test2::API::Context' => '1.302194', + 'Test2::API::Instance' => '1.302194', + 'Test2::API::InterceptResult'=> '1.302194', + 'Test2::API::InterceptResult::Event'=> '1.302194', + 'Test2::API::InterceptResult::Facet'=> '1.302194', + 'Test2::API::InterceptResult::Hub'=> '1.302194', + 'Test2::API::InterceptResult::Squasher'=> '1.302194', + 'Test2::API::Stack' => '1.302194', + 'Test2::Event' => '1.302194', + 'Test2::Event::Bail' => '1.302194', + 'Test2::Event::Diag' => '1.302194', + 'Test2::Event::Encoding'=> '1.302194', + 'Test2::Event::Exception'=> '1.302194', + 'Test2::Event::Fail' => '1.302194', + 'Test2::Event::Generic' => '1.302194', + 'Test2::Event::Note' => '1.302194', + 'Test2::Event::Ok' => '1.302194', + 'Test2::Event::Pass' => '1.302194', + 'Test2::Event::Plan' => '1.302194', + 'Test2::Event::Skip' => '1.302194', + 'Test2::Event::Subtest' => '1.302194', + 'Test2::Event::TAP::Version'=> '1.302194', + 'Test2::Event::V2' => '1.302194', + 'Test2::Event::Waiting' => '1.302194', + 'Test2::EventFacet' => '1.302194', + 'Test2::EventFacet::About'=> '1.302194', + 'Test2::EventFacet::Amnesty'=> '1.302194', + 'Test2::EventFacet::Assert'=> '1.302194', + 'Test2::EventFacet::Control'=> '1.302194', + 'Test2::EventFacet::Error'=> '1.302194', + 'Test2::EventFacet::Hub'=> '1.302194', + 'Test2::EventFacet::Info'=> '1.302194', + 'Test2::EventFacet::Info::Table'=> '1.302194', + 'Test2::EventFacet::Meta'=> '1.302194', + 'Test2::EventFacet::Parent'=> '1.302194', + 'Test2::EventFacet::Plan'=> '1.302194', + 'Test2::EventFacet::Render'=> '1.302194', + 'Test2::EventFacet::Trace'=> '1.302194', + 'Test2::Formatter' => '1.302194', + 'Test2::Formatter::TAP' => '1.302194', + 'Test2::Hub' => '1.302194', + 'Test2::Hub::Interceptor'=> '1.302194', + 'Test2::Hub::Interceptor::Terminator'=> '1.302194', + 'Test2::Hub::Subtest' => '1.302194', + 'Test2::IPC' => '1.302194', + 'Test2::IPC::Driver' => '1.302194', + 'Test2::IPC::Driver::Files'=> '1.302194', + 'Test2::Tools::Tiny' => '1.302194', + 'Test2::Util' => '1.302194', + 'Test2::Util::ExternalMeta'=> '1.302194', + 'Test2::Util::Facets2Legacy'=> '1.302194', + 'Test2::Util::HashBase' => '1.302194', + 'Test2::Util::Trace' => '1.302194', + 'Test::Builder' => '1.302194', + 'Test::Builder::Formatter'=> '1.302194', + 'Test::Builder::Module' => '1.302194', + 'Test::Builder::Tester' => '1.302194', + 'Test::Builder::Tester::Color'=> '1.302194', + 'Test::Builder::TodoDiag'=> '1.302194', + 'Test::More' => '1.302194', + 'Test::Simple' => '1.302194', + 'Test::Tester' => '1.302194', + 'Test::Tester::Capture' => '1.302194', + 'Test::Tester::CaptureRunner'=> '1.302194', + 'Test::Tester::Delegate'=> '1.302194', + 'Test::use::ok' => '1.302194', + 'Time::HiRes' => '1.9774', + 'XS::APItest' => '1.32', + 'feature' => '1.81', + 'ok' => '1.302194', + 'overload' => '1.37', + 'threads' => '2.35', + 'threads::shared' => '1.67', + 'warnings' => '1.63', + 'warnings::register' => '1.05', + }, + removed => { + } + }, + 5.037011 => { + delta_from => 5.037010, + changed => { + 'B::Deparse' => '1.73', + 'B::Op_private' => '5.037011', + 'Config' => '5.037011', + 'Devel::PPPort' => '3.71', + 'ExtUtils::Command' => '7.70', + 'ExtUtils::Command::MM' => '7.70', + 'ExtUtils::Liblist' => '7.70', + 'ExtUtils::Liblist::Kid'=> '7.70', + 'ExtUtils::MM' => '7.70', + 'ExtUtils::MM_AIX' => '7.70', + 'ExtUtils::MM_Any' => '7.70', + 'ExtUtils::MM_BeOS' => '7.70', + 'ExtUtils::MM_Cygwin' => '7.70', + 'ExtUtils::MM_DOS' => '7.70', + 'ExtUtils::MM_Darwin' => '7.70', + 'ExtUtils::MM_MacOS' => '7.70', + 'ExtUtils::MM_NW5' => '7.70', + 'ExtUtils::MM_OS2' => '7.70', + 'ExtUtils::MM_OS390' => '7.70', + 'ExtUtils::MM_QNX' => '7.70', + 'ExtUtils::MM_UWIN' => '7.70', + 'ExtUtils::MM_Unix' => '7.70', + 'ExtUtils::MM_VMS' => '7.70', + 'ExtUtils::MM_VOS' => '7.70', + 'ExtUtils::MM_Win32' => '7.70', + 'ExtUtils::MM_Win95' => '7.70', + 'ExtUtils::MY' => '7.70', + 'ExtUtils::MakeMaker' => '7.70', + 'ExtUtils::MakeMaker::Config'=> '7.70', + 'ExtUtils::MakeMaker::Locale'=> '7.70', + 'ExtUtils::MakeMaker::version'=> '7.70', + 'ExtUtils::MakeMaker::version::regex'=> '7.70', + 'ExtUtils::Mkbootstrap' => '7.70', + 'ExtUtils::Mksymlists' => '7.70', + 'ExtUtils::ParseXS' => '3.50', + 'ExtUtils::ParseXS::Constants'=> '3.50', + 'ExtUtils::ParseXS::CountLines'=> '3.50', + 'ExtUtils::ParseXS::Eval'=> '3.50', + 'ExtUtils::ParseXS::Utilities'=> '3.50', + 'ExtUtils::testlib' => '7.70', + 'File::Copy' => '2.41', + 'Locale::Maketext' => '1.33', + 'Module::CoreList' => '5.20230420', + 'Module::CoreList::Utils'=> '5.20230420', + 'Net::Ping' => '2.76', + 'feature' => '1.82', + 'threads' => '2.36', + 'threads::shared' => '1.68', + 'warnings' => '1.64', + }, + removed => { + } + }, + 5.036001 => { + delta_from => 5.036000, + changed => { + 'B::Op_private' => '5.036001', + 'Config' => '5.036001', + 'Module::CoreList' => '5.20230423', + 'Module::CoreList::Utils'=> '5.20230423', + }, + removed => { + } + }, ); sub is_core @@ -20733,6 +21592,97 @@ sub is_core removed => { } }, + 5.037000 => { + delta_from => 5.036000, + changed => { + }, + removed => { + } + }, + 5.037001 => { + delta_from => 5.037000, + changed => { + }, + removed => { + } + }, + 5.037002 => { + delta_from => 5.037001, + changed => { + }, + removed => { + } + }, + 5.037003 => { + delta_from => 5.037002, + changed => { + }, + removed => { + } + }, + 5.037004 => { + delta_from => 5.037003, + changed => { + }, + removed => { + } + }, + 5.037005 => { + delta_from => 5.037004, + changed => { + }, + removed => { + } + }, + 5.037006 => { + delta_from => 5.037005, + changed => { + }, + removed => { + } + }, + 5.037007 => { + delta_from => 5.037006, + changed => { + }, + removed => { + } + }, + 5.037008 => { + delta_from => 5.037007, + changed => { + }, + removed => { + } + }, + 5.037009 => { + delta_from => 5.037008, + changed => { + }, + removed => { + } + }, + 5.037010 => { + delta_from => 5.037009, + changed => { + }, + removed => { + } + }, + 5.037011 => { + delta_from => 5.037010, + changed => { + }, + removed => { + } + }, + 5.036001 => { + delta_from => 5.036, + changed => { + }, + removed => { + } + }, ); %deprecated = _undelta(\%deprecated); @@ -21356,14 +22306,14 @@ sub is_core 'Math::BigRat::Trace' => undef, 'Math::Complex' => undef, 'Math::Trig' => undef, - 'Memoize' => undef, - 'Memoize::AnyDBM_File' => undef, - 'Memoize::Expire' => undef, + 'Memoize' => 'https://rt.cpan.org/Dist/Display.html?Name=Memoize', + 'Memoize::AnyDBM_File' => 'https://rt.cpan.org/Dist/Display.html?Name=Memoize', + 'Memoize::Expire' => 'https://rt.cpan.org/Dist/Display.html?Name=Memoize', 'Memoize::ExpireFile' => undef, 'Memoize::ExpireTest' => undef, - 'Memoize::NDBM_File' => undef, - 'Memoize::SDBM_File' => undef, - 'Memoize::Storable' => undef, + 'Memoize::NDBM_File' => 'https://rt.cpan.org/Dist/Display.html?Name=Memoize', + 'Memoize::SDBM_File' => 'https://rt.cpan.org/Dist/Display.html?Name=Memoize', + 'Memoize::Storable' => 'https://rt.cpan.org/Dist/Display.html?Name=Memoize', 'Module::Load' => undef, 'Module::Load::Conditional'=> undef, 'Module::Loaded' => undef, @@ -21389,8 +22339,8 @@ sub is_core 'PerlIO::via::QuotedPrint'=> undef, 'Pod::Checker' => undef, 'Pod::Escapes' => undef, - 'Pod::Man' => 'https://rt.cpan.org/Dist/Display.html?Name=podlators', - 'Pod::ParseLink' => 'https://rt.cpan.org/Dist/Display.html?Name=podlators', + 'Pod::Man' => 'https://github.com/rra/podlators/issues', + 'Pod::ParseLink' => 'https://github.com/rra/podlators/issues', 'Pod::Perldoc' => undef, 'Pod::Perldoc::BaseTo' => undef, 'Pod::Perldoc::GetOptsOO'=> undef, @@ -21433,10 +22383,10 @@ sub is_core 'Pod::Simple::TranscodeSmart'=> 'https://github.com/perl-pod/pod-simple/issues', 'Pod::Simple::XHTML' => 'https://github.com/perl-pod/pod-simple/issues', 'Pod::Simple::XMLOutStream'=> 'https://github.com/perl-pod/pod-simple/issues', - 'Pod::Text' => 'https://rt.cpan.org/Dist/Display.html?Name=podlators', - 'Pod::Text::Color' => 'https://rt.cpan.org/Dist/Display.html?Name=podlators', - 'Pod::Text::Overstrike' => 'https://rt.cpan.org/Dist/Display.html?Name=podlators', - 'Pod::Text::Termcap' => 'https://rt.cpan.org/Dist/Display.html?Name=podlators', + 'Pod::Text' => 'https://github.com/rra/podlators/issues', + 'Pod::Text::Color' => 'https://github.com/rra/podlators/issues', + 'Pod::Text::Overstrike' => 'https://github.com/rra/podlators/issues', + 'Pod::Text::Termcap' => 'https://github.com/rra/podlators/issues', 'Pod::Usage' => 'https://github.com/Dual-Life/Pod-Usage/issues', 'Scalar::Util' => 'https://rt.cpan.org/Public/Dist/Display.html?Name=Scalar-List-Utils', 'Socket' => undef, diff --git a/gnu/usr.bin/perl/dist/Module-CoreList/lib/Module/CoreList/Utils.pm b/gnu/usr.bin/perl/dist/Module-CoreList/lib/Module/CoreList/Utils.pm index dc1fd48ac51..6af9101f911 100644 --- a/gnu/usr.bin/perl/dist/Module-CoreList/lib/Module/CoreList/Utils.pm +++ b/gnu/usr.bin/perl/dist/Module-CoreList/lib/Module/CoreList/Utils.pm @@ -4,7 +4,7 @@ use strict; use warnings; use Module::CoreList; -our $VERSION = '5.20220520'; +our $VERSION = '5.20230423'; our %utilities; sub utilities { @@ -1804,6 +1804,97 @@ my %delta = ( removed => { } }, + 5.037000 => { + delta_from => 5.036000, + changed => { + }, + removed => { + } + }, + 5.037001 => { + delta_from => 5.037, + changed => { + }, + removed => { + } + }, + 5.037002 => { + delta_from => 5.037001, + changed => { + }, + removed => { + } + }, + 5.037003 => { + delta_from => 5.037002, + changed => { + }, + removed => { + } + }, + 5.037004 => { + delta_from => 5.037003, + changed => { + }, + removed => { + } + }, + 5.037005 => { + delta_from => 5.037004, + changed => { + }, + removed => { + } + }, + 5.037006 => { + delta_from => 5.037005, + changed => { + }, + removed => { + } + }, + 5.037007 => { + delta_from => 5.037006, + changed => { + }, + removed => { + } + }, + 5.037008 => { + delta_from => 5.037007, + changed => { + }, + removed => { + } + }, + 5.037009 => { + delta_from => 5.037008, + changed => { + }, + removed => { + } + }, + 5.037010 => { + delta_from => 5.037009, + changed => { + }, + removed => { + } + }, + 5.037011 => { + delta_from => 5.03701, + changed => { + }, + removed => { + } + }, + 5.036001 => { + delta_from => 5.036000, + changed => { + }, + removed => { + } + }, ); %utilities = Module::CoreList::_undelta(\%delta); diff --git a/gnu/usr.bin/perl/embed.fnc b/gnu/usr.bin/perl/embed.fnc index 7da9faa0d66..4d39cb6bde0 100644 --- a/gnu/usr.bin/perl/embed.fnc +++ b/gnu/usr.bin/perl/embed.fnc @@ -3079,21 +3079,21 @@ i |HV* |opmethod_stash |NN SV* meth #endif #if defined(PERL_IN_PP_SORT_C) -I |I32 |sv_ncmp |NN SV *const a|NN SV *const b -I |I32 |sv_ncmp_desc |NN SV *const a|NN SV *const b -I |I32 |sv_i_ncmp |NN SV *const a|NN SV *const b -I |I32 |sv_i_ncmp_desc |NN SV *const a|NN SV *const b -I |I32 |amagic_ncmp |NN SV *const a|NN SV *const b -I |I32 |amagic_ncmp_desc |NN SV *const a|NN SV *const b -I |I32 |amagic_i_ncmp |NN SV *const a|NN SV *const b -I |I32 |amagic_i_ncmp_desc |NN SV *const a|NN SV *const b -I |I32 |amagic_cmp |NN SV *const str1|NN SV *const str2 -I |I32 |amagic_cmp_desc |NN SV *const str1|NN SV *const str2 -I |I32 |cmp_desc |NN SV *const str1|NN SV *const str2 +i |I32 |sv_ncmp |NN SV *const a|NN SV *const b +i |I32 |sv_ncmp_desc |NN SV *const a|NN SV *const b +i |I32 |sv_i_ncmp |NN SV *const a|NN SV *const b +i |I32 |sv_i_ncmp_desc |NN SV *const a|NN SV *const b +i |I32 |amagic_ncmp |NN SV *const a|NN SV *const b +i |I32 |amagic_ncmp_desc |NN SV *const a|NN SV *const b +i |I32 |amagic_i_ncmp |NN SV *const a|NN SV *const b +i |I32 |amagic_i_ncmp_desc |NN SV *const a|NN SV *const b +i |I32 |amagic_cmp |NN SV *const str1|NN SV *const str2 +i |I32 |amagic_cmp_desc |NN SV *const str1|NN SV *const str2 +i |I32 |cmp_desc |NN SV *const str1|NN SV *const str2 # ifdef USE_LOCALE_COLLATE -I |I32 |amagic_cmp_locale |NN SV *const str1|NN SV *const str2 -I |I32 |amagic_cmp_locale_desc|NN SV *const str1|NN SV *const str2 -I |I32 |cmp_locale_desc|NN SV *const str1|NN SV *const str2 +i |I32 |amagic_cmp_locale |NN SV *const str1|NN SV *const str2 +i |I32 |amagic_cmp_locale_desc|NN SV *const str1|NN SV *const str2 +i |I32 |cmp_locale_desc|NN SV *const str1|NN SV *const str2 # endif S |I32 |sortcv |NN SV *const a|NN SV *const b S |I32 |sortcv_xsub |NN SV *const a|NN SV *const b @@ -3346,9 +3346,11 @@ ST |void |mem_log_common |enum mem_log_type mlt|const UV n|const UV typesize \ #endif #if defined(PERL_MEM_LOG) -pT |Malloc_t |mem_log_alloc |const UV nconst|UV typesize|NN const char *type_name|Malloc_t newalloc|NN const char *filename|const int linenumber|NN const char *funcname -pT |Malloc_t |mem_log_realloc |const UV n|const UV typesize|NN const char *type_name|Malloc_t oldalloc|Malloc_t newalloc|NN const char *filename|const int linenumber|NN const char *funcname -pT |Malloc_t |mem_log_free |Malloc_t oldalloc|NN const char *filename|const int linenumber|NN const char *funcname +CpT |Malloc_t |mem_log_alloc |const UV nconst|UV typesize|NN const char *type_name|Malloc_t newalloc|NN const char *filename|const int linenumber|NN const char *funcname +CpT |Malloc_t |mem_log_realloc |const UV n|const UV typesize|NN const char *type_name|Malloc_t oldalloc|Malloc_t newalloc|NN const char *filename|const int linenumber|NN const char *funcname +CpT |Malloc_t |mem_log_free |Malloc_t oldalloc|NN const char *filename|const int linenumber|NN const char *funcname +CpT |void |mem_log_new_sv|NN const SV *sv|NN const char *filename|int linenumber|NN const char *funcname +CpT |void |mem_log_del_sv|NN const SV *sv|NN const char *filename|int linenumber|NN const char *funcname #endif #if defined(PERL_IN_UTF8_C) diff --git a/gnu/usr.bin/perl/embed.h b/gnu/usr.bin/perl/embed.h index c221a8e2d1c..c061ab85a1c 100644 --- a/gnu/usr.bin/perl/embed.h +++ b/gnu/usr.bin/perl/embed.h @@ -887,6 +887,13 @@ #if defined(PERL_IN_SV_C) #define more_sv() Perl_more_sv(aTHX) #endif +#if defined(PERL_MEM_LOG) +#define mem_log_alloc Perl_mem_log_alloc +#define mem_log_del_sv Perl_mem_log_del_sv +#define mem_log_free Perl_mem_log_free +#define mem_log_new_sv Perl_mem_log_new_sv +#define mem_log_realloc Perl_mem_log_realloc +#endif #if defined(PERL_USE_3ARG_SIGHANDLER) #define csighandler Perl_csighandler #endif @@ -2029,11 +2036,6 @@ #define mem_log_common S_mem_log_common # endif # endif -# if defined(PERL_MEM_LOG) -#define mem_log_alloc Perl_mem_log_alloc -#define mem_log_free Perl_mem_log_free -#define mem_log_realloc Perl_mem_log_realloc -# endif # if defined(PERL_USES_PL_PIDSTATUS) && defined(PERL_IN_UTIL_C) #define pidgone(a,b) S_pidgone(aTHX_ a,b) # endif diff --git a/gnu/usr.bin/perl/ext/XS-APItest/t/xsub_h.t b/gnu/usr.bin/perl/ext/XS-APItest/t/xsub_h.t index 51b3d706042..a7e2541e425 100644 --- a/gnu/usr.bin/perl/ext/XS-APItest/t/xsub_h.t +++ b/gnu/usr.bin/perl/ext/XS-APItest/t/xsub_h.t @@ -117,7 +117,7 @@ foreach $XS_VERSION (undef, @versions) { is_deeply([XS_APIVERSION_valid("Pie")], [], "XS_APIVERSION_BOOTCHECK passes"); is(eval {XS_APIVERSION_invalid("Pie"); 1}, undef, "XS_APIVERSION_BOOTCHECK croaks for an invalid version"); -like($@, qr/Perl API version v1.0.16 of Pie does not match \Q$^V\E/a, +like($@, qr/Perl API version v1.0.16 of Pie does not match v5\.\d+\.\d+/, "expected error"); my @xsreturn; diff --git a/gnu/usr.bin/perl/gv.c b/gnu/usr.bin/perl/gv.c index 82825d1dab2..8158fb478a6 100644 --- a/gnu/usr.bin/perl/gv.c +++ b/gnu/usr.bin/perl/gv.c @@ -982,7 +982,7 @@ S_gv_fetchmeth_internal(pTHX_ HV* stash, SV* meth, const char* name, STRLEN len, } } - if (topgv && GvREFCNT(topgv) == 1) { + if (topgv && GvREFCNT(topgv) == 1 && !(flags & GV_NOUNIVERSAL)) { /* cache the fact that the method is not defined */ GvCVGEN(topgv) = topgen_cmp; } diff --git a/gnu/usr.bin/perl/handy.h b/gnu/usr.bin/perl/handy.h index 32e4da5f781..e314d337055 100644 --- a/gnu/usr.bin/perl/handy.h +++ b/gnu/usr.bin/perl/handy.h @@ -2734,10 +2734,6 @@ enum mem_log_type { MLT_DEL_SV }; # endif -# if defined(PERL_IN_SV_C) /* those are only used in sv.c */ -void Perl_mem_log_new_sv(const SV *sv, const char *filename, const int linenumber, const char *funcname); -void Perl_mem_log_del_sv(const SV *sv, const char *filename, const int linenumber, const char *funcname); -# endif # endif #endif diff --git a/gnu/usr.bin/perl/hints/catamount.sh b/gnu/usr.bin/perl/hints/catamount.sh index 8c5fce6dee6..45c078414aa 100644 --- a/gnu/usr.bin/perl/hints/catamount.sh +++ b/gnu/usr.bin/perl/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.36.0 +# mkdir -p /opt/perl-catamount/lib/perl5/5.36.1 # 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.36.0 +# cp -pr lib/* /opt/perl-catamount/lib/perl5/5.36.1 # 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/gnu/usr.bin/perl/lib/B/Op_private.pm b/gnu/usr.bin/perl/lib/B/Op_private.pm index 73a5b817524..2a81755bb09 100644 --- a/gnu/usr.bin/perl/lib/B/Op_private.pm +++ b/gnu/usr.bin/perl/lib/B/Op_private.pm @@ -118,7 +118,7 @@ package B::Op_private; our %bits; -our $VERSION = "5.036000"; +our $VERSION = "5.036001"; $bits{$_}{3} = 'OPpENTERSUB_AMPER' for qw(entersub rv2cv); $bits{$_}{6} = 'OPpENTERSUB_DB' for qw(entersub rv2cv); diff --git a/gnu/usr.bin/perl/makedef.pl b/gnu/usr.bin/perl/makedef.pl index 0d594043d0a..27076e3326d 100644 --- a/gnu/usr.bin/perl/makedef.pl +++ b/gnu/usr.bin/perl/makedef.pl @@ -489,7 +489,14 @@ unless ($define{'PERL_TRACK_MEMPOOL'}) { } unless ($define{'PERL_MEM_LOG'}) { - ++$skip{PL_mem_log}; + ++$skip{$_} foreach qw( + PL_mem_log + Perl_mem_log_alloc + Perl_mem_log_realloc + Perl_mem_log_free + Perl_mem_log_new_sv + Perl_mem_log_del_sv + ); } unless ($define{'MULTIPLICITY'}) { diff --git a/gnu/usr.bin/perl/mg.c b/gnu/usr.bin/perl/mg.c index 7a4727cedff..a5be8248fdb 100644 --- a/gnu/usr.bin/perl/mg.c +++ b/gnu/usr.bin/perl/mg.c @@ -3082,25 +3082,55 @@ Perl_magic_set(pTHX_ SV *sv, MAGIC *mg) IoLINES(GvIOp(PL_last_in_gv)) = SvIV(sv); break; case '^': - Safefree(IoTOP_NAME(GvIOp(PL_defoutgv))); - IoTOP_NAME(GvIOp(PL_defoutgv)) = savesvpv(sv); - IoTOP_GV(GvIOp(PL_defoutgv)) = gv_fetchsv(sv, GV_ADD, SVt_PVIO); + { + IO * const io = GvIO(PL_defoutgv); + if (!io) + break; + + Safefree(IoTOP_NAME(io)); + IoTOP_NAME(io) = savesvpv(sv); + IoTOP_GV(io) = gv_fetchsv(sv, GV_ADD, SVt_PVIO); + } break; case '~': - Safefree(IoFMT_NAME(GvIOp(PL_defoutgv))); - IoFMT_NAME(GvIOp(PL_defoutgv)) = savesvpv(sv); - IoFMT_GV(GvIOp(PL_defoutgv)) = gv_fetchsv(sv, GV_ADD, SVt_PVIO); + { + IO * const io = GvIO(PL_defoutgv); + if (!io) + break; + + Safefree(IoFMT_NAME(io)); + IoFMT_NAME(io) = savesvpv(sv); + IoFMT_GV(io) = gv_fetchsv(sv, GV_ADD, SVt_PVIO); + } break; case '=': - IoPAGE_LEN(GvIOp(PL_defoutgv)) = (SvIV(sv)); + { + IO * const io = GvIO(PL_defoutgv); + if (!io) + break; + + IoPAGE_LEN(io) = (SvIV(sv)); + } break; case '-': - IoLINES_LEFT(GvIOp(PL_defoutgv)) = (SvIV(sv)); - if (IoLINES_LEFT(GvIOp(PL_defoutgv)) < 0L) - IoLINES_LEFT(GvIOp(PL_defoutgv)) = 0L; + { + IO * const io = GvIO(PL_defoutgv); + if (!io) + break; + + IoLINES_LEFT(io) = (SvIV(sv)); + if (IoLINES_LEFT(io) < 0L) + IoLINES_LEFT(io) = 0L; + } break; case '%': - IoPAGE(GvIOp(PL_defoutgv)) = (SvIV(sv)); + { + IO * const io = GvIO(PL_defoutgv); + if (!io) + break; + + IoPAGE(io) = (SvIV(sv)); + } break; case '|': { diff --git a/gnu/usr.bin/perl/op.c b/gnu/usr.bin/perl/op.c index 7fa0cc63304..748a268d473 100644 --- a/gnu/usr.bin/perl/op.c +++ b/gnu/usr.bin/perl/op.c @@ -14749,13 +14749,40 @@ subroutine. CV * Perl_find_lexical_cv(pTHX_ PADOFFSET off) { - PADNAME *name = PAD_COMPNAME(off); + const PADNAME *name = PAD_COMPNAME(off); CV *compcv = PL_compcv; while (PadnameOUTER(name)) { - assert(PARENT_PAD_INDEX(name)); compcv = CvOUTSIDE(compcv); - name = PadlistNAMESARRAY(CvPADLIST(compcv)) + if (LIKELY(PARENT_PAD_INDEX(name))) { + name = PadlistNAMESARRAY(CvPADLIST(compcv)) [off = PARENT_PAD_INDEX(name)]; + } + else { + /* In an eval() in an inner scope like a function, the + intermediate pad in the sub might not be populated with the + sub. So search harder. + + It is possible we won't find the name in this + particular scope, but that's fine, if we don't we'll + find it in some outer scope. Finding it here will let us + go back to following the PARENT_PAD_INDEX() chain. + */ + const PADNAMELIST * const names = PadlistNAMES(CvPADLIST(compcv)); + PADNAME * const * const name_p = PadnamelistARRAY(names); + int offset; + for (offset = PadnamelistMAXNAMED(names); offset > 0; offset--) { + const PADNAME * const thisname = name_p[offset]; + /* The pv is copied from the outer PADNAME to the + inner PADNAMEs so we don't need to compare the + string contents + */ + if (thisname && PadnameLEN(thisname) == PadnameLEN(name) + && PadnamePV(thisname) == PadnamePV(name)) { + name = thisname; + break; + } + } + } } assert(!PadnameIsOUR(name)); if (!PadnameIsSTATE(name) && PadnamePROTOCV(name)) { diff --git a/gnu/usr.bin/perl/patchlevel.h b/gnu/usr.bin/perl/patchlevel.h index b2b2bee9a19..57880f126ca 100644 --- a/gnu/usr.bin/perl/patchlevel.h +++ b/gnu/usr.bin/perl/patchlevel.h @@ -39,7 +39,7 @@ Instead use one of the version comparison macros. See C<L</PERL_VERSION_EQ>>. #define PERL_REVISION 5 /* age */ #define PERL_VERSION 36 /* epoch */ -#define PERL_SUBVERSION 0 /* generation */ +#define PERL_SUBVERSION 1 /* generation */ /* The following numbers describe the earliest compatible version of Perl ("compatibility" here being defined as sufficient binary/API diff --git a/gnu/usr.bin/perl/perl.c b/gnu/usr.bin/perl/perl.c index 8ed84710e19..f6d9bd92605 100644 --- a/gnu/usr.bin/perl/perl.c +++ b/gnu/usr.bin/perl/perl.c @@ -3,7 +3,7 @@ * * Copyright (C) 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001 * 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011, 2012 - * 2013, 2014, 2015, 2016, 2017, 2018, 2019, 2020, 2021, 2022 + * 2013, 2014, 2015, 2016, 2017, 2018, 2019, 2020, 2021, 2022, 2023 * by Larry Wall and others * * You may distribute under the terms of either the GNU General Public @@ -3832,7 +3832,7 @@ S_minus_v(pTHX) #endif PerlIO_printf(PIO_stdout, - "\n\nCopyright 1987-2022, Larry Wall\n"); + "\n\nCopyright 1987-2023, Larry Wall\n"); #ifdef OS2 PerlIO_printf(PIO_stdout, "\n\nOS/2 port Copyright (c) 1990, 1991, Raymond Chen, Kai Uwe Rommel\n" diff --git a/gnu/usr.bin/perl/plan9/config_sh.sample b/gnu/usr.bin/perl/plan9/config_sh.sample index 02b46570c17..624e7cbde92 100644 --- a/gnu/usr.bin/perl/plan9/config_sh.sample +++ b/gnu/usr.bin/perl/plan9/config_sh.sample @@ -35,8 +35,8 @@ api_subversion='0' api_version='36' api_versionstring='5.36.0' ar='ar' -archlib='/sys/lib/perl5/5.36.0/386' -archlibexp='/sys/lib/perl5/5.36.0/386' +archlib='/sys/lib/perl5/5.36.1/386' +archlibexp='/sys/lib/perl5/5.36.1/386' archname64='' archname='386' archobjs='' @@ -825,17 +825,17 @@ inc_version_list=' ' inc_version_list_init='0' incpath='' inews='' -installarchlib='/sys/lib/perl/5.36.0/386' +installarchlib='/sys/lib/perl/5.36.1/386' installbin='/usr/bin' installman1dir='/sys/man/1pub' installman3dir='/sys/man/2pub' installprefix='/usr' installprefixexp='/usr' -installprivlib='/sys/lib/perl/5.36.0' +installprivlib='/sys/lib/perl/5.36.1' installscript='/usr/bin' -installsitearch='/sys/lib/perl/5.36.0/site_perl/386' +installsitearch='/sys/lib/perl/5.36.1/site_perl/386' installsitebin='/usr/bin' -installsitelib='/sys/lib/perl/5.36.0/site_perl' +installsitelib='/sys/lib/perl/5.36.1/site_perl' installstyle='lib/perl5' installusrbinperl='undef' installvendorarch='' @@ -961,8 +961,8 @@ pmake='' pr='' prefix='/usr' prefixexp='/usr' -privlib='/sys/lib/perl/5.36.0' -privlibexp='/sys/lib/perl/5.36.0' +privlib='/sys/lib/perl/5.36.1' +privlibexp='/sys/lib/perl/5.36.1' procselfexe='' prototype='define' ptrsize='4' @@ -1027,13 +1027,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.36.0/site_perl/386' +sitearch='/sys/lib/perl/5.36.1/site_perl/386' sitearchexp='/sys/lib/perl/site_perl/386' sitebin='/usr/bin' sitebinexp='/usr/bin' -sitelib='/sys/lib/perl/5.36.0/site_perl' -sitelib_stem='/sys/lib/perl/5.36.0/site_perl' -sitelibexp='/sys/lib/perl/5.36.0/site_perl' +sitelib='/sys/lib/perl/5.36.1/site_perl' +sitelib_stem='/sys/lib/perl/5.36.1/site_perl' +sitelibexp='/sys/lib/perl/5.36.1/site_perl' siteprefix='/usr' siteprefixexp='/usr' sizesize='4' @@ -1068,7 +1068,7 @@ stdio_stream_array='' strerror_r_proto='0' strings='/sys/include/ape/string.h' submit='' -subversion='0' +subversion='1' sysman='/sys/man/1pub' tail='' tar='' @@ -1149,8 +1149,8 @@ vendorlib_stem='' vendorlibexp='' vendorprefix='' vendorprefixexp='' -version='5.36.0' -version_patchlevel_string='version 36 subversion 0' +version='5.36.1' +version_patchlevel_string='version 36 subversion 1' versiononly='undef' vi='' xlibpth='' @@ -1165,7 +1165,7 @@ config_args='' config_argc=0 PERL_REVISION=5 PERL_VERSION=36 -PERL_SUBVERSION=0 +PERL_SUBVERSION=1 PERL_API_REVISION=5 PERL_API_VERSION=36 PERL_API_SUBVERSION=0 diff --git a/gnu/usr.bin/perl/pod/perl.pod b/gnu/usr.bin/perl/pod/perl.pod index 804fb07f1d6..dd55212c022 100644 --- a/gnu/usr.bin/perl/pod/perl.pod +++ b/gnu/usr.bin/perl/pod/perl.pod @@ -179,6 +179,7 @@ aux h2ph h2xs perlbug pl2pm pod2html pod2man splain xsubpp perlhist Perl history records perldelta Perl changes since previous version + perl5360delta Perl changes in version 5.36.0 perl5341delta Perl changes in version 5.34.1 perl5340delta Perl changes in version 5.34.0 perl5321delta Perl changes in version 5.32.1 diff --git a/gnu/usr.bin/perl/pod/perl5360delta.pod b/gnu/usr.bin/perl/pod/perl5360delta.pod new file mode 100644 index 00000000000..813d66db0f6 --- /dev/null +++ b/gnu/usr.bin/perl/pod/perl5360delta.pod @@ -0,0 +1,1587 @@ +=encoding utf8 + +=head1 NAME + +perl5360delta - what is new for perl v5.36.0 + +=head1 DESCRIPTION + +This document describes differences between the 5.34.0 release and the 5.36.0 +release. + +=head1 Core Enhancements + +=head2 C<use v5.36> + +As always, C<use v5.36> turns on the feature bundle for that version of Perl. + +The 5.36 bundle enables the C<signatures> feature. Introduced in Perl version +5.20.0, and modified several times since, the subroutine signatures feature is +now no longer considered experimental. It is now considered a stable language +feature and no longer prints a warning. + + use v5.36; + + sub add ($x, $y) { + return $x + $y; + } + +Despite this, certain elements of signatured subroutines remain experimental; +see below. + +The 5.36 bundle enables the C<isa> feature. Introduced in Perl version 5.32.0, +this operator has remained unchanged since then. The operator is now considered +a stable language feature. For more detail see L<perlop/Class Instance +Operator>. + +The 5.36 bundle also I<disables> the features C<indirect>, and +C<multidimensional>. These will forbid, respectively: the use of "indirect" +method calls (like C<$x = new Class;>); the use of a list expression as a hash +key to simulate sparse multidimensional arrays. The specifics of these changes +can be found in L<feature>, but the short version is: this is a bit like having +more C<use strict> turned on, disabling features that cause more trouble than +they're worth. + +Furthermore, C<use v5.36> will also enable warnings as if you'd written C<use +warnings>. + +Finally, with this release, the experimental C<switch> feature, present in +every feature bundle since they were introduced in v5.10, has been removed from +the v5.36 bundle. If you want to use it (against our advice), you'll have to +enable it explicitly. + +=head2 -g command-line flag + +A new command-line flag, -g, is available. It is a simpler alias for -0777. + +For more information, see L<perlrun/-g>. + +=head2 Unicode 14.0 is supported + +See L<https://www.unicode.org/versions/Unicode14.0.0/> for details. + +=head2 regex sets are no longer considered experimental + +Prior to this release, the regex sets feature (officially named +"Extended Bracketed Character Classes") was considered experimental. +Introduced in Perl version 5.18.0, and modified several times since, +this is now considered a stable language feature and its use no longer +prints a warning. See L<perlrecharclass/Extended Bracketed Character +Classes>. + +=head2 Variable length lookbehind is mostly no longer considered experimental + +Prior to this release, any form of variable length lookbehind was +considered experimental. With this release the experimental status has +been reduced to cover only lookbehind that contains capturing parenthesis. +This is because it is not clear if + + "aaz"=~/(?=z)(?<=(a|aa))/ + +should match and leave $1 equaling "a" or "aa". Currently it will match +the longest possible alternative, "aa". While we are confident that the overall +construct will now match only when it should, we are not confident that we +will keep the current "longest match" behavior. + +=head2 SIGFPE no longer deferred + +Floating-point exceptions are now delivered immediately, in the same way +as other "fault"-like signals such as SIGSEGV. This means one has at +least a chance to catch such a signal with a C<$SIG{FPE}> handler, e.g. +so that C<die> can report the line in perl that triggered it. + +=head2 Stable boolean tracking + +The "true" and "false" boolean values, often accessed by constructions like +C<!!0> and C<!!1>, as well as being returned from many core functions and +operators, now remember their boolean nature even through assignment into +variables. The new function C<is_bool()> in L<builtin> can check whether +a value has boolean nature. + +This is likely to be useful when interoperating with other languages or +data-type serialisation, among other places. + +=head2 iterating over multiple values at a time (experimental) + +You can now iterate over multiple values at a time by specifying a list of +lexicals within parentheses. For example, + + for my ($key, $value) (%hash) { ... } + for my ($left, $right, $gripping) (@moties) { ... } + +Prior to perl v5.36, attempting to specify a list after C<for my> was a syntax +error. + +This feature is currently experimental and will cause a warning of category +C<experimental::for_list>. For more detail see L<perlsyn/Compound Statements>. +See also L</builtin::indexed> in this document, which is a handy companion to +n-at-a-time foreach. + +=head2 builtin functions (experimental) + +A new core module L<builtin> has been added, which provides documentation for +new always-present functions that are built into the interpreter. + + say "Reference type of arrays is ", builtin::reftype([]); + +It also provides a lexical import mechanism for providing short name versions +of these functions. + + use builtin 'reftype'; + say "Reference type of arrays is ", reftype([]); + +This builtin function mechanism and the functions it provides are all +currently B<experimental>. We expect that C<builtin> itself will cease to be +experimental in the near future, but that individual functions in it may become +stable on an ongoing basis. Other functions will be added to C<builtin> over +time. + +For details, see L<builtin>, but here's a summary of builtin functions in +v5.36: + +=over 4 + +=item builtin::trim + +This function treats its argument as a string, returning the result of removing +all white space at its beginning and ending. + +=item builtin::indexed + +This function returns a list twice as big as its argument list, where each item +is preceded by its index within that list. This is primarily useful for using +the new C<foreach> syntax with multiple iterator variables to iterate over an +array or list, while also tracking the index of each item: + + use builtin 'indexed'; + + foreach my ($index, $val) (indexed @array) { + ... + } + +=item builtin::true, builtin::false, builtin::is_bool + +C<true> and C<false> return boolean true and false values. Perl is still perl, +and doesn't have strict typing of booleans, but these values will be known to +have been created as booleans. C<is_bool> will tell you whether a value was +known to have been created as a boolean. + +=item builtin::weaken, builtin::unweaken, builtin::is_weak + +These functions will, respectively: weaken a reference; strengthen a reference; +and return whether a reference is weak. (A weak reference is not counted for +garbage collection purposes. See L<perlref>.) These can take the place of +some similar routines in L<Scalar::Util>. + +=item builtin::blessed, builtin::refaddr, builtin::reftype + +These functions provide more data about references (or non-references, +actually!) and can take the place of similar routines found in L<Scalar::Util>. + +=item builtin::ceil, builtin::floor + +C<ceil> returns the smallest integer greater than or equal to its argument. +C<floor> returns the largest integer less than or equal to its argument. These +can take the place of similar routines found in L<POSIX>. + +=back + +=head2 C<defer> blocks (experimental) + +This release adds support for C<defer> blocks, which are blocks of code +prefixed by the C<defer> modifier. They provide a section of code which runs +at a later time, during scope exit. + +In brief, when a C<defer> block is reached at runtime, its body is set aside to +be run when the enclosing scope is exited. It is unlike a UNITCHECK (among +other reasons) in that if the block I<containing> the C<defer> block is exited +before the block is reached, it will not be run. + +C<defer> blocks can be used to take the place of "scope guard" objects where an +object is passed a code block to be run by its destructor. + +For more information, see L<perlsyn/"defer blocks">. + +=head2 try/catch can now have a C<finally> block (experimental) + +The experimental C<try>/C<catch> syntax has been extended to support an +optional third block introduced by the C<finally> keyword. + + try { + attempt(); + print "Success\n"; + } + catch ($e) { + print "Failure\n"; + } + finally { + print "This happens regardless\n"; + } + +This provides code which runs at the end of the C<try>/C<catch> construct, +even if aborted by an exception or control-flow keyword. They are similar +to C<defer> blocks. + +For more information, see L<perlsyn/"Try Catch Exception Handling">. + +=head2 non-ASCII delimiters for quote-like operators (experimental) + +Perl traditionally has allowed just four pairs of string/pattern +delimiters: S<C<( )>> S<C<{ }>> S<C<[ ]>> and S<C<< < > >>>, all in the +ASCII range. Unicode has hundreds more possibilities, and using this +feature enables many of them. When enabled, you can say S<C<qr« »>> for +example, or S<C<use utf8; q𝄃string𝄂>>. See L<feature/The +'extra_paired_delimiters' feature> for details. + +=head2 @_ is now experimental within signatured subs + +Even though subroutine signatures are now stable, use of the legacy arguments +array (C<@_>) with a subroutine that has a signature I<remains> experimental, +with its own warning category. Silencing the C<experimental::signatures> +warning category is not sufficient to dismiss this. The new warning is emitted +with the category name C<experimental::args_array_with_signatures>. + +Any subroutine that has a signature and tries to make use of the defaults +argument array or an element thereof (C<@_> or C<$_[INDEX]>), either +explicitly or implicitly (such as C<shift> or C<pop> with no argument) will +provoke a warning at compile-time: + + use v5.36; + + sub f ($x, $y = 123) { + say "The first argument is $_[0]"; + } + +Z<> + + Use of @_ in array element with signatured subroutine is experimental + at file.pl line 4. + +The behaviour of code which attempts to do this is no longer specified, and +may be subject to change in a future version. + +=head1 Incompatible Changes + +=head2 A physically empty sort is now a compile-time error + + @a = sort @empty; # unaffected + @a = sort; # now a compile-time error + @a = sort (); # also a compile-time error + +A bare sort used to be a weird way to create an empty list; now it croaks +at compile time. This change is intended to free up some of the syntax space +for possible future enhancements to C<sort>. + +=head1 Deprecations + +=head2 C<use VERSION> (where VERSION is below v5.11) after C<use v5.11> is deprecated + +When in the scope of C<use v5.11> or later, a C<use vX> line where I<X> is +lower than v5.11 will now issue a warning: + + Downgrading a use VERSION declaration to below v5.11 is deprecated + +For example: + + use v5.14; + say "The say statement is permitted"; + use v5.8; # This will print a warning + print "We must use print\n"; + +This is because the Perl team plans to change the behavior in this case. Since +Perl v5.12 (and parts of v5.11), strict is enabled I<unless it had previously +been disabled>. In other words: + + no strict; + use v5.12; # will not enable strict, because "no strict" preceded it + $x = 1; # permitted, despite no "my" declaration + +In the future, this behavior will be eliminated and C<use VERSION> will +I<always> enable strict for versions v5.12 and later. + +Code which wishes to mix versions in this manner should use lexical scoping +with block syntax to ensure that the differently versioned regions remain +lexically isolated. + + { + use v5.14; + say "The say statement is permitted"; + } + + { + use v5.8; # No warning is emitted + print "We must use print\n"; + } + +Of course, this is probably not something you ever need to do! If the first +block compiles, it means you're using perl v5.14.0 or later. + +=head1 Performance Enhancements + +=over 4 + +=item * + +We now probe for compiler support for C11 thread local storage, and where +available use this for "implicit context" for XS extensions making API calls for +a threaded Perl build. This requires fewer function calls at the C level than +POSIX thread specific storage. We continue to use the the pthreads approach if +the C11 approach is not available. + +F<Configure> run with the defaults will build an unthreaded Perl (which is +slightly faster), but most operating systems ship a threaded Perl. + +=item * + +Perl can now be configured to no longer allocate keys for large hashes +from the shared string table. + +The same internal datatype (C<PVHV>) is used for all of + +=over 4 + +=item * + +Symbol tables + +=item * + +Objects (by default) + +=item * + +Associative arrays + +=back + +The shared string table was originally added to improve performance for blessed +hashes used as objects, because every object instance has the same keys, so it +is an optimisation to share memory between them. It also makes sense for symbol +tables, where derived classes will have the same keys (typically method names), +and the OP trees built for method calls can also share memory. The shared +string table behaves roughly like a cache for hash keys. + +But for hashes actually used as associative arrays - mapping keys to values - +typically the keys are not re-used in other hashes. For example, "seen" hashes +are keyed by object IDs (or addresses), and logically these keys won't repeat +in other hashes. + +Storing these "used just once" keys in the shared string table increases CPU +and RAM use for no gain. For such keys the shared string table behaves as a +cache with a 0% hit rate. Storing all the keys there increases the total size +of the shared string table, as well as increasing the number of times it is +resized as it grows. B<Worse> - in any environment that has "copy on write" +memory for child process (such as a pre-forking server), the memory pages used +for the shared string table rapidly need to be copied as the child process +manipulates hashes. Hence if most of the shared string table is such that keys +are used only in one place, there is no benefit from re-use within the perl +interpreter, but a high cost due to more pages for the OS to copy. + +The perl interpreter can now be Configured to disable shared hash keys +for "large" hashes (that are neither objects nor symbol tables). To do +so, add C<-Accflags='-DPERL_USE_UNSHARED_KEYS_IN_LARGE_HASHES'> to +your F<Configure> options. "Large" is a heuristic -- currently the +heuristic is that sharing is disabled when adding a key to a hash +triggers allocation of more storage, and the hash has more than 42 keys. + +This B<might> cause slightly increased memory usage for programs that create +(unblessed) data structures that contain multiple large hashes that share the +same keys. But generally our testing suggests that for the specific cases +described it is a win, and other code is unaffected. + +=item * + +In certain scenarios, creation of new scalars is now noticeably faster. + +For example, the following code is now executing ~30% faster: + + $str = "A" x 64; + for (0..1_000_000) { + @svs = split //, $str + } + +(You can read more about this one in L<[perl +#19414]|https://github.com/Perl/perl5/pull/19414>.) + +=back + +=head1 Modules and Pragmata + +=head2 Updated Modules and Pragmata + +=over 4 + +=item * + +L<Archive::Tar> has been upgraded from version 2.38 to 2.40. + +=item * + +L<Attribute::Handlers> has been upgraded from version 1.01 to 1.02. + +=item * + +L<attributes> has been upgraded from version 0.33 to 0.34. + +=item * + +L<B> has been upgraded from version 1.82 to 1.83. + +=item * + +L<B::Concise> has been upgraded from version 1.004 to 1.006. + +=item * + +L<B::Deparse> has been upgraded from version 1.56 to 1.64. + +=item * + +L<bignum> has been upgraded from version 0.51 to 0.65. + +=item * + +L<charnames> has been upgraded from version 1.48 to 1.50. + +=item * + +L<Compress::Raw::Bzip2> has been upgraded from version 2.101 to 2.103. + +=item * + +L<Compress::Raw::Zlib> has been upgraded from version 2.101 to 2.105. + +=item * + +L<CPAN> has been upgraded from version 2.28 to 2.33. + +=item * + +L<Data::Dumper> has been upgraded from version 2.179 to 2.184. + +=item * + +L<DB_File> has been upgraded from version 1.855 to 1.857. + +=item * + +L<Devel::Peek> has been upgraded from version 1.30 to 1.32. + +=item * + +L<Devel::PPPort> has been upgraded from version 3.62 to 3.68. + +=item * + +L<diagnostics> has been upgraded from version 1.37 to 1.39. + +=item * + +L<Digest> has been upgraded from version 1.19 to 1.20. + +=item * + +L<DynaLoader> has been upgraded from version 1.50 to 1.52. + +=item * + +L<Encode> has been upgraded from version 3.08 to 3.17. + +=item * + +L<Errno> has been upgraded from version 1.33 to 1.36. + +=item * + +L<experimental> has been upgraded from version 0.024 to 0.028. + +=item * + +L<Exporter> has been upgraded from version 5.76 to 5.77. + +=item * + +L<ExtUtils::MakeMaker> has been upgraded from version 7.62 to 7.64. + +=item * + +L<ExtUtils::Miniperl> has been upgraded from version 1.10 to 1.11. + +=item * + +L<ExtUtils::ParseXS> has been upgraded from version 3.43 to 3.45. + +=item * + +L<ExtUtils::Typemaps> has been upgraded from version 3.43 to 3.45. + +=item * + +L<Fcntl> has been upgraded from version 1.14 to 1.15. + +=item * + +L<feature> has been upgraded from version 1.64 to 1.72. + +=item * + +L<File::Compare> has been upgraded from version 1.1006 to 1.1007. + +=item * + +L<File::Copy> has been upgraded from version 2.35 to 2.39. + +=item * + +L<File::Fetch> has been upgraded from version 1.00 to 1.04. + +=item * + +L<File::Find> has been upgraded from version 1.39 to 1.40. + +=item * + +L<File::Glob> has been upgraded from version 1.33 to 1.37. + +=item * + +L<File::Spec> has been upgraded from version 3.80 to 3.84. + +=item * + +L<File::stat> has been upgraded from version 1.09 to 1.12. + +=item * + +L<FindBin> has been upgraded from version 1.52 to 1.53. + +=item * + +L<GDBM_File> has been upgraded from version 1.19 to 1.23. + +=item * + +L<Hash::Util> has been upgraded from version 0.25 to 0.28. + +=item * + +L<Hash::Util::FieldHash> has been upgraded from version 1.21 to 1.26. + +=item * + +L<HTTP::Tiny> has been upgraded from version 0.076 to 0.080. + +=item * + +L<I18N::Langinfo> has been upgraded from version 0.19 to 0.21. + +=item * + +L<if> has been upgraded from version 0.0609 to 0.0610. + +=item * + +L<IO> has been upgraded from version 1.46 to 1.50. + +=item * + +IO-Compress has been upgraded from version 2.102 to 2.106. + +=item * + +L<IPC::Open3> has been upgraded from version 1.21 to 1.22. + +=item * + +L<JSON::PP> has been upgraded from version 4.06 to 4.07. + +=item * + +libnet has been upgraded from version 3.13 to 3.14. + +=item * + +L<Locale::Maketext> has been upgraded from version 1.29 to 1.31. + +=item * + +L<Math::BigInt> has been upgraded from version 1.999818 to 1.999830. + +=item * + +L<Math::BigInt::FastCalc> has been upgraded from version 0.5009 to 0.5012. + +=item * + +L<Math::BigRat> has been upgraded from version 0.2614 to 0.2621. + +=item * + +L<Module::CoreList> has been upgraded from version 5.20210520 to 5.20220520. + +=item * + +L<mro> has been upgraded from version 1.25_001 to 1.26. + +=item * + +L<NEXT> has been upgraded from version 0.68 to 0.69. + +=item * + +L<Opcode> has been upgraded from version 1.50 to 1.57. + +=item * + +L<open> has been upgraded from version 1.12 to 1.13. + +=item * + +L<overload> has been upgraded from version 1.33 to 1.35. + +=item * + +L<perlfaq> has been upgraded from version 5.20210411 to 5.20210520. + +=item * + +L<PerlIO> has been upgraded from version 1.11 to 1.12. + +=item * + +L<Pod::Functions> has been upgraded from version 1.13 to 1.14. + +=item * + +L<Pod::Html> has been upgraded from version 1.27 to 1.33. + +=item * + +L<Pod::Simple> has been upgraded from version 3.42 to 3.43. + +=item * + +L<POSIX> has been upgraded from version 1.97 to 2.03. + +=item * + +L<re> has been upgraded from version 0.41 to 0.43. + +=item * + +L<Scalar::Util> has been upgraded from version 1.55 to 1.62. + +=item * + +L<sigtrap> has been upgraded from version 1.09 to 1.10. + +=item * + +L<Socket> has been upgraded from version 2.031 to 2.033. + +=item * + +L<sort> has been upgraded from version 2.04 to 2.05. + +=item * + +L<Storable> has been upgraded from version 3.23 to 3.26. + +=item * + +L<Sys::Hostname> has been upgraded from version 1.23 to 1.24. + +=item * + +L<Test::Harness> has been upgraded from version 3.43 to 3.44. + +=item * + +L<Test::Simple> has been upgraded from version 1.302183 to 1.302190. + +=item * + +L<Text::ParseWords> has been upgraded from version 3.30 to 3.31. + +=item * + +L<Text::Tabs> has been upgraded from version 2013.0523 to 2021.0814. + +=item * + +L<Text::Wrap> has been upgraded from version 2013.0523 to 2021.0814. + +=item * + +L<threads> has been upgraded from version 2.26 to 2.27. + +=item * + +L<threads::shared> has been upgraded from version 1.62 to 1.64. + +=item * + +L<Tie::Handle> has been upgraded from version 4.2 to 4.3. + +=item * + +L<Tie::Hash> has been upgraded from version 1.05 to 1.06. + +=item * + +L<Tie::Scalar> has been upgraded from version 1.05 to 1.06. + +=item * + +L<Tie::SubstrHash> has been upgraded from version 1.00 to 1.01. + +=item * + +L<Time::HiRes> has been upgraded from version 1.9767 to 1.9770. + +=item * + +L<Unicode::Collate> has been upgraded from version 1.29 to 1.31. + +=item * + +L<Unicode::Normalize> has been upgraded from version 1.28 to 1.31. + +=item * + +L<Unicode::UCD> has been upgraded from version 0.75 to 0.78. + +=item * + +L<UNIVERSAL> has been upgraded from version 1.13 to 1.14. + +=item * + +L<version> has been upgraded from version 0.9928 to 0.9929. + +=item * + +L<VMS::Filespec> has been upgraded from version 1.12 to 1.13. + +=item * + +L<VMS::Stdio> has been upgraded from version 2.45 to 2.46. + +=item * + +L<warnings> has been upgraded from version 1.51 to 1.58. + +=item * + +L<Win32> has been upgraded from version 0.57 to 0.59. + +=item * + +L<XS::APItest> has been upgraded from version 1.16 to 1.22. + +=item * + +L<XS::Typemap> has been upgraded from version 0.18 to 0.19. + +=item * + +L<XSLoader> has been upgraded from version 0.30 to 0.31. + +=back + +=head1 Documentation + +=head2 New Documentation + +=head3 F<Porting/vote_admin_guide.pod> + +This document provides the process for administering an election or vote +within the Perl Core Team. + +=head2 Changes to Existing Documentation + +We have attempted to update the documentation to reflect the changes +listed in this document. If you find any we have missed, open an issue +at L<https://github.com/Perl/perl5/issues>. + +Additionally, the following selected changes have been made: + +=head3 L<perlapi> + +=over 4 + +=item * + +This has been cleaned up some, and more than 80% of the (previously +many) undocumented functions have now either been documented or deemed +to have been inappropriately marked as API. + +As always, Patches Welcome! + +=back + +=head3 L<perldeprecation> + +=over 4 + +=item * + +notes the new location for functions moved from L<Pod::Html> to +L<Pod::Html::Util> that are no longer intended to be used outside of core. + +=back + +=head3 L<perlexperiment> + +=over 4 + +=item * + +notes the C<:win32> IO pseudolayer is removed (this happened in 5.35.2). + +=back + +=head3 L<perlgov> + +=over 4 + +=item * + +The election process has been finetuned to allow the vote to be skipped if there +are no more candidates than open seats. + +=item * + +A special election is now allowed to be postponed for up to twelve weeks, for +example until a normal election. + +=back + +=head3 L<perlop> + +=over 4 + +=item * + +now notes that an invocant only needs to be an object or class name +for method calls, not for subroutine references. + +=back + +=head3 L<perlre> + +=over 4 + +=item * + +Updated to discourage the use of the /d regexp modifier. + +=back + +=head3 L<perlrun> + +=over 4 + +=item * + +B<-?> is now a synonym for B<-h> + +=item * + +B<-g> is now a synonym for B<-0777> + +=back + +=head1 Diagnostics + +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>. + +=head2 New Diagnostics + +=head3 New Errors + +=over 4 + +=item * + +L<Can't "%s" out of a "defer" block|perldiag/"Can't "%s" out of a "defer" block"> + +(F) An attempt was made to jump out of the scope of a defer block by using +a control-flow statement such as C<return>, C<goto> or a loop control. This is +not permitted. + +=item * + +L<Can't modify %s in %s|perldiag/"Can't modify %s in %s"> (for scalar +assignment to C<undef>) + +Attempting to perform a scalar assignment to C<undef>, for example via +C<undef = $foo;>, previously triggered a fatal runtime error with the +message "L<Modification of a read-only value attempted|perldiag/"Modification of a read-only value attempted">." +It is more helpful to detect such attempted assignments prior to runtime, so +they are now compile time errors, resulting in the message "Can't modify undef +operator in scalar assignment". + +=item * + +L<panic: newFORLOOP, %s|perldiag/"panic: newFORLOOP, %s"> + +The parser failed an internal consistency check while trying to parse +a C<foreach> loop. + +=back + +=head3 New Warnings + +=over 4 + +=item * + +L<Built-in function '%s' is experimental|perldiag/"Built-in function '%s' is experimental"> + +A call is being made to a function in the C<builtin::> namespace, which is +currently experimental. + +=item * + +L<defer is experimental|perldiag/"defer is experimental"> + +The C<defer> block modifier is experimental. If you want to use the feature, +disable the warning with C<no warnings 'experimental::defer'>, but know that in +doing so you are taking the risk that your code may break in a future Perl +version. + +=item * + +L<Downgrading a use VERSION declaration to below v5.11 is deprecated|perldiag/"Downgrading a use VERSION declaration to below v5.11 is deprecated"> + +This warning is emitted on a C<use VERSION> statement that +requests a version below v5.11 (when the effects of C<use strict> would be +disabled), after a previous declaration of one having a larger number (which +would have enabled these effects) + +=item * + +L<for my (...) is experimental|perldiag/"for my (...) is experimental"> + +This warning is emitted if you use C<for> to iterate multiple values at +a time. This syntax is currently experimental and its behaviour may +change in future releases of Perl. + +=item * + +L<Implicit use of @_ in %s with signatured subroutine is experimental|perldiag/"Implicit use of @_ in %s with signatured subroutine is experimental"> + +An expression that implicitly involves the C<@_> arguments array was found in +a subroutine that uses a signature. + +=item * + +L<Use of @_ in %s with signatured subroutine is experimental|perldiag/"Use of @_ in %s with signatured subroutine is experimental"> + +An expression involving the C<@_> arguments array was found in a subroutine that uses a signature. + +=item * + +L<Wide character in $0|perldiag/"Wide character in %s"> + +Attempts to put wide characters into the program name (C<$0>) now provoke this +warning. + +=back + +=head2 Changes to Existing Diagnostics + +=over 4 + +=item * + +L<'E<sol>' does not take a repeat count in %s|perldiag/"'/' does not take a repeat count in %s"> + +This warning used to not include the C<in %s>. + +=item * + +L<Subroutine %s redefined|perldiag/"Subroutine %s redefined"> + +Localized subroutine redefinitions no longer trigger this warning. + +=item * + +L<unexpected constant lvalue entersub entry via typeE<sol>targ %d:%d"|perldiag/"panic: unexpected constant lvalue entersub entry via type/targ %d:%d"> now has a panic prefix + +This makes it consistent with other checks of internal consistency when +compiling a subroutine. + +=item * + +L<Useless use of sort in scalar context|perldiag/"Useless use of %s in scalar +context"> is now in the new C<scalar> category. + +When C<sort> is used in scalar context, it provokes a warning that doing this +is not useful. This warning used to be in the C<void> category. A new category +for warnings about scalar context has now been added, called C<scalar>. + +=item * + +Removed a number of diagnostics + +Many diagnostics that have been removed from the perl core across many years +have now I<also> been removed from the documentation. + +=back + +=head1 Configuration and Compilation + +=over 4 + +=item * + +The Perl C source code now uses some C99 features, which we have verified are +supported by all compilers we target. This means that Perl's headers now +contain some code that is legal in C99 but not C89. + +This may cause problems for some XS modules that unconditionally add +C<-Werror=declaration-after-statement> to their C compiler flags if compiling +with gcc or clang. Earlier versions of Perl support long obsolete compilers +that are strict in rejecting certain C99 features, particularly mixed +declarations and code, and hence it makes sense for XS module authors to audit +that their code does not violate this. However, doing this is now only +possible on these earlier versions of Perl, hence these modules need to be +changed to only add this flag for C<<$] < 5.035005>>. + +=item * + +The makedepend step is now run in parallel by using make + +When using MAKEFLAGS=-j8, this significantly reduces the time required for: + + sh ./makedepend MAKE=make cflags + +=item * + +F<Configure> now tests whether C<< #include <xlocale.h> >> is required +to use the POSIX 1003 thread-safe locale functions or some related +extensions. This prevents problems where a non-public F<xlocale.h> is +removed in a library update, or F<xlocale.h> isn't intended for public +use. (github L<#18936|https://github.com/Perl/perl5/pull/18936>) + +=back + +=head1 Testing + +Tests were added and changed to reflect the other additions and changes +in this release. + +=head1 Platform Support + +=head2 Windows + +=over 4 + +=item * + +Support for old MSVC++ (pre-VC12) has been removed + +These did not support C99 and hence can no longer be used to compile perl. + +=item * + +Support for compiling perl on Windows using Microsoft Visual Studio 2022 +(containing Visual C++ 14.3) has been added. + +=item * + +The :win32 IO layer has been removed. This experimental replacement for the +:unix layer never reached maturity in its nearly two decades of existence. + +=back + +=head2 VMS + +=over 4 + +=item C<keys %ENV> on VMS returns consistent results + +On VMS entries in the C<%ENV> hash are loaded from the OS environment on +first access, hence the first iteration of C<%ENV> requires the entire +environment to be scanned to find all possible keys. This initialisation had +always been done correctly for full iteration, but previously was not +happening for C<%ENV> in scalar context, meaning that C<scalar %ENV> would +return 0 if called before any other C<%ENV> access, or would only return the +count of keys accessed if there had been no iteration. + +These bugs are now fixed - C<%ENV> and C<keys %ENV> in scalar context now +return the correct result - the count of all keys in the environment. + +=back + +=head2 Discontinued Platforms + +=over 4 + +=item AT&T UWIN + +UWIN is a UNIX compatibility layer for Windows. It was last released +in 2012 and has been superseded by Cygwin these days. + +=item DOS/DJGPP + +DJGPP is a port of the GNU toolchain to 32-bit x86 systems running +DOS. The last known attempt to build Perl on it was on 5.20, which +only got as far as building miniperl. + +=item NetWare + +Support code for Novell NetWare has been removed. NetWare was a +server operating system by Novell. The port was last updated in July +2002, and the platform itself in May 2009. + +Unrelated changes accidentally broke the build for the NetWare port in +September 2009, and in 12 years no-one has reported this. + +=back + +=head2 Platform-Specific Notes + +=over 4 + +=item z/OS + +This update enables us to build EBCDIC static/dynamic and 31-bit/64-bit +addressing mode Perl. The number of tests that pass is consistent with the +baseline before these updates. + +These changes also provide the base support to be able to provide ASCII +static/dynamic and 31-bit/64-bit addressing mode Perl. + +The z/OS (previously called OS/390) README was updated to describe ASCII and +EBCDIC builds. + +=back + +=head1 Internal Changes + +=over 4 + +=item * + +Since the removal of PERL_OBJECT in Perl 5.8, PERL_IMPLICIT_CONTEXT and +MULTIPLICITY have been synonymous and they were being used interchangeably. +To simplify the code, all instances of PERL_IMPLICIT_CONTEXT have been +replaced with MULTIPLICITY. + +PERL_IMPLICIT_CONTEXT will remain defined for compatibility with XS modules. + +=item * + +The API constant formerly named C<G_ARRAY>, indicating list context, has now +been renamed to a more accurate C<G_LIST>. A compatibilty macro C<G_ARRAY> has +been added to allow existing code to work unaffected. New code should be +written using the new constant instead. This is supported by C<Devel::PPPort> +version 3.63. + +=item * + +Macros have been added to F<perl.h> to facilitate version comparisons: +C<PERL_GCC_VERSION_GE>, C<PERL_GCC_VERSION_GT>, C<PERL_GCC_VERSION_LE> and +C<PERL_GCC_VERSION_LT>. + +Inline functions have been added to F<embed.h> to determine the position of +the least significant 1 bit in a word: C<lsbit_pos32> and C<lsbit_pos64>. + +=item * + +C<Perl_ptr_table_clear> has been deleted. This has been marked as deprecated +since v5.14.0 (released in 2011), and is not used by any code on CPAN. + +=item * + +Added new boolean macros and functions. See L</Stable boolean tracking> for +related information and L<perlapi> for documentation. + +=over 4 + +=item * + +sv_setbool + +=item * + +sv_setbool_mg + +=item * + +SvIsBOOL + +=back + +=item * + +Added 4 missing functions for dealing with RVs: + +=over 4 + +=item * + +sv_setrv_noinc + +=item * + +sv_setrv_noinc_mg + +=item * + +sv_setrv_inc + +=item * + +sv_setrv_inc_mg + +=back + +=item * + +C<xs_handshake()>'s two failure modes now provide distinct messages. + +=item * + +Memory for hash iterator state (C<struct xpvhv_aux>) is now allocated as part +of the hash body, instead of as part of the block of memory allocated for the +main hash array. + +=item * + +A new phase_name() interface provides access to the name for each interpreter +phase (i.e., PL_phase value). + +=item * + +The C<pack> behavior of C<U> has changed for EBCDIC. + +=item * + +New equality-test functions C<sv_numeq> and C<sv_streq> have been added, along +with C<..._flags>-suffixed variants. These expose a simple and consistent API +to perform numerical or string comparison which is aware of operator +overloading. + +=item * + +Reading the string form of an integer value no longer sets the flag C<SVf_POK>. +The string form is still cached internally, and still re-read directly by the +macros C<SvPV(sv)> I<etc> (inline, without calling a C function). XS code that +already calls the APIs to get values will not be affected by this change. XS +code that accesses flags directly instead of using API calls to express its +intent I<might> break, but such code likely is already buggy if passed some +other values, such as floating point values or objects with string overloading. + +This small change permits code (such as JSON serializers) to reliably determine +between + +=over 4 + +=item * + +a value that was initially B<written> as an integer, but then B<read> as a string + + my $answer = 42; + print "The answer is $answer\n"; + +=item * + +that same value that was initially B<written> as a string, but then B<read> as an integer + + my $answer = "42"; + print "That doesn't look right\n" + unless $answer == 6 * 9; + +=back + +For the first case (originally written as an integer), we now have: + + use Devel::Peek; + my $answer = 42; + Dump ($answer); + my $void = "$answer"; + print STDERR "\n"; + Dump($answer) + + + SV = IV(0x562538925778) at 0x562538925788 + REFCNT = 1 + FLAGS = (IOK,pIOK) + IV = 42 + + SV = PVIV(0x5625389263c0) at 0x562538925788 + REFCNT = 1 + FLAGS = (IOK,pIOK,pPOK) + IV = 42 + PV = 0x562538919b50 "42"\0 + CUR = 2 + LEN = 10 + +For the second (originally written as a string), we now have: + + use Devel::Peek; + my $answer = "42"; + Dump ($answer); + my $void = $answer == 6 * 9; + print STDERR "\n"; + Dump($answer)' + + + SV = PV(0x5586ffe9bfb0) at 0x5586ffec0788 + REFCNT = 1 + FLAGS = (POK,IsCOW,pPOK) + PV = 0x5586ffee7fd0 "42"\0 + CUR = 2 + LEN = 10 + COW_REFCNT = 1 + + SV = PVIV(0x5586ffec13c0) at 0x5586ffec0788 + REFCNT = 1 + FLAGS = (IOK,POK,IsCOW,pIOK,pPOK) + IV = 42 + PV = 0x5586ffee7fd0 "42"\0 + CUR = 2 + LEN = 10 + COW_REFCNT = 1 + +(One can't rely on the presence or absence of the flag C<SVf_IsCOW> to +determine the history of operations on a scalar.) + +Previously both cases would be indistinguishable, with all 4 flags set: + + SV = PVIV(0x55d4d62edaf0) at 0x55d4d62f0930 + REFCNT = 1 + FLAGS = (IOK,POK,pIOK,pPOK) + IV = 42 + PV = 0x55d4d62e1740 "42"\0 + CUR = 2 + LEN = 10 + +(and possibly C<SVf_IsCOW>, but not always) + +This now means that if XS code I<really> needs to determine which form a value +was first written as, it should implement logic roughly + + if (flags & SVf_IOK|SVf_NOK) && !(flags & SVf_POK) + serialize as number + else if (flags & SVf_POK) + serialize as string + else + the existing guesswork ... + +Note that this doesn't cover "dualvars" - scalars that report different +values when asked for their string form or number form (such as C<$!>). +Most serialization formats cannot represent such duplicity. + +I<The existing guesswork> remains because as well as dualvars, values might +be C<undef>, references, overloaded references, typeglobs and other things that +Perl itself can represent but do not map one-to-one into external formats, so +need some amount of approximation or encapsulation. + +=item * + +C<sv_dump> (and L<Devel::Peek>’s C<Dump> function) now escapes high-bit +octets in the PV as hex rather than octal. Since most folks understand hex +more readily than octal, this should make these dumps a bit more legible. +This does B<not> affect any other diagnostic interfaces like C<pv_display>. + +=back + +=head1 Selected Bug Fixes + +=over 4 + +=item * + +utime() now correctly sets errno/C<$!> when called on a closed handle. + +=item * + +The flags on the OPTVAL parameter to setsockopt() were previously +checked before magic was called, possibly treating a numeric value as +a packed buffer or vice versa. It also ignored the UTF-8 flag, +potentially treating the internal representation of an upgraded SV as +the bytes to supply to the setsockopt() system call. (github L<#18660|https://github.com/Perl/perl5/issues/18660>) + +=item * + +Only set IOKp, not IOK on $) and $(. +This was issue L<#18955|https://github.com/Perl/perl5/issues/18955>: This will prevent serializers from serializing these +variables as numbers (which loses the additional groups). +This restores behaviour from 5.16 + +=item * + +Use of the C<mktables> debugging facility would cause perl to croak since +v5.31.10; this problem has now been fixed. + +=item * + +C<makedepend> logic is now compatible with BSD make (fixes +L<GH #19046|https://github.com/Perl/perl5/issues/19046>). + +=item * + +Calling C<untie> on a tied hash that is partway through iteration now frees the +iteration state immediately. + +Iterating a tied hash causes perl to store a copy of the current hash key to +track the iteration state, with this stored copy passed as the second parameter +to C<NEXTKEY>. This internal state is freed immediately when tie hash iteration +completes, or if the hash is destroyed, but due to an implementation oversight, +it was not freed if the hash was untied. In that case, the internal copy of the +key would persist until the earliest of + +=over 4 + +=item 1 + +C<tie> was called again on the same hash + +=item 2 + +The (now untied) hash was iterated (ie passed to any of C<keys>, C<values> or +C<each>) + +=item 3 + +The hash was destroyed. + +=back + +This inconsistency is now fixed - the internal state is now freed immediately by +C<untie>. + +As the precise timing of this behaviour can be observed with pure Perl code +(the timing of C<DESTROY> on objects returned from C<FIRSTKEY> and C<NEXTKEY>) +it's just possible that some code is sensitive to it. + +=item * + +The C<Internals::getcwd()> function added for bootstrapping miniperl +in perl 5.30.0 is now only available in miniperl. [github #19122] + +=item * + +Setting a breakpoint on a BEGIN or equivalently a C<use> statement +could cause a memory write to a freed C<dbstate> op. +[L<GH #19198|https://github.com/Perl/perl5/issues/19198>] + +=item * + +When bareword filehandles are disabled, the parser was interpreting +any bareword as a filehandle, even when immediatey followed by parens. + +=back + +=head1 Errata From Previous Releases + +=over 4 + +=item * + +L<perl5300delta> mistakenly identified a CVE whose correct identification is +CVE-2015-1592. + +=back + +=head1 Obituaries + +Raun "Spider" Boardman (SPIDB on CPAN), author of at least 66 commits to the +Perl 5 core distribution between 1996 and 2002, passed away May 24, 2021 from +complications of COVID. He will be missed. + +David H. Adler (DHA) passed away on November 16, 2021. In 1997, David +co-founded NY.pm, the first Perl user group, and in 1998 co-founded Perl +Mongers to help establish other user groups across the globe. He was a +frequent attendee at Perl conferences in both North America and Europe and well +known for his role in organizing I<Bad Movie Night> celebrations at those +conferences. He also contributed to the work of the Perl Foundation, including +administering the White Camel awards for community service. He will be missed. + +=head1 Acknowledgements + +Perl 5.36.0 represents approximately a year of development since Perl +5.34.0 and contains approximately 250,000 lines of changes across 2,000 +files from 82 authors. + +Excluding auto-generated files, documentation and release tools, there were +approximately 190,000 lines of changes to 1,300 .pm, .t, .c and .h files. + +Perl continues to flourish into its fourth decade thanks to a vibrant +community of users and developers. The following people are known to have +contributed the improvements that became Perl 5.36.0: + +Alyssa Ross, Andrew Fresh, Aristotle Pagaltzis, Asher Mancinelli, Atsushi +Sugawara, Ben Cornett, Bernd, Biswapriyo Nath, Brad Barden, Bram, Branislav +Zahradník, brian d foy, Chad Granum, Chris 'BinGOs' Williams, Christian +Walde (Mithaldu), Christopher Yeleighton, Craig A. Berry, cuishuang, Curtis +Poe, Dagfinn Ilmari Mannsåker, Dan Book, Daniel Laügt, Dan Jacobson, Dan +Kogai, Dave Cross, Dave Lambley, David Cantrell, David Golden, David +Marshall, David Mitchell, E. Choroba, Eugen Konkov, Felipe Gasper, François +Perrad, Graham Knop, H.Merijn Brand, Hugo van der Sanden, Ilya Sashcheka, +Ivan Panchenko, Jakub Wilk, James E Keenan, James Raspass, Karen Etheridge, +Karl Williamson, Leam Hall, Leon Timmermans, Magnus Woldrich, Matthew +Horsfall, Max Maischein, Michael G Schwern, Michiel Beijen, Mike Fulton, +Neil Bowers, Nicholas Clark, Nicolas R, Niyas Sait, Olaf Alders, Paul Evans, +Paul Marquess, Petar-Kaleychev, Pete Houston, Renee Baecker, Ricardo Signes, +Richard Leach, Robert Rothenberg, Sawyer X, Scott Baker, Sergey Poznyakoff, +Sergey Zhmylove, Sisyphus, Slaven Rezic, Steve Hay, Sven Kirmess, TAKAI +Kousuke, Thibault Duponchelle, Todd Rinaldo, Tomasz Konojacki, Tomoyuki +Sadahiro, Tony Cook, Unicode Consortium, Yves Orton, Михаил +Козачков. + +The list above is almost certainly incomplete as it is automatically +generated from version control history. In particular, it does not include +the names of the (very much appreciated) contributors who reported issues to +the Perl bug tracker. + +Many of the changes included in this version originated in the CPAN modules +included in Perl's core. We're grateful to the entire CPAN community for +helping Perl to flourish. + +For a more complete list of all of Perl's historical contributors, please +see the AUTHORS file in the Perl source distribution. + +=head1 Reporting Bugs + +If you find what you think is a bug, you might check the perl bug database +at L<https://github.com/Perl/perl5/issues>. There may also be information at +L<http://www.perl.org/>, the Perl Home Page. + +If you believe you have an unreported bug, please open an issue at +L<https://github.com/Perl/perl5/issues>. Be sure to trim your bug down to a +tiny but sufficient test case. + +If the bug you are reporting has security implications which make it +inappropriate to send to a public issue tracker, then see +L<perlsec/SECURITY VULNERABILITY CONTACT INFORMATION> +for details of how to report the issue. + +=head1 Give Thanks + +If you wish to thank the Perl 5 Porters for the work we had done in Perl 5, +you can do so by running the C<perlthanks> program: + + perlthanks + +This will send an email to the Perl 5 Porters list with your show of thanks. + +=head1 SEE ALSO + +The F<Changes> file for an explanation of how to view exhaustive details on +what changed. + +The F<INSTALL> file for how to build Perl. + +The F<README> file for general stuff. + +The F<Artistic> and F<Copying> files for copyright information. + +=cut diff --git a/gnu/usr.bin/perl/pod/perldelta.pod b/gnu/usr.bin/perl/pod/perldelta.pod index 615d725f8ba..f3f18f5bd67 100644 --- a/gnu/usr.bin/perl/pod/perldelta.pod +++ b/gnu/usr.bin/perl/pod/perldelta.pod @@ -2,408 +2,21 @@ =head1 NAME -perldelta - what is new for perl v5.36.0 +perldelta - what is new for perl v5.36.1 =head1 DESCRIPTION -This document describes differences between the 5.34.0 release and the 5.36.0 +This document describes differences between the 5.36.0 release and the 5.36.1 release. -=head1 Core Enhancements - -=head2 C<use v5.36> - -As always, C<use v5.36> turns on the feature bundle for that version of Perl. - -The 5.36 bundle enables the C<signatures> feature. Introduced in Perl version -5.20.0, and modified several times since, the subroutine signatures feature is -now no longer considered experimental. It is now considered a stable language -feature and no longer prints a warning. - - use v5.36; - - sub add ($x, $y) { - return $x + $y; - } - -Despite this, certain elements of signatured subroutines remain experimental; -see below. - -The 5.36 bundle enables the C<isa> feature. Introduced in Perl version 5.32.0, -this operator has remained unchanged since then. The operator is now considered -a stable language feature. For more detail see L<perlop/Class Instance -Operator>. - -The 5.36 bundle also I<disables> the features C<indirect>, and -C<multidimensional>. These will forbid, respectively: the use of "indirect" -method calls (like C<$x = new Class;>); the use of a list expression as a hash -key to simulate sparse multidimensional arrays. The specifics of these changes -can be found in L<feature>, but the short version is: this is a bit like having -more C<use strict> turned on, disabling features that cause more trouble than -they're worth. - -Furthermore, C<use v5.36> will also enable warnings as if you'd written C<use -warnings>. - -Finally, with this release, the experimental C<switch> feature, present in -every feature bundle since they were introduced in v5.10, has been removed from -the v5.36 bundle. If you want to use it (against our advice), you'll have to -enable it explicitly. - -=head2 -g command-line flag - -A new command-line flag, -g, is available. It is a simpler alias for -0777. - -For more information, see L<perlrun/-g>. - -=head2 Unicode 14.0 is supported - -See L<https://www.unicode.org/versions/Unicode14.0.0/> for details. - -=head2 regex sets are no longer considered experimental - -Prior to this release, the regex sets feature (officially named -"Extended Bracketed Character Classes") was considered experimental. -Introduced in Perl version 5.18.0, and modified several times since, -this is now considered a stable language feature and its use no longer -prints a warning. See L<perlrecharclass/Extended Bracketed Character -Classes>. - -=head2 Variable length lookbehind is mostly no longer considered experimental - -Prior to this release, any form of variable length lookbehind was -considered experimental. With this release the experimental status has -been reduced to cover only lookbehind that contains capturing parenthesis. -This is because it is not clear if - - "aaz"=~/(?=z)(?<=(a|aa))/ - -should match and leave $1 equaling "a" or "aa". Currently it will match -the longest possible alternative, "aa". While we are confident that the overall -construct will now match only when it should, we are not confident that we -will keep the current "longest match" behavior. - -=head2 SIGFPE no longer deferred - -Floating-point exceptions are now delivered immediately, in the same way -as other "fault"-like signals such as SIGSEGV. This means one has at -least a chance to catch such a signal with a C<$SIG{FPE}> handler, e.g. -so that C<die> can report the line in perl that triggered it. - -=head2 Stable boolean tracking - -The "true" and "false" boolean values, often accessed by constructions like -C<!!0> and C<!!1>, as well as being returned from many core functions and -operators, now remember their boolean nature even through assignment into -variables. The new function C<is_bool()> in L<builtin> can check whether -a value has boolean nature. - -This is likely to be useful when interoperating with other languages or -data-type serialisation, among other places. - -=head2 iterating over multiple values at a time (experimental) - -You can now iterate over multiple values at a time by specifying a list of -lexicals within parentheses. For example, - - for my ($key, $value) (%hash) { ... } - for my ($left, $right, $gripping) (@moties) { ... } - -Prior to perl v5.36, attempting to specify a list after C<for my> was a syntax -error. - -This feature is currently experimental and will cause a warning of category -C<experimental::for_list>. For more detail see L<perlsyn/Compound Statements>. -See also L</builtin::indexed> in this document, which is a handy companion to -n-at-a-time foreach. - -=head2 builtin functions (experimental) - -A new core module L<builtin> has been added, which provides documentation for -new always-present functions that are built into the interpreter. - - say "Reference type of arrays is ", builtin::reftype([]); - -It also provides a lexical import mechanism for providing short name versions -of these functions. - - use builtin 'reftype'; - say "Reference type of arrays is ", reftype([]); - -This builtin function mechanism and the functions it provides are all -currently B<experimental>. We expect that C<builtin> itself will cease to be -experimental in the near future, but that individual functions in it may become -stable on an ongoing basis. Other functions will be added to C<builtin> over -time. - -For details, see L<builtin>, but here's a summary of builtin functions in -v5.36: - -=over 4 - -=item builtin::trim - -This function treats its argument as a string, returning the result of removing -all white space at its beginning and ending. - -=item builtin::indexed - -This function returns a list twice as big as its argument list, where each item -is preceded by its index within that list. This is primarily useful for using -the new C<foreach> syntax with multiple iterator variables to iterate over an -array or list, while also tracking the index of each item: - - use builtin 'indexed'; - - foreach my ($index, $val) (indexed @array) { - ... - } - -=item builtin::true, builtin::false, builtin::is_bool - -C<true> and C<false> return boolean true and false values. Perl is still perl, -and doesn't have strict typing of booleans, but these values will be known to -have been created as booleans. C<is_bool> will tell you whether a value was -known to have been created as a boolean. - -=item builtin::weaken, builtin::unweaken, builtin::is_weak - -These functions will, respectively: weaken a reference; strengthen a reference; -and return whether a reference is weak. (A weak reference is not counted for -garbage collection purposes. See L<perlref>.) These can take the place of -some similar routines in L<Scalar::Util>. - -=item builtin::blessed, builtin::refaddr, builtin::reftype - -These functions provide more data about references (or non-references, -actually!) and can take the place of similar routines found in L<Scalar::Util>. - -=item builtin::ceil, builtin::floor - -C<ceil> returns the smallest integer greater than or equal to its argument. -C<floor> returns the largest integer less than or equal to its argument. These -can take the place of similar routines found in L<POSIX>. - -=back - -=head2 C<defer> blocks (experimental) - -This release adds support for C<defer> blocks, which are blocks of code -prefixed by the C<defer> modifier. They provide a section of code which runs -at a later time, during scope exit. - -In brief, when a C<defer> block is reached at runtime, its body is set aside to -be run when the enclosing scope is exited. It is unlike a UNITCHECK (among -other reasons) in that if the block I<containing> the C<defer> block is exited -before the block is reached, it will not be run. - -C<defer> blocks can be used to take the place of "scope guard" objects where an -object is passed a code block to be run by its destructor. - -For more information, see L<perlsyn/"defer blocks">. - -=head2 try/catch can now have a C<finally> block (experimental) - -The experimental C<try>/C<catch> syntax has been extended to support an -optional third block introduced by the C<finally> keyword. - - try { - attempt(); - print "Success\n"; - } - catch ($e) { - print "Failure\n"; - } - finally { - print "This happens regardless\n"; - } - -This provides code which runs at the end of the C<try>/C<catch> construct, -even if aborted by an exception or control-flow keyword. They are similar -to C<defer> blocks. - -For more information, see L<perlsyn/"Try Catch Exception Handling">. - -=head2 non-ASCII delimiters for quote-like operators (experimental) - -Perl traditionally has allowed just four pairs of string/pattern -delimiters: S<C<( )>> S<C<{ }>> S<C<[ ]>> and S<C<< < > >>>, all in the -ASCII range. Unicode has hundreds more possibilities, and using this -feature enables many of them. When enabled, you can say S<C<qr« »>> for -example, or S<C<use utf8; q𝄃string𝄂>>. See L<feature/The -'extra_paired_delimiters' feature> for details. - -=head2 @_ is now experimental within signatured subs - -Even though subroutine signatures are now stable, use of the legacy arguments -array (C<@_>) with a subroutine that has a signature I<remains> experimental, -with its own warning category. Silencing the C<experimental::signatures> -warning category is not sufficient to dismiss this. The new warning is emitted -with the category name C<experimental::args_array_with_signatures>. - -Any subroutine that has a signature and tries to make use of the defaults -argument array or an element thereof (C<@_> or C<$_[INDEX]>), either -explicitly or implicitly (such as C<shift> or C<pop> with no argument) will -provoke a warning at compile-time: - - use v5.36; - - sub f ($x, $y = 123) { - say "The first argument is $_[0]"; - } - -Z<> - - Use of @_ in array element with signatured subroutine is experimental - at file.pl line 4. - -The behaviour of code which attempts to do this is no longer specified, and -may be subject to change in a future version. +If you are upgrading from an earlier release such as 5.35.0, first read +L<perl5360delta>, which describes differences between 5.35.0 and 5.36.0. =head1 Incompatible Changes -=head2 A physically empty sort is now a compile-time error - - @a = sort @empty; # unaffected - @a = sort; # now a compile-time error - @a = sort (); # also a compile-time error - -A bare sort used to be a weird way to create an empty list; now it croaks -at compile time. This change is intended to free up some of the syntax space -for possible future enhancements to C<sort>. - -=head1 Deprecations - -=head2 C<use VERSION> (where VERSION is below v5.11) after C<use v5.11> is deprecated - -When in the scope of C<use v5.11> or later, a C<use vX> line where I<X> is -lower than v5.11 will now issue a warning: - - Downgrading a use VERSION declaration to below v5.11 is deprecated - -For example: - - use v5.14; - say "The say statement is permitted"; - use v5.8; # This will print a warning - print "We must use print\n"; - -This is because the Perl team plans to change the behavior in this case. Since -Perl v5.12 (and parts of v5.11), strict is enabled I<unless it had previously -been disabled>. In other words: - - no strict; - use v5.12; # will not enable strict, because "no strict" preceded it - $x = 1; # permitted, despite no "my" declaration - -In the future, this behavior will be eliminated and C<use VERSION> will -I<always> enable strict for versions v5.12 and later. - -Code which wishes to mix versions in this manner should use lexical scoping -with block syntax to ensure that the differently versioned regions remain -lexically isolated. - - { - use v5.14; - say "The say statement is permitted"; - } - - { - use v5.8; # No warning is emitted - print "We must use print\n"; - } - -Of course, this is probably not something you ever need to do! If the first -block compiles, it means you're using perl v5.14.0 or later. - -=head1 Performance Enhancements - -=over 4 - -=item * - -We now probe for compiler support for C11 thread local storage, and where -available use this for "implicit context" for XS extensions making API calls for -a threaded Perl build. This requires fewer function calls at the C level than -POSIX thread specific storage. We continue to use the the pthreads approach if -the C11 approach is not available. - -F<Configure> run with the defaults will build an unthreaded Perl (which is -slightly faster), but most operating systems ship a threaded Perl. - -=item * - -Perl can now be configured to no longer allocate keys for large hashes -from the shared string table. - -The same internal datatype (C<PVHV>) is used for all of - -=over 4 - -=item * - -Symbol tables - -=item * - -Objects (by default) - -=item * - -Associative arrays - -=back - -The shared string table was originally added to improve performance for blessed -hashes used as objects, because every object instance has the same keys, so it -is an optimisation to share memory between them. It also makes sense for symbol -tables, where derived classes will have the same keys (typically method names), -and the OP trees built for method calls can also share memory. The shared -string table behaves roughly like a cache for hash keys. - -But for hashes actually used as associative arrays - mapping keys to values - -typically the keys are not re-used in other hashes. For example, "seen" hashes -are keyed by object IDs (or addresses), and logically these keys won't repeat -in other hashes. - -Storing these "used just once" keys in the shared string table increases CPU -and RAM use for no gain. For such keys the shared string table behaves as a -cache with a 0% hit rate. Storing all the keys there increases the total size -of the shared string table, as well as increasing the number of times it is -resized as it grows. B<Worse> - in any environment that has "copy on write" -memory for child process (such as a pre-forking server), the memory pages used -for the shared string table rapidly need to be copied as the child process -manipulates hashes. Hence if most of the shared string table is such that keys -are used only in one place, there is no benefit from re-use within the perl -interpreter, but a high cost due to more pages for the OS to copy. - -The perl interpreter can now be Configured to disable shared hash keys -for "large" hashes (that are neither objects nor symbol tables). To do -so, add C<-Accflags='-DPERL_USE_UNSHARED_KEYS_IN_LARGE_HASHES'> to -your F<Configure> options. "Large" is a heuristic -- currently the -heuristic is that sharing is disabled when adding a key to a hash -triggers allocation of more storage, and the hash has more than 42 keys. - -This B<might> cause slightly increased memory usage for programs that create -(unblessed) data structures that contain multiple large hashes that share the -same keys. But generally our testing suggests that for the specific cases -described it is a win, and other code is unaffected. - -=item * - -In certain scenarios, creation of new scalars is now noticeably faster. - -For example, the following code is now executing ~30% faster: - - $str = "A" x 64; - for (0..1_000_000) { - @svs = split //, $str - } - -(You can read more about this one in L<[perl -#19414]|https://github.com/Perl/perl5/pull/19414>.) - -=back +There are no changes intentionally incompatible with 5.36.0. If any exist, +they are bugs, and we request that you submit a report. See +L</Reporting Bugs> below. =head1 Modules and Pragmata @@ -413,623 +26,7 @@ For example, the following code is now executing ~30% faster: =item * -L<Archive::Tar> has been upgraded from version 2.38 to 2.40. - -=item * - -L<Attribute::Handlers> has been upgraded from version 1.01 to 1.02. - -=item * - -L<attributes> has been upgraded from version 0.33 to 0.34. - -=item * - -L<B> has been upgraded from version 1.82 to 1.83. - -=item * - -L<B::Concise> has been upgraded from version 1.004 to 1.006. - -=item * - -L<B::Deparse> has been upgraded from version 1.56 to 1.64. - -=item * - -L<bignum> has been upgraded from version 0.51 to 0.65. - -=item * - -L<charnames> has been upgraded from version 1.48 to 1.50. - -=item * - -L<Compress::Raw::Bzip2> has been upgraded from version 2.101 to 2.103. - -=item * - -L<Compress::Raw::Zlib> has been upgraded from version 2.101 to 2.105. - -=item * - -L<CPAN> has been upgraded from version 2.28 to 2.33. - -=item * - -L<Data::Dumper> has been upgraded from version 2.179 to 2.184. - -=item * - -L<DB_File> has been upgraded from version 1.855 to 1.857. - -=item * - -L<Devel::Peek> has been upgraded from version 1.30 to 1.32. - -=item * - -L<Devel::PPPort> has been upgraded from version 3.62 to 3.68. - -=item * - -L<diagnostics> has been upgraded from version 1.37 to 1.39. - -=item * - -L<Digest> has been upgraded from version 1.19 to 1.20. - -=item * - -L<DynaLoader> has been upgraded from version 1.50 to 1.52. - -=item * - -L<Encode> has been upgraded from version 3.08 to 3.17. - -=item * - -L<Errno> has been upgraded from version 1.33 to 1.36. - -=item * - -L<experimental> has been upgraded from version 0.024 to 0.028. - -=item * - -L<Exporter> has been upgraded from version 5.76 to 5.77. - -=item * - -L<ExtUtils::MakeMaker> has been upgraded from version 7.62 to 7.64. - -=item * - -L<ExtUtils::Miniperl> has been upgraded from version 1.10 to 1.11. - -=item * - -L<ExtUtils::ParseXS> has been upgraded from version 3.43 to 3.45. - -=item * - -L<ExtUtils::Typemaps> has been upgraded from version 3.43 to 3.45. - -=item * - -L<Fcntl> has been upgraded from version 1.14 to 1.15. - -=item * - -L<feature> has been upgraded from version 1.64 to 1.72. - -=item * - -L<File::Compare> has been upgraded from version 1.1006 to 1.1007. - -=item * - -L<File::Copy> has been upgraded from version 2.35 to 2.39. - -=item * - -L<File::Fetch> has been upgraded from version 1.00 to 1.04. - -=item * - -L<File::Find> has been upgraded from version 1.39 to 1.40. - -=item * - -L<File::Glob> has been upgraded from version 1.33 to 1.37. - -=item * - -L<File::Spec> has been upgraded from version 3.80 to 3.84. - -=item * - -L<File::stat> has been upgraded from version 1.09 to 1.12. - -=item * - -L<FindBin> has been upgraded from version 1.52 to 1.53. - -=item * - -L<GDBM_File> has been upgraded from version 1.19 to 1.23. - -=item * - -L<Hash::Util> has been upgraded from version 0.25 to 0.28. - -=item * - -L<Hash::Util::FieldHash> has been upgraded from version 1.21 to 1.26. - -=item * - -L<HTTP::Tiny> has been upgraded from version 0.076 to 0.080. - -=item * - -L<I18N::Langinfo> has been upgraded from version 0.19 to 0.21. - -=item * - -L<if> has been upgraded from version 0.0609 to 0.0610. - -=item * - -L<IO> has been upgraded from version 1.46 to 1.50. - -=item * - -IO-Compress has been upgraded from version 2.102 to 2.106. - -=item * - -L<IPC::Open3> has been upgraded from version 1.21 to 1.22. - -=item * - -L<JSON::PP> has been upgraded from version 4.06 to 4.07. - -=item * - -libnet has been upgraded from version 3.13 to 3.14. - -=item * - -L<Locale::Maketext> has been upgraded from version 1.29 to 1.31. - -=item * - -L<Math::BigInt> has been upgraded from version 1.999818 to 1.999830. - -=item * - -L<Math::BigInt::FastCalc> has been upgraded from version 0.5009 to 0.5012. - -=item * - -L<Math::BigRat> has been upgraded from version 0.2614 to 0.2621. - -=item * - -L<Module::CoreList> has been upgraded from version 5.20210520 to 5.20220520. - -=item * - -L<mro> has been upgraded from version 1.25_001 to 1.26. - -=item * - -L<NEXT> has been upgraded from version 0.68 to 0.69. - -=item * - -L<Opcode> has been upgraded from version 1.50 to 1.57. - -=item * - -L<open> has been upgraded from version 1.12 to 1.13. - -=item * - -L<overload> has been upgraded from version 1.33 to 1.35. - -=item * - -L<perlfaq> has been upgraded from version 5.20210411 to 5.20210520. - -=item * - -L<PerlIO> has been upgraded from version 1.11 to 1.12. - -=item * - -L<Pod::Functions> has been upgraded from version 1.13 to 1.14. - -=item * - -L<Pod::Html> has been upgraded from version 1.27 to 1.33. - -=item * - -L<Pod::Simple> has been upgraded from version 3.42 to 3.43. - -=item * - -L<POSIX> has been upgraded from version 1.97 to 2.03. - -=item * - -L<re> has been upgraded from version 0.41 to 0.43. - -=item * - -L<Scalar::Util> has been upgraded from version 1.55 to 1.62. - -=item * - -L<sigtrap> has been upgraded from version 1.09 to 1.10. - -=item * - -L<Socket> has been upgraded from version 2.031 to 2.033. - -=item * - -L<sort> has been upgraded from version 2.04 to 2.05. - -=item * - -L<Storable> has been upgraded from version 3.23 to 3.26. - -=item * - -L<Sys::Hostname> has been upgraded from version 1.23 to 1.24. - -=item * - -L<Test::Harness> has been upgraded from version 3.43 to 3.44. - -=item * - -L<Test::Simple> has been upgraded from version 1.302183 to 1.302190. - -=item * - -L<Text::ParseWords> has been upgraded from version 3.30 to 3.31. - -=item * - -L<Text::Tabs> has been upgraded from version 2013.0523 to 2021.0814. - -=item * - -L<Text::Wrap> has been upgraded from version 2013.0523 to 2021.0814. - -=item * - -L<threads> has been upgraded from version 2.26 to 2.27. - -=item * - -L<threads::shared> has been upgraded from version 1.62 to 1.64. - -=item * - -L<Tie::Handle> has been upgraded from version 4.2 to 4.3. - -=item * - -L<Tie::Hash> has been upgraded from version 1.05 to 1.06. - -=item * - -L<Tie::Scalar> has been upgraded from version 1.05 to 1.06. - -=item * - -L<Tie::SubstrHash> has been upgraded from version 1.00 to 1.01. - -=item * - -L<Time::HiRes> has been upgraded from version 1.9767 to 1.9770. - -=item * - -L<Unicode::Collate> has been upgraded from version 1.29 to 1.31. - -=item * - -L<Unicode::Normalize> has been upgraded from version 1.28 to 1.31. - -=item * - -L<Unicode::UCD> has been upgraded from version 0.75 to 0.78. - -=item * - -L<UNIVERSAL> has been upgraded from version 1.13 to 1.14. - -=item * - -L<version> has been upgraded from version 0.9928 to 0.9929. - -=item * - -L<VMS::Filespec> has been upgraded from version 1.12 to 1.13. - -=item * - -L<VMS::Stdio> has been upgraded from version 2.45 to 2.46. - -=item * - -L<warnings> has been upgraded from version 1.51 to 1.58. - -=item * - -L<Win32> has been upgraded from version 0.57 to 0.59. - -=item * - -L<XS::APItest> has been upgraded from version 1.16 to 1.22. - -=item * - -L<XS::Typemap> has been upgraded from version 0.18 to 0.19. - -=item * - -L<XSLoader> has been upgraded from version 0.30 to 0.31. - -=back - -=head1 Documentation - -=head2 New Documentation - -=head3 F<Porting/vote_admin_guide.pod> - -This document provides the process for administering an election or vote -within the Perl Core Team. - -=head2 Changes to Existing Documentation - -We have attempted to update the documentation to reflect the changes -listed in this document. If you find any we have missed, open an issue -at L<https://github.com/Perl/perl5/issues>. - -Additionally, the following selected changes have been made: - -=head3 L<perlapi> - -=over 4 - -=item * - -This has been cleaned up some, and more than 80% of the (previously -many) undocumented functions have now either been documented or deemed -to have been inappropriately marked as API. - -As always, Patches Welcome! - -=back - -=head3 L<perldeprecation> - -=over 4 - -=item * - -notes the new location for functions moved from L<Pod::Html> to -L<Pod::Html::Util> that are no longer intended to be used outside of core. - -=back - -=head3 L<perlexperiment> - -=over 4 - -=item * - -notes the C<:win32> IO pseudolayer is removed (this happened in 5.35.2). - -=back - -=head3 L<perlgov> - -=over 4 - -=item * - -The election process has been finetuned to allow the vote to be skipped if there -are no more candidates than open seats. - -=item * - -A special election is now allowed to be postponed for up to twelve weeks, for -example until a normal election. - -=back - -=head3 L<perlop> - -=over 4 - -=item * - -now notes that an invocant only needs to be an object or class name -for method calls, not for subroutine references. - -=back - -=head3 L<perlre> - -=over 4 - -=item * - -Updated to discourage the use of the /d regexp modifier. - -=back - -=head3 L<perlrun> - -=over 4 - -=item * - -B<-?> is now a synonym for B<-h> - -=item * - -B<-g> is now a synonym for B<-0777> - -=back - -=head1 Diagnostics - -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>. - -=head2 New Diagnostics - -=head3 New Errors - -=over 4 - -=item * - -L<Can't "%s" out of a "defer" block|perldiag/"Can't "%s" out of a "defer" block"> - -(F) An attempt was made to jump out of the scope of a defer block by using -a control-flow statement such as C<return>, C<goto> or a loop control. This is -not permitted. - -=item * - -L<Can't modify %s in %s|perldiag/"Can't modify %s in %s"> (for scalar -assignment to C<undef>) - -Attempting to perform a scalar assignment to C<undef>, for example via -C<undef = $foo;>, previously triggered a fatal runtime error with the -message "L<Modification of a read-only value attempted|perldiag/"Modification of a read-only value attempted">." -It is more helpful to detect such attempted assignments prior to runtime, so -they are now compile time errors, resulting in the message "Can't modify undef -operator in scalar assignment". - -=item * - -L<panic: newFORLOOP, %s|perldiag/"panic: newFORLOOP, %s"> - -The parser failed an internal consistency check while trying to parse -a C<foreach> loop. - -=back - -=head3 New Warnings - -=over 4 - -=item * - -L<Built-in function '%s' is experimental|perldiag/"Built-in function '%s' is experimental"> - -A call is being made to a function in the C<builtin::> namespace, which is -currently experimental. - -=item * - -L<defer is experimental|perldiag/"defer is experimental"> - -The C<defer> block modifier is experimental. If you want to use the feature, -disable the warning with C<no warnings 'experimental::defer'>, but know that in -doing so you are taking the risk that your code may break in a future Perl -version. - -=item * - -L<Downgrading a use VERSION declaration to below v5.11 is deprecated|perldiag/"Downgrading a use VERSION declaration to below v5.11 is deprecated"> - -This warning is emitted on a C<use VERSION> statement that -requests a version below v5.11 (when the effects of C<use strict> would be -disabled), after a previous declaration of one having a larger number (which -would have enabled these effects) - -=item * - -L<for my (...) is experimental|perldiag/"for my (...) is experimental"> - -This warning is emitted if you use C<for> to iterate multiple values at -a time. This syntax is currently experimental and its behaviour may -change in future releases of Perl. - -=item * - -L<Implicit use of @_ in %s with signatured subroutine is experimental|perldiag/"Implicit use of @_ in %s with signatured subroutine is experimental"> - -An expression that implicitly involves the C<@_> arguments array was found in -a subroutine that uses a signature. - -=item * - -L<Use of @_ in %s with signatured subroutine is experimental|perldiag/"Use of @_ in %s with signatured subroutine is experimental"> - -An expression involving the C<@_> arguments array was found in a subroutine that uses a signature. - -=item * - -L<Wide character in $0|perldiag/"Wide character in %s"> - -Attempts to put wide characters into the program name (C<$0>) now provoke this -warning. - -=back - -=head2 Changes to Existing Diagnostics - -=over 4 - -=item * - -L<'E<sol>' does not take a repeat count in %s|perldiag/"'/' does not take a repeat count in %s"> - -This warning used to not include the C<in %s>. - -=item * - -L<Subroutine %s redefined|perldiag/"Subroutine %s redefined"> - -Localized subroutine redefinitions no longer trigger this warning. - -=item * - -L<unexpected constant lvalue entersub entry via typeE<sol>targ %d:%d"|perldiag/"panic: unexpected constant lvalue entersub entry via type/targ %d:%d"> now has a panic prefix - -This makes it consistent with other checks of internal consistency when -compiling a subroutine. - -=item * - -L<Useless use of sort in scalar context|perldiag/"Useless use of %s in scalar -context"> is now in the new C<scalar> category. - -When C<sort> is used in scalar context, it provokes a warning that doing this -is not useful. This warning used to be in the C<void> category. A new category -for warnings about scalar context has now been added, called C<scalar>. - -=item * - -Removed a number of diagnostics - -Many diagnostics that have been removed from the perl core across many years -have now I<also> been removed from the documentation. +L<Module::CoreList> has been upgraded from version 5.20220520 to 5.20230423. =back @@ -1039,359 +36,21 @@ have now I<also> been removed from the documentation. =item * -The Perl C source code now uses some C99 features, which we have verified are -supported by all compilers we target. This means that Perl's headers now -contain some code that is legal in C99 but not C89. - -This may cause problems for some XS modules that unconditionally add -C<-Werror=declaration-after-statement> to their C compiler flags if compiling -with gcc or clang. Earlier versions of Perl support long obsolete compilers -that are strict in rejecting certain C99 features, particularly mixed -declarations and code, and hence it makes sense for XS module authors to audit -that their code does not violate this. However, doing this is now only -possible on these earlier versions of Perl, hence these modules need to be -changed to only add this flag for C<<$] < 5.035005>>. - -=item * - -The makedepend step is now run in parallel by using make - -When using MAKEFLAGS=-j8, this significantly reduces the time required for: - - sh ./makedepend MAKE=make cflags - -=item * - -F<Configure> now tests whether C<< #include <xlocale.h> >> is required -to use the POSIX 1003 thread-safe locale functions or some related -extensions. This prevents problems where a non-public F<xlocale.h> is -removed in a library update, or F<xlocale.h> isn't intended for public -use. (github L<#18936|https://github.com/Perl/perl5/pull/18936>) +C<Configure> probed for the return type of malloc() and free() by testing +whether declarations for those functions produced a function type mismatch with +the implementation. On Solaris, with a C++ compiler, this check always failed, +since Solaris instead imports malloc() and free() from C<std::> with C<using> +for C++ builds. Since the return types of malloc() and free() are well defined +by the C standard, skip probing for them. C<Configure> command-line arguments +and hints can still override these type in the unlikely case that is needed. +[L<GH #20806|https://github.com/Perl/perl5/issues/20806>] =back =head1 Testing -Tests were added and changed to reflect the other additions and changes -in this release. - -=head1 Platform Support - -=head2 Windows - -=over 4 - -=item * - -Support for old MSVC++ (pre-VC12) has been removed - -These did not support C99 and hence can no longer be used to compile perl. - -=item * - -Support for compiling perl on Windows using Microsoft Visual Studio 2022 -(containing Visual C++ 14.3) has been added. - -=item * - -The :win32 IO layer has been removed. This experimental replacement for the -:unix layer never reached maturity in its nearly two decades of existence. - -=back - -=head2 VMS - -=over 4 - -=item C<keys %ENV> on VMS returns consistent results - -On VMS entries in the C<%ENV> hash are loaded from the OS environment on -first access, hence the first iteration of C<%ENV> requires the entire -environment to be scanned to find all possible keys. This initialisation had -always been done correctly for full iteration, but previously was not -happening for C<%ENV> in scalar context, meaning that C<scalar %ENV> would -return 0 if called before any other C<%ENV> access, or would only return the -count of keys accessed if there had been no iteration. - -These bugs are now fixed - C<%ENV> and C<keys %ENV> in scalar context now -return the correct result - the count of all keys in the environment. - -=back - -=head2 Discontinued Platforms - -=over 4 - -=item AT&T UWIN - -UWIN is a UNIX compatibility layer for Windows. It was last released -in 2012 and has been superseded by Cygwin these days. - -=item DOS/DJGPP - -DJGPP is a port of the GNU toolchain to 32-bit x86 systems running -DOS. The last known attempt to build Perl on it was on 5.20, which -only got as far as building miniperl. - -=item NetWare - -Support code for Novell NetWare has been removed. NetWare was a -server operating system by Novell. The port was last updated in July -2002, and the platform itself in May 2009. - -Unrelated changes accidentally broke the build for the NetWare port in -September 2009, and in 12 years no-one has reported this. - -=back - -=head2 Platform-Specific Notes - -=over 4 - -=item z/OS - -This update enables us to build EBCDIC static/dynamic and 31-bit/64-bit -addressing mode Perl. The number of tests that pass is consistent with the -baseline before these updates. - -These changes also provide the base support to be able to provide ASCII -static/dynamic and 31-bit/64-bit addressing mode Perl. - -The z/OS (previously called OS/390) README was updated to describe ASCII and -EBCDIC builds. - -=back - -=head1 Internal Changes - -=over 4 - -=item * - -Since the removal of PERL_OBJECT in Perl 5.8, PERL_IMPLICIT_CONTEXT and -MULTIPLICITY have been synonymous and they were being used interchangeably. -To simplify the code, all instances of PERL_IMPLICIT_CONTEXT have been -replaced with MULTIPLICITY. - -PERL_IMPLICIT_CONTEXT will remain defined for compatibility with XS modules. - -=item * - -The API constant formerly named C<G_ARRAY>, indicating list context, has now -been renamed to a more accurate C<G_LIST>. A compatibilty macro C<G_ARRAY> has -been added to allow existing code to work unaffected. New code should be -written using the new constant instead. This is supported by C<Devel::PPPort> -version 3.63. - -=item * - -Macros have been added to F<perl.h> to facilitate version comparisons: -C<PERL_GCC_VERSION_GE>, C<PERL_GCC_VERSION_GT>, C<PERL_GCC_VERSION_LE> and -C<PERL_GCC_VERSION_LT>. - -Inline functions have been added to F<embed.h> to determine the position of -the least significant 1 bit in a word: C<lsbit_pos32> and C<lsbit_pos64>. - -=item * - -C<Perl_ptr_table_clear> has been deleted. This has been marked as deprecated -since v5.14.0 (released in 2011), and is not used by any code on CPAN. - -=item * - -Added new boolean macros and functions. See L</Stable boolean tracking> for -related information and L<perlapi> for documentation. - -=over 4 - -=item * - -sv_setbool - -=item * - -sv_setbool_mg - -=item * - -SvIsBOOL - -=back - -=item * - -Added 4 missing functions for dealing with RVs: - -=over 4 - -=item * - -sv_setrv_noinc - -=item * - -sv_setrv_noinc_mg - -=item * - -sv_setrv_inc - -=item * - -sv_setrv_inc_mg - -=back - -=item * - -C<xs_handshake()>'s two failure modes now provide distinct messages. - -=item * - -Memory for hash iterator state (C<struct xpvhv_aux>) is now allocated as part -of the hash body, instead of as part of the block of memory allocated for the -main hash array. - -=item * - -A new phase_name() interface provides access to the name for each interpreter -phase (i.e., PL_phase value). - -=item * - -The C<pack> behavior of C<U> has changed for EBCDIC. - -=item * - -New equality-test functions C<sv_numeq> and C<sv_streq> have been added, along -with C<..._flags>-suffixed variants. These expose a simple and consistent API -to perform numerical or string comparison which is aware of operator -overloading. - -=item * - -Reading the string form of an integer value no longer sets the flag C<SVf_POK>. -The string form is still cached internally, and still re-read directly by the -macros C<SvPV(sv)> I<etc> (inline, without calling a C function). XS code that -already calls the APIs to get values will not be affected by this change. XS -code that accesses flags directly instead of using API calls to express its -intent I<might> break, but such code likely is already buggy if passed some -other values, such as floating point values or objects with string overloading. - -This small change permits code (such as JSON serializers) to reliably determine -between - -=over 4 - -=item * - -a value that was initially B<written> as an integer, but then B<read> as a string - - my $answer = 42; - print "The answer is $answer\n"; - -=item * - -that same value that was initially B<written> as a string, but then B<read> as an integer - - my $answer = "42"; - print "That doesn't look right\n" - unless $answer == 6 * 9; - -=back - -For the first case (originally written as an integer), we now have: - - use Devel::Peek; - my $answer = 42; - Dump ($answer); - my $void = "$answer"; - print STDERR "\n"; - Dump($answer) - - - SV = IV(0x562538925778) at 0x562538925788 - REFCNT = 1 - FLAGS = (IOK,pIOK) - IV = 42 - - SV = PVIV(0x5625389263c0) at 0x562538925788 - REFCNT = 1 - FLAGS = (IOK,pIOK,pPOK) - IV = 42 - PV = 0x562538919b50 "42"\0 - CUR = 2 - LEN = 10 - -For the second (originally written as a string), we now have: - - use Devel::Peek; - my $answer = "42"; - Dump ($answer); - my $void = $answer == 6 * 9; - print STDERR "\n"; - Dump($answer)' - - - SV = PV(0x5586ffe9bfb0) at 0x5586ffec0788 - REFCNT = 1 - FLAGS = (POK,IsCOW,pPOK) - PV = 0x5586ffee7fd0 "42"\0 - CUR = 2 - LEN = 10 - COW_REFCNT = 1 - - SV = PVIV(0x5586ffec13c0) at 0x5586ffec0788 - REFCNT = 1 - FLAGS = (IOK,POK,IsCOW,pIOK,pPOK) - IV = 42 - PV = 0x5586ffee7fd0 "42"\0 - CUR = 2 - LEN = 10 - COW_REFCNT = 1 - -(One can't rely on the presence or absence of the flag C<SVf_IsCOW> to -determine the history of operations on a scalar.) - -Previously both cases would be indistinguishable, with all 4 flags set: - - SV = PVIV(0x55d4d62edaf0) at 0x55d4d62f0930 - REFCNT = 1 - FLAGS = (IOK,POK,pIOK,pPOK) - IV = 42 - PV = 0x55d4d62e1740 "42"\0 - CUR = 2 - LEN = 10 - -(and possibly C<SVf_IsCOW>, but not always) - -This now means that if XS code I<really> needs to determine which form a value -was first written as, it should implement logic roughly - - if (flags & SVf_IOK|SVf_NOK) && !(flags & SVf_POK) - serialize as number - else if (flags & SVf_POK) - serialize as string - else - the existing guesswork ... - -Note that this doesn't cover "dualvars" - scalars that report different -values when asked for their string form or number form (such as C<$!>). -Most serialization formats cannot represent such duplicity. - -I<The existing guesswork> remains because as well as dualvars, values might -be C<undef>, references, overloaded references, typeglobs and other things that -Perl itself can represent but do not map one-to-one into external formats, so -need some amount of approximation or encapsulation. - -=item * - -C<sv_dump> (and L<Devel::Peek>’s C<Dump> function) now escapes high-bit -octets in the PV as hex rather than octal. Since most folks understand hex -more readily than octal, this should make these dumps a bit more legible. -This does B<not> affect any other diagnostic interfaces like C<pv_display>. - -=back +Tests were added and changed to reflect the other additions and changes in this +release. =head1 Selected Bug Fixes @@ -1399,159 +58,63 @@ This does B<not> affect any other diagnostic interfaces like C<pv_display>. =item * -utime() now correctly sets errno/C<$!> when called on a closed handle. - -=item * - -The flags on the OPTVAL parameter to setsockopt() were previously -checked before magic was called, possibly treating a numeric value as -a packed buffer or vice versa. It also ignored the UTF-8 flag, -potentially treating the internal representation of an upgraded SV as -the bytes to supply to the setsockopt() system call. (github L<#18660|https://github.com/Perl/perl5/issues/18660>) - -=item * - -Only set IOKp, not IOK on $) and $(. -This was issue L<#18955|https://github.com/Perl/perl5/issues/18955>: This will prevent serializers from serializing these -variables as numbers (which loses the additional groups). -This restores behaviour from 5.16 +An eval() as the last statement in a regex code block could trigger an +interpreter panic; e.g. -=item * + /(?{ ...; eval {....}; })/ -Use of the C<mktables> debugging facility would cause perl to croak since -v5.31.10; this problem has now been fixed. +[L<GH #19680|https://github.com/Perl/perl5/issues/19680>] =item * -C<makedepend> logic is now compatible with BSD make (fixes -L<GH #19046|https://github.com/Perl/perl5/issues/19046>). +An C<eval EXPR> referring to a lexical sub defined in grandparent scope no +longer produces an assertion failures. +[L<GH #19857|https://github.com/Perl/perl5/issues/19857>] =item * -Calling C<untie> on a tied hash that is partway through iteration now frees the -iteration state immediately. - -Iterating a tied hash causes perl to store a copy of the current hash key to -track the iteration state, with this stored copy passed as the second parameter -to C<NEXTKEY>. This internal state is freed immediately when tie hash iteration -completes, or if the hash is destroyed, but due to an implementation oversight, -it was not freed if the hash was untied. In that case, the internal copy of the -key would persist until the earliest of - -=over 4 - -=item 1 - -C<tie> was called again on the same hash - -=item 2 - -The (now untied) hash was iterated (ie passed to any of C<keys>, C<values> or -C<each>) - -=item 3 - -The hash was destroyed. +Writing to a magic variables associated with the selected output handle, C<$^>, +C<$~>, C<$=>, C<$-> and C<$%>, no longer crashes perl if the IO object has been +cleared from the selected output handle. +[L<GH #20733|https://github.com/Perl/perl5/issues/20733>] =back -This inconsistency is now fixed - the internal state is now freed immediately by -C<untie>. - -As the precise timing of this behaviour can be observed with pure Perl code -(the timing of C<DESTROY> on objects returned from C<FIRSTKEY> and C<NEXTKEY>) -it's just possible that some code is sensitive to it. - -=item * - -The C<Internals::getcwd()> function added for bootstrapping miniperl -in perl 5.30.0 is now only available in miniperl. [github #19122] - -=item * - -Setting a breakpoint on a BEGIN or equivalently a C<use> statement -could cause a memory write to a freed C<dbstate> op. -[L<GH #19198|https://github.com/Perl/perl5/issues/19198>] - -=item * - -When bareword filehandles are disabled, the parser was interpreting -any bareword as a filehandle, even when immediatey followed by parens. - -=back - -=head1 Errata From Previous Releases - -=over 4 - -=item * - -L<perl5300delta> mistakenly identified a CVE whose correct identification is -CVE-2015-1592. - -=back - -=head1 Obituaries - -Raun "Spider" Boardman (SPIDB on CPAN), author of at least 66 commits to the -Perl 5 core distribution between 1996 and 2002, passed away May 24, 2021 from -complications of COVID. He will be missed. - -David H. Adler (DHA) passed away on November 16, 2021. In 1997, David -co-founded NY.pm, the first Perl user group, and in 1998 co-founded Perl -Mongers to help establish other user groups across the globe. He was a -frequent attendee at Perl conferences in both North America and Europe and well -known for his role in organizing I<Bad Movie Night> celebrations at those -conferences. He also contributed to the work of the Perl Foundation, including -administering the White Camel awards for community service. He will be missed. - =head1 Acknowledgements -Perl 5.36.0 represents approximately a year of development since Perl -5.34.0 and contains approximately 250,000 lines of changes across 2,000 -files from 82 authors. +Perl 5.36.1 represents approximately 11 months of development since Perl 5.36.0 +and contains approximately 5,500 lines of changes across 62 files from 24 +authors. Excluding auto-generated files, documentation and release tools, there were -approximately 190,000 lines of changes to 1,300 .pm, .t, .c and .h files. +approximately 1,600 lines of changes to 23 .pm, .t, .c and .h files. -Perl continues to flourish into its fourth decade thanks to a vibrant -community of users and developers. The following people are known to have -contributed the improvements that became Perl 5.36.0: +Perl continues to flourish into its fourth decade thanks to a vibrant community +of users and developers. The following people are known to have contributed +the improvements that became Perl 5.36.1: -Alyssa Ross, Andrew Fresh, Aristotle Pagaltzis, Asher Mancinelli, Atsushi -Sugawara, Ben Cornett, Bernd, Biswapriyo Nath, Brad Barden, Bram, Branislav -Zahradník, brian d foy, Chad Granum, Chris 'BinGOs' Williams, Christian -Walde (Mithaldu), Christopher Yeleighton, Craig A. Berry, cuishuang, Curtis -Poe, Dagfinn Ilmari Mannsåker, Dan Book, Daniel Laügt, Dan Jacobson, Dan -Kogai, Dave Cross, Dave Lambley, David Cantrell, David Golden, David -Marshall, David Mitchell, E. Choroba, Eugen Konkov, Felipe Gasper, François -Perrad, Graham Knop, H.Merijn Brand, Hugo van der Sanden, Ilya Sashcheka, -Ivan Panchenko, Jakub Wilk, James E Keenan, James Raspass, Karen Etheridge, -Karl Williamson, Leam Hall, Leon Timmermans, Magnus Woldrich, Matthew -Horsfall, Max Maischein, Michael G Schwern, Michiel Beijen, Mike Fulton, -Neil Bowers, Nicholas Clark, Nicolas R, Niyas Sait, Olaf Alders, Paul Evans, -Paul Marquess, Petar-Kaleychev, Pete Houston, Renee Baecker, Ricardo Signes, -Richard Leach, Robert Rothenberg, Sawyer X, Scott Baker, Sergey Poznyakoff, -Sergey Zhmylove, Sisyphus, Slaven Rezic, Steve Hay, Sven Kirmess, TAKAI -Kousuke, Thibault Duponchelle, Todd Rinaldo, Tomasz Konojacki, Tomoyuki -Sadahiro, Tony Cook, Unicode Consortium, Yves Orton, Михаил -Козачков. +Andreas König, Bram, Chris 'BinGOs' Williams, Craig A. Berry, Dagfinn Ilmari +Mannsåker, David Mitchell, Elvin Aslanov, Florian Weimer, Graham Knop, Hugo +van der Sanden, Karen Etheridge, Karl Williamson, Leon Timmermans, Matthew +Horsfall, Max Maischein, Neil Bowers, Nicolas R, Renee Baecker, Ricardo Signes, +Richard Leach, Steve Hay, Todd Rinaldo, Tony Cook, Yves Orton. -The list above is almost certainly incomplete as it is automatically -generated from version control history. In particular, it does not include -the names of the (very much appreciated) contributors who reported issues to -the Perl bug tracker. +The list above is almost certainly incomplete as it is automatically generated +from version control history. In particular, it does not include the names of +the (very much appreciated) contributors who reported issues to the Perl bug +tracker. Many of the changes included in this version originated in the CPAN modules -included in Perl's core. We're grateful to the entire CPAN community for +included in Perl's core. We're grateful to the entire CPAN community for helping Perl to flourish. -For a more complete list of all of Perl's historical contributors, please +For a more complete list of all of Perl's historical contributors, please see +the F<AUTHORS> file in the Perl source distribution. =head1 Reporting Bugs -If you find what you think is a bug, you might check the perl bug database -at L<https://github.com/Perl/perl5/issues>. There may also be information at +If you find what you think is a bug, you might check the perl bug database at +L<https://github.com/Perl/perl5/issues>. There may also be information at L<http://www.perl.org/>, the Perl Home Page. If you believe you have an unreported bug, please open an issue at @@ -1560,13 +123,13 @@ tiny but sufficient test case. If the bug you are reporting has security implications which make it inappropriate to send to a public issue tracker, then see -L<perlsec/SECURITY VULNERABILITY CONTACT INFORMATION> -for details of how to report the issue. +L<perlsec/SECURITY VULNERABILITY CONTACT INFORMATION> for details of how to +report the issue. =head1 Give Thanks -If you wish to thank the Perl 5 Porters for the work we had done in Perl 5, -you can do so by running the C<perlthanks> program: +If you wish to thank the Perl 5 Porters for the work we had done in Perl 5, you +can do so by running the C<perlthanks> program: perlthanks diff --git a/gnu/usr.bin/perl/pod/perlexperiment.pod b/gnu/usr.bin/perl/pod/perlexperiment.pod index 1daf70199b6..bd0100d16cd 100644 --- a/gnu/usr.bin/perl/pod/perlexperiment.pod +++ b/gnu/usr.bin/perl/pod/perlexperiment.pod @@ -184,7 +184,7 @@ L<[perl #19764]|https://github.com/Perl/perl5/issues/19764>. Introduced in Perl 5.36.0 -Using this feature triggers warnings in the category C<builtin::defer>. +Using this feature triggers warnings in the category C<experimental::defer>. This feature adds a new kind of block, a C<defer> block, which will not be executed until the containing block is being exited. @@ -197,7 +197,7 @@ L<[perl #17949]|https://github.com/Perl/perl5/issues/17949>. Introduced in Perl 5.36.0 Using this feature triggers warnings in the category -C<builtin::extra_paired_delimiters>. +C<experimental::extra_paired_delimiters>. This feature allows for many non-ASCII pairs of mirroring delimiters, for example: diff --git a/gnu/usr.bin/perl/pod/perlhist.pod b/gnu/usr.bin/perl/pod/perlhist.pod index 7c4785b3aa5..7f274cd5552 100644 --- a/gnu/usr.bin/perl/pod/perlhist.pod +++ b/gnu/usr.bin/perl/pod/perlhist.pod @@ -35,7 +35,7 @@ Little, Dave Rolsky, Max Maischein, Abigail, Jesse Luehrs, Tony Cook, Dominic Hargreaves, Aaron Crane, Aristotle Pagaltzis, Matthew Horsfall, Peter Martini, Sawyer X, Chad 'Exodist' Granum, Renee Bäcker, Eric Herman, John SJ Anderson, Karen Etheridge, Zak B. Elep, Tom Hukins, Richard Leach, -and Neil Bowers. +Neil Bowers and Yves Orton. =head2 PUMPKIN? @@ -734,6 +734,23 @@ the strings?). Ricardo 5.36.0-RC2 2022-May-20 Ricardo 5.36.0-RC3 2022-May-22 Ricardo 5.36.0 2022-May-27 + Steve 5.36.1-RC1 2023-Apr-10 + Steve 5.36.1-RC2 2023-Apr-11 + Steve 5.36.1-RC3 2023-Apr-16 + Steve 5.36.1 2023-Apr-23 + + Ricardo 5.37.0 2022-May-27 The 5.37 development track + Matthew H 5.37.1 2022-Jun-20 + Nicolas R 5.37.2 2022-Jul-20 + Neil B 5.37.3 2022-Aug-20 + Ether 5.37.4 2022-Sep-20 + Todd R 5.37.5 2022-Oct-20 + Max M 5.37.6 2022-Nov-20 + Richard L 5.37.7 2022-Dec-20 + Renee 5.37.8 2023-Jan-20 + Ether 5.37.9 2023-Feb-20 + Yves 5.37.10 2023-Mar-20 + Steve 5.37.11 2023-Apr-20 =head2 SELECTED RELEASE SIZES diff --git a/gnu/usr.bin/perl/pp_ctl.c b/gnu/usr.bin/perl/pp_ctl.c index 86f5f2c3431..9de77afbf99 100644 --- a/gnu/usr.bin/perl/pp_ctl.c +++ b/gnu/usr.bin/perl/pp_ctl.c @@ -653,15 +653,15 @@ PP(pp_formline) break; } else { + if (size == fieldsize) + break; if (strchr(PL_chopset, *s)) { /* provisional split point */ /* for a non-space split char, we include * the split char; hence the '+1' */ chophere = s + 1; - itemsize = size; + itemsize = size + 1; } - if (size == fieldsize) - break; if (!isCNTRL(*s)) gotsome = TRUE; } @@ -3347,11 +3347,16 @@ S_docatch(pTHX_ Perl_ppaddr_t firstpp) case 0: PL_op = firstpp(aTHX); redo_body: - CALLRUNOPS(aTHX); + if (PL_op) { + CALLRUNOPS(aTHX); + } break; case 3: - /* die caught by an inner eval - continue inner loop */ - if (PL_restartop && PL_restartjmpenv == PL_top_env) { + if (PL_restartjmpenv == PL_top_env) { + /* die caught by an inner eval - continue inner loop */ + + if (!PL_restartop) + break; PL_restartjmpenv = NULL; PL_op = PL_restartop; PL_restartop = 0; diff --git a/gnu/usr.bin/perl/pp_hot.c b/gnu/usr.bin/perl/pp_hot.c index d3a0aa17706..3fe972819bc 100644 --- a/gnu/usr.bin/perl/pp_hot.c +++ b/gnu/usr.bin/perl/pp_hot.c @@ -861,7 +861,7 @@ PP(pp_multiconcat) /* Note that we iterate the loop nargs+1 times: to append nargs * arguments and nargs+1 constant strings. For example, "-$a-$b-" */ - svpv_p = svpv_base - 1; + svpv_p = svpv_base; for (;;) { SSize_t len = (const_lens++)->ssize; @@ -873,7 +873,7 @@ PP(pp_multiconcat) const_pv += len; } - if (++svpv_p == svpv_end) + if (svpv_p == svpv_end) break; /* append next arg */ @@ -901,6 +901,7 @@ PP(pp_multiconcat) targ_pv += len; } + ++svpv_p; } } diff --git a/gnu/usr.bin/perl/proto.h b/gnu/usr.bin/perl/proto.h index 873347ca990..91a4443fe21 100644 --- a/gnu/usr.bin/perl/proto.h +++ b/gnu/usr.bin/perl/proto.h @@ -5709,54 +5709,40 @@ STATIC SSize_t S_unpack_rec(pTHX_ struct tempsym* symptr, const char *s, const c #endif #if defined(PERL_IN_PP_SORT_C) #ifndef PERL_NO_INLINE_FUNCTIONS -PERL_STATIC_FORCE_INLINE I32 S_amagic_cmp(pTHX_ SV *const str1, SV *const str2) - __attribute__always_inline__; +PERL_STATIC_INLINE I32 S_amagic_cmp(pTHX_ SV *const str1, SV *const str2); #define PERL_ARGS_ASSERT_AMAGIC_CMP \ assert(str1); assert(str2) #endif - #ifndef PERL_NO_INLINE_FUNCTIONS -PERL_STATIC_FORCE_INLINE I32 S_amagic_cmp_desc(pTHX_ SV *const str1, SV *const str2) - __attribute__always_inline__; +PERL_STATIC_INLINE I32 S_amagic_cmp_desc(pTHX_ SV *const str1, SV *const str2); #define PERL_ARGS_ASSERT_AMAGIC_CMP_DESC \ assert(str1); assert(str2) #endif - #ifndef PERL_NO_INLINE_FUNCTIONS -PERL_STATIC_FORCE_INLINE I32 S_amagic_i_ncmp(pTHX_ SV *const a, SV *const b) - __attribute__always_inline__; +PERL_STATIC_INLINE I32 S_amagic_i_ncmp(pTHX_ SV *const a, SV *const b); #define PERL_ARGS_ASSERT_AMAGIC_I_NCMP \ assert(a); assert(b) #endif - #ifndef PERL_NO_INLINE_FUNCTIONS -PERL_STATIC_FORCE_INLINE I32 S_amagic_i_ncmp_desc(pTHX_ SV *const a, SV *const b) - __attribute__always_inline__; +PERL_STATIC_INLINE I32 S_amagic_i_ncmp_desc(pTHX_ SV *const a, SV *const b); #define PERL_ARGS_ASSERT_AMAGIC_I_NCMP_DESC \ assert(a); assert(b) #endif - #ifndef PERL_NO_INLINE_FUNCTIONS -PERL_STATIC_FORCE_INLINE I32 S_amagic_ncmp(pTHX_ SV *const a, SV *const b) - __attribute__always_inline__; +PERL_STATIC_INLINE I32 S_amagic_ncmp(pTHX_ SV *const a, SV *const b); #define PERL_ARGS_ASSERT_AMAGIC_NCMP \ assert(a); assert(b) #endif - #ifndef PERL_NO_INLINE_FUNCTIONS -PERL_STATIC_FORCE_INLINE I32 S_amagic_ncmp_desc(pTHX_ SV *const a, SV *const b) - __attribute__always_inline__; +PERL_STATIC_INLINE I32 S_amagic_ncmp_desc(pTHX_ SV *const a, SV *const b); #define PERL_ARGS_ASSERT_AMAGIC_NCMP_DESC \ assert(a); assert(b) #endif - #ifndef PERL_NO_INLINE_FUNCTIONS -PERL_STATIC_FORCE_INLINE I32 S_cmp_desc(pTHX_ SV *const str1, SV *const str2) - __attribute__always_inline__; +PERL_STATIC_INLINE I32 S_cmp_desc(pTHX_ SV *const str1, SV *const str2); #define PERL_ARGS_ASSERT_CMP_DESC \ assert(str1); assert(str2) #endif - STATIC I32 S_sortcv(pTHX_ SV *const a, SV *const b); #define PERL_ARGS_ASSERT_SORTCV \ assert(a); assert(b) @@ -5774,55 +5760,41 @@ PERL_STATIC_FORCE_INLINE void S_sortsv_flags_impl(pTHX_ SV** array, size_t num_e #endif #ifndef PERL_NO_INLINE_FUNCTIONS -PERL_STATIC_FORCE_INLINE I32 S_sv_i_ncmp(pTHX_ SV *const a, SV *const b) - __attribute__always_inline__; +PERL_STATIC_INLINE I32 S_sv_i_ncmp(pTHX_ SV *const a, SV *const b); #define PERL_ARGS_ASSERT_SV_I_NCMP \ assert(a); assert(b) #endif - #ifndef PERL_NO_INLINE_FUNCTIONS -PERL_STATIC_FORCE_INLINE I32 S_sv_i_ncmp_desc(pTHX_ SV *const a, SV *const b) - __attribute__always_inline__; +PERL_STATIC_INLINE I32 S_sv_i_ncmp_desc(pTHX_ SV *const a, SV *const b); #define PERL_ARGS_ASSERT_SV_I_NCMP_DESC \ assert(a); assert(b) #endif - #ifndef PERL_NO_INLINE_FUNCTIONS -PERL_STATIC_FORCE_INLINE I32 S_sv_ncmp(pTHX_ SV *const a, SV *const b) - __attribute__always_inline__; +PERL_STATIC_INLINE I32 S_sv_ncmp(pTHX_ SV *const a, SV *const b); #define PERL_ARGS_ASSERT_SV_NCMP \ assert(a); assert(b) #endif - #ifndef PERL_NO_INLINE_FUNCTIONS -PERL_STATIC_FORCE_INLINE I32 S_sv_ncmp_desc(pTHX_ SV *const a, SV *const b) - __attribute__always_inline__; +PERL_STATIC_INLINE I32 S_sv_ncmp_desc(pTHX_ SV *const a, SV *const b); #define PERL_ARGS_ASSERT_SV_NCMP_DESC \ assert(a); assert(b) #endif - # if defined(USE_LOCALE_COLLATE) #ifndef PERL_NO_INLINE_FUNCTIONS -PERL_STATIC_FORCE_INLINE I32 S_amagic_cmp_locale(pTHX_ SV *const str1, SV *const str2) - __attribute__always_inline__; +PERL_STATIC_INLINE I32 S_amagic_cmp_locale(pTHX_ SV *const str1, SV *const str2); #define PERL_ARGS_ASSERT_AMAGIC_CMP_LOCALE \ assert(str1); assert(str2) #endif - #ifndef PERL_NO_INLINE_FUNCTIONS -PERL_STATIC_FORCE_INLINE I32 S_amagic_cmp_locale_desc(pTHX_ SV *const str1, SV *const str2) - __attribute__always_inline__; +PERL_STATIC_INLINE I32 S_amagic_cmp_locale_desc(pTHX_ SV *const str1, SV *const str2); #define PERL_ARGS_ASSERT_AMAGIC_CMP_LOCALE_DESC \ assert(str1); assert(str2) #endif - #ifndef PERL_NO_INLINE_FUNCTIONS -PERL_STATIC_FORCE_INLINE I32 S_cmp_locale_desc(pTHX_ SV *const str1, SV *const str2) - __attribute__always_inline__; +PERL_STATIC_INLINE I32 S_cmp_locale_desc(pTHX_ SV *const str1, SV *const str2); #define PERL_ARGS_ASSERT_CMP_LOCALE_DESC \ assert(str1); assert(str2) #endif - # endif #endif #if defined(PERL_IN_PP_SYS_C) @@ -6772,9 +6744,15 @@ STATIC void S_mem_log_common(enum mem_log_type mlt, const UV n, const UV typesiz PERL_CALLCONV Malloc_t Perl_mem_log_alloc(const UV nconst, UV typesize, const char *type_name, Malloc_t newalloc, const char *filename, const int linenumber, const char *funcname); #define PERL_ARGS_ASSERT_MEM_LOG_ALLOC \ assert(type_name); assert(filename); assert(funcname) +PERL_CALLCONV void Perl_mem_log_del_sv(const SV *sv, const char *filename, int linenumber, const char *funcname); +#define PERL_ARGS_ASSERT_MEM_LOG_DEL_SV \ + assert(sv); assert(filename); assert(funcname) PERL_CALLCONV Malloc_t Perl_mem_log_free(Malloc_t oldalloc, const char *filename, const int linenumber, const char *funcname); #define PERL_ARGS_ASSERT_MEM_LOG_FREE \ assert(filename); assert(funcname) +PERL_CALLCONV void Perl_mem_log_new_sv(const SV *sv, const char *filename, int linenumber, const char *funcname); +#define PERL_ARGS_ASSERT_MEM_LOG_NEW_SV \ + assert(sv); assert(filename); assert(funcname) PERL_CALLCONV Malloc_t Perl_mem_log_realloc(const UV n, const UV typesize, const char *type_name, Malloc_t oldalloc, Malloc_t newalloc, const char *filename, const int linenumber, const char *funcname); #define PERL_ARGS_ASSERT_MEM_LOG_REALLOC \ assert(type_name); assert(filename); assert(funcname) diff --git a/gnu/usr.bin/perl/sv.c b/gnu/usr.bin/perl/sv.c index 16bba941cb2..669678a3503 100644 --- a/gnu/usr.bin/perl/sv.c +++ b/gnu/usr.bin/perl/sv.c @@ -5764,16 +5764,6 @@ Perl_sv_magic(pTHX_ SV *const sv, SV *const obj, const int how, } } - /* Force pos to be stored as characters, not bytes. */ - if (SvMAGICAL(sv) && DO_UTF8(sv) - && (mg = mg_find(sv, PERL_MAGIC_regex_global)) - && mg->mg_len != -1 - && mg->mg_flags & MGf_BYTES) { - mg->mg_len = (SSize_t)sv_pos_b2u_flags(sv, (STRLEN)mg->mg_len, - SV_CONST_RETURN); - mg->mg_flags &= ~MGf_BYTES; - } - /* Rest of work is done else where */ mg = sv_magicext(sv,obj,how,vtable,name,namlen); diff --git a/gnu/usr.bin/perl/t/io/defout.t b/gnu/usr.bin/perl/t/io/defout.t index aa40666162c..2c8af5c80db 100644 --- a/gnu/usr.bin/perl/t/io/defout.t +++ b/gnu/usr.bin/perl/t/io/defout.t @@ -14,7 +14,7 @@ BEGIN { $|=0; # test.pl makes it 1, and that conflicts with the below. -plan tests => 16; +plan tests => 22; my $stdout = *STDOUT; @@ -48,6 +48,20 @@ $- = 1; pass '$- = 1'; $% = 1; pass '$% = 1'; $| = 1; pass '$| = 1'; +# test a NULLed GV +my $t = tempfile; +open FOO, ">", $t or die; +select(FOO); +my $io = *FOO{IO}; +*FOO = 0; +$^ = 1; pass 'empty GV: $^ = 1'; +$~ = 1; pass 'empty GV: $~ = 1'; +$= = 1; pass 'empty GV: $= = 1'; +$- = 1; pass 'empty GV: $- = 1'; +$% = 1; pass 'empty GV: $% = 1'; +$| = 1; pass 'empty GV: $| = 1'; +close $io; + # Switch to STDERR for this test, so we do not lose our test output my $stderr = *STDERR; select($stderr); diff --git a/gnu/usr.bin/perl/t/op/lexsub.t b/gnu/usr.bin/perl/t/op/lexsub.t index f085cd97e8d..639fd298604 100644 --- a/gnu/usr.bin/perl/t/op/lexsub.t +++ b/gnu/usr.bin/perl/t/op/lexsub.t @@ -7,7 +7,7 @@ BEGIN { *bar::is = *is; *bar::like = *like; } -plan 150; +plan 151; # -------------------- our -------------------- # @@ -960,3 +960,14 @@ like runperl( is join("-", qw(aa bb), do { my sub lleexx; 123 }, qw(cc dd)), "aa-bb-123-cc-dd", 'do { my sub...} in a list [perl #132442]'; + +{ + # this would crash because find_lexical_cv() couldn't handle an + # intermediate scope which didn't include the sub + no warnings 'experimental::builtin'; + use builtin 'ceil'; + sub nested { + ok(eval 'ceil(1.5)', "no assertion failure calling a lexical sub from nested eval"); + } + nested(); +} diff --git a/gnu/usr.bin/perl/t/op/method.t b/gnu/usr.bin/perl/t/op/method.t index d0fc3218046..ff404a91a4f 100644 --- a/gnu/usr.bin/perl/t/op/method.t +++ b/gnu/usr.bin/perl/t/op/method.t @@ -13,7 +13,7 @@ BEGIN { use strict; no warnings 'once'; -plan(tests => 162); +plan(tests => 163); { # RT #126042 &{1==1} * &{1==1} would crash @@ -715,6 +715,32 @@ SKIP: { like ($@, qr/Modification of a read-only value attempted/, 'RT #123619'); } +{ + fresh_perl_is(<<'PROG', <<'EXPECT', {}, "don't negative cache NOUNIVERSAL lookups"); +use v5.36; + +my $foo; + +BEGIN { + $foo = bless {}, 'Foo'; + $foo->isa('Foo') and say "->isa works!"; + } + +# bump PL_sub_generation +local *Foo::DESTROY = sub {}; +undef &Foo::DESTROY; +local *Foo::DESTROY = sub {}; + +$foo isa 'Foo' and say " and isa works!"; +$foo->isa('Foo') and say "->isa works!"; + +PROG +->isa works! + and isa works! +->isa works! +EXPECT +} + # RT#130496: assertion failure when looking for a method of undefined name # on an unblessed reference fresh_perl_is('eval { {}->$x }; print $@;', diff --git a/gnu/usr.bin/perl/t/op/taint.t b/gnu/usr.bin/perl/t/op/taint.t index f4f06f74619..30cd6f954af 100644 --- a/gnu/usr.bin/perl/t/op/taint.t +++ b/gnu/usr.bin/perl/t/op/taint.t @@ -25,7 +25,7 @@ if ($NoTaintSupport) { exit 0; } -plan tests => 1054; +plan tests => 1058; $| = 1; @@ -2955,6 +2955,18 @@ is_tainted("$ovtaint", "overload preserves taint"); taint_sig3($TAINT); } +{ + # GH 19478: panic on s///gre with tainted utf8 strings + my $u = "\x{10469}"; + my $r1 = ("foo$TAINT" =~ s/./"$u"/gre); + is($r1, "$u$u$u", 'tainted string with utf8 s/.//gre'); + my $r2 = ("foo$TAINT" =~ s/.*/"${u}"/gre); + is($r2, "$u$u", 'tainted string with utf8 s/.*//gre'); + my $r3 = ("foo$TAINT" =~ s/.+/"${u}"/gre); + is($r3, $u, 'tainted string with utf8 s/.+//gre'); + my $r4 = ("$u$TAINT" =~ s/./""/gre); + is($r4, '', 'tainted utf8 string with s///gre'); +} # This may bomb out with the alarm signal so keep it last SKIP: { diff --git a/gnu/usr.bin/perl/t/op/write.t b/gnu/usr.bin/perl/t/op/write.t index 46660506f50..0e596ebea74 100644 --- a/gnu/usr.bin/perl/t/op/write.t +++ b/gnu/usr.bin/perl/t/op/write.t @@ -33,6 +33,18 @@ sub cat_utf8 { $data; } +# write a format to a plain file, then read it back in and compare + +sub is_format { + my ($glob, $want, $desc) = @_; + local $::Level = $::Level + 1; + my $file = 'Op_write.tmp'; + open $glob, '>', $file or die "Can't create '$file': $!"; + write $glob; + close $glob or die "Could not close '$file': $!"; + is(cat($file), $want, $desc); +} + # write a format to a utf8 file, then read it back in and compare sub is_format_utf8 { @@ -100,7 +112,8 @@ for my $tref ( @NumTests ){ my $bas_tests = 21; # number of tests in section 3 -my $bug_tests = 66 + 3 * 3 * 5 * 2 * 3 + 2 + 66 + 6 + 2 + 3 + 96 + 11 + 14; +my $bug_tests = 66 + 3 * 3 * 5 * 2 * 3 + 2 + 66 + 6 + 2 + 3 + 96 + 11 + 14 + + 12; # number of tests in section 4 my $hmb_tests = 37; @@ -1360,6 +1373,47 @@ $v28f like_format_utf8(\*OUT28f, $qr_hash_m); +my $v29a; +format OUT29a = +[^<<<]~~ +$v29a +. + +$v29a = "-ABCD"; +is_format(\*OUT29a, "[- ]\n[ABCD]\n"); + +$v29a = "A-BCD"; +is_format(\*OUT29a, "[A- ]\n[BCD ]\n"); + +$v29a = "AB-CD"; +is_format(\*OUT29a, "[AB- ]\n[CD ]\n"); + +$v29a = "ABC-D"; +is_format(\*OUT29a, "[ABC-]\n[D ]\n"); + +$v29a = "ABCD-"; +is_format(\*OUT29a, "[ABCD]\n[- ]\n"); + +$v29a = "ABCDE-"; +is_format(\*OUT29a, "[ABCD]\n[E- ]\n"); + +$v29a = "-ABCD"; +is_format_utf8(\*OUT29a, "[- ]\n[ABCD]\n"); + +$v29a = "A-BCD"; +is_format_utf8(\*OUT29a, "[A- ]\n[BCD ]\n"); + +$v29a = "AB-CD"; +is_format_utf8(\*OUT29a, "[AB- ]\n[CD ]\n"); + +$v29a = "ABC-D"; +is_format_utf8(\*OUT29a, "[ABC-]\n[D ]\n"); + +$v29a = "ABCD-"; +is_format_utf8(\*OUT29a, "[ABCD]\n[- ]\n"); + +$v29a = "ABCDE-"; +is_format_utf8(\*OUT29a, "[ABCD]\n[E- ]\n"); { diff --git a/gnu/usr.bin/perl/t/re/pat_re_eval.t b/gnu/usr.bin/perl/t/re/pat_re_eval.t index 70b807b9e23..b626f8eae15 100755 --- a/gnu/usr.bin/perl/t/re/pat_re_eval.t +++ b/gnu/usr.bin/perl/t/re/pat_re_eval.t @@ -24,7 +24,7 @@ BEGIN { our @global; -plan tests => 506; # Update this when adding/deleting tests. +plan tests => 508; # Update this when adding/deleting tests. run_tests() unless caller; @@ -1332,6 +1332,21 @@ sub run_tests { pass("SvTEMP 2"); } + # GH #19680 "panic: restartop in perl_run" + # The eval block embedded within the (?{}) - but with no more code + # following it - causes the next op after the OP_LEAVETRY to be NULL + # (not even an OP_LEAVE). This confused the exception-catching and + # rethrowing code: it was incorrectly rethrowing the exception rather + # than just stopping at that point. + + ok("test" =~ m{^ (?{eval {die "boo!"}}) test $}x, "GH #19680"); + + # GH #19390 Segmentation fault with use re 'eval' + # Similar to GH #19680 above, but exiting the eval via a syntax error + # rather than throwing an exception + + ok("" =~ m{^ (?{eval q{$x=}})}x, "GH #19390"); + } # End of sub run_tests 1; diff --git a/gnu/usr.bin/perl/util.c b/gnu/usr.bin/perl/util.c index 0f06c87985f..22cde1c4810 100644 --- a/gnu/usr.bin/perl/util.c +++ b/gnu/usr.bin/perl/util.c @@ -5259,7 +5259,7 @@ S_mem_log_common(enum mem_log_type mlt, const UV n, # define MEM_LOG_TIME_FMT "%10d.%06d: " # define MEM_LOG_TIME_ARG (int)tv.tv_sec, (int)tv.tv_usec struct timeval tv; - gettimeofday(&tv, 0); + PerlProc_gettimeofday(&tv, 0); # else # define MEM_LOG_TIME_FMT "%10d: " # define MEM_LOG_TIME_ARG (int)when @@ -5385,6 +5385,8 @@ Perl_mem_log_new_sv(const SV *sv, const char *filename, const int linenumber, const char *funcname) { + PERL_ARGS_ASSERT_MEM_LOG_NEW_SV; + mem_log_common_if(MLT_NEW_SV, 0, 0, "", sv, NULL, NULL, filename, linenumber, funcname); } @@ -5394,6 +5396,8 @@ Perl_mem_log_del_sv(const SV *sv, const char *filename, const int linenumber, const char *funcname) { + PERL_ARGS_ASSERT_MEM_LOG_DEL_SV; + mem_log_common_if(MLT_DEL_SV, 0, 0, "", sv, NULL, NULL, filename, linenumber, funcname); } diff --git a/gnu/usr.bin/perl/vms/descrip_mms.template b/gnu/usr.bin/perl/vms/descrip_mms.template index f1c7db8edb1..6c2b5c27913 100644 --- a/gnu/usr.bin/perl/vms/descrip_mms.template +++ b/gnu/usr.bin/perl/vms/descrip_mms.template @@ -313,7 +313,7 @@ utils : $(utils1) $(utils2) $(utils3) $(utils4) $(utils5) extra.pods : miniperl @ @extra_pods.com -PERLDELTA_CURRENT = [.pod]perl5360delta.pod +PERLDELTA_CURRENT = [.pod]perl5361delta.pod $(PERLDELTA_CURRENT) : [.pod]perldelta.pod Copy/NoConfirm/Log $(MMS$SOURCE) $(PERLDELTA_CURRENT) diff --git a/gnu/usr.bin/perl/win32/GNUmakefile b/gnu/usr.bin/perl/win32/GNUmakefile index 94c3da9c29f..6f1d491504d 100644 --- a/gnu/usr.bin/perl/win32/GNUmakefile +++ b/gnu/usr.bin/perl/win32/GNUmakefile @@ -63,7 +63,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.36.0 +#INST_VER := \5.36.1 # # Comment this out if you DON'T want your perl installation to have @@ -1624,7 +1624,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\perl5360delta.pod + copy ..\pod\perldelta.pod ..\pod\perl5361delta.pod $(MINIPERL) -I..\lib $(PL2BAT) $(UTILS) $(MINIPERL) -I..\lib ..\autodoc.pl .. $(MINIPERL) -I..\lib ..\pod\perlmodlib.PL -q .. @@ -1724,7 +1724,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 \ - perl5360delta.pod perlaix.pod perlamiga.pod perlandroid.pod \ + perl5361delta.pod perlaix.pod perlamiga.pod perlandroid.pod \ perlapi.pod perlbs2000.pod perlcn.pod perlcygwin.pod \ perlfreebsd.pod perlhaiku.pod perlhpux.pod perlhurd.pod \ perlintern.pod perlirix.pod perljp.pod perlko.pod perllinux.pod \ diff --git a/gnu/usr.bin/perl/win32/Makefile b/gnu/usr.bin/perl/win32/Makefile index a2e257f2370..62b5be4286f 100644 --- a/gnu/usr.bin/perl/win32/Makefile +++ b/gnu/usr.bin/perl/win32/Makefile @@ -37,7 +37,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.36.0 +#INST_VER = \5.36.1 # # Comment this out if you DON'T want your perl installation to have @@ -1156,7 +1156,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\perl5360delta.pod + copy ..\pod\perldelta.pod ..\pod\perl5361delta.pod cd ..\win32 $(PERLEXE) $(PL2BAT) $(UTILS) $(MINIPERL) -I..\lib ..\autodoc.pl .. @@ -1257,7 +1257,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 \ - perl5360delta.pod perlaix.pod perlamiga.pod perlandroid.pod \ + perl5361delta.pod perlaix.pod perlamiga.pod perlandroid.pod \ perlapi.pod perlbs2000.pod perlcn.pod perlcygwin.pod \ perlfreebsd.pod perlhaiku.pod perlhpux.pod perlhurd.pod \ perlintern.pod perlirix.pod perljp.pod perlko.pod perllinux.pod \ diff --git a/gnu/usr.bin/perl/win32/pod.mak b/gnu/usr.bin/perl/win32/pod.mak index 6323b621fd0..74d96859c8d 100644 --- a/gnu/usr.bin/perl/win32/pod.mak +++ b/gnu/usr.bin/perl/win32/pod.mak @@ -67,6 +67,7 @@ POD = perl.pod \ perl5340delta.pod \ perl5341delta.pod \ perl5360delta.pod \ + perl5361delta.pod \ perl561delta.pod \ perl56delta.pod \ perl581delta.pod \ @@ -232,6 +233,7 @@ MAN = perl.man \ perl5340delta.man \ perl5341delta.man \ perl5360delta.man \ + perl5361delta.man \ perl561delta.man \ perl56delta.man \ perl581delta.man \ @@ -397,6 +399,7 @@ HTML = perl.html \ perl5340delta.html \ perl5341delta.html \ perl5360delta.html \ + perl5361delta.html \ perl561delta.html \ perl56delta.html \ perl581delta.html \ @@ -562,6 +565,7 @@ TEX = perl.tex \ perl5340delta.tex \ perl5341delta.tex \ perl5360delta.tex \ + perl5361delta.tex \ perl561delta.tex \ perl56delta.tex \ perl581delta.tex \ |