From e162c47167b21285925e871b61956f29a083ca42 Mon Sep 17 00:00:00 2001
From: bubnikv <bubnikv@gmail.com>
Date: Fri, 16 Mar 2018 12:07:54 +0100
Subject: [PATCH] Removed some dependencies on Perl IO module.

---
 lib/Slic3r/Test.pm        | 1 -
 t/svg.t                   | 1 +
 utils/gcode_sectioncut.pl | 1 -
 3 files changed, 1 insertion(+), 2 deletions(-)

diff --git a/lib/Slic3r/Test.pm b/lib/Slic3r/Test.pm
index 53d6d1024..6471ae123 100644
--- a/lib/Slic3r/Test.pm
+++ b/lib/Slic3r/Test.pm
@@ -7,7 +7,6 @@ require Exporter;
 our @ISA = qw(Exporter);
 our @EXPORT_OK = qw(_eq);
 
-use IO::Scalar;
 use List::Util qw(first);
 use Slic3r::Geometry qw(epsilon X Y Z);
 
diff --git a/t/svg.t b/t/svg.t
index 6092efe24..47d24ceb8 100644
--- a/t/svg.t
+++ b/t/svg.t
@@ -10,6 +10,7 @@ BEGIN {
 
 use Slic3r;
 use Slic3r::Test;
+use IO::Scalar;
 
 {
     my $print = Slic3r::Test::init_print('20mm_cube');
diff --git a/utils/gcode_sectioncut.pl b/utils/gcode_sectioncut.pl
index afc011ce8..e83f3fcda 100644
--- a/utils/gcode_sectioncut.pl
+++ b/utils/gcode_sectioncut.pl
@@ -11,7 +11,6 @@ BEGIN {
 }
 
 use Getopt::Long qw(:config no_auto_abbrev);
-use IO::All;
 use List::Util qw(max);
 use Slic3r;
 use Slic3r::Geometry qw(X Y);