GitHub-Proxy/Slic3r
1
0
Fork 0
mirror of https://git.mirrors.martin98.com/https://github.com/slic3r/Slic3r.git synced 2025-08-16 13:05:55 +08:00
Code Issues Actions Packages Projects Releases Wiki Activity

Workaround for wxPerl not loading shared libraries when package is in a non-ASCII paths. #3763

Browse Source
This commit is contained in:
Alessandro Ranellucci 2017-04-04 19:57:11 +02:00
parent 8f66d88320
commit 139aeb86ff
1 changed files with 13 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lib/Slic3r/GUI.pm
View File

@ -3,6 +3,19 @@ use strict;
use warnings; use warnings;
use utf8; use utf8;
use Wx 0.9901 qw(:bitmap :dialog :icon :id :misc :systemsettings :toplevelwindow
:filedialog :font);
BEGIN {
# Wrap the Wx::_load_plugin() function which doesn't work with non-ASCII paths
no warnings 'redefine';
my $orig = *Wx::_load_plugin{CODE};
*Wx::_load_plugin = sub {
$_[0] = Slic3r::decode_path($_[0]);
$orig->(@_);
};
}
use File::Basename qw(basename); use File::Basename qw(basename);
use FindBin; use FindBin;
use List::Util qw(first any); use List::Util qw(first any);
@ -41,8 +54,6 @@ use Slic3r::GUI::SLAPrintOptions;
our $have_OpenGL = eval "use Slic3r::GUI::3DScene; 1"; our $have_OpenGL = eval "use Slic3r::GUI::3DScene; 1";
our $have_LWP = eval "use LWP::UserAgent; 1"; our $have_LWP = eval "use LWP::UserAgent; 1";
use Wx 0.9901 qw(:bitmap :dialog :icon :id :misc :systemsettings :toplevelwindow
:filedialog :font);
use Wx::Event qw(EVT_IDLE EVT_COMMAND); use Wx::Event qw(EVT_IDLE EVT_COMMAND);
use base 'Wx::App'; use base 'Wx::App';