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, 28 Jan 2012 19:44:29 +0000 (12:44 -0700)
committerKarl Williamson <public@khwilliamson.com>
Sat, 4 Feb 2012 23:29:32 +0000 (16:29 -0700)
This adds an indent now that the code is in a newly created block

utf8.c

diff --git a/utf8.c b/utf8.c
index c9f2c9a..e61f574 100644 (file)
--- a/utf8.c
+++ b/utf8.c
@@ -2899,15 +2899,15 @@ S_swash_scan_list_line(pTHX_ U8* l, U8* const lend, UV* min, UV* max, UV* val,
                }
                else { /* Other tables are in hex, and are the correct result
                          without tweaking */
-               flags = PERL_SCAN_SILENT_ILLDIGIT
-                     | PERL_SCAN_DISALLOW_PREFIX
-                     | PERL_SCAN_SILENT_NON_PORTABLE;
-               numlen = lend - l;
-               *val = grok_hex((char *)l, &numlen, &flags, NULL);
-               if (numlen)
-                   l += numlen;
-               else
-                   *val = 0;
+                   flags = PERL_SCAN_SILENT_ILLDIGIT
+                       | PERL_SCAN_DISALLOW_PREFIX
+                       | PERL_SCAN_SILENT_NON_PORTABLE;
+                   numlen = lend - l;
+                   *val = grok_hex((char *)l, &numlen, &flags, NULL);
+                   if (numlen)
+                       l += numlen;
+                   else
+                       *val = 0;
                }
            }
            else {