From 2e39a5abd32e11aa0d7371411dff73fc9de0a9ce Mon Sep 17 00:00:00 2001
From: Jorge Pereira <jpereiran@gmail.com>
Date: Thu, 16 Mar 2023 18:57:15 -0300
Subject: [PATCH] Suppress GCC unknown pragma warnings in rlm_perl

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

diff --git a/src/modules/rlm_perl/rlm_perl.c b/src/modules/rlm_perl/rlm_perl.c
index 0c58cc88a2..59759aea85 100644
--- a/src/modules/rlm_perl/rlm_perl.c
+++ b/src/modules/rlm_perl/rlm_perl.c
@@ -28,6 +28,10 @@ RCSID("$Id$")
 #include <freeradius-devel/modules.h>
 #include <freeradius-devel/rad_assert.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
-- 
2.47.2