regcomp.c: Reorder cases: in switch

This makes it slightly more reader-friendly

1 files changed, 3 insertions, 3 deletions

diff --git a/regcomp.c b/regcomp.c
index cff72070f9..d5bb3a277e 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -16666,11 +16666,11 @@ S_put_byte(pTHX_ SV *sv, int c)
 
     if (!isPRINT(c)) {
         switch (c) {
-            case '\r': Perl_sv_catpvf(aTHX_ sv, "\\r"); break;
+            case '\a': Perl_sv_catpvf(aTHX_ sv, "\\a"); break;
+            case '\f': Perl_sv_catpvf(aTHX_ sv, "\\f"); break;
             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;
-            case '\f': Perl_sv_catpvf(aTHX_ sv, "\\f"); break;
-            case '\a': Perl_sv_catpvf(aTHX_ sv, "\\a"); break;
 
             default:
                 Perl_sv_catpvf(aTHX_ sv, "\\x{%x}", c);