mirror of
https://github.com/fhem/fhem-mirror.git
synced 2025-05-04 22:19:38 +00:00
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:
parent
a44675afb1
commit
12f5e380dd
@ -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
|
||||
|
@ -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
|
||||
};
|
||||
|
Loading…
x
Reference in New Issue
Block a user