In perl.git, the branch blead has been updated
<http://perl5.git.perl.org/perl.git/commitdiff/d95e4a00df6c58639bedd71055b14b95a1cad924?hp=4511cd778b9978d1d54b01038add31872ed66546>
- Log -----------------------------------------------------------------
commit d95e4a00df6c58639bedd71055b14b95a1cad924
Author: Karl Williamson <k...@cpan.org>
Date: Tue Mar 8 18:39:46 2016 -0700
utf8.c: Add missing {}
which caused an if's scope to be less than intended.
Spotted by Jarkko Hietaniemi using gcc 6 with the
'-Wmisleading-indentation' option
-----------------------------------------------------------------------
Summary of changes:
utf8.c | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/utf8.c b/utf8.c
index 3778d76..6249ea5 100644
--- a/utf8.c
+++ b/utf8.c
@@ -2740,7 +2740,7 @@ Perl__core_swash_init(pTHX_ const char* pkg, const char*
name, SV *listsv, I32 m
CopHINTS_set(PL_curcop, PL_hints);
}
if (!SvROK(retval) || SvTYPE(SvRV(retval)) != SVt_PVHV) {
- if (SvPOK(retval))
+ if (SvPOK(retval)) {
/* If caller wants to handle missing properties, let them */
if (flags_p && *flags_p & _CORE_SWASH_INIT_RETURN_IF_UNDEF) {
@@ -2750,6 +2750,7 @@ Perl__core_swash_init(pTHX_ const char* pkg, const char*
name, SV *listsv, I32 m
"Can't find Unicode property definition \"%"SVf"\"",
SVfARG(retval));
NOT_REACHED; /* NOTREACHED */
+ }
}
} /* End of calling the module to find the swash */
--
Perl5 Master Repository
