# New Ticket Created by Mark Glines
# Please include the string: [perl #42908]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt3/Ticket/Display.html?id=42908 >
Most autogenerated headers already have a guard macro. has_headers.h is
an exception, and the test case misses it, because it apparently isn't
listed in Parrot::Distribution->c_header_files().
Mark
Index: config/gen/config_h.pm
===================================================================
--- config/gen/config_h.pm (revision 18469)
+++ config/gen/config_h.pm (working copy)
@@ -56,6 +56,9 @@
** This file is generated automatically by Configure.pl
*/
+#ifndef PARROT_HAS_HEADER_H_GUARD
+#define PARROT_HAS_HEADER_H_GUARD
+
/*
* i_(\\w+) header includes
*/
@@ -119,9 +122,11 @@
}
}
- # append the C code coda
+ # append the guard endif and C code coda
print {$HH} <<EOF;
+#endif /* PARROT_HAS_HEADER_H_GUARD */
+
/*
* Local variables:
* c-file-style: "parrot"
