One more slight optimization

internal-support
Alessandro Ranellucci 2013-03-13 01:14:47 +01:00
parent a412291690
commit cab51d4581
1 changed files with 4 additions and 4 deletions

View File

@ -163,10 +163,10 @@ sub check_manifoldness {
sub unpack_line { sub unpack_line {
my ($packed) = @_; my ($packed) = @_;
my @data = unpack I_FMT, $packed; my $data = [ unpack I_FMT, $packed ];
splice @data, 0, 2, [ @data[0,1] ]; splice @$data, 0, 2, [ @$data[0,1] ];
$data[$_] = undef for grep $data[$_] == -1, I_A_ID, I_B_ID, I_FACET_EDGE, I_PREV_FACET_INDEX, I_NEXT_FACET_INDEX; $data->[$_] = undef for grep $data->[$_] == -1, I_A_ID, I_B_ID, I_FACET_EDGE, I_PREV_FACET_INDEX, I_NEXT_FACET_INDEX;
return [@data]; return $data;
} }
sub make_loops { sub make_loops {