From fe85db4afecd6d136864acc7ed5b30fab74cd220 Mon Sep 17 00:00:00 2001
From: Arran Cudbard-Bell <a.cudbardb@freeradius.org>
Date: Thu, 23 Sep 2021 12:32:30 -0500
Subject: [PATCH] Quiet warning about pragma

---
 src/modules/rlm_perl/rlm_perl.c | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/modules/rlm_perl/rlm_perl.c b/src/modules/rlm_perl/rlm_perl.c
index d665ca3c03..7bbb8ed0d5 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
 
-- 
2.47.2