diff options
| author | Karl Williamson <khw@cpan.org> | 2017-04-20 10:16:11 -0600 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2017-06-02 12:47:18 -0600 |
| commit | 6a5bc5acd0f35a93138716f5c3681baa1e139c65 (patch) | |
| tree | ce611dc3dd62d8e879ea0fe2c9bfe369733a916b /regen/unicode_constants.pl | |
| parent | b063b0a874bbc4724894885b0a633865675db9ff (diff) | |
| download | perl-6a5bc5acd0f35a93138716f5c3681baa1e139c65.tar.gz | |
Use new paradigm for hdr file double inclusion guard
We changed to use symbols not likely to be used by non-Perl code that
could conflict, and which have trailing underbars, so they don't look
like a regular Perl #define.
See https://rt.perl.org/Ticket/Display.html?id=131110
There are many more header files which are not guarded.
Diffstat (limited to 'regen/unicode_constants.pl')
| -rw-r--r-- | regen/unicode_constants.pl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/regen/unicode_constants.pl b/regen/unicode_constants.pl index cbe317926c..64ae84a649 100644 --- a/regen/unicode_constants.pl +++ b/regen/unicode_constants.pl @@ -12,8 +12,8 @@ my $out_fh = open_new('unicode_constants.h', '>', print $out_fh <<END; -#ifndef H_UNICODE_CONSTANTS /* Guard against nested #includes */ -#define H_UNICODE_CONSTANTS 1 +#ifndef PERL_UNICODE_CONSTANTS_H_ /* Guard against nested #includes */ +#define PERL_UNICODE_CONSTANTS_H_ 1 /* This file contains #defines for the version of Unicode being used and * various Unicode code points. The values the code point macros expand to @@ -198,7 +198,7 @@ if (@cwcm) { } } -print $out_fh "\n#endif /* H_UNICODE_CONSTANTS */\n"; +print $out_fh "\n#endif /* PERL_UNICODE_CONSTANTS_H_ */\n"; read_only_bottom_close_and_rename($out_fh); |