Fixed perl bindings
This commit is contained in:
parent
8d8df8b670
commit
df8d475363
@ -251,7 +251,7 @@ bool ConfigBase__set(ConfigBase* THIS, const t_config_option_key &opt_key, SV* v
|
|||||||
case coPoint:
|
case coPoint:
|
||||||
return from_SV_check(value, &static_cast<ConfigOptionPoint*>(opt)->value);
|
return from_SV_check(value, &static_cast<ConfigOptionPoint*>(opt)->value);
|
||||||
case coPoint3:
|
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:
|
case coPoints:
|
||||||
{
|
{
|
||||||
std::vector<Vec2d> &values = static_cast<ConfigOptionPoints*>(opt)->values;
|
std::vector<Vec2d> &values = static_cast<ConfigOptionPoints*>(opt)->values;
|
||||||
|
@ -159,7 +159,7 @@ print_config_def()
|
|||||||
opt_type = "s@";
|
opt_type = "s@";
|
||||||
} else if (optdef->type == coPoint || optdef->type == coPoints) {
|
} else if (optdef->type == coPoint || optdef->type == coPoints) {
|
||||||
opt_type = "point";
|
opt_type = "point";
|
||||||
} else if (optdef.type == coPoint3) {
|
} else if (optdef->type == coPoint3) {
|
||||||
opt_type = "point3";
|
opt_type = "point3";
|
||||||
} else if (optdef->type == coBool || optdef->type == coBools) {
|
} else if (optdef->type == coBool || optdef->type == coBools) {
|
||||||
opt_type = "bool";
|
opt_type = "bool";
|
||||||
|
Loading…
Reference in New Issue
Block a user