Fix of

"Unicode char like for example "ł" crush app when used in profile name"
https://github.com/prusa3d/Slic3r/issues/388

The Prusa3D binary builds are missing the UTF8 libraries.
To avoid having to bundle them, the case sensitive regexes testing
file suffixes were replaced with explicit enumeration of lower / upper
case letters. While crude, it avoids triggering the UTF8 library.

4 files changed, 4 insertions, 4 deletions

diff --git a/utils/amf-to-stl.pl b/utils/amf-to-stl.pl
index 64910dc31..f49af94eb 100755
--- a/utils/amf-to-stl.pl
+++ b/utils/amf-to-stl.pl
@@ -27,7 +27,7 @@ my %opt = ();
 {
     my $model = Slic3r::Model->load_amf(Slic3r::encode_path($ARGV[0]));
     my $output_file = $ARGV[0];
-    $output_file =~ s/\.amf(?:\.xml)?$/\.stl/i;
+    $output_file =~ s/\.[aA][mM][fF](?:\.[xX][mM][lL])?$/\.stl/;
     
     printf "Writing to %s\n", basename($output_file);
     $model->store_stl(Slic3r::encode_path($output_file), binary => !$opt{ascii});
diff --git a/utils/pdf-slices.pl b/utils/pdf-slices.pl
index fa7612bb1..670a17171 100755
--- a/utils/pdf-slices.pl
+++ b/utils/pdf-slices.pl
@@ -82,7 +82,7 @@ my %opt = ();
     my $output_file = $opt{output_file};
     if (!defined $output_file) {
         $output_file = $input_file;
-        $output_file =~ s/\.(?:stl)$/.pdf/i;
+        $output_file =~ s/\.(?:[sS][tT][lL])$/.pdf/;
     }
     $pdf->saveas($output_file);
     printf "PDF file written to %s\n", $output_file;
diff --git a/utils/split_stl.pl b/utils/split_stl.pl
index 1c46e9729..ac890fc3e 100755
--- a/utils/split_stl.pl
+++ b/utils/split_stl.pl
@@ -27,7 +27,7 @@ my %opt = ();
 {
     my $model = Slic3r::Model->load_stl(Slic3r::encode_path($ARGV[0]), basename($ARGV[0]));
     my $basename = $ARGV[0];
-    $basename =~ s/\.stl$//i;
+    $basename =~ s/\.[sS][tT][lL]$//;
     
     my $part_count = 0;
     my $mesh = $model->objects->[0]->volumes->[0]->mesh;
diff --git a/utils/stl-to-amf.pl b/utils/stl-to-amf.pl
index 072fe96fc..d32e799aa 100755
--- a/utils/stl-to-amf.pl
+++ b/utils/stl-to-amf.pl
@@ -27,7 +27,7 @@ my %opt = ();
 {
     my @models = map Slic3r::Model->load_stl(Slic3r::encode_path($_), basename($_)), @ARGV;
     my $output_file = $ARGV[0];
-    $output_file =~ s/\.stl$/.amf.xml/i;
+    $output_file =~ s/\.[sS][tT][lL]$/.amf.xml/;
     
     my $new_model = Slic3r::Model->new;