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, 23 Aug 2014 23:57:45 +0000 (17:57 -0600)
committerKarl Williamson <khw@cpan.org>
Mon, 25 Aug 2014 17:13:40 +0000 (11:13 -0600)
Bring two case statements into line with their peers

regcomp.c

index 7860242..d0fe08b 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -11875,7 +11875,7 @@ tryagain:
                        p++;
                        break;
                    case 'a':
-                         ender = '\a';
+                       ender = '\a';
                        p++;
                        break;
                    case 'o':
@@ -16681,10 +16681,7 @@ S_put_byte(pTHX_ SV *sv, int c)
             case '\n': Perl_sv_catpvf(aTHX_ sv, "\\n"); break;
             case '\r': Perl_sv_catpvf(aTHX_ sv, "\\r"); break;
             case '\t': Perl_sv_catpvf(aTHX_ sv, "\\t"); break;
-
-            default:
-                Perl_sv_catpvf(aTHX_ sv, "\\x{%x}", c);
-                break;
+            default: Perl_sv_catpvf(aTHX_ sv, "\\x{%x}", c); break;
         }
     }
     else {