In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/6110d17a2fe1cbf8032b2a6bfe6681379f50b800?hp=72403750c2f96e070ac2e26ff61b9c7ba96af888>
- Log ----------------------------------------------------------------- commit 6110d17a2fe1cbf8032b2a6bfe6681379f50b800 Author: Jarkko Hietaniemi <[email protected]> Date: Thu Sep 18 14:46:24 2014 -0400 Unused return value. M scope.c commit 16852647439c8a38a0df09262395027b996204cc Author: Jarkko Hietaniemi <[email protected]> Date: Thu Sep 18 14:45:38 2014 -0400 Conditionally unused variable. M op.c commit 5336f8913078591741fab3748159b5e14ebc2f19 Author: Jarkko Hietaniemi <[email protected]> Date: Thu Sep 18 14:38:59 2014 -0400 Comment detypo. M sv.c commit 3e64bad3780f3062178c8b26a905aa7f5cba8009 Author: Jarkko Hietaniemi <[email protected]> Date: Thu Sep 18 14:38:07 2014 -0400 Add dVAR:s for -DPERL_GLOBAL_STRUCT. M op.c ----------------------------------------------------------------------- Summary of changes: op.c | 9 +++++++-- scope.c | 2 +- sv.c | 4 ++-- 3 files changed, 10 insertions(+), 5 deletions(-) diff --git a/op.c b/op.c index b8dde1c..163b6a8 100644 --- a/op.c +++ b/op.c @@ -7653,8 +7653,8 @@ Perl_newATTRSUB_x(pTHX_ I32 floor, OP *o, OP *proto, OP *attrs, bool name_is_utf8 = o && !o_is_gv && SvUTF8(cSVOPo->op_sv); #ifdef PERL_DEBUG_READONLY_OPS OPSLAB *slab = NULL; -#endif bool special = FALSE; +#endif if (o_is_gv) { gv = (GV*)o; @@ -7884,6 +7884,7 @@ Perl_newATTRSUB_x(pTHX_ I32 floor, OP *o, OP *proto, OP *attrs, assert(CvGV(cv) == gv); } else { + dVAR; U32 hash; PERL_HASH(hash, name, namlen); CvNAME_HEK_set(cv, @@ -7948,6 +7949,7 @@ Perl_newATTRSUB_x(pTHX_ I32 floor, OP *o, OP *proto, OP *attrs, if (!CvHASGV(cv)) { if (isGV(gv)) CvGV_set(cv, gv); else { + dVAR; U32 hash; PERL_HASH(hash, name, namlen); CvNAME_HEK_set(cv, share_hek(name, @@ -8049,7 +8051,10 @@ Perl_newATTRSUB_x(pTHX_ I32 floor, OP *o, OP *proto, OP *attrs, if (PL_parser && PL_parser->error_count) clear_special_blocks(name, gv, cv); else - special = process_special_blocks(floor, name, gv, cv); +#ifdef PERL_DEBUG_READONLY_OPS + special = +#endif + process_special_blocks(floor, name, gv, cv); } } diff --git a/scope.c b/scope.c index 8229c1a..db67656 100644 --- a/scope.c +++ b/scope.c @@ -1034,7 +1034,7 @@ Perl_leave_scope(pTHX_ I32 base) ? CvNAME_HEK((CV *)sv) : GvNAME_HEK(CvGV(sv)); assert(hek); - share_hek_hek(hek); + (void)share_hek_hek(hek); cv_undef((CV *)sv); CvNAME_HEK_set(sv, hek); CvLEXICAL_on(sv); diff --git a/sv.c b/sv.c index f0a1641..8e52a99 100644 --- a/sv.c +++ b/sv.c @@ -2386,7 +2386,7 @@ Perl_sv_2iv_flags(pTHX_ SV *const sv, const I32 flags) } } - /* Quite wrong but no no good choices. */ + /* Quite wrong but no good choices. */ if ((numtype & IS_NUMBER_INFINITY)) { return (numtype & IS_NUMBER_NEG) ? IV_MIN : IV_MAX; } else if ((numtype & IS_NUMBER_NAN)) { @@ -2474,7 +2474,7 @@ Perl_sv_2uv_flags(pTHX_ SV *const sv, const I32 flags) return value; } - /* Quite wrong but no no good choices. */ + /* Quite wrong but no good choices. */ if ((numtype & IS_NUMBER_INFINITY)) { return UV_MAX; /* So wrong. */ } else if ((numtype & IS_NUMBER_NAN)) { -- Perl5 Master Repository
