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 <public@khwilliamson.com>
Sun, 28 Jul 2013 00:21:40 +0000 (18:21 -0600)
committerKarl Williamson <public@khwilliamson.com>
Tue, 30 Jul 2013 18:05:47 +0000 (12:05 -0600)
This indents properly to correspond to a newly formed block

regcomp.c

index 8541cc6..72dd943 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -15491,12 +15491,12 @@ S_put_byte(pTHX_ SV *sv, int c)
             case '\a': Perl_sv_catpvf(aTHX_ sv, "\\a"); break;
 
             default:
-       if (c < 256) {
-           Perl_sv_catpvf(aTHX_ sv, "\\x%02x", c);
-       }
-       else {
-           Perl_sv_catpvf(aTHX_ sv, "\\x{%x}", c);
-       }
+                if (c < 256) {
+                    Perl_sv_catpvf(aTHX_ sv, "\\x%02x", c);
+                }
+                else {
+                    Perl_sv_catpvf(aTHX_ sv, "\\x{%x}", c);
+                }
                 break;
         }
     }