From 12f5e380dd98d7f1b8cf84e8eef2fec9168d05f0 Mon Sep 17 00:00:00 2001
From: markooldenburg <>
Date: Wed, 3 Aug 2016 06:37:42 +0000
Subject: [PATCH] 77_UWZ: Perl warnings uninitialized value fixed

git-svn-id: https://svn.fhem.de/fhem/trunk@11882 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/CHANGED        | 3 ++-
 fhem/FHEM/77_UWZ.pm | 4 ++--
 2 files changed, 4 insertions(+), 3 deletions(-)

diff --git a/fhem/CHANGED b/fhem/CHANGED
index fd44f14f1..165318409 100644
--- a/fhem/CHANGED
+++ b/fhem/CHANGED
@@ -1,6 +1,7 @@
 # Add changes at the top of the list. Keep it in ASCII, and 80-char wide.
 # Do not insert empty lines here, update check depends on it.
-  - updated: 77_UWZ: New Release 2.4
+    bugfix:  77_UWZ: Perl warnings uninitialized value fixed
+  - updated: 77_UWZ: New Release 2.4.5
                      new Attribut's sort_readings_by,htmlsequence
                      new Readings Warn_X_Creation(_*), WarnUWZLevel,
                                   WarnUWZLevel_Color,WarnUWZLevel_Str
diff --git a/fhem/FHEM/77_UWZ.pm b/fhem/FHEM/77_UWZ.pm
index 2638c9322..4198407bf 100644
--- a/fhem/FHEM/77_UWZ.pm
+++ b/fhem/FHEM/77_UWZ.pm
@@ -60,7 +60,7 @@ use vars qw($readingFnAttributes);
 
 use vars qw(%defs);
 my $MODUL           = "UWZ";
-my $version         = "1.4.5";      # ungerade Entwicklerversion Bsp.: 1.1, 1.3, 2.5
+my $version         = "1.4.6";
 
 my $countrycode = "DE";
 my $plz = "77777";
@@ -922,7 +922,7 @@ sub UWZ_Run($) {
         $i++;
     }
     
-    my $max;
+    my $max=0;
     for (@uwzmaxlevel) {
         $max = $_ if !$max || $_ > $max
     };