[perl.git] branch smoke-me/tonyc/thread-deliver, deleted. v5.21.1-171-gc31bd82
In perl.git, the branch smoke-me/tonyc/thread-deliver has been deleted http://perl5.git.perl.org/perl.git/commitdiff/?hp=c31bd822179cc7eca9e920335ed0faed06f5a29b was c31bd822179cc7eca9e920335ed0faed06f5a29b --- c31bd822179cc7eca9e920335ed0faed06f5a29b [perl #81074] signals to the main thread if the child doesn't request them --- -- Perl5 Master Repository
[perl.git] branch smoke-me/tonyc/thread-deliver, created. v5.21.2-43-g84919f3
In perl.git, the branch smoke-me/tonyc/thread-deliver has been created http://perl5.git.perl.org/perl.git/commitdiff/84919f31231c70c221bb3246f14edd425e2b82bc?hp= at 84919f31231c70c221bb3246f14edd425e2b82bc (commit) - Log - commit 84919f31231c70c221bb3246f14edd425e2b82bc Author: Tony Cook t...@develop-help.com Date: Tue Jun 24 11:30:59 2014 +1000 [perl #81074] signals to the main thread if the child doesn't request them Also fixes [perl #120951] so that signal handlers called outside of a perl thread are marked via the safe signals mechanism to be delivered to the main thread. These changes fix the following circumstances: - the operating system delivers a signal sent to a process to a child thread instead of the main thread when only the main thread has a signal handler set. Linux preferably sends signals to the main thread, but can send them to a child thread instead if the main thread is busy. Previously perl would attempt to deliver the signal to the child, now it delivers the signal to the main thread unless the child has set a handler. [perl #81074] - a signal is received in the context of a child thread created outside of perl itself (eg. by Gtk). Previously perl would crash. [perl #120951] While testing this update I found in a bug in NetBSD, which doesn't always initialize thread specific storage to NULL, see: http://gnats.netbsd.org/cgi-bin/query-pr-single.pl?number=49006 --- -- Perl5 Master Repository
[perl.git] branch maint-5.20, updated. v5.20.0-78-g879f346
In perl.git, the branch maint-5.20 has been updated http://perl5.git.perl.org/perl.git/commitdiff/879f34634bf378b83723973922fab2ce47f3eae8?hp=9161f54e0c8f08b12c147551d0037757a3f5c171 - Log - commit 879f34634bf378b83723973922fab2ce47f3eae8 Author: Alexandr Ciornii alexcho...@gmail.com Date: Sun Mar 16 14:12:42 2014 +0200 File::Copy does not overwrite read-only files (cherry picked from commit ed9113faaa67f462b522e2da6b13ae131fea4cee) M lib/File/Copy.pm commit ec6f0dae444dc1ffbb9c0226f054ca39629db00b Author: Abigail abig...@abigail.be Date: Sun Jul 20 04:08:08 2014 +0200 Add new release to perlhist (cherry picked from commit 0f824be90600ec3504034b0173fa6b67f3a4d4e8) M pod/perlhist.pod commit 7a27bfa8d2020234e5c93848580982a59d367bff Author: Matthew Horsfall (alh) wolfs...@gmail.com Date: Fri Jun 20 08:21:52 2014 -0400 Add new release to perlhist (cherry picked from commit 62406c838c92e5d5cbf29c4f06850350380f4ef5) M pod/perlhist.pod commit b6cfdd2f63ecabaa8f87c7fb762d41b6893ca304 Author: Karl Williamson k...@cpan.org Date: Tue Jul 15 16:05:12 2014 -0600 perlop: Grammatical nit. 'either' refers only to one of two possibilities. Since this has more than that, 'either' is grammatically incorrect. (cherry picked from commit 5cc4165376630d8930e99d7864bd63d1e70853f5) M pod/perlop.pod commit c72263e8234d19fd95ff7c4a8319c7842bd338fa Author: Jarkko Hietaniemi j...@iki.fi Date: Sun Jul 20 09:10:27 2014 -0400 Warn against tmpfile, and mention perlclib. (cherry picked from commit bbc89b61fda2c0d03d0a57a32abcf992fcf30e99) M pod/perlhacktips.pod commit 3044a27083cf2c3fb2f46e4d9069e105afe05610 Author: Steve Hay steve.m@googlemail.com Date: Fri Jul 18 15:59:34 2014 +0100 perlpolicy - Add encoding to fix podcheck.t following 0c6082f411 (cherry picked from commit 3db23aeceed93497d1456928f0d3561a32f74a02) M pod/perlpolicy.pod commit 61ffe883ad7f413cf053a55951a11a2b278035d8 Author: Ricardo Signes r...@cpan.org Date: Fri Jul 18 09:03:52 2014 -0400 perlpolicy: update list of moderators (cherry picked from commit 0c6082f4114551048a119c8b2c9dc455bd071751) M pod/perlpolicy.pod commit 5ed0ed6c7ed63d9435027575564197eb4d4234c7 Author: Steve Hay steve.m@googlemail.com Date: Fri Jul 18 08:36:15 2014 +0100 perlpolicy - Note that minimal build fixes are acceptable for maint too Changes like 31114fe991, which has just been cherry-picked into maint-5.20, should be allowed. (cherry picked from commit bd21af11d4fd039660674aa5eb68a654ff6c) M pod/perlpolicy.pod commit 5e8d6835e0e478ec55b5fd560e622f84453ad204 Author: Ricardo Signes r...@cpan.org Date: Mon Jul 7 13:58:26 2014 -0400 add the standards of conduct to perlpolicy (cherry picked from commit 17c80487b48847f88d152c5ea537f4fd68291fb3) M pod/perlpolicy.pod commit a73e22d974791ce107af95ea855de35c3bd9a0a3 Author: Aaron Crane a...@cpan.org Date: Sat Jul 5 01:53:57 2014 +0100 pod/perlre.pod: fix typo in example code (cherry picked from commit 22dc67195d1219cb0c80b695155d55bcfafa1551) M pod/perlre.pod commit 42f378b7e2153a05106bec6b6a546270506b4619 Author: Karl Williamson k...@cpan.org Date: Mon May 19 16:36:33 2014 -0600 perlre: Clarify /x eol can't be escaped (cherry picked from commit 8be3c4ca13376174c7c23f3a85d05cb2920d9170) M pod/perlre.pod --- Summary of changes: lib/File/Copy.pm | 3 ++- pod/perlhacktips.pod | 7 +++ pod/perlhist.pod | 4 +++- pod/perlop.pod | 2 +- pod/perlpolicy.pod | 47 ++- pod/perlre.pod | 4 +++- 6 files changed, 58 insertions(+), 9 deletions(-) diff --git a/lib/File/Copy.pm b/lib/File/Copy.pm index a20a964..95fb4e1 100644 --- a/lib/File/Copy.pm +++ b/lib/File/Copy.pm @@ -22,7 +22,7 @@ sub syscopy; sub cp; sub mv; -$VERSION = '2.29'; +$VERSION = '2.30'; require Exporter; @ISA = qw(Exporter); @@ -370,6 +370,7 @@ written to. If the second argument does not exist but the parent directory does exist, then it will be created. Trying to copy a file into a non-existent directory is an error. Trying to copy a file on top of itself is also an error. +Ccopy will not overwrite read-only files. If the destination (second argument) already exists and is a directory, and the source (first argument) is not a filehandle, then the source diff --git a/pod/perlhacktips.pod b/pod/perlhacktips.pod index 2f19c04..f2f2e6c 100644 --- a/pod/perlhacktips.pod +++ b/pod/perlhacktips.pod @@ -581,6 +581,7 @@ snprintf() - the return type is unportable. Use my_snprintf() instead. =head2 Security problems Last but not least, here are various tips for safer coding. +See also
[perl.git] branch blead, updated. v5.21.2-43-g4ba3add
In perl.git, the branch blead has been updated http://perl5.git.perl.org/perl.git/commitdiff/4ba3adde25c4edf2e470f13677632b6d2f9e2fcd?hp=d62b8c6ab04885d004d4a52686f68518d49a3604 - Log - commit 4ba3adde25c4edf2e470f13677632b6d2f9e2fcd Author: Rafael Garcia-Suarez r...@consttype.org Date: Thu Jul 24 13:26:10 2014 +0200 Remove flagging OP_READLINE with OPf_SPECIAL This was used to distinguish forms FILE from $file, but doesn't seem to be used anymore by anything. --- Summary of changes: op.h | 1 - toke.c | 2 -- 2 files changed, 3 deletions(-) diff --git a/op.h b/op.h index 9f94caf..c76f37d 100644 --- a/op.h +++ b/op.h @@ -114,7 +114,6 @@ Deprecated. Use CGIMME_V instead. /* On OP_(ENTER|LEAVE)EVAL, don't clear $@ */ /* On pushre, rx is used as part of split, e.g. split */ /* On regcomp, use re 'eval' was in scope */ - /* On OP_READLINE, was $filehandle */ /* On RV2[ACGHS]V, don't create GV--in defined()*/ /* On OP_DBSTATE, indicates breakpoint diff --git a/toke.c b/toke.c index cb379ef..745a451 100644 --- a/toke.c +++ b/toke.c @@ -9374,8 +9374,6 @@ intro_sym: newUNOP(OP_RV2SV, 0, newGVOP(OP_GV, 0, gv))); } - if (!readline_overriden) - PL_lex_op-op_flags |= OPf_SPECIAL; /* we created the ops in PL_lex_op, so make pl_yylval.ival a null op */ pl_yylval.ival = OP_NULL; } -- Perl5 Master Repository
[perl.git] branch blead, updated. v5.21.2-45-g945b524
In perl.git, the branch blead has been updated
http://perl5.git.perl.org/perl.git/commitdiff/945b524a8cdacbf82557d751252e6546f48d21ae?hp=4ba3adde25c4edf2e470f13677632b6d2f9e2fcd
- Log -
commit 945b524a8cdacbf82557d751252e6546f48d21ae
Author: Jarkko Hietaniemi j...@iki.fi
Date: Wed Jul 23 22:32:45 2014 -0400
Share common constants as file statics.
M numeric.c
commit 75feedba47600d94d18d49dbcbdf46393b6c6cc5
Author: Jarkko Hietaniemi j...@iki.fi
Date: Wed Jul 23 10:38:50 2014 -0400
Use UV instead of Size_t.
A strong reason for using UV are the promised custom codepoints,
they go beyond 32-bit.
The overflow logic didn't work if Size_t was 32-bit but the UV was 64-bit.
Steal the battle-proven logic from grok_number_flags().
The numeric.xs or grok.t were not right in 32-bit, either.
Add comments.
M embed.fnc
M ext/XS-APItest/numeric.xs
M ext/XS-APItest/t/grok.t
M numeric.c
M proto.h
---
Summary of changes:
embed.fnc | 2 +-
ext/XS-APItest/numeric.xs | 6 -
ext/XS-APItest/t/grok.t | 44 +-
numeric.c | 68 +--
proto.h | 2 +-
5 files changed, 75 insertions(+), 47 deletions(-)
diff --git a/embed.fnc b/embed.fnc
index d02e555..90c56ed 100644
--- a/embed.fnc
+++ b/embed.fnc
@@ -807,7 +807,7 @@ Apd |int|grok_number|NN const char *pv|STRLEN
len|NULLOK UV *valuep
Apd|int|grok_number_flags|NN const char *pv|STRLEN len|NULLOK UV
*valuep|U32 flags
ApdR |bool |grok_numeric_radix|NN const char **sp|NN const char *send
Apd|UV |grok_oct |NN const char* start|NN STRLEN* len_p|NN I32*
flags|NULLOK NV *result
-Apdn |Size_t |grok_atou |NN const char* pv|NULLOK const char**
endptr
+Apdn |UV |grok_atou |NN const char* pv|NULLOK const char** endptr
: These are all indirectly referenced by globals.c. This is somewhat annoying.
p |int|magic_clearenv |NN SV* sv|NN MAGIC* mg
p |int|magic_clear_all_env|NN SV* sv|NN MAGIC* mg
diff --git a/ext/XS-APItest/numeric.xs b/ext/XS-APItest/numeric.xs
index 56c11f7..6d1ef82 100644
--- a/ext/XS-APItest/numeric.xs
+++ b/ext/XS-APItest/numeric.xs
@@ -51,5 +51,9 @@ grok_atou(number, endsv)
if (endsv == PL_sv_undef) {
PUSHs(sv_2mortal(newSVpvn(NULL, 0)));
} else {
- PUSHs(sv_2mortal(newSViv(endptr - pv)));
+ if (endptr) {
+ PUSHs(sv_2mortal(newSViv(endptr - pv)));
+ } else {
+ PUSHs(sv_2mortal(newSViv(0)));
+ }
}
diff --git a/ext/XS-APItest/t/grok.t b/ext/XS-APItest/t/grok.t
index 501bea6..b41cb09 100644
--- a/ext/XS-APItest/t/grok.t
+++ b/ext/XS-APItest/t/grok.t
@@ -159,38 +159,65 @@ my @atous =
[ 012, 012, $ATOU_MAX, 0 ],
);
-if ($Config{sizesize} == 8) {
+# Values near overflow point.
+if ($Config{uvsize} == 8) {
push @atous,
(
+ # 32-bit values no problem for 64-bit.
+ [ 4294967293, , 4294967293, 10, ],
[ 4294967294, , 4294967294, 10, ],
[ 4294967295, , 4294967295, 10, ],
[ 4294967296, , 4294967296, 10, ],
+ [ 4294967297, , 4294967297, 10, ],
+ # This is well within 64-bit.
[ 99, , 99, 10, ],
+ # Values valid up to 64-bit and beyond.
+ [ 18446744073709551613, , 18446744073709551613, 20, ],
[ 18446744073709551614, , 18446744073709551614, 20, ],
[ 18446744073709551615, , $ATOU_MAX, 20, ],
- [ 18446744073709551616, 18446744073709551616, $ATOU_MAX, 0, ],
+ [ 18446744073709551616, , $ATOU_MAX, 0, ],
+ [ 18446744073709551617, , $ATOU_MAX, 0, ],
);
-} elsif ($Config{sizesize} == 4) {
+} elsif ($Config{uvsize} == 4) {
push @atous,
(
+ # Values valid up to 32-bit and beyond.
+ [ 4294967293, , 4294967293, 10, ],
[ 4294967294, , 4294967294, 10, ],
[ 4294967295, , $ATOU_MAX, 10, ],
[ 4294967296, , $ATOU_MAX, 0, ],
+ [ 4294967297, , $ATOU_MAX, 0, ],
+ # Still beyond 32-bit.
+ [ 49, , $ATOU_MAX, 0, ],
+ [ 5678901234, , $ATOU_MAX, 0, ],
+ [ 6789012345, , $ATOU_MAX, 0, ],
+ [ 7890123456, , $ATOU_MAX, 0, ],
+ [ 8901234567, , $ATOU_MAX, 0, ],
+ [ 9012345678, , $ATOU_MAX, 0, ],
[ 99, , $ATOU_MAX, 0, ],
+ [ 100, , $ATOU_MAX, 0, ],
+ [ 12345678901, , $ATOU_MAX, 0, ],
+ # 64-bit values are way beyond.
+ [ 18446744073709551613, , $ATOU_MAX, 0, ],
[ 18446744073709551614, , $ATOU_MAX, 0, ],
[ 18446744073709551615, , $ATOU_MAX, 0, ],
- [ 18446744073709551616, 18446744073709551616, $ATOU_MAX, 0, ],
+ [ 18446744073709551616, , $ATOU_MAX, 0, ],
+ [
[perl.git] branch rgs/nomagicopen, created. v5.21.2-46-g7f5bb34
In perl.git, the branch rgs/nomagicopen has been created
http://perl5.git.perl.org/perl.git/commitdiff/7f5bb3418c4fc2d6e2523bf918a7d9e33f9a7acc?hp=
at 7f5bb3418c4fc2d6e2523bf918a7d9e33f9a7acc (commit)
- Log -
commit 7f5bb3418c4fc2d6e2523bf918a7d9e33f9a7acc
Author: Rafael Garcia-Suarez r...@consttype.org
Date: Thu Jul 24 17:43:29 2014 +0200
Introduce the double-diamond operator
This operator works like or ARGV, as it reads the list of file
names to open from the command-line arguments. However, it disables
the magic-open feature (that forks to execute piped commands) :
$ bleadperl -e 'while(){print}' 'echo foo |'
foo
$ bleadperl -e 'while(){print}' 'echo foo |'
Can't open echo foo |: No such file or directory at -e line 1.
---
--
Perl5 Master Repository
[perl.git] branch smoke-me/jhi/unused, created. v5.21.2-46-g469fe3c
In perl.git, the branch smoke-me/jhi/unused has been created http://perl5.git.perl.org/perl.git/commitdiff/469fe3c4a1ea0c57899c4cfe0ef3571dff22e440?hp= at 469fe3c4a1ea0c57899c4cfe0ef3571dff22e440 (commit) - Log - commit 469fe3c4a1ea0c57899c4cfe0ef3571dff22e440 Author: Jarkko Hietaniemi j...@iki.fi Date: Thu Jul 24 19:31:04 2014 -0400 Unused dVARs found by g++ -DPERL_GLOBAL_STRUCT_PRIVATE. --- -- Perl5 Master Repository
[perl.git] branch blead, updated. v5.21.2-47-g59dba84
In perl.git, the branch blead has been updated
http://perl5.git.perl.org/perl.git/commitdiff/59dba841c4c022b197056ed7c78ea7d9e7fbb467?hp=945b524a8cdacbf82557d751252e6546f48d21ae
- Log -
commit 59dba841c4c022b197056ed7c78ea7d9e7fbb467
Author: Jarkko Hietaniemi j...@iki.fi
Date: Thu Jul 24 20:20:56 2014 -0400
Make PERL_GLOBAL_STRUCT_PRIVATE visible in -V.
M perl.h
commit c0de32e24cb35f30ec0d37406b19fcc377911df7
Author: Jarkko Hietaniemi j...@iki.fi
Date: Thu Jul 24 19:31:04 2014 -0400
Unused dVARs found by g++ -DPERL_GLOBAL_STRUCT_PRIVATE.
M deb.c
M op.c
M pad.c
M regcomp.c
M sv.c
M taint.c
M toke.c
---
Summary of changes:
deb.c | 4
op.c | 1 -
pad.c | 4
perl.h| 3 +++
regcomp.c | 4
sv.c | 4
taint.c | 2 --
toke.c| 2 --
8 files changed, 3 insertions(+), 21 deletions(-)
diff --git a/deb.c b/deb.c
index d1c3fe9..b93f120 100644
--- a/deb.c
+++ b/deb.c
@@ -59,7 +59,6 @@ void
Perl_vdeb(pTHX_ const char *pat, va_list *args)
{
#ifdef DEBUGGING
-dVAR;
const char* const file = PL_curcop ? OutCopFILE(PL_curcop) : null;
const char* const display_file = file ? file : free;
const long line = PL_curcop ? (long)CopLINE(PL_curcop) : 0;
@@ -83,7 +82,6 @@ I32
Perl_debstackptrs(pTHX)
{
#ifdef DEBUGGING
-dVAR;
PerlIO_printf(Perl_debug_log,
%8UVxf %8UVxf %8IVdf %8IVdf %8IVdf\n,
PTR2UV(PL_curstack), PTR2UV(PL_stack_base),
@@ -115,7 +113,6 @@ S_deb_stack_n(pTHX_ SV** stack_base, I32 stack_min, I32
stack_max,
I32 mark_min, I32 mark_max)
{
#ifdef DEBUGGING
-dVAR;
I32 i = stack_max - 30;
const I32 *markscan = PL_markstack + mark_min;
@@ -205,7 +202,6 @@ void
Perl_deb_stack_all(pTHX)
{
#ifdef DEBUGGING
-dVAR;
I32 si_ix;
const PERL_SI *si;
diff --git a/op.c b/op.c
index e9de3a2..9ae3392 100644
--- a/op.c
+++ b/op.c
@@ -1118,7 +1118,6 @@ For example:
OP *
Perl_op_sibling_splice(OP *parent, OP *start, int del_count, OP* insert)
{
-dVAR;
OP *first = start ? OP_SIBLING(start) : cLISTOPx(parent)-op_first;
OP *rest;
OP *last_del = NULL;
diff --git a/pad.c b/pad.c
index 18b6e5c..00a76f2 100644
--- a/pad.c
+++ b/pad.c
@@ -1402,7 +1402,6 @@ Use macro PAD_SV instead of calling this function
directly.
SV *
Perl_pad_sv(pTHX_ PADOFFSET po)
{
-dVAR;
ASSERT_CURPAD_ACTIVE(pad_sv);
if (!po)
@@ -1426,8 +1425,6 @@ Use the macro PAD_SETSV() rather than calling this
function directly.
void
Perl_pad_setsv(pTHX_ PADOFFSET po, SV* sv)
{
-dVAR;
-
PERL_ARGS_ASSERT_PAD_SETSV;
ASSERT_CURPAD_ACTIVE(pad_setsv);
@@ -1918,7 +1915,6 @@ dump the contents of a CV
STATIC void
S_cv_dump(pTHX_ const CV *cv, const char *title)
{
-dVAR;
const CV * const outside = CvOUTSIDE(cv);
PADLIST* const padlist = CvPADLIST(cv);
diff --git a/perl.h b/perl.h
index 202e55e..0ad3eea 100644
--- a/perl.h
+++ b/perl.h
@@ -4643,6 +4643,9 @@ EXTCONST char PL_bincompat_options[] =
# ifdef PERL_GLOBAL_STRUCT
PERL_GLOBAL_STRUCT
# endif
+# ifdef PERL_GLOBAL_STRUCT_PRIVATE
+ PERL_GLOBAL_STRUCT_PRIVATE
+# endif
# ifdef PERL_IMPLICIT_CONTEXT
PERL_IMPLICIT_CONTEXT
# endif
diff --git a/regcomp.c b/regcomp.c
index 0f70a9e..24fb0a7 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -15356,7 +15356,6 @@ STATIC U8
S_regtail_study(pTHX_ RExC_state_t *pRExC_state, regnode *p,
const regnode *val,U32 depth)
{
-dVAR;
regnode *scan;
U8 exact = PSEUDO;
#ifdef EXPERIMENTAL_INPLACESCAN
@@ -15519,7 +15518,6 @@ void
Perl_regdump(pTHX_ const regexp *r)
{
#ifdef DEBUGGING
-dVAR;
SV * const sv = sv_newmortal();
SV *dsv= sv_newmortal();
RXi_GET_DECL(r,ri);
@@ -15618,7 +15616,6 @@ void
Perl_regprop(pTHX_ const regexp *prog, SV *sv, const regnode *o, const
regmatch_info *reginfo)
{
#ifdef DEBUGGING
-dVAR;
int k;
/* Should be synchronized with * ANYOF_ #xdefines in regcomp.h */
@@ -16719,7 +16716,6 @@ S_dumpuntil(pTHX_ const regexp *r, const regnode
*start, const regnode *node,
const regnode *last, const regnode *plast,
SV* sv, I32 indent, U32 depth)
{
-dVAR;
U8 op = PSEUDO;/* Arbitrary non-END op. */
const regnode *next;
const regnode *optstart= NULL;
diff --git a/sv.c b/sv.c
index b02ef28..afd4376 100644
--- a/sv.c
+++ b/sv.c
@@ -385,8 +385,6 @@ S_new_SV(pTHX_ const char *file, int line, const char *func)
STATIC void
S_del_sv(pTHX_ SV *p)
{
-dVAR;
-
PERL_ARGS_ASSERT_DEL_SV;
if (DEBUG_D_TEST) {
@@ -1855,7 +1853,6 @@ S_sv_display(pTHX_ SV *const sv, char *tmpbuf, STRLEN
tmpbuf_size) {
STATIC void
S_not_a_number(pTHX_ SV *const sv)
{
-
