Public/fhem-mirror
1
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-05-04 22:19:38 +00:00
Code Issues Packages Projects Releases Wiki Activity

77_UWZ: Perl warnings uninitialized value fixed

Browse Source 
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
fhem/CHANGED
View File

@ -1,6 +1,7 @@
# Add changes at the top of the list. Keep it in ASCII, and 80-char wide. # 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. # 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 Attribut's sort_readings_by,htmlsequence
new Readings Warn_X_Creation(_*), WarnUWZLevel, new Readings Warn_X_Creation(_*), WarnUWZLevel,
WarnUWZLevel_Color,WarnUWZLevel_Str WarnUWZLevel_Color,WarnUWZLevel_Str

4
fhem/FHEM/77_UWZ.pm
View File

@ -60,7 +60,7 @@ use vars qw($readingFnAttributes);
use vars qw(%defs); use vars qw(%defs);
my $MODUL = "UWZ"; 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 $countrycode = "DE";
my $plz = "77777"; my $plz = "77777";
@ -922,7 +922,7 @@ sub UWZ_Run($) {
$i++; $i++;
} }
my $max; my $max=0;
for (@uwzmaxlevel) { for (@uwzmaxlevel) {
$max = $_ if !$max || $_ > $max $max = $_ if !$max || $_ > $max
}; };