Bugfix: wrong input validation in set_layer_height_ranges(). #2105

This commit is contained in:
Alessandro Ranellucci 2014-06-19 14:44:50 +02:00
parent 95c121f4c7
commit 4bf23c67bb

View File

@ -252,7 +252,7 @@ T_LAYER_HEIGHT_RANGES
coordf_t vals[3]; coordf_t vals[3];
for (unsigned int j = 0; j < 3; ++j) { for (unsigned int j = 0; j < 3; ++j) {
SV *elem_elem = *av_fetch(elemAV, j, 0); SV *elem_elem = *av_fetch(elemAV, j, 0);
if (!SvNOK(elem_elem)) { if (!looks_like_number(elem_elem)) {
Perl_croak( Perl_croak(
aTHX_ \"%s: layer ranges and heights must be numbers\", aTHX_ \"%s: layer ranges and heights must be numbers\",
${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]}); ${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]});