Accept STL files with spaces at the end of vertex lines. #119

This commit is contained in:
Alessandro Ranellucci 2011-12-14 10:29:08 +01:00
parent cf33ec0a5c
commit ca5dfc05e7

View File

@ -45,7 +45,7 @@ sub read_file {
sub _read_ascii { sub _read_ascii {
my ($fh, $facets) = @_; my ($fh, $facets) = @_;
my $point_re = qr/([^ ]+)\s+([^ ]+)\s+([^ ]+)$/; my $point_re = qr/([^ ]+)\s+([^ ]+)\s+([^ ]+)\s*$/;
my $facet; my $facet;
seek $fh, 0, 0; seek $fh, 0, 0;