From 3bc541e9adc3d20bbc64e2c6cadbf61089ee26bc Mon Sep 17 00:00:00 2001
From: Jan Michel <j.michel@gsi.de>
Date: Fri, 2 Aug 2013 19:08:45 +0200
Subject: [PATCH] last performance improvements for today

---
 tools/preview/unpack_hld.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/tools/preview/unpack_hld.pl b/tools/preview/unpack_hld.pl
index f7dffd6..da06a80 100755
--- 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";
-- 
2.43.0