diff options
| author | Karl Williamson <khw@cpan.org> | 2016-03-08 18:39:46 -0700 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2016-03-09 09:28:40 -0700 |
| commit | d95e4a00df6c58639bedd71055b14b95a1cad924 (patch) | |
| tree | fa8bbbe1781915b4623252b8c8a00d60acba2010 /utf8.c | |
| parent | 4511cd778b9978d1d54b01038add31872ed66546 (diff) | |
| download | perl-d95e4a00df6c58639bedd71055b14b95a1cad924.tar.gz | |
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
Diffstat (limited to 'utf8.c')
| -rw-r--r-- | utf8.c | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -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 */ |