Permalink
Browse files

locale.c: Remove branch to label

The code at this label was branched to because it contained common
cleanup code.  But now that code is in a function, so the cleanup call
is trivial, so just skip this intermediate label.
  • Loading branch information...
khwilliamson committed Jan 7, 2018
1 parent 0cbd2ff commit 09bfa780161d8611fea2ac7867903995c4f09003
Showing with 4 additions and 5 deletions.
  1. +4 −5 locale.c
View
@@ -3257,7 +3257,8 @@ Perl__is_cur_LC_category_utf8(pTHX_ int category)
(int) MB_CUR_MAX));
if (MB_CUR_MAX < STRLENs(MAX_UNICODE_UTF8)) {
is_utf8 = FALSE;
goto finish_ctype;
restore_switched_locale(LC_CTYPE, original_ctype_locale);
goto finish_and_return;
}
# endif
@@ -3283,7 +3284,8 @@ Perl__is_cur_LC_category_utf8(pTHX_ int category)
DEBUG_L(PerlIO_printf(Perl_debug_log,
"\tnllanginfo returned CODESET '%s'; ?UTF8 locale=%d\n",
codeset, is_utf8));
goto finish_ctype;
restore_switched_locale(LC_CTYPE, original_ctype_locale);
goto finish_and_return;
}
}
@@ -3331,10 +3333,7 @@ Perl__is_cur_LC_category_utf8(pTHX_ int category)
&& wc == (wchar_t) UNICODE_REPLACEMENT);
}
finish_ctype:
restore_switched_locale(LC_CTYPE, original_ctype_locale);
goto finish_and_return;
}

0 comments on commit 09bfa78

Please sign in to comment.