This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regcomp.c: Move some cases in a switch around
authorKarl Williamson <public@khwilliamson.com>
Fri, 14 Dec 2012 22:39:02 +0000 (15:39 -0700)
committerKarl Williamson <public@khwilliamson.com>
Sat, 22 Dec 2012 18:11:29 +0000 (11:11 -0700)
This is so future commits can have a FALL THROUGH

regcomp.c

index c669693..6b7104f 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -11937,6 +11937,14 @@ parseit:
                         PL_Posix_ptrs[classnum], PL_utf8_swash_ptrs[classnum], PL_L1Posix_ptrs[classnum], swash_property_names[classnum], listsv);
                    break;
 
+               case ANYOF_CNTRL:
+               case ANYOF_PSXSPC:
+               case ANYOF_SPACE:
+               case ANYOF_XDIGIT:
+                    DO_POSIX(ret, namedclass, posixes,
+                                            PL_Posix_ptrs[classnum], PL_XPosix_ptrs[classnum]);
+                   break;
+
                case ANYOF_NALPHANUMERIC:
                case ANYOF_NALPHA:
                case ANYOF_NGRAPH:
@@ -11947,6 +11955,15 @@ parseit:
                         PL_Posix_ptrs[classnum], PL_L1Posix_ptrs[classnum], swash_property_names[classnum], listsv,
                         runtime_posix_matches_above_Unicode);
                    break;
+
+               case ANYOF_NCNTRL:
+               case ANYOF_NPSXSPC:
+               case ANYOF_NSPACE:
+               case ANYOF_NXDIGIT:
+                    DO_N_POSIX(ret, namedclass, posixes,
+                                            PL_Posix_ptrs[classnum], PL_XPosix_ptrs[classnum]);
+                   break;
+
                case ANYOF_ASCII:
 #ifdef HAS_ISASCII
                    if (LOC) {
@@ -12029,20 +12046,6 @@ parseit:
                         SvREFCNT_dec(scratch_list);
                     }
                    break;
-               case ANYOF_CNTRL:
-               case ANYOF_PSXSPC:
-               case ANYOF_SPACE:
-               case ANYOF_XDIGIT:
-                    DO_POSIX(ret, namedclass, posixes,
-                                            PL_Posix_ptrs[classnum], PL_XPosix_ptrs[classnum]);
-                   break;
-               case ANYOF_NCNTRL:
-               case ANYOF_NPSXSPC:
-               case ANYOF_NSPACE:
-               case ANYOF_NXDIGIT:
-                    DO_N_POSIX(ret, namedclass, posixes,
-                                            PL_Posix_ptrs[classnum], PL_XPosix_ptrs[classnum]);
-                   break;
                case ANYOF_DIGIT:
                    /* There are no digits in the Latin1 range outside of
                     * ASCII, so call the macro that doesn't have to resolve