Fixed perl bindings

2 files changed, 2 insertions, 2 deletions

diff --git a/xs/src/perlglue.cpp b/xs/src/perlglue.cpp
index da1d7abbf..1a551d67b 100644
--- a/xs/src/perlglue.cpp
+++ b/xs/src/perlglue.cpp
@@ -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;
diff --git a/xs/xsp/Config.xsp b/xs/xsp/Config.xsp
index 017c8dad4..f9482bd3b 100644
--- a/xs/xsp/Config.xsp
+++ b/xs/xsp/Config.xsp
@@ -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";