diff options
author | Karl Williamson <khw@cpan.org> | 2021-05-18 12:05:11 -0600 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2021-08-07 14:50:35 -0600 |
commit | 320ae5fef6390c701c0fb885b5a5109ee65ce350 (patch) | |
tree | ebbf999cb48793dde030685f4a13dd8be5ae8e96 /regcomp.c | |
parent | cd64971733afc76a66b233baa79fa9fae6ebb236 (diff) | |
download | perl-320ae5fef6390c701c0fb885b5a5109ee65ce350.tar.gz |
regcomp.c: Move some code out of unlikely #ifdef
Spotted by Hugo van der Sanden. Doing this caused it to attempt to be
compiled, and showed a typo.
Diffstat (limited to 'regcomp.c')
-rw-r--r-- | regcomp.c | 9 |
1 files changed, 5 insertions, 4 deletions
@@ -6548,14 +6548,15 @@ Perl_re_printf( aTHX_ "LHS=%" UVuf " RHS=%" UVuf "\n", if (trie->jump) /* no more substrings -- for now /grr*/ flags &= ~SCF_DO_SUBSTR; } - else if (OP(scan) == REGEX_SET) { - Perl_croak(aTHX_ "panic: %s regnode should be resolved" - " before optimization", reg_name[REGEX_SET]); - } #endif /* old or new */ #endif /* TRIE_STUDY_OPT */ + else if (OP(scan) == REGEX_SET) { + Perl_croak(aTHX_ "panic: %s regnode should be resolved" + " before optimization", PL_reg_name[REGEX_SET]); + } + /* Else: zero-length, ignore. */ scan = regnext(scan); } |