[perl.git] branch tonyc/thread-deliver3, created. v5.19.8-231-gcd8dc5c
In perl.git, the branch tonyc/thread-deliver3 has been created http://perl5.git.perl.org/perl.git/commitdiff/cd8dc5c79366f2844335c6605d897222f82da55a?hp= at cd8dc5c79366f2844335c6605d897222f82da55a (commit) - Log - commit cd8dc5c79366f2844335c6605d897222f82da55a Author: Tony Cook t...@develop-help.com Date: Mon Feb 3 10:18:25 2014 +1100 [perl #120951] WIP fix/tests M ext/XS-APItest/APItest.xs M mg.c M t/op/magic_threads.t commit 2b4bf7d3df8c7d60b655a2efdf77882792273452 Author: Tony Cook t...@develop-help.com Date: Thu Jan 30 17:03:15 2014 +1100 WIP M MANIFEST M embedvar.h M ext/XS-APItest/APItest.pm M ext/XS-APItest/APItest.xs M intrpvar.h M makedef.pl M mg.c M perl.c M sv.c A t/op/magic_threads.t --- -- Perl5 Master Repository
[perl.git] branch blead, updated. v5.19.8-282-gf25474b
In perl.git, the branch blead has been updated http://perl5.git.perl.org/perl.git/commitdiff/f25474b0531878b277e2bd50a823ced1a3df6000?hp=3c075feabc1b777553a63a5a7d87ef482f2e3d49 - Log - commit f25474b0531878b277e2bd50a823ced1a3df6000 Author: Chris 'BinGOs' Williams ch...@bingosnet.co.uk Date: Mon Feb 3 13:14:02 2014 + Bump version version and remove/update customisations M Porting/Maintainers.pl M t/porting/customized.dat commit d2b110e6a5467455bc4a3d333ec4f1abc5383bd8 Author: John Peacock john.peac...@havurah-software.org Date: Mon Feb 3 07:48:57 2014 -0500 Sync bleadperl to version.pm 0.9908 Attached is a patch to bring blead up to date with the latest CPAN release of version.pm 0.9908. All tests pass (except the expected porting/customized.t). I'm hopeful that this will be the last update for a while. Thanks to Daniel Dragan for his insistent prodding to improve the code. ;-) Thanks John From c501530aa386a3ccbdb35bcccbccd35d70315651 Mon Sep 17 00:00:00 2001 From: John Peacock jpeac...@cpan.org Date: Sun, 2 Feb 2014 11:57:44 -0500 Subject: [PATCH] Update bleadperl to CPAN 0.9908 release Signed-off-by: Chris 'BinGOs' Williams ch...@bingosnet.co.uk M cpan/version/lib/version.pm M cpan/version/lib/version/regex.pm M cpan/version/lib/version/vpp.pm M cpan/version/t/00impl-pp.t M cpan/version/t/01base.t M cpan/version/t/02derived.t M cpan/version/t/03require.t M cpan/version/t/05sigdie.t M cpan/version/t/06noop.t M cpan/version/t/07locale.t M cpan/version/t/08_corelist.t M cpan/version/t/09_list_util.t M vutil.c --- Summary of changes: Porting/Maintainers.pl| 4 +- cpan/version/lib/version.pm | 2 +- cpan/version/lib/version/regex.pm | 2 +- cpan/version/lib/version/vpp.pm | 125 +++--- cpan/version/t/00impl-pp.t| 2 +- cpan/version/t/01base.t | 2 +- cpan/version/t/02derived.t| 2 +- cpan/version/t/03require.t| 2 +- cpan/version/t/05sigdie.t | 2 +- cpan/version/t/06noop.t | 2 +- cpan/version/t/07locale.t | 4 +- cpan/version/t/08_corelist.t | 2 +- cpan/version/t/09_list_util.t | 2 +- t/porting/customized.dat | 5 +- vutil.c | 5 ++ 15 files changed, 80 insertions(+), 83 deletions(-) diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl index 40bd9e7..201ec8a 100755 --- a/Porting/Maintainers.pl +++ b/Porting/Maintainers.pl @@ -1266,7 +1266,7 @@ use File::Glob qw(:case); }, 'version' = { -'DISTRIBUTION' = 'JPEACOCK/version-0.9907.tar.gz', +'DISTRIBUTION' = 'JPEACOCK/version-0.9908.tar.gz', 'FILES'= q[cpan/version vutil.c vutil.h vxs.inc], 'EXCLUDED' = [ qr{^vutil/lib/}, @@ -1281,8 +1281,6 @@ use File::Glob qw(:case); 'CUSTOMIZED' = [ qw( lib/version.pm ), -# Waiting to be merged upstream: see CPAN RT#92536 -'t/07locale.t', 'lib/version/vpp.pm', 'vutil.c' ], 'MAP' = { diff --git a/cpan/version/lib/version.pm b/cpan/version/lib/version.pm index 280c859..b337a90 100644 --- a/cpan/version/lib/version.pm +++ b/cpan/version/lib/version.pm @@ -6,7 +6,7 @@ use strict; use vars qw(@ISA $VERSION $CLASS $STRICT $LAX *declare *qv); -$VERSION = 0.9907; +$VERSION = 0.9908; $CLASS = 'version'; # avoid using Exporter diff --git a/cpan/version/lib/version/regex.pm b/cpan/version/lib/version/regex.pm index 1c8f6e1..f92c78b 100644 --- a/cpan/version/lib/version/regex.pm +++ b/cpan/version/lib/version/regex.pm @@ -4,7 +4,7 @@ use strict; use vars qw($VERSION $CLASS $STRICT $LAX); -$VERSION = 0.9907; +$VERSION = 0.9908; #--# # Version regexp components diff --git a/cpan/version/lib/version/vpp.pm b/cpan/version/lib/version/vpp.pm index 3ef1170..3ac3f13 100644 --- a/cpan/version/lib/version/vpp.pm +++ b/cpan/version/lib/version/vpp.pm @@ -122,7 +122,7 @@ use strict; use Config; use vars qw($VERSION $CLASS @ISA $LAX $STRICT); -$VERSION = 0.9907; +$VERSION = 0.9908; $CLASS = 'version::vpp'; require version::regex; @@ -634,78 +634,78 @@ sub scan_version { return $s; } -sub new -{ - my ($class, $value) = @_; - unless (defined $class) { - require Carp; - Carp::croak('Usage: version::new(class, version)'); - } - my $self = bless ({}, ref ($class) || $class); - my $qv = FALSE; - - if ( ref($value) eval('$value-isa(version)') ) { - # Can copy the elements directly - $self-{version} = [
[perl.git] branch blead, updated. v5.19.8-284-gb3a2acf
In perl.git, the branch blead has been updated http://perl5.git.perl.org/perl.git/commitdiff/b3a2acfa0c0e4f8e48e1f6eb4d6fd143f293d2c6?hp=f25474b0531878b277e2bd50a823ced1a3df6000 - Log - commit b3a2acfa0c0e4f8e48e1f6eb4d6fd143f293d2c6 Author: Yves Orton yves.or...@booking.com Date: Mon Feb 3 22:20:13 2014 +0800 deal with assignment to $/ better, deprecate edge cases, and forbid others The actual behavior of $/ under various settings and how it is documented varies quite a bit. Clarify the documentation, and add various checks that are validated when setting $/. The gist of the problem was that the way that weirdo ref assignments were handled was mostly broken: * setting to a reference to an array, hash, or other higher level construct would behave similarly to setting it to a reference to a an integer, by numifying the ref and using it as an integer. This behavior was entirely undocumented. * setting to a reference to 0 or to -1 was *documented* in triggering slurp behavior, but actually did not. Instead it would set the separator to the stringified form of the ref, which would *appear* as slurp behavior due to the unlikelihood of a file actually containing a string which matched, however was less efficient, and if someone's luck were *terrible* might actually behave as a split. In the future we wish to support more sophisticated ways of setting the input record separator, possibly supporting things like: $/= [ foo, bar ]; $/= qr/foo|bar/; Accordingly this patch *forbids* the use of a non scalar ref, and raises a fatal exception when one does so. Additionally it treats non-positive refs *exactly* the same as assigning undef, *including* ignoring the original value and setting $/ to undef. The means the implementation now matches the documentation. However since this might involve some crazy script changing in behavior (as one can't fetch back the original ref from $/) I have added a warning in category deprecated advising the user what has happened and recommending setting to undef explicitly. As far as I can tell this will only *break* code doing extremely dodgy things with $/. While putting together this patch I encountered numerous problems with porting tests. First off was porting/podcheck.t, which failed test without saying why or what to do, even under TEST_VERBOSE=1. Then when I did a regen to update the exceptions database and then used that information to try to fix the reported problems it seems that it does not work properly anyway. Specifically you aren't allowed to have a / in the interesting parts of a L reference. If you replace the / with an E0x2f then the link is valid POD, but podcheck.t then considers it a broken link. If you then replace the / in perdiag with E0x2f as well then porting/diag.t complains that you have an undocumented diagnostic! Accordingly I used the --regen option of podcheck.t to add exceptions to the exception database. I have no idea if the pod is correctly formatted or not. M MANIFEST M mg.c M pod/perldelta.pod M pod/perldiag.pod M pod/perlvar.pod M t/lib/warnings/9uninit A t/lib/warnings/irs M t/porting/known_pod_issues.dat commit ee273784a82417ff7a4ec06716556fb7fb705427 Author: Yves Orton yves.or...@booking.com Date: Sun Feb 2 23:37:37 2014 +0800 Add RXf_UNBOUNDED_QUANTIFIER and regexp-maxlen The flag tells us that a pattern may match an infinitely long string. The new member in the regexp struct tells us how long the string might be. With these two items we can implement regexp based $/ M regcomp.c M regcomp.h M regexp.h M regnodes.h --- Summary of changes: MANIFEST | 1 + mg.c | 16 ++-- pod/perldelta.pod | 26 +- pod/perldiag.pod | 24 pod/perlvar.pod| 7 ++- regcomp.c | 39 --- regcomp.h | 2 ++ regexp.h | 3 ++- regnodes.h | 2 +- t/lib/warnings/9uninit | 7 +++ t/lib/warnings/irs | 14 ++ t/porting/known_pod_issues.dat | 4 +++- 12 files changed, 127 insertions(+), 18 deletions(-) create mode 100644 t/lib/warnings/irs diff --git a/MANIFEST b/MANIFEST index e7d6b1d..f20141d 100644 --- a/MANIFEST +++ b/MANIFEST @@ -5023,6 +5023,7 @@ t/lib/warnings/doio Tests for doio.c for warnings.t t/lib/warnings/doopTests for doop.c
[perl.git] branch blead, updated. v5.19.8-285-g95f34b6
In perl.git, the branch blead has been updated http://perl5.git.perl.org/perl.git/commitdiff/95f34b6fc646073944e61496c615de11b8bca7da?hp=b3a2acfa0c0e4f8e48e1f6eb4d6fd143f293d2c6 - Log - commit 95f34b6fc646073944e61496c615de11b8bca7da Author: Karl Williamson pub...@khwilliamson.com Date: Mon Feb 3 11:52:24 2014 -0700 Fix [[:blank:]] handling when no isblank() on platform isblank() is a C99 construct, Perl tries to handle the use of this on C89 platforms by using the standard hard-coded definition. However, this code was not updated to account for UTF-8 locales when handling for those was recently added (31f05a37c), since in a UTF-8 locale the no-break space is also considered to be a blank. This commit fixes that. Previously regcomp.c generated the hard-coded definitions when there was no isblank(), using #ifdef'd code. That special handling was removed, and [:blank:] is always treated just like any other POSIX class. The specialness of it is hidden entirely in handy.h. This simplifies the regcomp.c code slightly. I considered removing the special handling for isascii(), also a C99 construct, in the name of simplicity over the slight speed that would be lost. But the special handling is only a single line in two places, so I left it in. --- Summary of changes: handy.h | 4 ++-- regcomp.c | 21 - 2 files changed, 2 insertions(+), 23 deletions(-) diff --git a/handy.h b/handy.h index 8815084..d695cf5 100644 --- a/handy.h +++ b/handy.h @@ -1325,8 +1325,8 @@ EXTCONST U32 PL_charclass[]; #if defined(HAS_ISBLANK) ! defined(USE_NEXT_CTYPE) # define isBLANK_LC(c) _generic_LC(c, _CC_BLANK, isblank) -#else -# define isBLANK_LC(c) isBLANK(c) +#else /* Unlike isASCII, varies if in a UTF-8 locale */ +# define isBLANK_LC(c) (IN_UTF8_CTYPE_LOCALE) ? isBLANK_L1(c) : isBLANK(c) #endif #ifdef USE_NEXT_CTYPE /* NeXT computers */ diff --git a/regcomp.c b/regcomp.c index 8246497..92e3ef4 100644 --- a/regcomp.c +++ b/regcomp.c @@ -13682,9 +13682,6 @@ parseit: #ifndef HAS_ISASCII classnum != _CC_ASCII #endif -#ifndef HAS_ISBLANK - classnum != _CC_BLANK -#endif ) { /* See if it already matches the complement of this POSIX @@ -13768,16 +13765,6 @@ parseit: ? posixes : nposixes; SV** source_ptr = PL_XPosix_ptrs[classnum]; -#ifndef HAS_ISBLANK -/* If the platform doesn't have isblank(), we handle locale - * with the hardcoded ASII values. */ -if (LOC classnum == _CC_BLANK) { -_invlist_subtract(*source_ptr, - PL_UpperLatin1, - source_ptr); -} -#endif - _invlist_union_maybe_complement_2nd( *posixes_ptr, *source_ptr, @@ -14145,14 +14132,6 @@ parseit: if (op POSIXA) { /* /aa is same as /a */ op = POSIXA; } -#ifndef HAS_ISBLANK -if (op == POSIXL - (namedclass == ANYOF_BLANK -|| namedclass == ANYOF_NBLANK)) -{ -op = POSIXA; -} -#endif join_posix: /* The odd numbered ones are the complements of the -- Perl5 Master Repository
[perl.git] branch blead, updated. v5.19.8-286-ga69492f
In perl.git, the branch blead has been updated http://perl5.git.perl.org/perl.git/commitdiff/a69492f5afa4bfb964605fd3f43c40392775c759?hp=95f34b6fc646073944e61496c615de11b8bca7da - Log - commit a69492f5afa4bfb964605fd3f43c40392775c759 Author: Chris 'BinGOs' Williams ch...@bingosnet.co.uk Date: Mon Feb 3 20:35:24 2014 + Update Compress-Raw-Zlib to CPAN version 2.065 [DELTA] 2.065 3 February 2014 * [PATCH] resolve c++ build failure in core [#92657] * gcc -g3: final link failed: Memory exhausted [#88936] --- Summary of changes: Porting/Maintainers.pl | 4 +--- cpan/Compress-Raw-Zlib/Makefile.PL | 4 ++-- cpan/Compress-Raw-Zlib/Zlib.xs | 2 +- cpan/Compress-Raw-Zlib/lib/Compress/Raw/Zlib.pm | 2 +- t/porting/customized.dat| 1 - 5 files changed, 5 insertions(+), 8 deletions(-) diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl index 201ec8a..87821f6 100755 --- a/Porting/Maintainers.pl +++ b/Porting/Maintainers.pl @@ -220,7 +220,7 @@ use File::Glob qw(:case); }, 'Compress::Raw::Zlib' = { -'DISTRIBUTION' = 'PMQS/Compress-Raw-Zlib-2.064.tar.gz', +'DISTRIBUTION' = 'PMQS/Compress-Raw-Zlib-2.065.tar.gz', 'FILES'= q[cpan/Compress-Raw-Zlib], 'EXCLUDED' = [ @@ -230,8 +230,6 @@ use File::Glob qw(:case); t/99pod.t ), ], -# Waiting to be merged upstream; see CPAN RT#92657 -'CUSTOMIZED' = ['Zlib.xs'], }, 'Config::Perl::V' = { diff --git a/cpan/Compress-Raw-Zlib/Makefile.PL b/cpan/Compress-Raw-Zlib/Makefile.PL index aba7abc..015c1d9 100644 --- a/cpan/Compress-Raw-Zlib/Makefile.PL +++ b/cpan/Compress-Raw-Zlib/Makefile.PL @@ -16,8 +16,8 @@ my $WALL = '' ; my $GZIP_OS_CODE = -1 ; my $USE_PPPORT_H = ($ENV{PERL_CORE}) ? '' : '-DUSE_PPPORT_H'; my $OPTIMIZE = $Config{'optimize'}; -if ($Config{'gccversion'} and $OPTIMIZE =~ /-g3/) { - $OPTIMIZE =~ s/-g3/-g/; # [88936] out of memory with -g3 since 2.062 +if ($Config{'gccversion'} and $OPTIMIZE =~ /-g (gdb)? 3/x) { + $OPTIMIZE =~ s/-g(gdb)?3/-g/g; # [88936] out of memory with -g3 since 2.062 } #$WALL = ' -pedantic ' if $Config{'cc'} =~ /gcc/ ; diff --git a/cpan/Compress-Raw-Zlib/Zlib.xs b/cpan/Compress-Raw-Zlib/Zlib.xs index e1f2a1f..46d4af3 100644 --- a/cpan/Compress-Raw-Zlib/Zlib.xs +++ b/cpan/Compress-Raw-Zlib/Zlib.xs @@ -1450,7 +1450,7 @@ Perl_sv_dump(output); */ if (RETVAL == Z_NEED_DICT s-dictionary) { STRLEN dlen; -const Bytef* b = (Bytef*) SvPV(s-dictionary, dlen) ; +const Bytef* b = (const Bytef*)SvPV(s-dictionary, dlen) ; s-dict_adler = s-stream.adler ; RETVAL = inflateSetDictionary((s-stream), b, dlen); diff --git a/cpan/Compress-Raw-Zlib/lib/Compress/Raw/Zlib.pm b/cpan/Compress-Raw-Zlib/lib/Compress/Raw/Zlib.pm index 11d12bc..ae71128 100644 --- a/cpan/Compress-Raw-Zlib/lib/Compress/Raw/Zlib.pm +++ b/cpan/Compress-Raw-Zlib/lib/Compress/Raw/Zlib.pm @@ -10,7 +10,7 @@ use warnings ; use bytes ; our ($VERSION, $XS_VERSION, @ISA, @EXPORT, %EXPORT_TAGS, @EXPORT_OK, $AUTOLOAD, %DEFLATE_CONSTANTS, @DEFLATE_CONSTANTS); -$VERSION = '2.064'; +$VERSION = '2.065'; $XS_VERSION = $VERSION; $VERSION = eval $VERSION; diff --git a/t/porting/customized.dat b/t/porting/customized.dat index 3e699df..24639b0 100644 --- a/t/porting/customized.dat +++ b/t/porting/customized.dat @@ -1,4 +1,3 @@ -Compress::Raw::Zlib cpan/Compress-Raw-Zlib/Zlib.xs 6659d36455ef430e06a9e6344d4b68b91e71f9ed Config::Perl::V cpan/Config-Perl-V/t/20_plv510.t 7263a40dcbaf1ee447f0209d3bbc029cc747c959 Config::Perl::V cpan/Config-Perl-V/t/21_plv518.t ec23f4e34fb2f84f63f5588ad4a577530dbef5d2 Digest::MD5 cpan/Digest-MD5/t/files.t bdbe05b705d9da305fedce7a9f4b6ba63250c7cf -- Perl5 Master Repository
[perl.git] branch blead, updated. v5.19.8-288-gdec9891
In perl.git, the branch blead has been updated http://perl5.git.perl.org/perl.git/commitdiff/dec989164ab5a3f1af3d20f8022e5a0d04964726?hp=a69492f5afa4bfb964605fd3f43c40392775c759 - Log - commit dec989164ab5a3f1af3d20f8022e5a0d04964726 Author: Brian Fraser frase...@gmail.com Date: Mon Feb 3 21:36:31 2014 +0100 DynaLoader: On android, dl_load_flags should always be 0x00 The linker ignores all the flags and works as if under RTLD_LOCAL, so don't give users the headache of seeing warnings ala Can't make loaded symbols global on this platform while loading %s when using a module that subclasses DynaLoader and defines dl_load_flags to anything else. M ext/DynaLoader/DynaLoader_pm.PL commit 0f8fd466a1b5d27fb08d8f768083393f9c3d3ffb Author: Brian Fraser frase...@gmail.com Date: Mon Feb 3 21:22:58 2014 +0100 CBuilder, link: On Android, always return absolute paths to libraries Several modules on CPAN expect being able to pass the library name returned by -link to DynaLoader::dl_load_file and have it Just Work. However, because -link returns relative paths, those modules ran afoul of Android's linker, which will only look in a handful of hardcoded system directories for relative libraries, plus whatever LD_LIBRARY_PATH pointed to at the start of execution. This commit makes -link on Android always return an absolute path, which will be found by the linker. M dist/ExtUtils-CBuilder/lib/ExtUtils/CBuilder.pm M dist/ExtUtils-CBuilder/lib/ExtUtils/CBuilder/Base.pm M dist/ExtUtils-CBuilder/lib/ExtUtils/CBuilder/Platform/Unix.pm M dist/ExtUtils-CBuilder/lib/ExtUtils/CBuilder/Platform/VMS.pm M dist/ExtUtils-CBuilder/lib/ExtUtils/CBuilder/Platform/Windows.pm M dist/ExtUtils-CBuilder/lib/ExtUtils/CBuilder/Platform/Windows/BCC.pm M dist/ExtUtils-CBuilder/lib/ExtUtils/CBuilder/Platform/Windows/GCC.pm M dist/ExtUtils-CBuilder/lib/ExtUtils/CBuilder/Platform/Windows/MSVC.pm M dist/ExtUtils-CBuilder/lib/ExtUtils/CBuilder/Platform/aix.pm M dist/ExtUtils-CBuilder/lib/ExtUtils/CBuilder/Platform/android.pm M dist/ExtUtils-CBuilder/lib/ExtUtils/CBuilder/Platform/cygwin.pm M dist/ExtUtils-CBuilder/lib/ExtUtils/CBuilder/Platform/darwin.pm M dist/ExtUtils-CBuilder/lib/ExtUtils/CBuilder/Platform/dec_osf.pm M dist/ExtUtils-CBuilder/lib/ExtUtils/CBuilder/Platform/os2.pm --- Summary of changes: dist/ExtUtils-CBuilder/lib/ExtUtils/CBuilder.pm| 2 +- dist/ExtUtils-CBuilder/lib/ExtUtils/CBuilder/Base.pm | 2 +- .../lib/ExtUtils/CBuilder/Platform/Unix.pm | 2 +- .../lib/ExtUtils/CBuilder/Platform/VMS.pm | 2 +- .../lib/ExtUtils/CBuilder/Platform/Windows.pm | 2 +- .../lib/ExtUtils/CBuilder/Platform/Windows/BCC.pm | 2 +- .../lib/ExtUtils/CBuilder/Platform/Windows/GCC.pm | 2 +- .../lib/ExtUtils/CBuilder/Platform/Windows/MSVC.pm | 2 +- .../lib/ExtUtils/CBuilder/Platform/aix.pm | 2 +- .../lib/ExtUtils/CBuilder/Platform/android.pm | 14 -- .../lib/ExtUtils/CBuilder/Platform/cygwin.pm | 2 +- .../lib/ExtUtils/CBuilder/Platform/darwin.pm | 2 +- .../lib/ExtUtils/CBuilder/Platform/dec_osf.pm | 2 +- .../lib/ExtUtils/CBuilder/Platform/os2.pm | 2 +- ext/DynaLoader/DynaLoader_pm.PL| 10 -- 15 files changed, 33 insertions(+), 17 deletions(-) diff --git a/dist/ExtUtils-CBuilder/lib/ExtUtils/CBuilder.pm b/dist/ExtUtils-CBuilder/lib/ExtUtils/CBuilder.pm index dffec01..1f66c93 100644 --- a/dist/ExtUtils-CBuilder/lib/ExtUtils/CBuilder.pm +++ b/dist/ExtUtils-CBuilder/lib/ExtUtils/CBuilder.pm @@ -6,7 +6,7 @@ use File::Basename (); use Perl::OSType qw/os_type/; use vars qw($VERSION @ISA); -$VERSION = '0.280214'; +$VERSION = '0.280215'; $VERSION = eval $VERSION; # We only use this once - don't waste a symbol table entry on it. diff --git a/dist/ExtUtils-CBuilder/lib/ExtUtils/CBuilder/Base.pm b/dist/ExtUtils-CBuilder/lib/ExtUtils/CBuilder/Base.pm index 13a1298..c7b1a10 100644 --- a/dist/ExtUtils-CBuilder/lib/ExtUtils/CBuilder/Base.pm +++ b/dist/ExtUtils-CBuilder/lib/ExtUtils/CBuilder/Base.pm @@ -10,7 +10,7 @@ use IPC::Cmd qw(can_run); use File::Temp qw(tempfile); use vars qw($VERSION); -$VERSION = '0.280214'; +$VERSION = '0.280215'; # More details about C/C++ compilers: # http://developers.sun.com/sunstudio/documentation/product/compiler.jsp diff --git a/dist/ExtUtils-CBuilder/lib/ExtUtils/CBuilder/Platform/Unix.pm b/dist/ExtUtils-CBuilder/lib/ExtUtils/CBuilder/Platform/Unix.pm index b287694..2dab172 100644 --- a/dist/ExtUtils-CBuilder/lib/ExtUtils/CBuilder/Platform/Unix.pm +++
[perl.git] branch blead, updated. v5.19.8-290-gaf1f7e2
In perl.git, the branch blead has been updated http://perl5.git.perl.org/perl.git/commitdiff/af1f7e283108d440048b37ea8707071df065b30e?hp=299a4f3d8b56bad43638e3c54205c35edcc1b21c - Log - commit af1f7e283108d440048b37ea8707071df065b30e Author: Tony Cook t...@develop-help.com Date: Wed Jan 22 15:14:59 2014 +1100 [perl #121028] avoid creating a shell process --- Summary of changes: t/io/closepid.t | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/t/io/closepid.t b/t/io/closepid.t index aa937f5..a90db68 100644 --- a/t/io/closepid.t +++ b/t/io/closepid.t @@ -16,10 +16,11 @@ watchdog(10, $^O eq 'MSWin32' ? alarm : ''); use Config; $| = 1; $SIG{PIPE} = 'IGNORE'; +# work around a shell set to ignore HUP +$SIG{HUP} = 'DEFAULT'; $SIG{HUP} = 'IGNORE' if $^O eq 'interix'; my $perl = which_perl(); -$perl .= qq[ -I../lib]; my $killsig = 'HUP'; $killsig = 1 unless $Config{sig_name} =~ /\bHUP\b/; @@ -34,7 +35,7 @@ SKIP: # close on the original of a popen handle dupped to a standard handle # would wait4pid(0, ...) open my $savein, , \*STDIN; -my $pid = open my $fh1, qq/$perl -e sleep 50 |/; +my $pid = open my $fh1, -|, $perl, -e, sleep 50; ok($pid, open a pipe); # at this point PL_fdpids[fileno($fh1)] is the pid of the new process ok(open(STDIN, =, $fh1), dup the pipe); -- Perl5 Master Repository
[perl.git] branch blead, updated. v5.19.8-291-ga27b5f5
In perl.git, the branch blead has been updated http://perl5.git.perl.org/perl.git/commitdiff/a27b5f526fbceff0f6c58160999a5830b3385915?hp=af1f7e283108d440048b37ea8707071df065b30e - Log - commit a27b5f526fbceff0f6c58160999a5830b3385915 Author: Chris 'BinGOs' Williams ch...@bingosnet.co.uk Date: Mon Feb 3 23:11:20 2014 + Module-CoreList prepared for v5.19.9 --- Summary of changes: dist/Module-CoreList/Changes | 3 +++ dist/Module-CoreList/lib/Module/CoreList.pm| 27 +- dist/Module-CoreList/lib/Module/CoreList.pod | 2 +- .../lib/Module/CoreList/TieHashDelta.pm| 2 +- dist/Module-CoreList/lib/Module/CoreList/Utils.pm | 9 +++- 5 files changed, 39 insertions(+), 4 deletions(-) diff --git a/dist/Module-CoreList/Changes b/dist/Module-CoreList/Changes index b17181f..4454ac4 100644 --- a/dist/Module-CoreList/Changes +++ b/dist/Module-CoreList/Changes @@ -1,3 +1,6 @@ +3.05 + - Prepared for v5.19.9 + 3.04 - Prepared for v5.19.8 diff --git a/dist/Module-CoreList/lib/Module/CoreList.pm b/dist/Module-CoreList/lib/Module/CoreList.pm index f10d837..2b0993c 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 Module::CoreList::TieHashDelta; -$VERSION = '3.04'; +$VERSION = '3.05'; my $dumpinc = 0; sub import { @@ -244,6 +244,7 @@ sub changes_between { 5.019007 = '2013-12-20', 5.018002 = '2014-01-06', 5.019008 = '2014-01-20', +5.019009 = '-??-??', ); for my $version ( sort { $a = $b } keys %released ) { @@ -9380,6 +9381,17 @@ for my $version ( sort { $a = $b } keys %released ) { removed = { } }, +5.019009 = { +delta_from = 5.019008, +changed = { +'Config'= '5.019009', +'Module::CoreList' = '3.05', +'Module::CoreList::TieHashDelta'= '3.05', +'Module::CoreList::Utils'= '3.05', +}, +removed = { +} +}, ); sub is_core @@ -9753,6 +9765,13 @@ for my $version (sort { $a = $b } keys %delta) { removed = { } }, +5.019009 = { +delta_from = 5.019008, +changed = { +}, +removed = { +} +}, ); for my $version (sort { $a = $b } keys %deprecated) { @@ -10167,6 +10186,9 @@ for my $version (sort { $a = $b } keys %deprecated) { 'inc::latest' = 'cpan', 'parent'= 'cpan', 'perlfaq' = 'cpan', +'version' = 'cpan', +'version::regex'= 'cpan', +'version::vpp' = 'cpan', ); %bug_tracker = ( @@ -10571,6 +10593,9 @@ for my $version (sort { $a = $b } keys %deprecated) { 'inc::latest' = undef, 'parent'= undef, 'perlfaq' = 'https://github.com/perl-doc-cats/perlfaq/issues', +'version' = undef, +'version::regex'= undef, +'version::vpp' = undef, ); # Create aliases with trailing zeros for $] use diff --git a/dist/Module-CoreList/lib/Module/CoreList.pod b/dist/Module-CoreList/lib/Module/CoreList.pod index a5c781b..17b5f84 100644 --- a/dist/Module-CoreList/lib/Module/CoreList.pod +++ b/dist/Module-CoreList/lib/Module/CoreList.pod @@ -228,7 +228,7 @@ Module::CoreList currently covers the 5.000, 5.001, 5.002, 5.003_07, 5.15.0, 5.15.1, 5.15.2, 5.15.3, 5.15.4, 5.15.5, 5.15.6, 5.15.7, 5.15.8, 5.15.9, 5.16.0, 5.16.1, 5.16.2, 5.16.3, 5.17.0, 5.17.1, 5.17.2, 5.17.3, 5.17.4, 5.17.5, 5.17.6, 5.17.7, 5.17.8, 5.17.9, 5.17.10, 5.17.11, 5.18.0, -5.19.0, 5.19.1, 5.19.2, 5.19.3, 5.19.4, 5.19.5, 5.19.6, 5.19.7 and 5.19.8 releases of perl. +5.19.0, 5.19.1, 5.19.2, 5.19.3, 5.19.4, 5.19.5, 5.19.6, 5.19.7, 5.19.8 and 5.19.9 releases of perl. =head1 HISTORY diff --git a/dist/Module-CoreList/lib/Module/CoreList/TieHashDelta.pm b/dist/Module-CoreList/lib/Module/CoreList/TieHashDelta.pm index 0e45337..3c2650b 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 = 3.04; +$VERSION = 3.05; 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 2b041c0..94a4975 100644 --- a/dist/Module-CoreList/lib/Module/CoreList/Utils.pm +++ b/dist/Module-CoreList/lib/Module/CoreList/Utils.pm @@ -6,7 +6,7 @@ use vars qw[$VERSION %utilities]; use Module::CoreList; use Module::CoreList::TieHashDelta; -$VERSION =
[perl.git] branch blead, updated. v5.19.8-294-g6901400
In perl.git, the branch blead has been updated http://perl5.git.perl.org/perl.git/commitdiff/690140045b6a80981ca64b0ea62f68c2035574f1?hp=a27b5f526fbceff0f6c58160999a5830b3385915 - Log - commit 690140045b6a80981ca64b0ea62f68c2035574f1 Author: Karl Williamson pub...@khwilliamson.com Date: Mon Feb 3 19:12:16 2014 -0700 Add -DL option to trace setlocale calls This will help field debugging of locale issues. M locale.c M perl.c M perl.h M pod/perldelta.pod commit 240a4b1129a0b1ee7eab430e28c7bd4f7486938a Author: Karl Williamson pub...@khwilliamson.com Date: Mon Feb 3 19:52:54 2014 -0700 Revert Fix handy.t for systems without $Config{d_isblank}. This reverts commit d61570b1bbf3e2d76cc293690156fb361b054272. This commit was made unnecessary by commit 3f9a3488327f59f53c00adc132d91f19840e2a50. M ext/XS-APItest/t/handy.t commit b8df125dc88244864ce3bf7ad4879ff00476bc41 Author: Karl Williamson pub...@khwilliamson.com Date: Mon Feb 3 12:18:38 2014 -0700 Regenerate podcheck db due to recent 79col fixes Commits 51b4c035919497f474ce46dcbdac1d2f3fd18a84 and 02257115537194d7a3b36a956d5643069f78c54f fixed some too-long verbatim line issues. I'm not sure why commit b3a2acfa0c0e4f8e48e1f6eb4d6fd143f293d2c6 added them to the db, as they were fixed before it was applied. My guess is that the workspace had not been rebased recently enough. M t/porting/known_pod_issues.dat --- Summary of changes: ext/XS-APItest/t/handy.t | 14 - locale.c | 64 ++ perl.c | 3 +- perl.h | 8 +- pod/perldelta.pod | 5 t/porting/known_pod_issues.dat | 2 -- 6 files changed, 78 insertions(+), 18 deletions(-) diff --git a/ext/XS-APItest/t/handy.t b/ext/XS-APItest/t/handy.t index b869ddb..41f5c7f 100644 --- a/ext/XS-APItest/t/handy.t +++ b/ext/XS-APItest/t/handy.t @@ -40,8 +40,6 @@ if($Config{d_setlocale}) { $utf8_locale = find_utf8_locale(); } } -my $has_isblank = $Config{d_isblank}; # has C99, locale-specific blank checking - my %properties = ( # name = Lookup-property name @@ -179,13 +177,9 @@ foreach my $name (sort keys %properties) { } else { - TODO: { # UTF-8 locale works on full range 0-255 -local $TODO = 'locale-specific isblank not available' -unless $has_isblank || $function ne 'BLANK' || $char_name ne 'NO-BREAK SPACE'; my $truth = truth($matches $i 256); is ($ret, $truth, is${function}_LC( $display_name ) == $truth ($utf8_locale)); - } } } } @@ -221,12 +215,8 @@ foreach my $name (sort keys %properties) { fail($@); } else { - TODO: { -local $TODO = 'locale-specific isblank not available' -unless $has_isblank || $function ne 'BLANK' || $char_name ne 'NO-BREAK SPACE'; my $truth = truth($matches); is ($ret, $truth, is${function}_LC_uvchr( $display_name ) == $truth ($utf8_locale)); - } } } @@ -264,12 +254,8 @@ foreach my $name (sort keys %properties) { fail($@); } else { - TODO: { -local $TODO = 'locale-specific isblank not available' -unless $has_isblank || $function ne 'BLANK' || $char_name ne 'NO-BREAK SPACE'; my $truth = truth($matches); is ($ret, $truth, is${function}_LC_utf8( $display_name ) == $truth ($utf8_locale)); - } } } } diff --git a/locale.c b/locale.c index 5144d8a..8190476 100644 --- a/locale.c +++ b/locale.c @@ -117,6 +117,12 @@ Perl_set_numeric_radix(pTHX) } else PL_numeric_radix_sv = NULL; + +DEBUG_L(PerlIO_printf(Perl_debug_log, Locale radix is %s\n, + (PL_numeric_radix_sv) + ? lc-decimal_point + : NULL)); + # endif /* HAS_LOCALECONV */ #endif /* USE_LOCALE_NUMERIC */ } @@ -195,6 +201,8 @@ Perl_set_numeric_standard(pTHX) PL_numeric_local = FALSE; set_numeric_radix(); } +DEBUG_L(PerlIO_printf(Perl_debug_log, + Underlying LC_NUMERIC locale now is C\n)); #endif /* USE_LOCALE_NUMERIC */ } @@ -215,6 +223,9 @@ Perl_set_numeric_local(pTHX) PL_numeric_local = TRUE; set_numeric_radix(); } +DEBUG_L(PerlIO_printf(Perl_debug_log, +