diff options
author | Karl Williamson <khw@cpan.org> | 2018-11-17 15:47:02 -0700 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2018-11-27 09:54:46 -0700 |
commit | 51fa1a74ca7dc85c6e81e990c50128380cac9da5 (patch) | |
tree | a965568655dbed070a4fe98d3c769b1722a62a9d /regcomp.c | |
parent | 89c8f482fd6302a33e3a6ba5e76b545822ae66fc (diff) | |
download | perl-51fa1a74ca7dc85c6e81e990c50128380cac9da5.tar.gz |
regcomp.c: Use common code instead of duplicating it
The common code is about to get more complicated, so use it instead of a
copy.
Diffstat (limited to 'regcomp.c')
-rw-r--r-- | regcomp.c | 9 |
1 files changed, 1 insertions, 8 deletions
@@ -14169,14 +14169,7 @@ S_regatom(pTHX_ RExC_state_t *pRExC_state, I32 *flagp, U32 depth) /* Here, continuing a node with non-folded characters. Add * this one */ - - if (UVCHR_IS_INVARIANT(ender) || ! UTF) { - *(s++) = (char) ender; - } - else { - s = (char *) uvchr_to_utf8((U8 *) s, ender); - added_len = UVCHR_SKIP(ender); - } + goto not_fold_common; } else { /* Here, does participate in some fold */ |