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

Workaround for a perl 5.10 bug about leaked scalars. #503

Browse Source
This commit is contained in:
Alessandro Ranellucci 2012-07-21 14:45:45 +02:00
parent f899deb6b6
commit c7bc9bed46
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lib/Slic3r/GUI/Plater.pm
View File

@ -865,6 +865,10 @@ sub OnDropFiles {
my $self = shift;
my ($x, $y, $filenames) = @_;
# stop scalars leaking on older perl
# https://rt.perl.org/rt3/Public/Bug/Display.html?id=70602
@_ = ();
# only accept STL and AMF files
return 0 if grep !/\.(?:stl|amf(?:\.xml)?)$/i, @$filenames;