quiet more compile warnings

diff --git a/src/modules/rlm_perl/rlm_perl.c b/src/modules/rlm_perl/rlm_perl.c
index 2190b02cf5e1489a1a1d8883eab6addcc2099fd6..0b717f35c6b857c6433a47b325f33b0414e0f4b7 100644 (file)
--- a/src/modules/rlm_perl/rlm_perl.c
+++ b/src/modules/rlm_perl/rlm_perl.c
@@ -35,6 +35,8 @@ RCSID("$Id$")
 
 DIAG_OFF(DIAG_UNKNOWN_PRAGMAS)
 DIAG_OFF(compound-token-split-by-macro) /* Perl does horrible things with macros */
+DIAG_OFF(unreachable-code-return)
+DIAG_OFF(unreachable-code-break)
 DIAG_ON(DIAG_UNKNOWN_PRAGMAS)
 
 #ifdef INADDR_ANY