perl xlat bug

Hi, I have found bug in the rlm_perl module on the line 343 (parse & store params for perl function) Branch: 3.0.x %{perl:param} - does not work %{perl:param1 param2} - does not work Wrong: p = fmt; while ((q = strchr(p, ' '))) { XPUSHs(sv_2mortal(newSVpvn(p, p-q))); p = q + 1; } Possible solution: p = fmt; while ((q = strchr(p, ' '))) { XPUSHs(sv_2mortal(newSVpvn(p, q - p))); p = q + 1; } if (strlen(p) > 0) { XPUSHs(sv_2mortal(newSVpvn(p, strlen(p)))); } Peter