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

bugfix: 42_SYSMON: PERL WARNING: Use of uninitialized value

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@15227 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
hexenmeister 2017-10-10 16:06:09 +00:00
parent dcfaa2ab1b
commit c92092fdc2
2 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
fhem/CHANGED
View File

@ -1,5 +1,6 @@
# 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.
- bugfix: 42_SYSMON: PERL WARNING: Use of uninitialized value
- bugfix: 59_WUup.pm: fix state and missing attributes (#695364, #696275) - bugfix: 59_WUup.pm: fix state and missing attributes (#695364, #696275)
- change: 93_DbLog: V2.22.10, adapted to use extended abortArg - change: 93_DbLog: V2.22.10, adapted to use extended abortArg
- change: 76_SMAInverter: V2.9.2, adapted to use extended abortArg - change: 76_SMAInverter: V2.9.2, adapted to use extended abortArg

3
fhem/FHEM/42_SYSMON.pm
View File

@ -42,7 +42,7 @@ use Data::Dumper;
my $missingModulRemote; my $missingModulRemote;
eval "use Net::Telnet;1" or $missingModulRemote .= "Net::Telnet "; eval "use Net::Telnet;1" or $missingModulRemote .= "Net::Telnet ";
my $VERSION = "2.3.2"; my $VERSION = "2.3.3";
use constant { use constant {
PERL_VERSION => "perl_version", PERL_VERSION => "perl_version",
@ -2851,6 +2851,7 @@ sub SYSMON_getNetworkInfo ($$$) {
#my @iwData = SYSMON_execute($hash, "/sbin/iwconfig $nName 2>/dev/null"); #my @iwData = SYSMON_execute($hash, "/sbin/iwconfig $nName 2>/dev/null");
my @iwData = SYSMON_execute($hash, "/sbin/iwconfig $nDef 2>/dev/null"); my @iwData = SYSMON_execute($hash, "/sbin/iwconfig $nDef 2>/dev/null");
foreach (@iwData) { foreach (@iwData) {
next unless ($_);
if($_=~ m/Bit\sRate+(=|:)*(\S*)/) { if($_=~ m/Bit\sRate+(=|:)*(\S*)/) {
$speed=$2; $speed=$2;
} }