summaryrefslogtreecommitdiff
path: root/pp.c
diff options
context:
space:
mode:
authorKarl Williamson <khw@cpan.org>2014-06-12 14:35:45 -0600
committerKarl Williamson <khw@cpan.org>2014-06-12 15:04:54 -0600
commit91191cf732548d9b59655daee2195082e6ce0082 (patch)
tree88bc66ec0ad9d5905e6edc21c11f0ab053b27fef /pp.c
parent5a6bb681360972ef854d7b6b457148c9b1aa61a8 (diff)
downloadperl-91191cf732548d9b59655daee2195082e6ce0082.tar.gz
Fix some compilation warnings
After commits d6ded95025185cb1ec8ca3ba5879cab881d8b180 and 130c5df3625bd130cd1e2771308fcd4eb66cebb2, there are some compilation warnings if not all locale categories are used.
Diffstat (limited to 'pp.c')
-rw-r--r--pp.c7
1 files changed, 6 insertions, 1 deletions
diff --git a/pp.c b/pp.c
index 414625636c..1d25900aec 100644
--- a/pp.c
+++ b/pp.c
@@ -3574,8 +3574,9 @@ PP(pp_ucfirst)
/* Here, is ucfirst non-UTF-8, not in locale (unless that locale is
* UTF-8, which we treat as not in locale), and cased latin1 */
UV title_ord;
-
+#ifdef USE_LOCALE_CTYPE
do_uni_rules:
+#endif
title_ord = _to_upper_title_latin1(*s, tmpbuf, &tculen, 's');
if (tculen > 1) {
@@ -3875,7 +3876,9 @@ PP(pp_uc)
}
}
else {
+#ifdef USE_LOCALE_CTYPE
do_uni_rules:
+#endif
for (; s < send; d++, s++) {
*d = toUPPER_LATIN1_MOD(*s);
if (LIKELY(*d != LATIN_SMALL_LETTER_Y_WITH_DIAERESIS)) {
@@ -4259,7 +4262,9 @@ PP(pp_fc)
*d = toFOLD(*s);
}
else {
+#ifdef USE_LOCALE_CTYPE
do_uni_folding:
+#endif
/* For ASCII and the Latin-1 range, there's only two troublesome
* folds, \x{DF} (\N{LATIN SMALL LETTER SHARP S}), which under full
* casefolding becomes 'ss'; and \x{B5} (\N{MICRO SIGN}), which