This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
utf8.c: White space only.
authorKarl Williamson <public@khwilliamson.com>
Sat, 18 May 2013 19:06:47 +0000 (13:06 -0600)
committerKarl Williamson <public@khwilliamson.com>
Mon, 20 May 2013 17:01:53 +0000 (11:01 -0600)
Indent in newly formed block

utf8.c

diff --git a/utf8.c b/utf8.c
index c3394e5..4aaafba 100644 (file)
--- a/utf8.c
+++ b/utf8.c
@@ -1810,10 +1810,10 @@ Perl__to_fold_latin1(pTHX_ const U8 c, U8* p, STRLEN *lenp, const unsigned int f
             return LATIN_SMALL_LETTER_LONG_S;
         }
         else {
-       *(p)++ = 's';
-       *p = 's';
-       *lenp = 2;
-       return 's';
+            *(p)++ = 's';
+            *p = 's';
+            *lenp = 2;
+            return 's';
         }
     }
     else { /* In this range the fold of all other characters is their lower