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.
(int) MB_CUR_MAX));
if ((unsigned) 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
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;
}
}
&& wc == (wchar_t) UNICODE_REPLACEMENT);
}
- finish_ctype:
-
restore_switched_locale(LC_CTYPE, original_ctype_locale);
-
goto finish_and_return;
}