juli/OrcaSlicer
1
1
Fork 0
mirror of https://github.com/OrcaSlicer/OrcaSlicer.git synced 2026-05-19 19:33:47 +00:00
Code Issues 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
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 $self = shift;
my ($x, $y, $filenames) = @_; 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 # only accept STL and AMF files
return 0 if grep !/\.(?:stl|amf(?:\.xml)?)$/i, @$filenames; return 0 if grep !/\.(?:stl|amf(?:\.xml)?)$/i, @$filenames;