Remove any Perl related code from libslic3r

1 files changed, 7 insertions, 7 deletions

diff --git a/xs/xsp/Line.xsp b/xs/xsp/Line.xsp
index 7ee644494..461856a1a 100644
--- a/xs/xsp/Line.xsp
+++ b/xs/xsp/Line.xsp
@@ -1,7 +1,7 @@
 %module{Slic3r::XS};
 
 %{
-#include <myinit.h>
+#include <xsinit.h>
 #include "libslic3r/Line.hpp"
 #include "libslic3r/Polyline.hpp"
 %}
@@ -11,9 +11,9 @@
     Clone<Line> clone()
         %code{% RETVAL = THIS; %};
     SV* arrayref()
-        %code{% RETVAL = THIS->to_AV(); %};
+        %code{% RETVAL = to_AV(THIS); %};
     SV* pp()
-        %code{% RETVAL = THIS->to_SV_pureperl(); %};
+        %code{% RETVAL = to_SV_pureperl(THIS); %};
     Ref<Point> a()
         %code{% RETVAL=&THIS->a; %};
     Ref<Point> b()
@@ -48,8 +48,8 @@ Line::new(...)
     CODE:
         RETVAL = new Line ();
         // ST(0) is class name, ST(1) and ST(2) are endpoints
-        RETVAL->a.from_SV_check( ST(1) );
-        RETVAL->b.from_SV_check( ST(2) );
+        from_SV_check(ST(1), &RETVAL->a);
+        from_SV_check(ST(2), &RETVAL->b);
     OUTPUT:
         RETVAL
 
@@ -59,7 +59,7 @@ Line::rotate(angle, center_sv)
     SV*     center_sv;
     CODE:
         Point center;
-        center.from_SV_check(center_sv);
+        from_SV_check(center_sv, &center);
         THIS->rotate(angle, center);
 
 bool
@@ -67,7 +67,7 @@ Line::coincides_with(line_sv)
     SV*     line_sv;
     CODE:
         Line line;
-        line.from_SV_check(line_sv);
+        from_SV_check(line_sv, &line);
         RETVAL = THIS->coincides_with(line);
     OUTPUT:
         RETVAL