1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
diff -ru Slic3r-0.9.9/lib/Slic3r/Config.pm Slic3r-0.9.9-perl518/lib/Slic3r/Config.pm
--- Slic3r-0.9.9/lib/Slic3r/Config.pm	2013-03-30 07:59:17.000000000 -0700
+++ Slic3r-0.9.9-perl518/lib/Slic3r/Config.pm	2013-06-08 09:30:32.539475827 -0700
@@ -1124,7 +1124,7 @@
     my ($opt_key, $value, $deserialize) = @_;
     
     # handle legacy options
-    return if $opt_key ~~ @Ignore;
+    return if first { $_ eq $opt_key } @Ignore;
     if ($opt_key =~ /^(extrusion_width|bottom_layer_speed|first_layer_height)_ratio$/) {
         $opt_key = $1;
         $opt_key =~ s/^bottom_layer_speed$/first_layer_speed/;
@@ -1392,7 +1392,7 @@
     
     my $ini = { _ => {} };
     my $category = '_';
-    while (my $_ = <$fh>) {
+    while (<$fh>) {
         s/\R+$//;
         next if /^\s+/;
         next if /^$/;
diff -ru Slic3r-0.9.9/lib/Slic3r/Format/OBJ.pm Slic3r-0.9.9-perl518/lib/Slic3r/Format/OBJ.pm
--- Slic3r-0.9.9/lib/Slic3r/Format/OBJ.pm	2013-03-30 07:59:17.000000000 -0700
+++ Slic3r-0.9.9-perl518/lib/Slic3r/Format/OBJ.pm	2013-06-08 09:30:32.539475827 -0700
@@ -8,7 +8,7 @@
     Slic3r::open(\my $fh, '<', $file) or die "Failed to open $file\n";
     my $vertices = [];
     my $facets = [];
-    while (my $_ = <$fh>) {
+    while (<$fh>) {
         if (/^v ([^ ]+)\s+([^ ]+)\s+([^ ]+)/) {
             push @$vertices, [$1, $2, $3];
         } elsif (/^f (\d+).*? (\d+).*? (\d+).*?/) {
diff -ru Slic3r-0.9.9/lib/Slic3r/Format/STL.pm Slic3r-0.9.9-perl518/lib/Slic3r/Format/STL.pm
--- Slic3r-0.9.9/lib/Slic3r/Format/STL.pm	2013-03-30 07:59:17.000000000 -0700
+++ Slic3r-0.9.9-perl518/lib/Slic3r/Format/STL.pm	2013-06-08 09:32:17.179156321 -0700
@@ -67,7 +67,7 @@
     
     my $facet;
     seek $fh, 0, 0;
-    while (my $_ = <$fh>) {
+    while (<$fh>) {
         if (!$facet) {
             /^\s*facet\s+normal\s+$point_re/ or next;
             $facet = [];  # ignore normal: [$1, $2, $3]
@@ -93,7 +93,7 @@
     
     binmode $fh;
     seek $fh, 80 + 4, 0;
-    while (read $fh, my $_, 4*4*3+2) {
+    while (read $fh, $_, 4*4*3+2) {
         my @v = unpack '(f<3)4';
         push @$facets, [ [@v[3..5]], [@v[6..8]], [@v[9..11]] ];  # ignore normal: [@v[0..2]]
     }