From 70f060a643793a60fc62926943eb82bee7e99510 Mon Sep 17 00:00:00 2001
From: Alessandro Ranellucci <aar@cpan.org>
Date: Fri, 6 Dec 2013 01:36:17 +0100
Subject: [PATCH] Read scientific notation in SVG files

---
 lib/Slic3r/PathsToGCode.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/lib/Slic3r/PathsToGCode.pm b/lib/Slic3r/PathsToGCode.pm
index ab843caf..1544ae54 100644
--- a/lib/Slic3r/PathsToGCode.pm
+++ b/lib/Slic3r/PathsToGCode.pm
@@ -124,7 +124,7 @@ sub add_coords
 
 # The following regular expression splits the path into pieces
  
-my $split_re = qr/(?:,|(?=-)|\s+)/;
+my $split_re = qr/(?:,|(?<!e)(?=-)|\s+)/;
  
 sub extract_path_info
 {
@@ -171,11 +171,11 @@ sub extract_path_info
     };
     # Deal with the rest of the path.
     my @curves;
-    while ($curves =~ /([cslqtahvz])\s*([-0-9.,\s]*)/gi) {
+    while ($curves =~ /([cslqtahvz])\s*([-0-9.,e\s]*)/gi) {
         push @curves, [$1, $2];
     }
     if (@curves == 0) {
-        croak "No curves found in '$curves'";
+        croak "No curves found in '$curves' (full: $path)";
     }
     for my $curve_data (@curves) {
         my ($curve_type, $curve) = @$curve_data;