diff options
| author | James E Keenan <jkeenan@cpan.org> | 2018-11-28 22:50:29 -0500 |
|---|---|---|
| committer | James E Keenan <jkeenan@cpan.org> | 2018-12-04 21:39:19 -0500 |
| commit | 3dd7db2969bdf599c8ef565a6173f71e2961362e (patch) | |
| tree | 6d3b216759d8b534a4a894709336bfebd743ebb2 | |
| parent | bf5c7c7dda5ab51eb76dfb8282ec8fa20cea9363 (diff) | |
| download | perl-3dd7db2969bdf599c8ef565a6173f71e2961362e.tar.gz | |
Provide header guards to prevent re-inclusion
Per LGTM analysis: https://lgtm.com/projects/g/Perl/perl5/alerts/?mode=tree&ruleFocus=2163210746
and LGTM recommendation: https://lgtm.com/rules/2163210746/
For: RT 133699
| -rw-r--r-- | feature.h | 5 | ||||
| -rw-r--r-- | invlist_inline.h | 5 | ||||
| -rw-r--r-- | regcomp.h | 6 | ||||
| -rwxr-xr-x | regen/feature.pl | 5 |
4 files changed, 21 insertions, 0 deletions
@@ -5,6 +5,9 @@ */ +#ifndef PERL_FEATURE_H_ +#define PERL_FEATURE_H_ + #if defined(PERL_CORE) || defined (PERL_EXT) #define HINT_FEATURE_SHIFT 26 @@ -162,4 +165,6 @@ S_enable_feature_bundle(pTHX_ SV *ver) } #endif /* PERL_IN_OP_C */ +#endif /* PERL_FEATURE_H_ */ + /* ex: set ro: */ diff --git a/invlist_inline.h b/invlist_inline.h index 48084d3d69..cd002cef19 100644 --- a/invlist_inline.h +++ b/invlist_inline.h @@ -6,6 +6,9 @@ * License or the Artistic License, as specified in the README file. */ +#ifndef PERL_INVLIST_INLINE_H_ +#define PERL_INVLIST_INLINE_H_ + #if defined(PERL_IN_UTF8_C) || defined(PERL_IN_REGCOMP_C) || defined(PERL_IN_REGEXEC_C) || defined(PERL_IN_TOKE_C) /* An element is in an inversion list iff its index is even numbered: 0, 2, 4, @@ -93,3 +96,5 @@ S_invlist_array(SV* const invlist) # endif #endif + +#endif /* PERL_INVLIST_INLINE_H_ */ @@ -7,6 +7,10 @@ * License or the Artistic License, as specified in the README file. * */ + +#ifndef PERL_REGCOMP_H_ +#define PERL_REGCOMP_H_ + #include "regcharclass.h" /* Convert branch sequences to more efficient trie ops? */ @@ -1118,6 +1122,8 @@ typedef enum { WB_BOUND } bound_type; +#endif /* PERL_REGCOMP_H_ */ + /* * ex: set ts=8 sts=4 sw=4 et: */ diff --git a/regen/feature.pl b/regen/feature.pl index 89d46af907..12bf5a8068 100755 --- a/regen/feature.pl +++ b/regen/feature.pl @@ -242,6 +242,9 @@ read_only_bottom_close_and_rename($pm); print $h <<EOH; +#ifndef PERL_FEATURE_H_ +#define PERL_FEATURE_H_ + #if defined(PERL_CORE) || defined (PERL_EXT) #define HINT_FEATURE_SHIFT $HintShift @@ -364,6 +367,8 @@ print $h <<EOJ; else PL_hints &= ~HINT_UNI_8_BIT; } #endif /* PERL_IN_OP_C */ + +#endif /* PERL_FEATURE_H_ */ EOJ read_only_bottom_close_and_rename($h); |