perl xlat bug

[BALSIANOK, Peter]

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

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.freeradius.org/pipermail/freeradius-users/attachments/20140910/84a100fb/attachment.html>