From: Arran Cudbard-Bell <a.cudbardb@freeradius.org>
Date: Thu, 23 Sep 2021 17:32:30 +0000 (-0500)
Subject: Quiet warning about pragma
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=fe85db4afecd6d136864acc7ed5b30fab74cd220;p=thirdparty%2Ffreeradius-server.git

Quiet warning about pragma
---

diff --git a/src/modules/rlm_perl/rlm_perl.c b/src/modules/rlm_perl/rlm_perl.c
index d665ca3c030..7bbb8ed0d5a 100644
--- 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