This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Add header-guards to 2 additional files
authorJames E Keenan <jkeenan@cpan.org>
Tue, 4 Dec 2018 00:25:51 +0000 (19:25 -0500)
committerJames E Keenan <jkeenan@cpan.org>
Wed, 5 Dec 2018 02:39:24 +0000 (21:39 -0500)
Two header files in ext/SDBM_File appear to be blead-upstream, so we can
add header guards here as well.

For: RT 133699

ext/SDBM_File/pair.h
ext/SDBM_File/sdbm.h

index 7191556..1cb24fe 100644 (file)
@@ -1,4 +1,7 @@
 /* Mini EMBED (pair.c) */
+#ifndef PERL_SDBM_FILE_PAIR_H_
+#define PERL_SDBM_FILE_PAIR_H_
+
 #define chkpage sdbm__chkpage
 #define delpair sdbm__delpair
 #define duppair sdbm__duppair
@@ -20,3 +23,5 @@ extern void splpage(char *, char *, long);
 #ifdef SEEDUPS
 extern int duppair(char *, datum);
 #endif
+
+#endif /* PERL_SDBM_FILE_PAIR_H_ */
index e353569..428303d 100644 (file)
@@ -4,6 +4,9 @@
  * author: oz@nexus.yorku.ca
  * status: public domain. 
  */
+#ifndef PERL_SDBM_FILE_SDBM_H_
+#define PERL_SDBM_FILE_SDBM_H_
+
 #define DBLKSIZ 4096
 #define PBLKSIZ 1024
 #define PAIRMAX 1008                   /* arbitrary on PBLKSIZ-N */
@@ -199,3 +202,4 @@ Free_t   Perl_mfree(Malloc_t where);
 
 #endif /* Include guard */
 
+#endif /* PERL_SDBM_FILE_SDBM_H_ */