From: Jorge Pereira <jpereiran@gmail.com>
Date: Thu, 16 Mar 2023 21:57:15 +0000 (-0300)
Subject: Suppress GCC unknown pragma warnings in rlm_perl
X-Git-Tag: release_3_2_3~136
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=2e39a5abd32e11aa0d7371411dff73fc9de0a9ce;p=thirdparty%2Ffreeradius-server.git

Suppress GCC unknown pragma warnings in rlm_perl
---

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