last performance improvements for today

diff --git a/tools/preview/unpack_hld.pl b/tools/preview/unpack_hld.pl
index f7dffd6c648b652198102f2b19f5abcf280ea6ad..da06a808824989a639851cf75c5f0a14440c087d 100755 (executable)
--- a/tools/preview/unpack_hld.pl
+++ b/tools/preview/unpack_hld.pl
@@ -497,9 +497,9 @@ sub WriteResults {
     for(my $y = 0; $y < 576; $y++) {
       my $map = $PMap->{$id}->[$y];
       #Define lengths of all arrays
-      $map->[1151] = 0 unless defined $map->[1151];
+      $map->[1152] = 0;
       #Fill undef with 0
-      @matrix  = map {defined $_ ? $_ : 0 } @{$map};
+      @matrix  = map {$_ || 0 } @{$map};
       #Join lines
       my $l = join(" ",@matrix);
       print $fh $l."\n";