Browse Source

Removed dependency on Perl Encode::encode_utf8.

bubnikv 7 years ago
parent
commit
48ba7e5f73
2 changed files with 8 additions and 1 deletions
  1. 1 1
      lib/Slic3r/GUI/Plater.pm
  2. 7 0
      xs/xsp/XS.xsp

+ 1 - 1
lib/Slic3r/GUI/Plater.pm

@@ -1470,7 +1470,7 @@ sub send_gcode {
                 Slic3r::encode_path($self->{send_gcode_file}),
                 # Remove the UTF-8 flag from the perl string, so the LWP::UserAgent can insert 
                 # the UTF-8 encoded string into the request as a byte stream.
-                Encode::encode_utf8(Slic3r::path_to_filename($self->{send_gcode_file}))
+                Slic3r::path_to_filename_raw($self->{send_gcode_file})
             ],
             print => $self->{send_gcode_file_print} ? 1 : 0,
         ],

+ 7 - 0
xs/xsp/XS.xsp

@@ -119,6 +119,13 @@ path_to_filename(src)
         RETVAL = Slic3r::PerlUtils::path_to_filename(src);
     OUTPUT: RETVAL
 
+local_encoded_string
+path_to_filename_raw(src)
+    const char *src;
+    CODE:
+        RETVAL = Slic3r::PerlUtils::path_to_filename(src);
+    OUTPUT: RETVAL
+
 std::string
 path_to_stem(src)
     const char *src;