77_UWZ: Perl warnings uninitialized value fixed

git-svn-id: https://svn.fhem.de/fhem/trunk@11882 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
markooldenburg 2016-08-03 06:37:42 +00:00
parent a44675afb1
commit 12f5e380dd
2 changed files with 4 additions and 3 deletions

View File

@ -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

View File

@ -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
};