Fixed perl bindings

This commit is contained in:
bubnikv 2019-03-13 16:53:08 +01:00
parent 8d8df8b670
commit df8d475363
2 changed files with 2 additions and 2 deletions

View File

@ -251,7 +251,7 @@ bool ConfigBase__set(ConfigBase* THIS, const t_config_option_key &opt_key, SV* v
case coPoint:
return from_SV_check(value, &static_cast<ConfigOptionPoint*>(opt)->value);
case coPoint3:
return from_SV_check(value, &static_cast<const ConfigOptionPoint3*>(&opt)->value);
return from_SV_check(value, &static_cast<ConfigOptionPoint3*>(&opt)->value);
case coPoints:
{
std::vector<Vec2d> &values = static_cast<ConfigOptionPoints*>(opt)->values;

View File

@ -159,7 +159,7 @@ print_config_def()
opt_type = "s@";
} else if (optdef->type == coPoint || optdef->type == coPoints) {
opt_type = "point";
} else if (optdef.type == coPoint3) {
} else if (optdef->type == coPoint3) {
opt_type = "point3";
} else if (optdef->type == coBool || optdef->type == coBools) {
opt_type = "bool";