From e0a1ff7a2452ef34ae8bb33cda6415709f1833fc Mon Sep 17 00:00:00 2001 From: Karl Williamson Date: Thu, 28 Aug 2014 14:22:14 -0600 Subject: Allow for changing size of bracketed regex char class This commit allows Perl to be compiled with a bitmap size that is larger than 256. This bitmap is used to directly look up whether a character matches or not, without having to do a binary search or hash lookup. It might improve the performance for some installations that have a lot of use of scripts that are above the Latin1 range. --- perl.c | 2 ++ 1 file changed, 2 insertions(+) (limited to 'perl.c') diff --git a/perl.c b/perl.c index b61e2ffd07..8f452739a6 100644 --- a/perl.c +++ b/perl.c @@ -1034,6 +1034,7 @@ perl_destruct(pTHXx) SvREFCNT_dec(PL_utf8_foldable); SvREFCNT_dec(PL_utf8_foldclosures); SvREFCNT_dec(PL_AboveLatin1); + SvREFCNT_dec(PL_InBitmap); SvREFCNT_dec(PL_UpperLatin1); SvREFCNT_dec(PL_Latin1); SvREFCNT_dec(PL_NonL1NonFinalFold); @@ -1047,6 +1048,7 @@ perl_destruct(pTHXx) PL_utf8_idcont = NULL; PL_utf8_foldclosures = NULL; PL_AboveLatin1 = NULL; + PL_InBitmap = NULL; PL_HasMultiCharFold = NULL; PL_Latin1 = NULL; PL_NonL1NonFinalFold = NULL; -- cgit v1.2.1