summaryrefslogtreecommitdiff
path: root/regcomp.c
diff options
context:
space:
mode:
authorKarl Williamson <khw@cpan.org>2021-05-18 12:05:11 -0600
committerKarl Williamson <khw@cpan.org>2021-08-07 14:50:35 -0600
commit320ae5fef6390c701c0fb885b5a5109ee65ce350 (patch)
treeebbf999cb48793dde030685f4a13dd8be5ae8e96 /regcomp.c
parentcd64971733afc76a66b233baa79fa9fae6ebb236 (diff)
downloadperl-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.c9
1 files changed, 5 insertions, 4 deletions
diff --git a/regcomp.c b/regcomp.c
index ced87a0416..98b83f7d0c 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -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);
}