Reverted Print::export_png() for the Perl unit tests.

1 files changed, 8 insertions, 0 deletions

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);