From: Jan Michel <j.michel@gsi.de>
Date: Fri, 2 Aug 2013 17:08:45 +0000 (+0200)
Subject: last performance improvements for today
X-Git-Url: https://jspc29.x-matter.uni-frankfurt.de/git/?a=commitdiff_plain;h=3bc541e9adc3d20bbc64e2c6cadbf61089ee26bc;p=mvdsensorcontrol.git

last performance improvements for today
---

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";