From 56633c7449127d0894dd8c697033309f62781ccd Mon Sep 17 00:00:00 2001
From: bubnikv <bubnikv@gmail.com>
Date: Wed, 24 Oct 2018 13:59:24 +0200
Subject: [PATCH] Reverted Print::export_png() for the Perl unit tests.

---
 xs/xsp/Print.xsp | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/xs/xsp/Print.xsp b/xs/xsp/Print.xsp
index 39708ca7a..b34444b23 100644
--- a/xs/xsp/Print.xsp
+++ b/xs/xsp/Print.xsp
@@ -185,6 +185,14 @@ _constant()
             }
         %};
 
+    void export_gcode(char *path_template) %code%{
+            try {
+                THIS->export_gcode(path_template, nullptr);
+            } catch (std::exception& e) {
+                croak(e.what());
+            }
+        %};
+
     void export_png(char *path) %code%{
             try {
                 THIS->export_png(path);