Quiet warning about pragma

diff --git a/src/modules/rlm_perl/rlm_perl.c b/src/modules/rlm_perl/rlm_perl.c
index d665ca3c030c4216ddaf7db2cf8e0033ca788ea6..7bbb8ed0d5ac8b4cc67a20461051e30eb0f8ba3e 100644 (file)
--- a/src/modules/rlm_perl/rlm_perl.c
+++ b/src/modules/rlm_perl/rlm_perl.c
@@ -31,7 +31,10 @@ RCSID("$Id$")
 #include <freeradius-devel/util/debug.h>
 #include <freeradius-devel/radius/radius.h>
 
+DIAG_OFF(DIAG_UNKNOWN_PRAGMAS)
 DIAG_OFF(compound-token-split-by-macro) /* Perl does horrible things with macros */
+DIAG_ON(DIAG_UNKNOWN_PRAGMAS)
+
 #ifdef INADDR_ANY
 #  undef INADDR_ANY
 #endif
@@ -41,7 +44,7 @@ DIAG_OFF(compound-token-split-by-macro) /* Perl does horrible things with macros
 #include <dlfcn.h>
 #include <semaphore.h>
 
-#ifdef __APPLE__
+#if defined(__APPLE__) || defined(__FreeBSD__)
 extern char **environ;
 #endif