rlm_perl radiusd::radlog $type codes

[Edgar Fuß]

The rlm_perl Documentation (in the Wiki) lists the $type values for radiusd::radlog($type, $message) as
	0 - Debug
	1 - Auth
	2 - Proxy
	3 - Info
	4 - Error
while include/radiusd.h says
	#define L_DBG			1
	#define L_AUTH			2
	#define L_INFO			3
	#define L_ERR			4
	#define L_PROXY			5
	#define L_ACCT			6
	#define L_CONS			128
and I can see no translation in src/modules/rlm_perl.c. Am I missing something or is this a documentation error?