From 34013ad14206dc92008d3504273ebae97a896cf4 Mon Sep 17 00:00:00 2001
From: bubnikv <bubnikv@gmail.com>
Date: Thu, 25 Jul 2019 14:52:51 +0200
Subject: [PATCH] Fixed broken Perl bindings.

---
 xs/xsp/Print.xsp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/xs/xsp/Print.xsp b/xs/xsp/Print.xsp
index df5f48587..74c0f4b0c 100644
--- a/xs/xsp/Print.xsp
+++ b/xs/xsp/Print.xsp
@@ -75,7 +75,7 @@ _constant()
     Ref<StaticPrintConfig> config()
         %code%{ RETVAL = const_cast<GCodeConfig*>(static_cast<const GCodeConfig*>(&THIS->config())); %};
     Ref<PlaceholderParser> placeholder_parser()
-        %code%{ RETVAL = &THIS->placeholder_parser(); %};
+        %code%{ RETVAL = const_cast<PlaceholderParser*>(&THIS->placeholder_parser()); %};
     Ref<ExtrusionEntityCollection> skirt()
         %code%{ RETVAL = const_cast<ExtrusionEntityCollection*>(&THIS->skirt()); %};
     Ref<ExtrusionEntityCollection> brim()