In perl.git, the branch blead has been updated <https://perl5.git.perl.org/perl.git/commitdiff/916db6e8921c4bf39aa0645f0ac7e6f32f168617?hp=0f3d8cd442f9b7ac5abd03743d2a372fa3d871d6>
- Log ----------------------------------------------------------------- commit 916db6e8921c4bf39aa0645f0ac7e6f32f168617 Author: chinarulezzz <[email protected]> Date: Fri Apr 20 20:54:12 2018 +0300 {op, pp, regcomp}.c: fix missing parentheses in 'if' statement ----------------------------------------------------------------------- Summary of changes: op.c | 2 +- regcomp.c | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/op.c b/op.c index 74761ca421..29181ba731 100644 --- a/op.c +++ b/op.c @@ -10478,7 +10478,7 @@ S_process_special_blocks(pTHX_ I32 floor, const char *const fullname, return FALSE; } else { if (*name == 'E') { - if strEQ(name, "END") { + if (strEQ(name, "END")) { DEBUG_x( dump_sub(gv) ); Perl_av_create_and_unshift_one(aTHX_ &PL_endav, MUTABLE_SV(cv)); } else diff --git a/regcomp.c b/regcomp.c index 70fd0bebf5..36f5afff71 100644 --- a/regcomp.c +++ b/regcomp.c @@ -7250,7 +7250,7 @@ S_set_regex_pv(pTHX_ RExC_state_t *pRExC_state, REGEXP *Rx) const char* name; name = get_regex_charset_name(RExC_rx->extflags, &len); - if strEQ(name, DEPENDS_PAT_MODS) { /* /d under UTF-8 => /u */ + if (strEQ(name, DEPENDS_PAT_MODS)) { /* /d under UTF-8 => /u */ assert(RExC_utf8); name = UNICODE_PAT_MODS; len = sizeof(UNICODE_PAT_MODS) - 1; @@ -17730,7 +17730,7 @@ S_regclass(pTHX_ RExC_state_t *pRExC_state, I32 *flagp, U32 depth, literal ); } - else if isMNEMONIC_CNTRL(value) { + else if (isMNEMONIC_CNTRL(value)) { vWARN4(RExC_parse, "\"%.*s\" is more clearly written simply as \"%s\"", (int) (RExC_parse - rangebegin), -- Perl5 Master Repository
