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:
|
||||
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;
|
||||
|
@ -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";
|
||||
|
Loading…
Reference in New Issue
Block a user