Use names for logging parameters, and correct values

diff --git a/src/modules/rlm_perl/example.pl b/src/modules/rlm_perl/example.pl
index f4cf13fe4daade7026ef9c82b844bbc902057d92..82f3f5ddc15ed3d2b577ff849e25feb09a6fcf4b 100644 (file)
--- a/src/modules/rlm_perl/example.pl
+++ b/src/modules/rlm_perl/example.pl
@@ -66,6 +66,14 @@ use constant L_ERR=>   4;
 use constant   L_PROXY=> 5;
 use constant   L_ACCT=>  6;
 
+# Same as src/include/radiusd.h
+use constant   L_DBG=>   1;
+use constant   L_AUTH=>  2;
+use constant   L_INFO=>  3;
+use constant   L_ERR=>   4;
+use constant   L_PROXY=> 5;
+use constant   L_ACCT=>  6;
+
 #  Global variables can persist across different calls to the module.
 #
 #