Fix of perl bindings

1 files changed, 3 insertions, 2 deletions

diff --git a/xs/src/perlglue.cpp b/xs/src/perlglue.cpp
index eea5ad54f..463f7d21b 100644
--- a/xs/src/perlglue.cpp
+++ b/xs/src/perlglue.cpp
@@ -250,8 +250,9 @@ 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<ConfigOptionPoint3*>(opt)->value);
+//    case coPoint3:        
+        // not gonna fix it, die Perl die!
+//        return from_SV_check(value, &static_cast<ConfigOptionPoint3*>(opt)->value);
     case coPoints:
     {
         std::vector<Vec2d> &values = static_cast<ConfigOptionPoints*>(opt)->values;