One more little speed optimization in STL.pm
This commit is contained in:
parent
25bafe7ff1
commit
745cea8e6c
1 changed files with 2 additions and 2 deletions
|
@ -55,8 +55,8 @@ sub _read_ascii {
|
||||||
seek $fh, 0, 0;
|
seek $fh, 0, 0;
|
||||||
while (my $_ = <$fh>) {
|
while (my $_ = <$fh>) {
|
||||||
if (!$facet) {
|
if (!$facet) {
|
||||||
/^\s*facet\s+normal\s+$point_re/ or next;
|
/^\s*facet\s+normal\s+/ or next;
|
||||||
$facet = []; # ignore normal: [$1, $2, $3]
|
$facet = []; # ignore normal
|
||||||
} else {
|
} else {
|
||||||
if (/^\s*endfacet/) {
|
if (/^\s*endfacet/) {
|
||||||
push @$facets, $facet;
|
push @$facets, $facet;
|
||||||
|
|
Loading…
Reference in a new issue