3DPrinting/PrusaSlicer-NonPlainar
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

When running on Windows, Perl $^X returns slic3r.exe or slic3r-console.exe

Browse Source 
Do some magic to get the perl interpreter path.
This commit is contained in:
bubnikv 2018-06-26 15:29:23 +02:00
parent bd1d70d8d3
commit 645cc65d2b
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lib/Slic3r/Print.pm
View File

@ -101,7 +101,12 @@ sub export_gcode {
die "The configured post-processing script is not executable: check permissions. ($script)\n"; die "The configured post-processing script is not executable: check permissions. ($script)\n";
} }
if ($^O eq 'MSWin32' && $script =~ /\.[pP][lL]/) { if ($^O eq 'MSWin32' && $script =~ /\.[pP][lL]/) {
system($^X, $script, $output_file); # The current process (^X) may be slic3r.exe or slic3r-console.exe.
# Replace it with the current perl interpreter.
my($filename, $directories, $suffix) = fileparse($^X);
$filename =~ s/^slic3r.*$/perl5\.24\.0\.exe/;
my $interpreter = $directories . $filename;
system($interpreter, $script, $output_file);
} else { } else {
system($script, $output_file); system($script, $output_file);
} }