This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regcomp.c: Move code within #ifdef
authorKarl Williamson <khw@cpan.org>
Mon, 26 Aug 2019 14:35:21 +0000 (08:35 -0600)
committerKarl Williamson <khw@cpan.org>
Mon, 26 Aug 2019 15:54:22 +0000 (09:54 -0600)
This code does nothing except an 'if' without acting on it, as a result
of an #ifdef within it, so might as well move the whole thing inside the
 #ifdef

regcomp.c

index 7f9c92d..baf38b5 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -14176,13 +14176,13 @@ S_regatom(pTHX_ RExC_state_t *pRExC_state, I32 *flagp, U32 depth)
                             UPDATE_WARNINGS_LOC(p - 1);
                             ender = result;
 
-                            if (ender < 0x100) {
 #ifdef EBCDIC
+                            if (ender < 0x100) {
                                 if (RExC_recode_x_to_native) {
                                     ender = LATIN1_TO_NATIVE(ender);
                                 }
-#endif
                            }
+#endif
                            break;
                        }
                    case 'c':