This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regcomp.c: White-space only
authorKarl Williamson <khw@cpan.org>
Sat, 4 Jan 2020 17:49:22 +0000 (10:49 -0700)
committerKarl Williamson <khw@cpan.org>
Tue, 7 Jan 2020 18:27:59 +0000 (11:27 -0700)
regcomp.c

index a0de454..c2a4ee0 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -8829,7 +8829,7 @@ Perl_reg_numbered_buff_length(pTHX_ REGEXP * const r, const SV * const sv,
 
         i = t1 - s1;
         if (is_utf8_string_loclen((U8*)s, i, &ep, &el))
-                       i = el;
+            i = el;
     }
     return i;
 }
@@ -23135,7 +23135,7 @@ Perl_parse_uniprop_string(pTHX_
                                    user-defined property */
     SV * msg,                   /* Any error or warning msg(s) are appended to
                                    this */
-   const STRLEN level)          /* Recursion level of this call */
+    const STRLEN level)         /* Recursion level of this call */
 {
     dVAR;
     char* lookup_name;          /* normalized name for lookup in our tables */