From 7cdc61b67abe04e14c5c2a44db5259cec4901f30 Mon Sep 17 00:00:00 2001
From: Vojtech Bubnik <bubnikv@gmail.com>
Date: Thu, 24 Sep 2020 16:41:47 +0200
Subject: [PATCH] Trying to patch the Perl bindings.

---
 xs/xsp/Print.xsp | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

diff --git a/xs/xsp/Print.xsp b/xs/xsp/Print.xsp
index e4957c042f..478b1faf87 100644
--- a/xs/xsp/Print.xsp
+++ b/xs/xsp/Print.xsp
@@ -139,7 +139,19 @@ _constant()
         %};
         
     bool apply(Model *model, DynamicPrintConfig* config)
-        %code%{ RETVAL = THIS->apply(*model, *config); %};
+        %code%{ 
+            // Touching every config as the Perl bindings does not correctly export ModelConfig,
+            // therefore the configs have often invalid timestamps.
+            model->config.touch();
+            for (auto obj : model->objects) {
+                obj->config.touch();
+                for (auto vol : obj->volumes)
+                    vol->config.touch();
+            }
+            for (auto mat : model->materials)
+                mat->config.touch();
+            RETVAL = THIS->apply(*model, *config);
+        %};
     bool has_infinite_skirt();
     std::vector<unsigned int> extruders() const;
     int validate() %code%{