This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
regexec.c: Use shared swash in bracketed character classes
[perl5.git] / regexec.c
index 4275b37..1bb0cea 100644 (file)
--- a/regexec.c
+++ b/regexec.c
@@ -6733,7 +6733,7 @@ S_reginclass(pTHX_ const regexp * const prog, register const regnode * const n,
                             || (flags & ANYOF_IS_SYNTHETIC)))))
        {
            AV *av;
-           SV * const sw = regclass_swash(prog, n, TRUE, 0, (SV**)&av);
+           SV * const sw = core_regclass_swash(prog, n, TRUE, 0, (SV**)&av);
 
            if (sw) {
                U8 * utf8_p;