Skip to content

Commit 1b8827c

Browse files
committed
Remove a few more macros from being visible to XS code
These are a few macros dealing with inversion lists that were never intended to be visible to general XS code, and they actually can't be in use in cpan because the mechanisms to create inversion lists are private to perl.
1 parent af4bdf8 commit 1b8827c

File tree

2 files changed

+7
-4
lines changed

2 files changed

+7
-4
lines changed

embed.h

Lines changed: 7 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -23,7 +23,13 @@
2323

2424
/* When this symbol is defined, we undef various symbols we have defined
2525
* earlier when this file was #included with this symbol undefined */
26-
#if !defined(PERL_DO_UNDEFS)
26+
#if defined(PERL_DO_UNDEFS)
27+
# if !defined(PERL_CORE) && !defined(PERL_EXT)
28+
# undef invlist_intersection_
29+
# undef invlist_subtract_
30+
# undef invlist_union_
31+
# endif
32+
#else
2733

2834
/* Create short name macros that hide any need for thread context */
2935

regen/embed.pl

Lines changed: 0 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -3785,10 +3785,7 @@ BEGIN
37853785
HAS_IGNORED_LOCALE_CATEGORIES_
37863786
HIGHEST_REGCOMP_DOT_H_SYNC_
37873787
inRANGE_helper_
3788-
invlist_intersection_
37893788
invlist_intersection_complement_2nd_
3790-
invlist_subtract_
3791-
invlist_union_
37923789
invlist_union_complement_2nd_
37933790
is_MULTI_CHAR_FOLD_utf8_safe_part0_
37943791
is_MULTI_CHAR_FOLD_utf8_safe_part1_

0 commit comments

Comments
 (0)