This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
locale.c white space only
authorKarl Williamson <khw@cpan.org>
Wed, 30 Jan 2019 16:56:15 +0000 (09:56 -0700)
committerKarl Williamson <khw@cpan.org>
Sat, 30 Nov 2019 21:20:06 +0000 (14:20 -0700)
locale.c

index 7ce7b3e..54b51ff 100644 (file)
--- a/locale.c
+++ b/locale.c
@@ -1726,13 +1726,13 @@ S_new_ctype(pTHX_ const char *newctype)
                                           "isxdigit('%s') unexpectedly is %d\n",
                                           name, cBOOL(isxdigit(i))));
                 }
-                if (UNLIKELY(tolower(i) != (int) toLOWER_A(i)))  {
+                if (UNLIKELY(tolower(i) != (int) toLOWER_A(i))) {
                     is_bad = TRUE;
                     DEBUG_L(PerlIO_printf(Perl_debug_log,
                             "tolower('%s')=0x%x instead of the expected 0x%x\n",
                             name, tolower(i), (int) toLOWER_A(i)));
                 }
-                if (UNLIKELY(toupper(i) != (int) toUPPER_A(i)))  {
+                if (UNLIKELY(toupper(i) != (int) toUPPER_A(i))) {
                     is_bad = TRUE;
                     DEBUG_L(PerlIO_printf(Perl_debug_log,
                             "toupper('%s')=0x%x instead of the expected 0x%x\n",