In perl.git, the branch abigail/deprecation has been updated <http://perl5.git.perl.org/perl.git/commitdiff/4d95c3f0c851ce04e7ed95b997e31d4653ddc41c?hp=395d958ce6112333263a1dd16c0d7e111144105e>
discards 395d958ce6112333263a1dd16c0d7e111144105e (commit) discards fb847842d9aedf642a043677bf2b2a1af70f5646 (commit) discards 5a0d7028df2e737e7232e1fbf1c675d10a1f83ba (commit) discards a6f03fd6ee02ef1cd2999f4cc9bab3047d4dbfe7 (commit) discards 36d972e61663b6e6d47453a41110beed5d0998df (commit) discards aa023103ab909ba7de17d66784d5d4107288f04f (commit) discards 90e38872e80df4832a991d7ba8a965cb1fbd591a (commit) discards dacc4228a825079f62b6e4bfe2272544f6d5733a (commit) discards 0523d57a2e659de38a84b2e086d0e58d2d5cc267 (commit) discards bf9225bcb5552bb59c5e699dacb08656a8c0d73d (commit) discards 816240d28d73813be8961dcd5466d0ba6b9c44be (commit) discards f194966fce37366d1cf08860cd734051c98bc9e3 (commit) discards 5447042d5ce6d78a2a28c6226b132fbfc1592eba (commit) discards f7953c4f0eb9c8145ade4ea3d4a8dc9a0caa3127 (commit) discards acb47a8a6dc1f36691c88d4c5449100bf44b42ab (commit) discards de37707bb9bac8303af161c6cb88af206aba3792 (commit) discards 951d5fbd578b40aab0661735eb647d2287f6311e (commit) discards c67fcce8d7fb243027cc22e8a2740c96fd858805 (commit) - Log ----------------------------------------------------------------- commit 4d95c3f0c851ce04e7ed95b997e31d4653ddc41c Author: Abigail <[email protected]> Date: Wed Nov 23 19:06:51 2016 +0100 Use of Unicode code points exceeding IV_MAX will be fatal in Perl 5.28 Changed the warning to reflect the deadline of this deprecation. Update tests, perldiag.pod and added a section to perldeprecation.pod. M pod/perldeprecation.pod M pod/perldiag.pod M t/lib/warnings/pp M t/lib/warnings/utf8 M utf8.c commit 5dd28c5995f735fa424a5cce5dc462326a29930b Author: Abigail <[email protected]> Date: Mon Nov 21 22:38:32 2016 +0100 Unescaped left braces in regular expressions will be fatal in 5.30. In 5.26, some uses of unescaped left braces were made fatal; they have given a deprecation warning since 5.20. Due to an oversight, some cases were missed, and did not give a deprecation warning. They do now. This patch changes said deprecation warning to mention the Perl version in which the use of an unescaped left brace will be fatal (5.30). The patch also cleans up some unnecessary quotes inside a C<> construct in the discussion of this warning in perldiag.pod. M pod/perldeprecation.pod M pod/perldiag.pod M regcomp.c M t/re/reg_mesg.t commit 49d4b1d5042245a0e5d2749adf9badbaf5147894 Author: Abigail <[email protected]> Date: Fri Nov 18 18:33:19 2016 +0100 Bare heredocs will be fatal in 5.28. Heredocs without a terminator after the << have been deprecated since 5.000. After more than 2 decades, it's time to retire this construct. They will be fatal in 5.28. M pod/perldeprecation.pod M pod/perldiag.pod M t/lib/warnings/toke M t/op/heredoc.t M toke.c commit b29a725295b427cfc47f4c8538c2b29b87ab327a Author: Abigail <[email protected]> Date: Fri Nov 18 17:41:44 2016 +0100 Use of \N{} will be fatal in 5.28. Use of \N{} in a double quoted context, with nothing between the braces, was deprecated in 5.24, and it will be a fatal error in 5.28. M pod/perldeprecation.pod M pod/perldiag.pod M t/lib/warnings/regcomp M toke.c commit 249ae76768a11c9a3b26df70eec89c2a032bdd48 Author: Abigail <[email protected]> Date: Fri Nov 18 14:56:56 2016 +0100 Reformat overlong comment. pod/perlhack.pod says to try hard not to exceed 79 columns. M mg.c commit 9979f7db2f953d6152a820ec288f7dd80e03aaa4 Author: Abigail <[email protected]> Date: Fri Nov 18 14:52:18 2016 +0100 $/ = \-1 will be fatal in Perl 5.28. Setting $/ to a reference of a non-positive integer has been deprecated since 5.20, in which it was special cased to act like you had set to $/ to undef. In Perl 5.28, setting $/ to a reference to a non-positive integer will be a fatal error. M mg.c M pod/perldeprecation.pod M pod/perldiag.pod M t/lib/warnings/9uninit M t/lib/warnings/mg commit 0b796897191e94fa6ee60136b6008d3d23f3d338 Author: Abigail <[email protected]> Date: Thu Nov 17 19:34:37 2016 +0100 Opening a file and dir using the same symbol will be fatal in 5.28. Perl 5.10 deprecated using the same symbol to open both a filehandle and a dirhandle, as this can lead to confusing code. In Pelr 5.28, this will become a fatal error. This patch changes the warning to reflect this. M pod/perldeprecation.pod M pod/perldiag.pod M pp_sys.c M t/lib/warnings/pp_sys commit b9a643355baa0bd9bc9b4e9cbaf51c8727589bfa Author: Abigail <[email protected]> Date: Thu Nov 17 00:38:38 2016 +0100 Fix mentioning of C<$#>. A copy and past left a C<$*> instead of a C<$#>. Pointed out by douglas steinwand. M pod/perldeprecation.pod commit 470ebe21cd1786ada1f666a1684683d342153e24 Author: Abigail <[email protected]> Date: Wed Nov 16 19:07:32 2016 +0100 Setting ${^ENCODE} will be fatal by 5.28. Hence, we adapted the warning, to mention the version in which it will become a fatal error. M handy.h M mg.c M pod/perldeprecation.pod M pod/perldiag.pod M t/lib/warnings/gv M t/lib/warnings/mg commit db04afebea7a17bc6e265eeabbf2ae0d859440a2 Author: Abigail <[email protected]> Date: Wed Nov 16 00:20:31 2016 +0100 Be consistent when addressing Perl. In perldeprecation.pod, when referring to a particular perl version, use "Perl 5.XX" (or "Perl 5.00X" for pre-5.6 versions) consistently. M pod/perldeprecation.pod commit e9b5346b919b4f4cc0096af4644cb0d48d64e14c Author: Abigail <[email protected]> Date: Tue Nov 15 23:51:53 2016 +0100 Remove deprecation warnings related to $* and $#. The magic variables $* and $# were deprecated in 5.000. Their magical meaning was removed in Perl 5.10. Since then, a warning was issued if the variables were used. This warnings has been removed. M gv.c M pod/perldeprecation.pod M pod/perldiag.pod M t/lib/warnings/2use M t/lib/warnings/gv commit 60a4bc27293d344c3fc7ca1804a35969b86832f8 Author: Abigail <[email protected]> Date: Tue Nov 15 19:35:28 2016 +0100 Time limit the deprecation of :unique and :locked. The :unique and :locked attributes have had no effect since 5.8.8 and 5.005 respectively. They were deprecated in 5.12. They are now scheduled to be deleted in 5.28. There are two places the deprecation warning can be issued: in lib/attributes.pm, and in toke.c. The warnings were phrased differently, but since we're changing the warning anyway (as we added the version of Perl in which the attributes will disappear), we've used the same phrasing for this warning, regardless of where it is generated: Attribute "locked" is deprecated, and will disappear in Perl 5.28 Attribute "unique" is deprecated, and will disappear in Perl 5.28 M ext/attributes/attributes.pm M handy.h M pod/perldeprecation.pod M pod/perldiag.pod M t/lib/warnings/toke M t/op/attrs.t M toke.c commit 690b78de9d6651d32a2599cc986c8d8cebf910b2 Author: Abigail <[email protected]> Date: Mon Nov 14 19:13:29 2016 +0100 Drop .0 from version numbers. Since most perl versions we will refer to in this document will be major releases, we'll drop the trailing ".0" whenever we mention a version. M pod/perldeprecation.pod commit 556aaeeca5a0edd97a8caeb81b42e2de083fc0c1 Author: Abigail <[email protected]> Date: Mon Nov 14 19:08:12 2016 +0100 Actively deprecate File::Glob::glob(). This function has been deprecated since 5.8. However, no deprecation message was issued; only perl5.008delta.pod and a comment in the file mention its deprecation. This patch issues a deprecation message, and warns the user it will be gone in perl 5.30. Since all this method does is calling File::Glob::bsd_glob anyway, code calling this is easily fixed. M ext/File-Glob/Glob.pm M pod/perldeprecation.pod M pod/perldiag.pod commit 4c52d01dfc8863bb1db7e59907f4b290600fa859 Author: Abigail <[email protected]> Date: Mon Nov 14 17:26:42 2016 +0100 Move discussion of using tie and friends on * less scalars which hold globs This was deprecated in 5.14, and fixed in 5.16. Hence, it's moved out of pod/perldiag.pod, and added to pod/perldeprecation.pod. M pod/perldeprecation.pod M pod/perldiag.pod commit 6e233f5f9252cd0afb756af0ceec3ce0cb405f6b Author: Abigail <[email protected]> Date: Mon Nov 14 16:16:49 2016 +0100 Removed entry "Setting ${^ENCODING} is deprecated" pod/perldiag.pod mentions twice that the use of ${^ENCODING} is deprecated. This is overkill, and we've removed the entry which uses wording which is no longer used. M pod/perldiag.pod commit bb1d443a917ef0ec95af6312c2d7b1cfd189f3f5 Author: Abigail <[email protected]> Date: Mon Nov 14 16:12:12 2016 +0100 Deprecated POSIX functions were removed in 5.24.0 Therefore, we no longer need the entry in pod/perldiag.pod. We do however need an entry in pod/perldeprecation.pod. M pod/perldeprecation.pod M pod/perldiag.pod commit fb481364534dbb3be1608be9dab3ea17f9319730 Author: Abigail <[email protected]> Date: Mon Nov 14 14:35:00 2016 +0100 Created pod/perldeprecation.pod This pod is intended to document all deprecations in Perl. It will document when something became deprecated, when it is scheduled to be actually removed, and it will offer alternatives. Initially, we documented the undeprecation of *glob{FILEHANDLE}, and removed its entry from pod/perldiag.pod where it was left after it being no longer deprecated. M MANIFEST M pod/perl.pod A pod/perldeprecation.pod M pod/perldiag.pod M win32/pod.mak ----------------------------------------------------------------------- Summary of changes: Configure | 15 +- Cross/config.sh-arm-linux | 40 +- Cross/config.sh-arm-linux-n770 | 40 +- INSTALL | 28 +- MANIFEST | 1 + META.json | 2 +- META.yml | 2 +- Makefile.SH | 8 +- NetWare/Makefile | 4 +- NetWare/config_H.wc | 10 +- Porting/config.sh | 42 +- Porting/config_H | 18 +- Porting/epigraphs.pod | 14 + Porting/release_schedule.pod | 2 +- Porting/todo.pod | 4 +- README.haiku | 4 +- README.macosx | 8 +- README.os2 | 2 +- README.vms | 4 +- av.c | 2 +- deb.c | 8 +- dist/Data-Dumper/Dumper.pm | 2 +- dist/Data-Dumper/Dumper.xs | 23 +- .../lib/ExtUtils/ParseXS/Utilities.pm | 4 +- dist/Module-CoreList/lib/Module/CoreList.pm | 125 +++- .../lib/Module/CoreList/TieHashDelta.pm | 2 +- dist/Module-CoreList/lib/Module/CoreList/Utils.pm | 9 +- dist/PathTools/Changes | 6 + dist/PathTools/Cwd.pm | 2 +- dist/PathTools/Cwd.xs | 2 +- dist/PathTools/lib/File/Spec.pm | 2 +- dist/PathTools/lib/File/Spec/AmigaOS.pm | 2 +- dist/PathTools/lib/File/Spec/Cygwin.pm | 2 +- dist/PathTools/lib/File/Spec/Epoc.pm | 2 +- dist/PathTools/lib/File/Spec/Functions.pm | 2 +- dist/PathTools/lib/File/Spec/Mac.pm | 2 +- dist/PathTools/lib/File/Spec/OS2.pm | 2 +- dist/PathTools/lib/File/Spec/Unix.pm | 2 +- dist/PathTools/lib/File/Spec/VMS.pm | 2 +- dist/PathTools/lib/File/Spec/Win32.pm | 2 +- dist/Storable/Storable.pm | 2 +- dist/Storable/Storable.xs | 188 +++--- dist/Time-HiRes/HiRes.pm | 2 +- dist/Time-HiRes/HiRes.xs | 40 +- dist/threads/threads.xs | 4 +- doio.c | 39 +- dump.c | 311 +++++---- embed.fnc | 60 +- ext/B/B.pm | 2 +- ext/B/B.xs | 6 +- ext/Devel-Peek/Peek.xs | 2 +- ext/DynaLoader/DynaLoader_pm.PL | 2 +- ext/DynaLoader/dl_dlopen.xs | 2 +- ext/Hash-Util/Util.xs | 3 +- ext/Hash-Util/lib/Hash/Util.pm | 2 +- ext/POSIX/POSIX.xs | 12 +- ext/XS-APItest/APItest.xs | 17 +- ext/XS-APItest/core_or_not.inc | 2 +- ext/XS-Typemap/Typemap.pm | 2 +- ext/XS-Typemap/Typemap.xs | 3 +- ext/mro/mro.pm | 2 +- ext/mro/mro.xs | 20 +- gv.c | 48 +- hints/catamount.sh | 4 +- hv.c | 30 +- inline.h | 4 +- lib/B/Op_private.pm | 2 +- locale.c | 4 +- malloc.c | 38 +- mg.c | 6 +- mro_core.c | 8 +- op.c | 78 +-- pad.c | 58 +- patchlevel.h | 4 +- perl.c | 16 +- perl.h | 6 +- perlio.c | 4 +- perly.c | 6 +- plan9/config.plan9 | 10 +- plan9/config_sh.sample | 38 +- pod/.gitignore | 2 +- pod/perl.pod | 1 + pod/perl5257delta.pod | 733 +++++++++++++++++++++ pod/perldelta.pod | 63 +- pod/perldiag.pod | 2 +- pod/perlhist.pod | 3 +- pod/perlre.pod | 50 +- pp.c | 10 +- pp.h | 4 +- pp_ctl.c | 34 +- pp_hot.c | 28 +- pp_pack.c | 9 +- pp_sort.c | 2 +- pp_sys.c | 54 +- proto.h | 106 ++- regcomp.c | 233 +++---- regen/embed.pl | 2 +- regexec.c | 109 +-- scope.c | 50 +- sv.c | 96 +-- t/TEST | 2 +- t/op/groups.t | 79 +-- t/porting/known_pod_issues.dat | 2 +- taint.c | 4 +- toke.c | 77 +-- universal.c | 10 +- utf8.c | 64 +- util.c | 56 +- vms/descrip_mms.template | 2 +- win32/GNUmakefile | 6 +- win32/Makefile | 6 +- win32/makefile.mk | 6 +- win32/pod.mak | 4 + 113 files changed, 2182 insertions(+), 1267 deletions(-) create mode 100644 pod/perl5257delta.pod diff --git a/Configure b/Configure index 6a3d617..845fc43 100755 --- a/Configure +++ b/Configure @@ -20661,8 +20661,8 @@ $cat >try.c <<EOP #define DOUBLESIZE $doublesize #$d_longdbl HAS_LONG_DOUBLE #ifdef HAS_LONG_DOUBLE -#define LONGDBLSIZE $longdblsize -#define LONGDBLKIND $longdblkind +#define LONG_DOUBLESIZE $longdblsize +#define LONG_DOUBLEKIND $longdblkind #endif #$i_math I_MATH #ifdef I_MATH @@ -20699,16 +20699,15 @@ int main(int argc, char *argv[]) { #ifdef HAS_LONG_DOUBLE long double ldinf = (long double)exp(1e9); long double ldnan = (long double)sqrt(-1.0); -#endif - if (argc == 2) { - switch (argv[1][0]) { - case '1': bytes(&dinf, sizeof(dinf)); break; - case '2': bytes(&dnan, sizeof(dnan)); break; -#ifdef HAS_LONG_DOUBLE # if LONG_DOUBLEKIND == 3 || LONG_DOUBLEKIND == 4 /* the 80-bit long doubles might have garbage in their excess bytes */ memset((char *)&ldinf + 10, '\0', LONG_DOUBLESIZE - 10); + memset((char *)&ldnan + 10, '\0', LONG_DOUBLESIZE - 10); # endif + if (argc == 2) { + switch (argv[1][0]) { + case '1': bytes(&dinf, sizeof(dinf)); break; + case '2': bytes(&dnan, sizeof(dnan)); break; case '3': bytes(&ldinf, sizeof(ldinf)); break; case '4': bytes(&ldnan, sizeof(ldnan)); break; #endif diff --git a/Cross/config.sh-arm-linux b/Cross/config.sh-arm-linux index 1c483e9..23865c3 100644 --- a/Cross/config.sh-arm-linux +++ b/Cross/config.sh-arm-linux @@ -32,12 +32,12 @@ alignbytes='4' ansi2knr='' aphostname='/bin/hostname' api_revision='5' -api_subversion='7' +api_subversion='8' api_version='25' -api_versionstring='5.25.7' +api_versionstring='5.25.8' ar='ar' -archlib='/usr/lib/perl5/5.25.7/armv4l-linux' -archlibexp='/usr/lib/perl5/5.25.7/armv4l-linux' +archlib='/usr/lib/perl5/5.25.8/armv4l-linux' +archlibexp='/usr/lib/perl5/5.25.8/armv4l-linux' archname64='' archname='armv4l-linux' archobjs='' @@ -56,7 +56,7 @@ castflags='0' cat='cat' cc='cc' cccdlflags='-fpic' -ccdlflags='-rdynamic -Wl,-rpath,/usr/lib/perl5/5.25.7/armv4l-linux/CORE' +ccdlflags='-rdynamic -Wl,-rpath,/usr/lib/perl5/5.25.8/armv4l-linux/CORE' ccflags='-fno-strict-aliasing -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64' ccflags_uselargefiles='-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64' ccname='arm-linux-gcc' @@ -826,7 +826,7 @@ inc_version_list=' ' inc_version_list_init='0' incpath='' inews='' -installarchlib='./install_me_here/usr/lib/perl5/5.25.7/armv4l-linux' +installarchlib='./install_me_here/usr/lib/perl5/5.25.8/armv4l-linux' installbin='./install_me_here/usr/bin' installhtml1dir='' installhtml3dir='' @@ -834,13 +834,13 @@ installman1dir='./install_me_here/usr/share/man/man1' installman3dir='./install_me_here/usr/share/man/man3' installprefix='./install_me_here/usr' installprefixexp='./install_me_here/usr' -installprivlib='./install_me_here/usr/lib/perl5/5.25.7' +installprivlib='./install_me_here/usr/lib/perl5/5.25.8' installscript='./install_me_here/usr/bin' -installsitearch='./install_me_here/usr/lib/perl5/site_perl/5.25.7/armv4l-linux' +installsitearch='./install_me_here/usr/lib/perl5/site_perl/5.25.8/armv4l-linux' installsitebin='./install_me_here/usr/bin' installsitehtml1dir='' installsitehtml3dir='' -installsitelib='./install_me_here/usr/lib/perl5/site_perl/5.25.7' +installsitelib='./install_me_here/usr/lib/perl5/site_perl/5.25.8' installsiteman1dir='./install_me_here/usr/share/man/man1' installsiteman3dir='./install_me_here/usr/share/man/man3' installsitescript='./install_me_here/usr/bin' @@ -974,8 +974,8 @@ pmake='' pr='' prefix='/usr' prefixexp='/usr' -privlib='/usr/lib/perl5/5.25.7' -privlibexp='/usr/lib/perl5/5.25.7' +privlib='/usr/lib/perl5/5.25.8' +privlibexp='/usr/lib/perl5/5.25.8' procselfexe='"/proc/self/exe"' prototype='define' ptrsize='4' @@ -1040,17 +1040,17 @@ sig_num='0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 sig_num_init='0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, ... [78 chars truncated] sig_size='68' signal_t='void' -sitearch='/usr/lib/perl5/site_perl/5.25.7/armv4l-linux' -sitearchexp='/usr/lib/perl5/site_perl/5.25.7/armv4l-linux' +sitearch='/usr/lib/perl5/site_perl/5.25.8/armv4l-linux' +sitearchexp='/usr/lib/perl5/site_perl/5.25.8/armv4l-linux' sitebin='/usr/bin' sitebinexp='/usr/bin' sitehtml1dir='' sitehtml1direxp='' sitehtml3dir='' sitehtml3direxp='' -sitelib='/usr/lib/perl5/site_perl/5.25.7' +sitelib='/usr/lib/perl5/site_perl/5.25.8' sitelib_stem='/usr/lib/perl5/site_perl' -sitelibexp='/usr/lib/perl5/site_perl/5.25.7' +sitelibexp='/usr/lib/perl5/site_perl/5.25.8' siteman1dir='/usr/share/man/man1' siteman1direxp='/usr/share/man/man1' siteman3dir='/usr/share/man/man3' @@ -1089,7 +1089,7 @@ stdio_stream_array='' strerror_r_proto='0' strings='/usr/include/string.h' submit='' -subversion='7' +subversion='8' sysman='/usr/share/man/man1' tail='' tar='' @@ -1181,8 +1181,8 @@ vendorprefix='' vendorprefixexp='' vendorscript='' vendorscriptexp='' -version='5.25.7' -version_patchlevel_string='version 25 subversion 7' +version='5.25.8' +version_patchlevel_string='version 25 subversion 8' versiononly='undef' vi='' xlibpth='/usr/lib/386 /lib/386' @@ -1196,9 +1196,9 @@ config_args='' config_argc=0 PERL_REVISION=5 PERL_VERSION=25 -PERL_SUBVERSION=7 +PERL_SUBVERSION=8 PERL_API_REVISION=5 PERL_API_VERSION=25 -PERL_API_SUBVERSION=7 +PERL_API_SUBVERSION=8 PERL_PATCHLEVEL= PERL_CONFIG_SH=true diff --git a/Cross/config.sh-arm-linux-n770 b/Cross/config.sh-arm-linux-n770 index c9d7390..e785f30 100644 --- a/Cross/config.sh-arm-linux-n770 +++ b/Cross/config.sh-arm-linux-n770 @@ -32,12 +32,12 @@ alignbytes='4' ansi2knr='' aphostname='/bin/hostname' api_revision='5' -api_subversion='7' +api_subversion='8' api_version='25' -api_versionstring='5.25.7' +api_versionstring='5.25.8' ar='ar' -archlib='/usr/lib/perl5/5.25.7/armv4l-linux' -archlibexp='/usr/lib/perl5/5.25.7/armv4l-linux' +archlib='/usr/lib/perl5/5.25.8/armv4l-linux' +archlibexp='/usr/lib/perl5/5.25.8/armv4l-linux' archname64='' archname='armv4l-linux' archobjs='' @@ -55,7 +55,7 @@ castflags='0' cat='cat' cc='arm-none-linux-gnueabi-gcc' cccdlflags='-fpic' -ccdlflags='-rdynamic -Wl,-rpath,/usr/lib/perl5/5.25.7/armv4l-linux/CORE' +ccdlflags='-rdynamic -Wl,-rpath,/usr/lib/perl5/5.25.8/armv4l-linux/CORE' ccflags='-fno-strict-aliasing -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64' ccflags_uselargefiles='-D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64' ccname='arm-linux-gcc' @@ -699,7 +699,7 @@ inc_version_list=' ' inc_version_list_init='0' incpath='' inews='' -installarchlib='./install_me_here/usr/lib/perl5/5.25.7/armv4l-linux' +installarchlib='./install_me_here/usr/lib/perl5/5.25.8/armv4l-linux' installbin='./install_me_here/usr/bin' installhtml1dir='' installhtml3dir='' @@ -707,13 +707,13 @@ installman1dir='./install_me_here/usr/share/man/man1' installman3dir='./install_me_here/usr/share/man/man3' installprefix='./install_me_here/usr' installprefixexp='./install_me_here/usr' -installprivlib='./install_me_here/usr/lib/perl5/5.25.7' +installprivlib='./install_me_here/usr/lib/perl5/5.25.8' installscript='./install_me_here/usr/bin' -installsitearch='./install_me_here/usr/lib/perl5/site_perl/5.25.7/armv4l-linux' +installsitearch='./install_me_here/usr/lib/perl5/site_perl/5.25.8/armv4l-linux' installsitebin='./install_me_here/usr/bin' installsitehtml1dir='' installsitehtml3dir='' -installsitelib='./install_me_here/usr/lib/perl5/site_perl/5.25.7' +installsitelib='./install_me_here/usr/lib/perl5/site_perl/5.25.8' installsiteman1dir='./install_me_here/usr/share/man/man1' installsiteman3dir='./install_me_here/usr/share/man/man3' installsitescript='./install_me_here/usr/bin' @@ -841,8 +841,8 @@ pmake='' pr='' prefix='/usr' prefixexp='/usr' -privlib='/usr/lib/perl5/5.25.7' -privlibexp='/usr/lib/perl5/5.25.7' +privlib='/usr/lib/perl5/5.25.8' +privlibexp='/usr/lib/perl5/5.25.8' procselfexe='"/proc/self/exe"' prototype='define' ptrsize='4' @@ -903,17 +903,17 @@ sig_num='0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 sig_num_init='0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, ... [78 chars truncated] sig_size='68' signal_t='void' -sitearch='/usr/lib/perl5/site_perl/5.25.7/armv4l-linux' -sitearchexp='/usr/lib/perl5/site_perl/5.25.7/armv4l-linux' +sitearch='/usr/lib/perl5/site_perl/5.25.8/armv4l-linux' +sitearchexp='/usr/lib/perl5/site_perl/5.25.8/armv4l-linux' sitebin='/usr/bin' sitebinexp='/usr/bin' sitehtml1dir='' sitehtml1direxp='' sitehtml3dir='' sitehtml3direxp='' -sitelib='/usr/lib/perl5/site_perl/5.25.7' +sitelib='/usr/lib/perl5/site_perl/5.25.8' sitelib_stem='/usr/lib/perl5/site_perl' -sitelibexp='/usr/lib/perl5/site_perl/5.25.7' +sitelibexp='/usr/lib/perl5/site_perl/5.25.8' siteman1dir='/usr/share/man/man1' siteman1direxp='/usr/share/man/man1' siteman3dir='/usr/share/man/man3' @@ -950,7 +950,7 @@ stdio_stream_array='' strerror_r_proto='0' strings='/usr/include/string.h' submit='' -subversion='7' +subversion='8' sysman='/usr/share/man/man1' tail='' tar='' @@ -1035,8 +1035,8 @@ vendorprefix='' vendorprefixexp='' vendorscript='' vendorscriptexp='' -version='5.25.7' -version_patchlevel_string='version 25 subversion 7' +version='5.25.8' +version_patchlevel_string='version 25 subversion 8' versiononly='undef' vi='' xlibpth='/usr/lib/386 /lib/386' @@ -1050,9 +1050,9 @@ config_args='' config_argc=0 PERL_REVISION=5 PERL_VERSION=25 -PERL_SUBVERSION=7 +PERL_SUBVERSION=8 PERL_API_REVISION=5 PERL_API_VERSION=25 -PERL_API_SUBVERSION=7 +PERL_API_SUBVERSION=8 PERL_PATCHLEVEL= PERL_CONFIG_SH=true diff --git a/INSTALL b/INSTALL index 85beffb..158b382 100644 --- a/INSTALL +++ b/INSTALL @@ -581,7 +581,7 @@ The directories set up by Configure fall into three broad categories. =item Directories for the perl distribution -By default, Configure will use the following directories for 5.25.7. +By default, Configure will use the following directories for 5.25.8. $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 @@ -2436,7 +2436,7 @@ http://www.chiark.greenend.org.uk/~sgtatham/bugs.html =head1 Coexistence with earlier versions of perl 5 -Perl 5.25.7 is not binary compatible with earlier versions of Perl. +Perl 5.25.8 is not binary compatible with earlier versions of Perl. In other words, you will have to recompile your XS modules. In general, you can usually safely upgrade from one version of Perl @@ -2511,9 +2511,9 @@ won't interfere with another version. (The defaults guarantee this for libraries after 5.6.0, but not for executables. TODO?) One convenient way to do this is by using a separate prefix for each version, such as - sh Configure -Dprefix=/opt/perl5.25.7 + sh Configure -Dprefix=/opt/perl5.25.8 -and adding /opt/perl5.25.7/bin to the shell PATH variable. Such users +and adding /opt/perl5.25.8/bin to the shell PATH variable. Such users may also wish to add a symbolic link /usr/local/bin/perl so that scripts can still start with #!/usr/local/bin/perl. @@ -2528,11 +2528,11 @@ yet. =head2 Upgrading from 5.25.2 or earlier -B<Perl 5.25.7 may not be binary compatible with Perl 5.25.3 or +B<Perl 5.25.8 may not be binary compatible with Perl 5.25.3 or earlier Perl releases.> Perl modules having binary parts (meaning that a C compiler is used) will have to be recompiled to be -used with 5.25.7. If you find you do need to rebuild an extension with -5.25.7, you may safely do so without disturbing the older +used with 5.25.8. If you find you do need to rebuild an extension with +5.25.8, you may safely do so without disturbing the older installations. (See L<"Coexistence with earlier versions of perl 5"> above.) @@ -2565,15 +2565,15 @@ Firstly, the bare minimum to run this script print("$f\n"); } -in Linux with perl-5.25.7 is as follows (under $Config{prefix}): +in Linux with perl-5.25.8 is as follows (under $Config{prefix}): ./bin/perl - ./lib/perl5/5.25.7/strict.pm - ./lib/perl5/5.25.7/warnings.pm - ./lib/perl5/5.25.7/i686-linux/File/Glob.pm - ./lib/perl5/5.25.7/feature.pm - ./lib/perl5/5.25.7/XSLoader.pm - ./lib/perl5/5.25.7/i686-linux/auto/File/Glob/Glob.so + ./lib/perl5/5.25.8/strict.pm + ./lib/perl5/5.25.8/warnings.pm + ./lib/perl5/5.25.8/i686-linux/File/Glob.pm + ./lib/perl5/5.25.8/feature.pm + ./lib/perl5/5.25.8/XSLoader.pm + ./lib/perl5/5.25.8/i686-linux/auto/File/Glob/Glob.so Secondly, for perl-5.10.1, the Debian perl-base package contains 591 files, (of which 510 are for lib/unicore) totaling about 3.5MB in its diff --git a/MANIFEST b/MANIFEST index e904b9f..76feb19 100644 --- a/MANIFEST +++ b/MANIFEST @@ -4886,6 +4886,7 @@ pod/perl5253delta.pod Perl changes in version 5.25.3 pod/perl5254delta.pod Perl changes in version 5.25.4 pod/perl5255delta.pod Perl changes in version 5.25.5 pod/perl5256delta.pod Perl changes in version 5.25.6 +pod/perl5257delta.pod Perl changes in version 5.25.7 pod/perl561delta.pod Perl changes in version 5.6.1 pod/perl56delta.pod Perl changes in version 5.6 pod/perl581delta.pod Perl changes in version 5.8.1 diff --git a/META.json b/META.json index 64a46ab..a8f7f9e 100644 --- a/META.json +++ b/META.json @@ -125,6 +125,6 @@ "url" : "http://perl5.git.perl.org/"; } }, - "version" : "5.025007", + "version" : "5.025008", "x_serialization_backend" : "JSON::PP version 2.27400_02" } diff --git a/META.yml b/META.yml index cfa9074..8cc5c5f 100644 --- a/META.yml +++ b/META.yml @@ -112,5 +112,5 @@ resources: homepage: http://www.perl.org/ license: http://dev.perl.org/licenses/ repository: http://perl5.git.perl.org/ -version: '5.025007' +version: '5.025008' x_serialization_backend: 'CPAN::Meta::YAML version 0.018' diff --git a/Makefile.SH b/Makefile.SH index 491d1a6..a094f87 100755 --- a/Makefile.SH +++ b/Makefile.SH @@ -522,7 +522,7 @@ miniperl_objs = $(miniperl_objs_nodt) $(DTRACE_MINI_O) perllib_objs = $(perllib_objs_nodt) $(DTRACE_PERLLIB_O) perlmain_objs = perlmain$(OBJ_EXT) $(DTRACE_MAIN_O) -perltoc_pod_prereqs = extra.pods pod/perl5257delta.pod pod/perlapi.pod pod/perlintern.pod pod/perlmodlib.pod pod/perluniprops.pod +perltoc_pod_prereqs = extra.pods pod/perl5258delta.pod pod/perlapi.pod pod/perlintern.pod pod/perlmodlib.pod pod/perluniprops.pod generated_pods = pod/perltoc.pod $(perltoc_pod_prereqs) generated_headers = uudmap.h bitcount.h mg_data.h @@ -1085,9 +1085,9 @@ pod/perlintern.pod: $(MINIPERL_EXE) autodoc.pl embed.fnc pod/perlmodlib.pod: $(MINIPERL_EXE) pod/perlmodlib.PL MANIFEST $(MINIPERL) pod/perlmodlib.PL -q -pod/perl5257delta.pod: pod/perldelta.pod - $(RMS) pod/perl5257delta.pod - $(LNS) perldelta.pod pod/perl5257delta.pod +pod/perl5258delta.pod: pod/perldelta.pod + $(RMS) pod/perl5258delta.pod + $(LNS) perldelta.pod pod/perl5258delta.pod extra.pods: $(MINIPERL_EXE) -@test ! -f extra.pods || rm -f `cat extra.pods` diff --git a/NetWare/Makefile b/NetWare/Makefile index c46189a..e061552 100644 --- a/NetWare/Makefile +++ b/NetWare/Makefile @@ -86,7 +86,7 @@ NLM_VERSION = 3,20,0 # Here comes the CW tools - TO BE FILLED TO BUILD WITH CW - -MODULE_DESC = "Perl 5.25.7 for NetWare" +MODULE_DESC = "Perl 5.25.8 for NetWare" CCTYPE = CodeWarrior C_COMPILER = mwccnlm -c CPP_COMPILER = mwccnlm @@ -462,7 +462,7 @@ INST_NW_TOP2 = $(INST_NW_DRV)\perl # versioned installation can be obtained by setting INST_TOP above to a # path that includes an arbitrary version string. # -INST_VER = \5.25.7 +INST_VER = \5.25.8 # # Comment this out if you DON'T want your perl installation to have diff --git a/NetWare/config_H.wc b/NetWare/config_H.wc index cd625d8..e444500 100644 --- a/NetWare/config_H.wc +++ b/NetWare/config_H.wc @@ -1042,7 +1042,7 @@ * This symbol contains the ~name expanded version of ARCHLIB, to be used * in programs that are not prepared to deal with ~ expansion at run-time. */ -#define ARCHLIB "c:\\perl\\5.25.7\\lib\\NetWare-x86-multi-thread" /**/ +#define ARCHLIB "c:\\perl\\5.25.8\\lib\\NetWare-x86-multi-thread" /**/ /*#define ARCHLIB_EXP "" /**/ /* ARCHNAME: @@ -1073,8 +1073,8 @@ * This symbol is the filename expanded version of the BIN symbol, for * programs that do not want to deal with that at run-time. */ -#define BIN "c:\\perl\\5.25.7\\bin\\NetWare-x86-multi-thread" /**/ -#define BIN_EXP "c:\\perl\\5.25.7\\bin\\NetWare-x86-multi-thread" /**/ +#define BIN "c:\\perl\\5.25.8\\bin\\NetWare-x86-multi-thread" /**/ +#define BIN_EXP "c:\\perl\\5.25.8\\bin\\NetWare-x86-multi-thread" /**/ /* BYTEORDER: * This symbol holds the hexadecimal constant defined in byteorder, @@ -3088,7 +3088,7 @@ * This symbol contains the ~name expanded version of SITEARCH, to be used * in programs that are not prepared to deal with ~ expansion at run-time. */ -#define SITEARCH "c:\\perl\\site\\5.25.7\\lib\\NetWare-x86-multi-thread" /**/ +#define SITEARCH "c:\\perl\\site\\5.25.8\\lib\\NetWare-x86-multi-thread" /**/ /*#define SITEARCH_EXP "" /**/ /* SITELIB: @@ -3111,7 +3111,7 @@ * removed. The elements in inc_version_list (inc_version_list.U) can * be tacked onto this variable to generate a list of directories to search. */ -#define SITELIB "c:\\perl\\site\\5.25.7\\lib" /**/ +#define SITELIB "c:\\perl\\site\\5.25.8\\lib" /**/ /*#define SITELIB_EXP "" /**/ #define SITELIB_STEM "" /**/ diff --git a/Porting/config.sh b/Porting/config.sh index 640c97d..edb0cdd 100644 --- a/Porting/config.sh +++ b/Porting/config.sh @@ -39,12 +39,12 @@ alignbytes='8' ansi2knr='' aphostname='/bin/hostname' api_revision='5' -api_subversion='7' +api_subversion='8' api_version='25' -api_versionstring='5.25.7' +api_versionstring='5.25.8' ar='ar' -archlib='/tmp/mblead/lib/perl5/5.25.7/darwin-2level' -archlibexp='/tmp/mblead/lib/perl5/5.25.7/darwin-2level' +archlib='/tmp/mblead/lib/perl5/5.25.8/darwin-2level' +archlibexp='/tmp/mblead/lib/perl5/5.25.8/darwin-2level' archname64='' archname='darwin-2level' archobjs='' @@ -846,7 +846,7 @@ incpath='' incpth='/usr/local/include /Applications/Xcode.app/Contents/Developer/Toolchains/XcodeDefault.xctoolchain/usr/bin/../lib/clang/6.0/include /Applications/Xcode.app/Contents/Developer/Toolchains/XcodeD ... [514 chars truncated] inews='' initialinstalllocation='/tmp/mblead/bin' -installarchlib='/tmp/mblead/lib/perl5/5.25.7/darwin-2level' +installarchlib='/tmp/mblead/lib/perl5/5.25.8/darwin-2level' installbin='/tmp/mblead/bin' installhtml1dir='' installhtml3dir='' @@ -854,13 +854,13 @@ installman1dir='/tmp/mblead/man/man1' installman3dir='/tmp/mblead/man/man3' installprefix='/tmp/mblead' installprefixexp='/tmp/mblead' -installprivlib='/tmp/mblead/lib/perl5/5.25.7' +installprivlib='/tmp/mblead/lib/perl5/5.25.8' installscript='/tmp/mblead/bin' -installsitearch='/tmp/mblead/lib/perl5/site_perl/5.25.7/darwin-2level' +installsitearch='/tmp/mblead/lib/perl5/site_perl/5.25.8/darwin-2level' installsitebin='/tmp/mblead/bin' installsitehtml1dir='' installsitehtml3dir='' -installsitelib='/tmp/mblead/lib/perl5/site_perl/5.25.7' +installsitelib='/tmp/mblead/lib/perl5/site_perl/5.25.8' installsiteman1dir='/tmp/mblead/man/man1' installsiteman3dir='/tmp/mblead/man/man3' installsitescript='/tmp/mblead/bin' @@ -985,7 +985,7 @@ perl_patchlevel='' perl_static_inline='static __inline__' perladmin='[email protected]' perllibs='-lpthread -ldl -lm -lutil -lc' -perlpath='/tmp/mblead/bin/perl5.25.7' +perlpath='/tmp/mblead/bin/perl5.25.8' pg='pg' phostname='hostname' pidtype='pid_t' @@ -994,8 +994,8 @@ pmake='' pr='' prefix='/tmp/mblead' prefixexp='/tmp/mblead' -privlib='/tmp/mblead/lib/perl5/5.25.7' -privlibexp='/tmp/mblead/lib/perl5/5.25.7' +privlib='/tmp/mblead/lib/perl5/5.25.8' +privlibexp='/tmp/mblead/lib/perl5/5.25.8' procselfexe='' prototype='define' ptrsize='8' @@ -1061,17 +1061,17 @@ sig_num='0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 sig_num_init='0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 6, 0' sig_size='33' signal_t='void' -sitearch='/tmp/mblead/lib/perl5/site_perl/5.25.7/darwin-2level' -sitearchexp='/tmp/mblead/lib/perl5/site_perl/5.25.7/darwin-2level' +sitearch='/tmp/mblead/lib/perl5/site_perl/5.25.8/darwin-2level' +sitearchexp='/tmp/mblead/lib/perl5/site_perl/5.25.8/darwin-2level' sitebin='/tmp/mblead/bin' sitebinexp='/tmp/mblead/bin' sitehtml1dir='' sitehtml1direxp='' sitehtml3dir='' sitehtml3direxp='' -sitelib='/tmp/mblead/lib/perl5/site_perl/5.25.7' +sitelib='/tmp/mblead/lib/perl5/site_perl/5.25.8' sitelib_stem='/tmp/mblead/lib/perl5/site_perl' -sitelibexp='/tmp/mblead/lib/perl5/site_perl/5.25.7' +sitelibexp='/tmp/mblead/lib/perl5/site_perl/5.25.8' siteman1dir='/tmp/mblead/man/man1' siteman1direxp='/tmp/mblead/man/man1' siteman3dir='/tmp/mblead/man/man3' @@ -1097,7 +1097,7 @@ src='.' ssizetype='ssize_t' st_ino_sign='1' st_ino_size='8' -startperl='#!/tmp/mblead/bin/perl5.25.7' +startperl='#!/tmp/mblead/bin/perl5.25.8' startsh='#!/bin/sh' static_ext=' ' stdchar='char' @@ -1110,7 +1110,7 @@ stdio_stream_array='' strerror_r_proto='0' strings='/usr/include/string.h' submit='' -subversion='7' +subversion='8' sysman='/usr/share/man/man1' sysroot='' tail='' @@ -1209,8 +1209,8 @@ vendorprefix='' vendorprefixexp='' vendorscript='' vendorscriptexp='' -version='5.25.7' -version_patchlevel_string='version 25 subversion 7' +version='5.25.8' +version_patchlevel_string='version 25 subversion 8' versiononly='define' vi='' xlibpth='/usr/lib/386 /lib/386' @@ -1220,9 +1220,9 @@ zcat='' zip='zip' PERL_REVISION=5 PERL_VERSION=25 -PERL_SUBVERSION=7 +PERL_SUBVERSION=8 PERL_API_REVISION=5 PERL_API_VERSION=25 -PERL_API_SUBVERSION=7 +PERL_API_SUBVERSION=8 PERL_PATCHLEVEL='' PERL_CONFIG_SH=true diff --git a/Porting/config_H b/Porting/config_H index 690106a..421feca 100644 --- a/Porting/config_H +++ b/Porting/config_H @@ -960,8 +960,8 @@ * This symbol contains the ~name expanded version of ARCHLIB, to be used * in programs that are not prepared to deal with ~ expansion at run-time. */ -#define ARCHLIB "/pro/lib/perl5/5.25.7/i686-linux-64int-ld" /**/ -#define ARCHLIB_EXP "/pro/lib/perl5/5.25.7/i686-linux-64int-ld" /**/ +#define ARCHLIB "/pro/lib/perl5/5.25.8/i686-linux-64int-ld" /**/ +#define ARCHLIB_EXP "/pro/lib/perl5/5.25.8/i686-linux-64int-ld" /**/ /* ARCHNAME: * This symbol holds a string representing the architecture name. @@ -2068,8 +2068,8 @@ * This symbol contains the ~name expanded version of PRIVLIB, to be used * in programs that are not prepared to deal with ~ expansion at run-time. */ -#define PRIVLIB "/pro/lib/perl5/5.25.7" /**/ -#define PRIVLIB_EXP "/pro/lib/perl5/5.25.7" /**/ +#define PRIVLIB "/pro/lib/perl5/5.25.8" /**/ +#define PRIVLIB_EXP "/pro/lib/perl5/5.25.8" /**/ /* PTRSIZE: * This symbol contains the size of a pointer, so that the C preprocessor @@ -2119,8 +2119,8 @@ * This symbol contains the ~name expanded version of SITEARCH, to be used * in programs that are not prepared to deal with ~ expansion at run-time. */ -#define SITEARCH "/pro/lib/perl5/site_perl/5.25.7/i686-linux-64int-ld" /**/ -#define SITEARCH_EXP "/pro/lib/perl5/site_perl/5.25.7/i686-linux-64int-ld" /**/ +#define SITEARCH "/pro/lib/perl5/site_perl/5.25.8/i686-linux-64int-ld" /**/ +#define SITEARCH_EXP "/pro/lib/perl5/site_perl/5.25.8/i686-linux-64int-ld" /**/ /* SITELIB: * This symbol contains the name of the private library for this package. @@ -2142,8 +2142,8 @@ * removed. The elements in inc_version_list (inc_version_list.U) can * be tacked onto this variable to generate a list of directories to search. */ -#define SITELIB "/pro/lib/perl5/site_perl/5.25.7" /**/ -#define SITELIB_EXP "/pro/lib/perl5/site_perl/5.25.7" /**/ +#define SITELIB "/pro/lib/perl5/site_perl/5.25.8" /**/ +#define SITELIB_EXP "/pro/lib/perl5/site_perl/5.25.8" /**/ #define SITELIB_STEM "/pro/lib/perl5/site_perl" /**/ /* SSize_t: @@ -4282,7 +4282,7 @@ * script to make sure (one hopes) that it runs with perl and not * some shell. */ -#define STARTPERL "#!/pro/bin/perl5.25.7" /**/ +#define STARTPERL "#!/pro/bin/perl5.25.8" /**/ /* HAS_STDIO_STREAM_ARRAY: * This symbol, if defined, tells that there is an array diff --git a/Porting/epigraphs.pod b/Porting/epigraphs.pod index 3cb0c37..69fa0d2 100644 --- a/Porting/epigraphs.pod +++ b/Porting/epigraphs.pod @@ -17,6 +17,20 @@ Consult your favorite dictionary for details. =head1 EPIGRAPHS +=head2 v5.25.7 - J.R.R. Tolkien, "The Silmarillion" + +L<Announced on 2016-11-20 by Chad 'Exodist' Granum|http://www.nntp.perl.org/group/perl.perl5.porters/2016/11/msg241120.html> + + Of Beren and Lúthien + + Among the tales of sorrow and of ruin that come down to us from the darkness of + those days there are yet some in which amid weeping there is joy and under the + shadow of death light that endures. And of these histories most fair still in + the ears of the Elves is the tale of Beren and Lúthien. Of their lives was made + the Lay of Leithian, Release from Bondage, which is the longest save one of the + songs concerning the world of old; but here is told in fewer words and without + song. + =head2 v5.25.6 - Alan Warner, "The Sopranos" L<Announced on 2016-10-10 by Aaron Crane|http://www.nntp.perl.org/group/perl.perl5.porters/2016/10/msg240406.html> diff --git a/Porting/release_schedule.pod b/Porting/release_schedule.pod index 4521688..4b8315d 100644 --- a/Porting/release_schedule.pod +++ b/Porting/release_schedule.pod @@ -55,7 +55,7 @@ you should reset the version numbers to the next blead series. 2016-08-20 5.25.4 â BinGOs 2016-09-20 5.25.5 â Stevan Little 2016-10-20 5.25.6 â Aaron Crane - 2016-11-20 5.25.7 Chad Granum + 2016-11-20 5.25.7 â Chad Granum 2016-12-20 5.25.8 Sawyer X 2017-01-20 5.25.9 Abigail 2017-02-20 5.25.10 Renée Bäcker diff --git a/Porting/todo.pod b/Porting/todo.pod index 65440d3..b4e79aa 100644 --- a/Porting/todo.pod +++ b/Porting/todo.pod @@ -485,7 +485,7 @@ Natively 64-bit systems need neither -Duse64bitint nor -Duse64bitall. On these systems, it might be the default compilation mode, and there is currently no guarantee that passing no use64bitall option to the Configure process will build a 32bit perl. Implementing -Duse32bit* -options would be nice for perl 5.25.7. +options would be nice for perl 5.25.8. =head2 Profile Perl - am I hot or not? @@ -1205,7 +1205,7 @@ L<http://www.xray.mpe.mpg.de/mailing-lists/perl5-porters/2013-01/msg00339.html> =head1 Big projects Tasks that will get your name mentioned in the description of the "Highlights -of 5.25.7" +of 5.25.8" =head2 make ithreads more robust diff --git a/README.haiku b/README.haiku index c1290ad..5b7c0b2 100644 --- a/README.haiku +++ b/README.haiku @@ -22,9 +22,9 @@ The build procedure is completely standard: Make perl executable and create a symlink for libperl: chmod a+x /boot/common/bin/perl - cd /boot/common/lib; ln -s perl5/5.25.7/BePC-haiku/CORE/libperl.so . + cd /boot/common/lib; ln -s perl5/5.25.8/BePC-haiku/CORE/libperl.so . -Replace C<5.25.7> with your respective version of Perl. +Replace C<5.25.8> with your respective version of Perl. =head1 KNOWN PROBLEMS diff --git a/README.macosx b/README.macosx index 36466ca..c3cb53c 100644 --- a/README.macosx +++ b/README.macosx @@ -10,9 +10,9 @@ perlmacosx - Perl under Mac OS X This document briefly describes Perl under Mac OS X. - curl -O http://www.cpan.org/src/perl-5.25.7.tar.gz - tar -xzf perl-5.25.7.tar.gz - cd perl-5.25.7 + curl -O http://www.cpan.org/src/perl-5.25.8.tar.gz + tar -xzf perl-5.25.8.tar.gz + cd perl-5.25.8 ./Configure -des -Dprefix=/usr/local/ make make test @@ -20,7 +20,7 @@ This document briefly describes Perl under Mac OS X. =head1 DESCRIPTION -The latest Perl release (5.25.7 as of this writing) builds without changes +The latest Perl release (5.25.8 as of this writing) builds without changes under all versions of Mac OS X from 10.3 "Panther" onwards. In order to build your own version of Perl you will need 'make', diff --git a/README.os2 b/README.os2 index 70fc588..9645848 100644 --- a/README.os2 +++ b/README.os2 @@ -619,7 +619,7 @@ C<set PERLLIB_PREFIX> in F<Config.sys>, see L</"C<PERLLIB_PREFIX>">. =item Additional Perl modules - unzip perl_ste.zip -d f:/perllib/lib/site_perl/5.25.7/ + unzip perl_ste.zip -d f:/perllib/lib/site_perl/5.25.8/ Same remark as above applies. Additionally, if this directory is not one of directories on @INC (and @INC is influenced by C<PERLLIB_PREFIX>), you diff --git a/README.vms b/README.vms index 2c83c3e..4b8738e 100644 --- a/README.vms +++ b/README.vms @@ -142,11 +142,11 @@ You may need to set up a foreign symbol for the unpacking utility of choice. Once you have done so, use a command like the following to unpack the archive: - vmstar -xvf perl-5^.25^.7.tar + vmstar -xvf perl-5^.25^.8.tar Then set default to the top-level source directory like so: - set default [.perl-5^.25^.7] + set default [.perl-5^.25^.8] and proceed with configuration as described in the next section. diff --git a/av.c b/av.c index 0fe2024..5afae8d 100644 --- a/av.c +++ b/av.c @@ -89,7 +89,7 @@ Perl_av_extend_guts(pTHX_ AV *av, SSize_t key, SSize_t *maxp, SV ***allocp, if (key < -1) /* -1 is legal */ Perl_croak(aTHX_ - "panic: av_extend_guts() negative count (%"IVdf")", (IV)key); + "panic: av_extend_guts() negative count (%" IVdf ")", (IV)key); if (key > *maxp) { SV** ary; diff --git a/deb.c b/deb.c index e5b0384..bd6e538 100644 --- a/deb.c +++ b/deb.c @@ -83,12 +83,12 @@ Perl_debstackptrs(pTHX) { #ifdef DEBUGGING PerlIO_printf(Perl_debug_log, - "%8"UVxf" %8"UVxf" %8"IVdf" %8"IVdf" %8"IVdf"\n", + "%8" UVxf " %8" UVxf " %8" IVdf " %8" IVdf " %8" IVdf "\n", PTR2UV(PL_curstack), PTR2UV(PL_stack_base), (IV)*PL_markstack_ptr, (IV)(PL_stack_sp-PL_stack_base), (IV)(PL_stack_max-PL_stack_base)); PerlIO_printf(Perl_debug_log, - "%8"UVxf" %8"UVxf" %8"UVuf" %8"UVuf" %8"UVuf"\n", + "%8" UVxf " %8" UVxf " %8" UVuf " %8" UVuf " %8" UVuf "\n", PTR2UV(PL_mainstack), PTR2UV(AvARRAY(PL_curstack)), PTR2UV(PL_mainstack), PTR2UV(AvFILLp(PL_curstack)), PTR2UV(AvMAX(PL_curstack))); @@ -219,14 +219,14 @@ Perl_deb_stack_all(pTHX) si_name_ix < C_ARRAY_LENGTH(si_names) ? si_names[si_name_ix] : "????"; I32 ix; - PerlIO_printf(Perl_debug_log, "STACK %"IVdf": %s\n", + PerlIO_printf(Perl_debug_log, "STACK %" IVdf ": %s\n", (IV)si_ix, si_name); for (ix=0; ix<=si->si_cxix; ix++) { const PERL_CONTEXT * const cx = &(si->si_cxstack[ix]); PerlIO_printf(Perl_debug_log, - " CX %"IVdf": %-6s => ", + " CX %" IVdf ": %-6s => ", (IV)ix, PL_block_type[CxTYPE(cx)] ); /* substitution contexts don't save stack pointers etc) */ diff --git a/dist/Data-Dumper/Dumper.pm b/dist/Data-Dumper/Dumper.pm index 8e3e4f1..b346221 100644 --- a/dist/Data-Dumper/Dumper.pm +++ b/dist/Data-Dumper/Dumper.pm @@ -10,7 +10,7 @@ package Data::Dumper; BEGIN { - $VERSION = '2.164'; # Don't forget to set version and release + $VERSION = '2.165'; # Don't forget to set version and release } # date in POD below! #$| = 1; diff --git a/dist/Data-Dumper/Dumper.xs b/dist/Data-Dumper/Dumper.xs index 7960ec0..d288bbd 100644 --- a/dist/Data-Dumper/Dumper.xs +++ b/dist/Data-Dumper/Dumper.xs @@ -388,11 +388,11 @@ esc_q_utf8(pTHX_ SV* sv, const char *src, STRLEN slen, I32 do_utf8, I32 useqq) increment = (k == 0 && *s != '\0') ? 1 : UTF8SKIP(s); #if PERL_VERSION < 10 - sprintf(r, "\\x{%"UVxf"}", k); + sprintf(r, "\\x{%" UVxf "}", k); r += strlen(r); /* my_sprintf is not supported by ppport.h */ #else - r = r + my_sprintf(r, "\\x{%"UVxf"}", k); + r = r + my_sprintf(r, "\\x{%" UVxf "}", k); #endif continue; } @@ -611,14 +611,14 @@ DD_dump(pTHX_ SV *val, const char *name, STRLEN namelen, SV *retval, HV *seenhv, i = perl_call_method(SvPVX_const(style->freezer), G_EVAL|G_VOID|G_DISCARD); SPAGAIN; if (SvTRUE(ERRSV)) - warn("WARNING(Freezer method call failed): %"SVf"", ERRSV); + warn("WARNING(Freezer method call failed): %" SVf, ERRSV); PUTBACK; FREETMPS; LEAVE; } ival = SvRV(val); realtype = SvTYPE(ival); #ifdef DD_USE_OLD_ID_FORMAT - idlen = my_snprintf(id, sizeof(id), "0x%"UVxf, PTR2UV(ival)); + idlen = my_snprintf(id, sizeof(id), "0x%" UVxf, PTR2UV(ival)); #else id_buffer = PTR2UV(ival); idlen = sizeof(id_buffer); @@ -676,7 +676,7 @@ DD_dump(pTHX_ SV *val, const char *name, STRLEN namelen, SV *retval, HV *seenhv, #ifdef DD_USE_OLD_ID_FORMAT warn("ref name not found for %s", id); #else - warn("ref name not found for 0x%"UVxf, PTR2UV(ival)); + warn("ref name not found for 0x%" UVxf, PTR2UV(ival)); #endif return 0; } @@ -894,10 +894,10 @@ DD_dump(pTHX_ SV *val, const char *name, STRLEN namelen, SV *retval, HV *seenhv, ilen = inamelen; sv_setiv(ixsv, ix); #if PERL_VERSION < 10 - (void) sprintf(iname+ilen, "%"IVdf, (IV)ix); + (void) sprintf(iname+ilen, "%" IVdf, (IV)ix); ilen = strlen(iname); #else - ilen = ilen + my_sprintf(iname+ilen, "%"IVdf, (IV)ix); + ilen = ilen + my_sprintf(iname+ilen, "%" IVdf, (IV)ix); #endif iname[ilen++] = ']'; iname[ilen] = '\0'; if (style->indent >= 3) { @@ -1222,7 +1222,7 @@ DD_dump(pTHX_ SV *val, const char *name, STRLEN namelen, SV *retval, HV *seenhv, if (namelen) { #ifdef DD_USE_OLD_ID_FORMAT - idlen = my_snprintf(id, sizeof(id), "0x%"UVxf, PTR2UV(val)); + idlen = my_snprintf(id, sizeof(id), "0x%" UVxf, PTR2UV(val)); #else id_buffer = PTR2UV(val); idlen = sizeof(id_buffer); @@ -1262,9 +1262,9 @@ DD_dump(pTHX_ SV *val, const char *name, STRLEN namelen, SV *retval, HV *seenhv, if (DD_is_integer(val)) { STRLEN len; if (SvIsUV(val)) - len = my_snprintf(tmpbuf, sizeof(tmpbuf), "%"UVuf, SvUV(val)); + len = my_snprintf(tmpbuf, sizeof(tmpbuf), "%" UVuf, SvUV(val)); else - len = my_snprintf(tmpbuf, sizeof(tmpbuf), "%"IVdf, SvIV(val)); + len = my_snprintf(tmpbuf, sizeof(tmpbuf), "%" IVdf, SvIV(val)); if (SvPOK(val)) { /* Need to check to see if this is a string such as " 0". I'm assuming from sprintf isn't going to clash with utf8. */ @@ -1607,7 +1607,8 @@ Data_Dumper_Dumpxs(href, ...) STRLEN nchars; sv_setpvs(name, "$"); sv_catsv(name, varname); - nchars = my_snprintf(tmpbuf, sizeof(tmpbuf), "%"IVdf, (IV)(i+1)); + nchars = my_snprintf(tmpbuf, sizeof(tmpbuf), "%" IVdf, + (IV)(i+1)); sv_catpvn(name, tmpbuf, nchars); } diff --git a/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS/Utilities.pm b/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS/Utilities.pm index 435979a..b2e8cb8 100644 --- a/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS/Utilities.pm +++ b/dist/ExtUtils-ParseXS/lib/ExtUtils/ParseXS/Utilities.pm @@ -5,7 +5,7 @@ use Exporter; use File::Spec; use ExtUtils::ParseXS::Constants (); -our $VERSION = '3.33'; +our $VERSION = '3.34'; our (@ISA, @EXPORT_OK); @ISA = qw(Exporter); @@ -472,7 +472,7 @@ S_croak_xs_usage(const CV *const cv, const char *const params) Perl_croak_nocontext("Usage: %s(%s)", gvname, params); } else { /* Pants. I don't think that it should be possible to get here. */ - Perl_croak_nocontext("Usage: CODE(0x%"UVxf")(%s)", PTR2UV(cv), params); + Perl_croak_nocontext("Usage: CODE(0x%" UVxf ")(%s)", PTR2UV(cv), params); } } #undef PERL_ARGS_ASSERT_CROAK_XS_USAGE diff --git a/dist/Module-CoreList/lib/Module/CoreList.pm b/dist/Module-CoreList/lib/Module/CoreList.pm index e4e0d64..c26b761 100644 --- a/dist/Module-CoreList/lib/Module/CoreList.pm +++ b/dist/Module-CoreList/lib/Module/CoreList.pm @@ -3,7 +3,7 @@ use strict; use vars qw/$VERSION %released %version %families %upstream %bug_tracker %deprecated %delta/; use version; -$VERSION = '5.2016120'; +$VERSION = '5.20161220'; sub _undelta { my ($delta) = @_; @@ -315,7 +315,8 @@ sub changes_between { 5.025004 => '2016-08-20', 5.025005 => '2016-09-20', 5.025006 => '2016-10-20', - 5.025007 => '????-??-??', + 5.025007 => '2016-11-20', + 5.025008 => '????-??-??', ); for my $version ( sort { $a <=> $b } keys %released ) { @@ -13270,12 +13271,128 @@ for my $version ( sort { $a <=> $b } keys %released ) { 5.025007 => { delta_from => 5.025006, changed => { + 'Archive::Tar' => '2.18', + 'Archive::Tar::Constant'=> '2.18', + 'Archive::Tar::File' => '2.18', + 'B' => '1.65', 'B::Op_private' => '5.025007', 'Config' => '5.025007', + 'Cwd' => '3.66', + 'Data::Dumper' => '2.165', + 'Devel::Peek' => '1.26', + 'DynaLoader' => '1.40', + 'Errno' => '1.27', + 'ExtUtils::ParseXS::Utilities'=> '3.34', + 'File::Spec' => '3.66', + 'File::Spec::AmigaOS' => '3.66', + 'File::Spec::Cygwin' => '3.66', + 'File::Spec::Epoc' => '3.66', + 'File::Spec::Functions' => '3.66', + 'File::Spec::Mac' => '3.66', + 'File::Spec::OS2' => '3.66', + 'File::Spec::Unix' => '3.66', + 'File::Spec::VMS' => '3.66', + 'File::Spec::Win32' => '3.66', + 'Hash::Util' => '0.22', + 'JSON::PP' => '2.27400_02', + 'List::Util' => '1.46_02', + 'List::Util::XS' => '1.46_02', + 'Math::BigFloat' => '1.999727', + 'Math::BigInt' => '1.999727', + 'Math::BigInt::Calc' => '1.999727', + 'Math::BigInt::CalcEmu' => '1.999727', + 'Math::Complex' => '1.5901', + 'Module::CoreList' => '5.20161120', + 'Module::CoreList::TieHashDelta'=> '5.20161120', + 'Module::CoreList::Utils'=> '5.20161120', + 'Net::Ping' => '2.55', + 'Opcode' => '1.39', + 'POSIX' => '1.75', + 'Pod::Man' => '4.09', + 'Pod::ParseLink' => '4.09', + 'Pod::Text' => '4.09', + 'Pod::Text::Color' => '4.09', + 'Pod::Text::Overstrike' => '4.09', + 'Pod::Text::Termcap' => '4.09', + 'Scalar::Util' => '1.46_02', + 'Storable' => '2.59', + 'Sub::Util' => '1.46_02', + 'Term::ANSIColor' => '4.06', + 'Test2' => '1.302062', + 'Test2::API' => '1.302062', + 'Test2::API::Breakage' => '1.302062', + 'Test2::API::Context' => '1.302062', + 'Test2::API::Instance' => '1.302062', + 'Test2::API::Stack' => '1.302062', + 'Test2::Event' => '1.302062', + 'Test2::Event::Bail' => '1.302062', + 'Test2::Event::Diag' => '1.302062', + 'Test2::Event::Exception'=> '1.302062', + 'Test2::Event::Generic' => '1.302062', + 'Test2::Event::Info' => '1.302062', + 'Test2::Event::Note' => '1.302062', + 'Test2::Event::Ok' => '1.302062', + 'Test2::Event::Plan' => '1.302062', + 'Test2::Event::Skip' => '1.302062', + 'Test2::Event::Subtest' => '1.302062', + 'Test2::Event::Waiting' => '1.302062', + 'Test2::Formatter' => '1.302062', + 'Test2::Formatter::TAP' => '1.302062', + 'Test2::Hub' => '1.302062', + 'Test2::Hub::Interceptor'=> '1.302062', + 'Test2::Hub::Interceptor::Terminator'=> '1.302062', + 'Test2::Hub::Subtest' => '1.302062', + 'Test2::IPC' => '1.302062', + 'Test2::IPC::Driver' => '1.302062', + 'Test2::IPC::Driver::Files'=> '1.302062', + 'Test2::Util' => '1.302062', + 'Test2::Util::ExternalMeta'=> '1.302062', + 'Test2::Util::HashBase' => '1.302062', + 'Test2::Util::Trace' => '1.302062', + 'Test::Builder' => '1.302062', + 'Test::Builder::Formatter'=> '1.302062', + 'Test::Builder::Module' => '1.302062', + 'Test::Builder::Tester' => '1.302062', + 'Test::Builder::Tester::Color'=> '1.302062', + 'Test::Builder::TodoDiag'=> '1.302062', + 'Test::More' => '1.302062', + 'Test::Simple' => '1.302062', + 'Test::Tester' => '1.302062', + 'Test::Tester::Capture' => '1.302062', + 'Test::Tester::CaptureRunner'=> '1.302062', + 'Test::Tester::Delegate'=> '1.302062', + 'Test::use::ok' => '1.302062', + 'Time::HiRes' => '1.9740_03', + 'Unicode::Collate' => '1.18', + 'Unicode::Collate::CJK::Big5'=> '1.18', + 'Unicode::Collate::CJK::GB2312'=> '1.18', + 'Unicode::Collate::CJK::JISX0208'=> '1.18', + 'Unicode::Collate::CJK::Korean'=> '1.18', + 'Unicode::Collate::CJK::Pinyin'=> '1.18', + 'Unicode::Collate::CJK::Stroke'=> '1.18', + 'Unicode::Collate::CJK::Zhuyin'=> '1.18', + 'Unicode::Collate::Locale'=> '1.18', + 'Unicode::UCD' => '0.67', + 'XS::APItest' => '0.87', + 'XS::Typemap' => '0.15', + 'mro' => '1.20', + 'ok' => '1.302062', + 'threads' => '2.10', + }, + removed => { + } + }, + 5.025008 => { + delta_from => 5.025007, + changed => { + 'Module::CoreList' => '5.20161220', + 'Module::CoreList::TieHashDelta'=> '5.20161220', + 'Module::CoreList::Utils'=> '5.20161220', }, removed => { } }, + ); sub is_core @@ -14398,7 +14515,6 @@ sub is_core 'Unicode::Collate::CJK::Stroke'=> 'cpan', 'Unicode::Collate::CJK::Zhuyin'=> 'cpan', 'Unicode::Collate::Locale'=> 'cpan', - 'Unicode::Normalize' => 'cpan', 'Win32' => 'cpan', 'Win32API::File' => 'cpan', 'Win32API::File::inc::ExtUtils::Myconst2perl'=> 'cpan', @@ -14823,7 +14939,7 @@ sub is_core 'Text::Tabs' => undef, 'Text::Wrap' => undef, 'Tie::RefHash' => undef, - 'Time::Local' => 'http://rt.cpan.org/Public/Dist/Display.html?Name=Time-Local', + 'Time::Local' => 'https://github.com/houseabsolute/Time-Local/issues', 'Time::Piece' => undef, 'Time::Seconds' => undef, 'Unicode::Collate' => undef, @@ -14835,7 +14951,6 @@ sub is_core 'Unicode::Collate::CJK::Stroke'=> undef, 'Unicode::Collate::CJK::Zhuyin'=> undef, 'Unicode::Collate::Locale'=> undef, - 'Unicode::Normalize' => 'https://rt.cpan.org/Public/Dist/Display.html?Name=Unicode-Normalize', 'Win32' => undef, 'Win32API::File' => undef, 'Win32API::File::inc::ExtUtils::Myconst2perl'=> undef, diff --git a/dist/Module-CoreList/lib/Module/CoreList/TieHashDelta.pm b/dist/Module-CoreList/lib/Module/CoreList/TieHashDelta.pm index 45ed9ef..79e344c 100644 --- a/dist/Module-CoreList/lib/Module/CoreList/TieHashDelta.pm +++ b/dist/Module-CoreList/lib/Module/CoreList/TieHashDelta.pm @@ -3,7 +3,7 @@ package Module::CoreList::TieHashDelta; use strict; use vars qw($VERSION); -$VERSION = '5.20161120'; +$VERSION = '5.20161220'; sub TIEHASH { my ($class, $changed, $removed, $parent) = @_; diff --git a/dist/Module-CoreList/lib/Module/CoreList/Utils.pm b/dist/Module-CoreList/lib/Module/CoreList/Utils.pm index 63abd37..94dac5e 100644 --- a/dist/Module-CoreList/lib/Module/CoreList/Utils.pm +++ b/dist/Module-CoreList/lib/Module/CoreList/Utils.pm @@ -5,7 +5,7 @@ use warnings; use vars qw[$VERSION %utilities]; use Module::CoreList; -$VERSION = '5.20161120'; +$VERSION = '5.20161220'; sub utilities { my $perl = shift; @@ -1205,6 +1205,13 @@ my %delta = ( removed => { } }, + 5.025008 => { + delta_from => 5.025007, + changed => { + }, + removed => { + } + }, ); %utilities = Module::CoreList::_undelta(\%delta); diff --git a/dist/PathTools/Changes b/dist/PathTools/Changes index b85984e..46c9a9e 100644 --- a/dist/PathTools/Changes +++ b/dist/PathTools/Changes @@ -1,5 +1,11 @@ Revision history for Perl distribution PathTools. +3.66 - Sat Nov 19 10:30:19 MST 2016 +- white space change so can compile under C++11 + +3.65 - Mon, 25 Jul 2016 23:15:33 -0700 +- (perl #127384)(CVE-2016-1238) + 3.64 - Tue May 24 10:00:19 MST 2016 - just minor pod changes to silence Pod::Checker diff --git a/dist/PathTools/Cwd.pm b/dist/PathTools/Cwd.pm index 6038377..362a000 100644 --- a/dist/PathTools/Cwd.pm +++ b/dist/PathTools/Cwd.pm @@ -3,7 +3,7 @@ use strict; use Exporter; use vars qw(@ISA @EXPORT @EXPORT_OK $VERSION); -$VERSION = '3.65'; +$VERSION = '3.66'; my $xs_version = $VERSION; $VERSION =~ tr/_//d; diff --git a/dist/PathTools/Cwd.xs b/dist/PathTools/Cwd.xs index 3d018dc..c6c600b 100644 --- a/dist/PathTools/Cwd.xs +++ b/dist/PathTools/Cwd.xs @@ -424,7 +424,7 @@ int Perl_getcwd_sv(pTHX_ SV *sv) #endif #if USE_MY_CXT -# define MY_CXT_KEY "Cwd::_guts"XS_VERSION +# define MY_CXT_KEY "Cwd::_guts" XS_VERSION typedef struct { SV *empty_string_sv, *slash_string_sv; } my_cxt_t; diff --git a/dist/PathTools/lib/File/Spec.pm b/dist/PathTools/lib/File/Spec.pm index 8691a36..85ad174 100644 --- a/dist/PathTools/lib/File/Spec.pm +++ b/dist/PathTools/lib/File/Spec.pm @@ -3,7 +3,7 @@ package File::Spec; use strict; use vars qw(@ISA $VERSION); -$VERSION = '3.65'; +$VERSION = '3.66'; $VERSION =~ tr/_//d; my %module = (MacOS => 'Mac', diff --git a/dist/PathTools/lib/File/Spec/AmigaOS.pm b/dist/PathTools/lib/File/Spec/AmigaOS.pm index cc95294..b288f22 100644 --- a/dist/PathTools/lib/File/Spec/AmigaOS.pm +++ b/dist/PathTools/lib/File/Spec/AmigaOS.pm @@ -4,7 +4,7 @@ use strict; use vars qw(@ISA $VERSION); require File::Spec::Unix; -$VERSION = '3.65'; +$VERSION = '3.66'; $VERSION =~ tr/_//d; @ISA = qw(File::Spec::Unix); diff --git a/dist/PathTools/lib/File/Spec/Cygwin.pm b/dist/PathTools/lib/File/Spec/Cygwin.pm index 85ce95e..48da542 100644 --- a/dist/PathTools/lib/File/Spec/Cygwin.pm +++ b/dist/PathTools/lib/File/Spec/Cygwin.pm @@ -4,7 +4,7 @@ use strict; use vars qw(@ISA $VERSION); require File::Spec::Unix; -$VERSION = '3.65'; +$VERSION = '3.66'; $VERSION =~ tr/_//d; @ISA = qw(File::Spec::Unix); diff --git a/dist/PathTools/lib/File/Spec/Epoc.pm b/dist/PathTools/lib/File/Spec/Epoc.pm index 6a3dc9f..ef8af40 100644 --- a/dist/PathTools/lib/File/Spec/Epoc.pm +++ b/dist/PathTools/lib/File/Spec/Epoc.pm @@ -3,7 +3,7 @@ package File::Spec::Epoc; use strict; use vars qw($VERSION @ISA); -$VERSION = '3.65'; +$VERSION = '3.66'; $VERSION =~ tr/_//d; require File::Spec::Unix; diff --git a/dist/PathTools/lib/File/Spec/Functions.pm b/dist/PathTools/lib/File/Spec/Functions.pm index 45f662a..ccf1562 100644 --- a/dist/PathTools/lib/File/Spec/Functions.pm +++ b/dist/PathTools/lib/File/Spec/Functions.pm @@ -5,7 +5,7 @@ use strict; use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $VERSION); -$VERSION = '3.65'; +$VERSION = '3.66'; $VERSION =~ tr/_//d; require Exporter; diff --git a/dist/PathTools/lib/File/Spec/Mac.pm b/dist/PathTools/lib/File/Spec/Mac.pm index 3cd4553..a7454e7 100644 --- a/dist/PathTools/lib/File/Spec/Mac.pm +++ b/dist/PathTools/lib/File/Spec/Mac.pm @@ -4,7 +4,7 @@ use strict; use vars qw(@ISA $VERSION); require File::Spec::Unix; -$VERSION = '3.65'; +$VERSION = '3.66'; $VERSION =~ tr/_//d; @ISA = qw(File::Spec::Unix); diff --git a/dist/PathTools/lib/File/Spec/OS2.pm b/dist/PathTools/lib/File/Spec/OS2.pm index 5d8aec3..a17f995 100644 --- a/dist/PathTools/lib/File/Spec/OS2.pm +++ b/dist/PathTools/lib/File/Spec/OS2.pm @@ -4,7 +4,7 @@ use strict; use vars qw(@ISA $VERSION); require File::Spec::Unix; -$VERSION = '3.65'; +$VERSION = '3.66'; $VERSION =~ tr/_//d; @ISA = qw(File::Spec::Unix); diff --git a/dist/PathTools/lib/File/Spec/Unix.pm b/dist/PathTools/lib/File/Spec/Unix.pm index 02b4eeb..9f66dc2 100644 --- a/dist/PathTools/lib/File/Spec/Unix.pm +++ b/dist/PathTools/lib/File/Spec/Unix.pm @@ -3,7 +3,7 @@ package File::Spec::Unix; use strict; use vars qw($VERSION); -$VERSION = '3.65'; +$VERSION = '3.66'; my $xs_version = $VERSION; $VERSION =~ tr/_//d; diff --git a/dist/PathTools/lib/File/Spec/VMS.pm b/dist/PathTools/lib/File/Spec/VMS.pm index d836cbe..c055e6b 100644 --- a/dist/PathTools/lib/File/Spec/VMS.pm +++ b/dist/PathTools/lib/File/Spec/VMS.pm @@ -4,7 +4,7 @@ use strict; use vars qw(@ISA $VERSION); require File::Spec::Unix; -$VERSION = '3.65'; +$VERSION = '3.66'; $VERSION =~ tr/_//d; @ISA = qw(File::Spec::Unix); diff --git a/dist/PathTools/lib/File/Spec/Win32.pm b/dist/PathTools/lib/File/Spec/Win32.pm index 4d9c68d..9036654 100644 --- a/dist/PathTools/lib/File/Spec/Win32.pm +++ b/dist/PathTools/lib/File/Spec/Win32.pm @@ -5,7 +5,7 @@ use strict; use vars qw(@ISA $VERSION); require File::Spec::Unix; -$VERSION = '3.65'; +$VERSION = '3.66'; $VERSION =~ tr/_//d; @ISA = qw(File::Spec::Unix); diff --git a/dist/Storable/Storable.pm b/dist/Storable/Storable.pm index 616869f..7101641 100644 --- a/dist/Storable/Storable.pm +++ b/dist/Storable/Storable.pm @@ -22,7 +22,7 @@ package Storable; @ISA = qw(Exporter); use vars qw($canonical $forgive_me $VERSION); -$VERSION = '2.58'; +$VERSION = '2.59'; BEGIN { if (eval { diff --git a/dist/Storable/Storable.xs b/dist/Storable/Storable.xs index 053951c..3788f57 100644 --- a/dist/Storable/Storable.xs +++ b/dist/Storable/Storable.xs @@ -1046,7 +1046,7 @@ static const char byteorderstr_56[] = {BYTEORDER_BYTES_56, 0}; STMT_START { \ if (av_store(cxt->aseen, cxt->tagnum++, i ? (SV*)(y) : SvREFCNT_inc(y)) == 0) \ return (SV *) 0; \ - TRACEME(("aseen(#%d) = 0x%"UVxf" (refcnt=%d)", cxt->tagnum-1, \ + TRACEME(("aseen(#%d) = 0x%" UVxf " (refcnt=%d)", cxt->tagnum-1, \ PTR2UV(y), SvREFCNT(y)-1)); \ } STMT_END @@ -1079,7 +1079,7 @@ static const char byteorderstr_56[] = {BYTEORDER_BYTES_56, 0}; #define BLESS(s,stash) \ STMT_START { \ SV *ref; \ - TRACEME(("blessing 0x%"UVxf" in %s", PTR2UV(s), (HvNAME_get(stash)))); \ + TRACEME(("blessing 0x%" UVxf " in %s", PTR2UV(s), (HvNAME_get(stash))));\ ref = newRV_noinc(s); \ if (cxt->in_retrieve_overloaded && Gv_AMG(stash)) \ { \ @@ -1753,7 +1753,7 @@ static SV *pkg_fetchmeth( gv = gv_fetchmethod_autoload(pkg, method, FALSE); if (gv && isGV(gv)) { sv = newRV((SV*) GvCV(gv)); - TRACEME(("%s->%s: 0x%"UVxf, hvname, method, PTR2UV(sv))); + TRACEME(("%s->%s: 0x%" UVxf, hvname, method, PTR2UV(sv))); } else { sv = newSVsv(&PL_sv_undef); TRACEME(("%s->%s: not found", hvname, method)); @@ -1837,7 +1837,7 @@ static SV *pkg_can( TRACEME(("cached %s->%s: not found", hvname, method)); return (SV *) 0; } else { - TRACEME(("cached %s->%s: 0x%"UVxf, + TRACEME(("cached %s->%s: 0x%" UVxf, hvname, method, PTR2UV(sv))); return sv; } @@ -1879,7 +1879,7 @@ static SV *scalar_call( int i; XPUSHs(ary[0]); /* Frozen string */ for (i = 1; i < cnt; i++) { - TRACEME(("pushing arg #%d (0x%"UVxf")...", + TRACEME(("pushing arg #%d (0x%" UVxf ")...", i, PTR2UV(ary[i]))); XPUSHs(sv_2mortal(newRV(ary[i]))); } @@ -2004,7 +2004,7 @@ static int known_class( static int store_ref(pTHX_ stcxt_t *cxt, SV *sv) { int is_weak = 0; - TRACEME(("store_ref (0x%"UVxf")", PTR2UV(sv))); + TRACEME(("store_ref (0x%" UVxf ")", PTR2UV(sv))); /* * Follow reference, and check if target is overloaded. @@ -2013,14 +2013,16 @@ static int store_ref(pTHX_ stcxt_t *cxt, SV *sv) #ifdef SvWEAKREF if (SvWEAKREF(sv)) is_weak = 1; - TRACEME(("ref (0x%"UVxf") is%s weak", PTR2UV(sv), is_weak ? "" : "n't")); + TRACEME(("ref (0x%" UVxf ") is%s weak", PTR2UV(sv), is_weak + ? "" + : "n't")); #endif sv = SvRV(sv); if (SvOBJECT(sv)) { HV *stash = (HV *) SvSTASH(sv); if (stash && Gv_AMG(stash)) { - TRACEME(("ref (0x%"UVxf") is overloaded", PTR2UV(sv))); + TRACEME(("ref (0x%" UVxf ") is overloaded", PTR2UV(sv))); PUTMARK(is_weak ? SX_WEAKOVERLOAD : SX_OVERLOAD); } else PUTMARK(is_weak ? SX_WEAKREF : SX_REF); @@ -2053,7 +2055,7 @@ static int store_scalar(pTHX_ stcxt_t *cxt, SV *sv) STRLEN len; U32 flags = SvFLAGS(sv); /* "cc -O" may put it in register */ - TRACEME(("store_scalar (0x%"UVxf")", PTR2UV(sv))); + TRACEME(("store_scalar (0x%" UVxf ")", PTR2UV(sv))); /* * For efficiency, break the SV encapsulation by peaking at the flags @@ -2066,7 +2068,7 @@ static int store_scalar(pTHX_ stcxt_t *cxt, SV *sv) TRACEME(("immortal undef")); PUTMARK(SX_SV_UNDEF); } else { - TRACEME(("undef at 0x%"UVxf, PTR2UV(sv))); + TRACEME(("undef at 0x%" UVxf, PTR2UV(sv))); PUTMARK(SX_UNDEF); } return 0; @@ -2141,7 +2143,8 @@ static int store_scalar(pTHX_ stcxt_t *cxt, SV *sv) * case. */ if ((flags & SVf_IVisUV) && SvUV(sv) > IV_MAX) { - TRACEME(("large unsigned integer as string, value = %"UVuf, SvUV(sv))); + TRACEME(("large unsigned integer as string, value = %" UVuf, + SvUV(sv))); goto string_readlen; } #endif @@ -2171,7 +2174,8 @@ static int store_scalar(pTHX_ stcxt_t *cxt, SV *sv) #endif (iv > (IV)0x7FFFFFFF) || (iv < -(IV)0x80000000)) { /* Bigger than 32 bits. */ - TRACEME(("large network order integer as string, value = %"IVdf, iv)); + TRACEME(("large network order integer as string, value = %" + IVdf, iv)); goto string_readlen; } #endif @@ -2186,7 +2190,8 @@ static int store_scalar(pTHX_ stcxt_t *cxt, SV *sv) WRITE(&iv, sizeof(iv)); } - TRACEME(("ok (integer 0x%"UVxf", value = %"IVdf")", PTR2UV(sv), iv)); + TRACEME(("ok (integer 0x%" UVxf ", value = %" IVdf ")", + PTR2UV(sv), iv)); } else if (flags & SVf_NOK) { NV nv; #if (PATCHLEVEL <= 6) @@ -2195,7 +2200,7 @@ static int store_scalar(pTHX_ stcxt_t *cxt, SV *sv) * Watch for number being an integer in disguise. */ if (nv == (NV) (iv = I_V(nv))) { - TRACEME(("double %"NVff" is actually integer %"IVdf, nv, iv)); + TRACEME(("double %" NVff " is actually integer %" IVdf, nv, iv)); goto integer; /* Share code above */ } #else @@ -2209,14 +2214,15 @@ static int store_scalar(pTHX_ stcxt_t *cxt, SV *sv) #endif if (cxt->netorder) { - TRACEME(("double %"NVff" stored as string", nv)); + TRACEME(("double %" NVff " stored as string", nv)); goto string_readlen; /* Share code below */ } PUTMARK(SX_DOUBLE); WRITE(&nv, sizeof(nv)); - TRACEME(("ok (double 0x%"UVxf", value = %"NVff")", PTR2UV(sv), nv)); + TRACEME(("ok (double 0x%" UVxf ", value = %" NVff ")", + PTR2UV(sv), nv)); } else if (flags & (SVp_POK | SVp_NOK | SVp_IOK)) { #ifdef SvVOK @@ -2248,10 +2254,10 @@ static int store_scalar(pTHX_ stcxt_t *cxt, SV *sv) STORE_UTF8STR(pv, wlen); else STORE_SCALAR(pv, wlen); - TRACEME(("ok (scalar 0x%"UVxf" '%s', length = %"IVdf")", + TRACEME(("ok (scalar 0x%" UVxf " '%s', length = %" IVdf ")", PTR2UV(sv), SvPVX(sv), (IV)len)); } else - CROAK(("Can't determine type of %s(0x%"UVxf")", + CROAK(("Can't determine type of %s(0x%" UVxf ")", sv_reftype(sv, FALSE), PTR2UV(sv))); return 0; /* Ok, no recursion on scalars */ @@ -2272,7 +2278,7 @@ static int store_array(pTHX_ stcxt_t *cxt, AV *av) I32 i; int ret; - TRACEME(("store_array (0x%"UVxf")", PTR2UV(av))); + TRACEME(("store_array (0x%" UVxf ")", PTR2UV(av))); /* * Signal array by emitting SX_ARRAY, followed by the array length. @@ -2375,10 +2381,10 @@ static int store_hash(pTHX_ stcxt_t *cxt, HV *hv) if (flagged_hash) { /* needs int cast for C++ compilers, doesn't it? */ - TRACEME(("store_hash (0x%"UVxf") (flags %x)", PTR2UV(hv), + TRACEME(("store_hash (0x%" UVxf ") (flags %x)", PTR2UV(hv), (int) hash_flags)); } else { - TRACEME(("store_hash (0x%"UVxf")", PTR2UV(hv))); + TRACEME(("store_hash (0x%" UVxf ")", PTR2UV(hv))); } /* @@ -2491,7 +2497,7 @@ static int store_hash(pTHX_ stcxt_t *cxt, HV *hv) * Store value first. */ - TRACEME(("(#%d) value 0x%"UVxf, i, PTR2UV(val))); + TRACEME(("(#%d) value 0x%" UVxf, i, PTR2UV(val))); if ((ret = store(aTHX_ cxt, val))) /* Extra () for -Wall, grr... */ goto out; @@ -2611,7 +2617,7 @@ static int store_hash(pTHX_ stcxt_t *cxt, HV *hv) * Store value first. */ - TRACEME(("(#%d) value 0x%"UVxf, i, PTR2UV(val))); + TRACEME(("(#%d) value 0x%" UVxf, i, PTR2UV(val))); if ((ret = store(aTHX_ cxt, val))) /* Extra () for -Wall, grr... */ goto out; @@ -2671,7 +2677,7 @@ static int store_hash(pTHX_ stcxt_t *cxt, HV *hv) } } - TRACEME(("ok (hash 0x%"UVxf")", PTR2UV(hv))); + TRACEME(("ok (hash 0x%" UVxf ")", PTR2UV(hv))); out: HvRITER_set(hv, riter); /* Restore hash iterator state */ @@ -2701,7 +2707,7 @@ static int store_code(pTHX_ stcxt_t *cxt, CV *cv) int count, reallen; SV *text, *bdeparse; - TRACEME(("store_code (0x%"UVxf")", PTR2UV(cv))); + TRACEME(("store_code (0x%" UVxf ")", PTR2UV(cv))); if ( cxt->deparse == 0 || @@ -2804,7 +2810,7 @@ static int store_tied(pTHX_ stcxt_t *cxt, SV *sv) int svt = SvTYPE(sv); char mtype = 'P'; - TRACEME(("store_tied (0x%"UVxf")", PTR2UV(sv))); + TRACEME(("store_tied (0x%" UVxf ")", PTR2UV(sv))); /* * We have a small run-time penalty here because we chose to factorise @@ -2872,7 +2878,7 @@ static int store_tied_item(pTHX_ stcxt_t *cxt, SV *sv) MAGIC *mg; int ret; - TRACEME(("store_tied_item (0x%"UVxf")", PTR2UV(sv))); + TRACEME(("store_tied_item (0x%" UVxf ")", PTR2UV(sv))); if (!(mg = mg_find(sv, 'p'))) CROAK(("No magic 'p' found while storing reference to tied item")); @@ -2884,12 +2890,14 @@ static int store_tied_item(pTHX_ stcxt_t *cxt, SV *sv) if (mg->mg_ptr) { TRACEME(("store_tied_item: storing a ref to a tied hash item")); PUTMARK(SX_TIED_KEY); - TRACEME(("store_tied_item: storing OBJ 0x%"UVxf, PTR2UV(mg->mg_obj))); + TRACEME(("store_tied_item: storing OBJ 0x%" UVxf, + PTR2UV(mg->mg_obj))); if ((ret = store(aTHX_ cxt, mg->mg_obj))) /* Extra () for -Wall, grr... */ return ret; - TRACEME(("store_tied_item: storing PTR 0x%"UVxf, PTR2UV(mg->mg_ptr))); + TRACEME(("store_tied_item: storing PTR 0x%" UVxf, + PTR2UV(mg->mg_ptr))); if ((ret = store(aTHX_ cxt, (SV *) mg->mg_ptr))) /* Idem, for -Wall */ return ret; @@ -2898,7 +2906,8 @@ static int store_tied_item(pTHX_ stcxt_t *cxt, SV *sv) TRACEME(("store_tied_item: storing a ref to a tied array item ")); PUTMARK(SX_TIED_IDX); - TRACEME(("store_tied_item: storing OBJ 0x%"UVxf, PTR2UV(mg->mg_obj))); + TRACEME(("store_tied_item: storing OBJ 0x%" UVxf, + PTR2UV(mg->mg_obj))); if ((ret = store(aTHX_ cxt, mg->mg_obj))) /* Idem, for -Wall */ return ret; @@ -3154,7 +3163,8 @@ static int store_hook( goto sv_seen; /* Avoid moving code too far to the right */ #endif - TRACEME(("listed object %d at 0x%"UVxf" is unknown", i-1, PTR2UV(xsv))); + TRACEME(("listed object %d at 0x%" UVxf " is unknown", + i-1, PTR2UV(xsv))); /* * We need to recurse to store that object and get it to be known @@ -3223,7 +3233,7 @@ static int store_hook( tag = *svh; #endif ary[i] = tag; - TRACEME(("listed object %d at 0x%"UVxf" is tag #%"UVuf, + TRACEME(("listed object %d at 0x%" UVxf " is tag #%" UVuf, i-1, PTR2UV(xsv), PTR2UV(tag))); } @@ -3270,7 +3280,7 @@ check_done: */ TRACEME(("SX_HOOK (recursed=%d) flags=0x%x " - "class=%"IVdf" len=%"IVdf" len2=%"IVdf" len3=%d", + "class=%" IVdf " len=%" IVdf " len2=%" IVdf " len3=%d", recursed, flags, (IV)classnum, (IV)len, (IV)len2, count-1)); /* SX_HOOK <flags> [<extra>] */ @@ -3357,8 +3367,8 @@ check_done: (svt == SVt_PVAV) ? "array" : "scalar")); } - TRACEME(("handling the magic object 0x%"UVxf" part of 0x%"UVxf, - PTR2UV(mg->mg_obj), PTR2UV(sv))); + TRACEME(("handling the magic object 0x%" UVxf " part of 0x%" + UVxf, PTR2UV(mg->mg_obj), PTR2UV(sv))); /* * [<magic object>] @@ -3425,7 +3435,7 @@ static int store_blessed( classname = HvNAME_get(pkg); len = strlen(classname); - TRACEME(("blessed 0x%"UVxf" in %s, no hook: tagged #%d", + TRACEME(("blessed 0x%" UVxf " in %s, no hook: tagged #%d", PTR2UV(sv), classname, cxt->tagnum)); /* @@ -3495,19 +3505,19 @@ static int store_other(pTHX_ stcxt_t *cxt, SV *sv) ) CROAK(("Can't store %s items", sv_reftype(sv, FALSE))); - warn("Can't store item %s(0x%"UVxf")", + warn("Can't store item %s(0x%" UVxf ")", sv_reftype(sv, FALSE), PTR2UV(sv)); /* * Store placeholder string as a scalar instead... */ - (void) sprintf(buf, "You lost %s(0x%"UVxf")%c", sv_reftype(sv, FALSE), + (void) sprintf(buf, "You lost %s(0x%" UVxf ")%c", sv_reftype(sv, FALSE), PTR2UV(sv), (char) 0); len = strlen(buf); STORE_SCALAR(buf, len); - TRACEME(("ok (dummy \"%s\", length = %"IVdf")", buf, (IV) len)); + TRACEME(("ok (dummy \"%s\", length = %" IVdf ")", buf, (IV) len)); return 0; } @@ -3610,7 +3620,7 @@ static int store(pTHX_ stcxt_t *cxt, SV *sv) HV *hseen = cxt->hseen; #endif - TRACEME(("store (0x%"UVxf")", PTR2UV(sv))); + TRACEME(("store (0x%" UVxf ")", PTR2UV(sv))); /* * If object has already been stored, do not duplicate data. @@ -3668,7 +3678,8 @@ static int store(pTHX_ stcxt_t *cxt, SV *sv) tagval = htonl(LOW_32BITS(*svh)); #endif - TRACEME(("object 0x%"UVxf" seen as #%d", PTR2UV(sv), ntohl(tagval))); + TRACEME(("object 0x%" UVxf " seen as #%d", + PTR2UV(sv), ntohl(tagval))); PUTMARK(SX_OBJECT); WRITE_I32(tagval); @@ -3703,7 +3714,7 @@ static int store(pTHX_ stcxt_t *cxt, SV *sv) type = sv_type(aTHX_ sv); undef_special_case: - TRACEME(("storing 0x%"UVxf" tag #%d, type %d...", + TRACEME(("storing 0x%" UVxf " tag #%d, type %d...", PTR2UV(sv), cxt->tagnum, type)); if (SvOBJECT(sv)) { @@ -3712,7 +3723,7 @@ undef_special_case: } else ret = SV_STORE(type)(aTHX_ cxt, sv); - TRACEME(("%s (stored 0x%"UVxf", refcnt=%d, %s)", + TRACEME(("%s (stored 0x%" UVxf ", refcnt=%d, %s)", ret ? "FAILED" : "ok", PTR2UV(sv), SvREFCNT(sv), sv_reftype(sv, FALSE))); @@ -4013,7 +4024,8 @@ static SV *retrieve_idx_blessed(pTHX_ stcxt_t *cxt, const char *cname) sva = av_fetch(cxt->aclass, idx, FALSE); if (!sva) - CROAK(("Class name #%"IVdf" should have been seen already", (IV) idx)); + CROAK(("Class name #%" IVdf " should have been seen already", + (IV) idx)); classname = SvPVX(*sva); /* We know it's a PV, by construction */ @@ -4200,7 +4212,7 @@ static SV *retrieve_hook(pTHX_ stcxt_t *cxt, const char *cname) if (!rv) return (SV *) 0; SvREFCNT_dec(rv); - TRACEME(("retrieve_hook back with rv=0x%"UVxf, + TRACEME(("retrieve_hook back with rv=0x%" UVxf, PTR2UV(rv))); GETMARK(flags); } @@ -4220,8 +4232,8 @@ static SV *retrieve_hook(pTHX_ stcxt_t *cxt, const char *cname) sva = av_fetch(cxt->aclass, idx, FALSE); if (!sva) - CROAK(("Class name #%"IVdf" should have been seen already", - (IV) idx)); + CROAK(("Class name #%" IVdf + " should have been seen already", (IV) idx)); classname = SvPVX(*sva); /* We know it's a PV, by construction */ TRACEME(("class ID %d => %s", idx, classname)); @@ -4332,8 +4344,9 @@ static SV *retrieve_hook(pTHX_ stcxt_t *cxt, const char *cname) xsv = &PL_sv_undef; svh = &xsv; } else { - CROAK(("Object #%"IVdf" should have been retrieved already", - (IV) tag)); + CROAK(("Object #%" IVdf + " should have been retrieved already", + (IV) tag)); } } xsv = *svh; @@ -4448,7 +4461,7 @@ static SV *retrieve_hook(pTHX_ stcxt_t *cxt, const char *cname) * the object itself being already created by the runtime. */ - TRACEME(("calling STORABLE_thaw on %s at 0x%"UVxf" (%"IVdf" args)", + TRACEME(("calling STORABLE_thaw on %s at 0x%" UVxf " (%" IVdf " args)", classname, PTR2UV(sv), (IV) AvFILLp(av) + 1)); rv = newRV(sv); @@ -4473,11 +4486,11 @@ static SV *retrieve_hook(pTHX_ stcxt_t *cxt, const char *cname) if (!extra_type) return sv; - TRACEME(("retrieving magic object for 0x%"UVxf"...", PTR2UV(sv))); + TRACEME(("retrieving magic object for 0x%" UVxf "...", PTR2UV(sv))); rv = retrieve(aTHX_ cxt, 0); /* Retrieve <magic object> */ - TRACEME(("restoring the magic object 0x%"UVxf" part of 0x%"UVxf, + TRACEME(("restoring the magic object 0x%" UVxf " part of 0x%" UVxf, PTR2UV(rv), PTR2UV(sv))); switch (extra_type) { @@ -4584,7 +4597,7 @@ static SV *retrieve_ref(pTHX_ stcxt_t *cxt, const char *cname) SvRV_set(rv, sv); /* $rv = \$sv */ SvROK_on(rv); - TRACEME(("ok (retrieve_ref at 0x%"UVxf")", PTR2UV(rv))); + TRACEME(("ok (retrieve_ref at 0x%" UVxf ")", PTR2UV(rv))); return rv; } @@ -4653,7 +4666,7 @@ static SV *retrieve_overloaded(pTHX_ stcxt_t *cxt, const char *cname) stash = SvTYPE(sv) ? (HV *) SvSTASH (sv) : 0; if (!stash) { - CROAK(("Cannot restore overloading on %s(0x%"UVxf + CROAK(("Cannot restore overloading on %s(0x%" UVxf ") (package <unknown>)", sv_reftype(sv, FALSE), PTR2UV(sv))); @@ -4664,7 +4677,7 @@ static SV *retrieve_overloaded(pTHX_ stcxt_t *cxt, const char *cname) TRACEME(("Going to load module '%s'", package)); load_module(PERL_LOADMOD_NOIMPORT, newSVpv(package, 0), Nullsv); if (!Gv_AMG(stash)) { - CROAK(("Cannot restore overloading on %s(0x%"UVxf + CROAK(("Cannot restore overloading on %s(0x%" UVxf ") (package %s) (even after a \"require %s;\")", sv_reftype(sv, FALSE), PTR2UV(sv), @@ -4674,7 +4687,7 @@ static SV *retrieve_overloaded(pTHX_ stcxt_t *cxt, const char *cname) SvAMAGIC_on(rv); - TRACEME(("ok (retrieve_overloaded at 0x%"UVxf")", PTR2UV(rv))); + TRACEME(("ok (retrieve_overloaded at 0x%" UVxf ")", PTR2UV(rv))); return rv; } @@ -4728,7 +4741,7 @@ static SV *retrieve_tied_array(pTHX_ stcxt_t *cxt, const char *cname) sv_magic(tv, sv, 'P', (char *)NULL, 0); SvREFCNT_dec(sv); /* Undo refcnt inc from sv_magic() */ - TRACEME(("ok (retrieve_tied_array at 0x%"UVxf")", PTR2UV(tv))); + TRACEME(("ok (retrieve_tied_array at 0x%" UVxf ")", PTR2UV(tv))); return tv; } @@ -4758,7 +4771,7 @@ static SV *retrieve_tied_hash(pTHX_ stcxt_t *cxt, const char *cname) sv_magic(tv, sv, 'P', (char *)NULL, 0); SvREFCNT_dec(sv); /* Undo refcnt inc from sv_magic() */ - TRACEME(("ok (retrieve_tied_hash at 0x%"UVxf")", PTR2UV(tv))); + TRACEME(("ok (retrieve_tied_hash at 0x%" UVxf ")", PTR2UV(tv))); return tv; } @@ -4796,7 +4809,7 @@ static SV *retrieve_tied_scalar(pTHX_ stcxt_t *cxt, const char *cname) SvREFCNT_dec(obj); } - TRACEME(("ok (retrieve_tied_scalar at 0x%"UVxf")", PTR2UV(tv))); + TRACEME(("ok (retrieve_tied_scalar at 0x%" UVxf ")", PTR2UV(tv))); return tv; } @@ -4883,7 +4896,7 @@ static SV *retrieve_lscalar(pTHX_ stcxt_t *cxt, const char *cname) HV *stash; RLEN(len); - TRACEME(("retrieve_lscalar (#%d), len = %"IVdf, cxt->tagnum, (IV) len)); + TRACEME(("retrieve_lscalar (#%d), len = %" IVdf, cxt->tagnum, (IV) len)); /* * Allocate an empty scalar of the suitable length. @@ -4914,8 +4927,8 @@ static SV *retrieve_lscalar(pTHX_ stcxt_t *cxt, const char *cname) if (cxt->s_tainted) /* Is input source tainted? */ SvTAINT(sv); /* External data cannot be trusted */ - TRACEME(("large scalar len %"IVdf" '%s'", (IV) len, SvPVX(sv))); - TRACEME(("ok (retrieve_lscalar at 0x%"UVxf")", PTR2UV(sv))); + TRACEME(("large scalar len %" IVdf " '%s'", (IV) len, SvPVX(sv))); + TRACEME(("ok (retrieve_lscalar at 0x%" UVxf ")", PTR2UV(sv))); return sv; } @@ -4962,7 +4975,7 @@ static SV *retrieve_scalar(pTHX_ stcxt_t *cxt, const char *cname) } SvGROW(sv, 1); *SvEND(sv) = '\0'; /* Ensure it's null terminated anyway */ - TRACEME(("ok (retrieve_scalar empty at 0x%"UVxf")", PTR2UV(sv))); + TRACEME(("ok (retrieve_scalar empty at 0x%" UVxf ")", PTR2UV(sv))); } else { /* * Now, for efficiency reasons, read data directly inside the SV buffer, @@ -4980,7 +4993,7 @@ static SV *retrieve_scalar(pTHX_ stcxt_t *cxt, const char *cname) if (cxt->s_tainted) /* Is input source tainted? */ SvTAINT(sv); /* External data cannot be trusted */ - TRACEME(("ok (retrieve_scalar at 0x%"UVxf")", PTR2UV(sv))); + TRACEME(("ok (retrieve_scalar at 0x%" UVxf ")", PTR2UV(sv))); return sv; } @@ -5069,7 +5082,7 @@ static SV *retrieve_vstring(pTHX_ stcxt_t *cxt, const char *cname) /* 5.10.0 and earlier seem to need this */ SvRMAGICAL_on(sv); - TRACEME(("ok (retrieve_vstring at 0x%"UVxf")", PTR2UV(sv))); + TRACEME(("ok (retrieve_vstring at 0x%" UVxf ")", PTR2UV(sv))); return sv; #else VSTRING_CROAK(); @@ -5090,7 +5103,7 @@ static SV *retrieve_lvstring(pTHX_ stcxt_t *cxt, const char *cname) SV *sv; RLEN(len); - TRACEME(("retrieve_lvstring (#%d), len = %"IVdf, + TRACEME(("retrieve_lvstring (#%d), len = %" IVdf, cxt->tagnum, (IV)len)); New(10003, s, len+1, char); @@ -5104,7 +5117,7 @@ static SV *retrieve_lvstring(pTHX_ stcxt_t *cxt, const char *cname) Safefree(s); - TRACEME(("ok (retrieve_lvstring at 0x%"UVxf")", PTR2UV(sv))); + TRACEME(("ok (retrieve_lvstring at 0x%" UVxf ")", PTR2UV(sv))); return sv; #else VSTRING_CROAK(); @@ -5131,8 +5144,8 @@ static SV *retrieve_integer(pTHX_ stcxt_t *cxt, const char *cname) stash = cname ? gv_stashpv(cname, GV_ADD) : 0; SEEN_NN(sv, stash, 0); /* Associate this new scalar with tag "tagnum" */ - TRACEME(("integer %"IVdf, iv)); - TRACEME(("ok (retrieve_integer at 0x%"UVxf")", PTR2UV(sv))); + TRACEME(("integer %" IVdf, iv)); + TRACEME(("ok (retrieve_integer at 0x%" UVxf ")", PTR2UV(sv))); return sv; } @@ -5162,7 +5175,7 @@ static SV *retrieve_netint(pTHX_ stcxt_t *cxt, const char *cname) stash = cname ? gv_stashpv(cname, GV_ADD) : 0; SEEN_NN(sv, stash, 0); /* Associate this new scalar with tag "tagnum" */ - TRACEME(("ok (retrieve_netint at 0x%"UVxf")", PTR2UV(sv))); + TRACEME(("ok (retrieve_netint at 0x%" UVxf ")", PTR2UV(sv))); return sv; } @@ -5186,8 +5199,8 @@ static SV *retrieve_double(pTHX_ stcxt_t *cxt, const char *cname) stash = cname ? gv_stashpv(cname, GV_ADD) : 0; SEEN_NN(sv, stash, 0); /* Associate this new scalar with tag "tagnum" */ - TRACEME(("double %"NVff, nv)); - TRACEME(("ok (retrieve_double at 0x%"UVxf")", PTR2UV(sv))); + TRACEME(("double %" NVff, nv)); + TRACEME(("ok (retrieve_double at 0x%" UVxf ")", PTR2UV(sv))); return sv; } @@ -5215,7 +5228,7 @@ static SV *retrieve_byte(pTHX_ stcxt_t *cxt, const char *cname) SEEN_NN(sv, stash, 0); /* Associate this new scalar with tag "tagnum" */ TRACEME(("byte %d", tmp)); - TRACEME(("ok (retrieve_byte at 0x%"UVxf")", PTR2UV(sv))); + TRACEME(("ok (retrieve_byte at 0x%" UVxf ")", PTR2UV(sv))); return sv; } @@ -5368,7 +5381,7 @@ static SV *retrieve_array(pTHX_ stcxt_t *cxt, const char *cname) } if (seen_null) av_fill(av, len-1); - TRACEME(("ok (retrieve_array at 0x%"UVxf")", PTR2UV(av))); + TRACEME(("ok (retrieve_array at 0x%" UVxf ")", PTR2UV(av))); return (SV *) av; } @@ -5444,7 +5457,7 @@ static SV *retrieve_hash(pTHX_ stcxt_t *cxt, const char *cname) return (SV *) 0; } - TRACEME(("ok (retrieve_hash at 0x%"UVxf")", PTR2UV(hv))); + TRACEME(("ok (retrieve_hash at 0x%" UVxf ")", PTR2UV(hv))); return (SV *) hv; } @@ -5589,7 +5602,7 @@ static SV *retrieve_flag_hash(pTHX_ stcxt_t *cxt, const char *cname) SvREADONLY_on(hv); #endif **** PATCH TRUNCATED AT 2000 LINES -- 8285 NOT SHOWN **** -- Perl5 Master Repository
