One more little speed optimization in STL.pm

xs
Alessandro Ranellucci 2013-05-14 14:12:32 +02:00
parent 25bafe7ff1
commit 745cea8e6c
1 changed files with 2 additions and 2 deletions

View File

@ -55,8 +55,8 @@ sub _read_ascii {
seek $fh, 0, 0;
while (my $_ = <$fh>) {
if (!$facet) {
/^\s*facet\s+normal\s+$point_re/ or next;
$facet = []; # ignore normal: [$1, $2, $3]
/^\s*facet\s+normal\s+/ or next;
$facet = []; # ignore normal
} else {
if (/^\s*endfacet/) {
push @$facets, $facet;