From c92092fdc28d0484f0898b219227564297890944 Mon Sep 17 00:00:00 2001
From: hexenmeister <hexenmeister@users.noreply.github.com>
Date: Tue, 10 Oct 2017 16:06:09 +0000
Subject: [PATCH] bugfix:  42_SYSMON: PERL WARNING: Use of uninitialized value

git-svn-id: https://svn.fhem.de/fhem/trunk@15227 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/CHANGED           | 1 +
 fhem/FHEM/42_SYSMON.pm | 3 ++-
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/fhem/CHANGED b/fhem/CHANGED
index 534979c09..9317c6d2d 100644
--- a/fhem/CHANGED
+++ b/fhem/CHANGED
@@ -1,5 +1,6 @@
 # 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.
+  - bugfix:  42_SYSMON: PERL WARNING: Use of uninitialized value
   - bugfix:  59_WUup.pm: fix state and missing attributes (#695364, #696275)
   - change:  93_DbLog: V2.22.10, adapted to use extended abortArg
   - change:  76_SMAInverter: V2.9.2, adapted to use extended abortArg
diff --git a/fhem/FHEM/42_SYSMON.pm b/fhem/FHEM/42_SYSMON.pm
index 88b2da076..1b3b9c3c4 100644
--- a/fhem/FHEM/42_SYSMON.pm
+++ b/fhem/FHEM/42_SYSMON.pm
@@ -42,7 +42,7 @@ use Data::Dumper;
 my $missingModulRemote;
 eval "use Net::Telnet;1" or $missingModulRemote .= "Net::Telnet ";
 
-my $VERSION = "2.3.2";
+my $VERSION = "2.3.3";
 
 use constant {
   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 $nDef 2>/dev/null");
         foreach (@iwData) {
+          next unless ($_);
           if($_=~ m/Bit\sRate+(=|:)*(\S*)/) {
             $speed=$2;
           }