From 1746cbc33a05c072b074eba40b8d361e777c53bf Mon Sep 17 00:00:00 2001
From: hexenmeister <hexenmeister@users.noreply.github.com>
Date: Sun, 26 Jul 2015 17:54:36 +0000
Subject: [PATCH] fix: warning (userdefined readings) change: determine perl
 version

git-svn-id: https://svn.fhem.de/fhem/trunk@8987 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/42_SYSMON.pm | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/fhem/FHEM/42_SYSMON.pm b/fhem/FHEM/42_SYSMON.pm
index d53560be4..95b96e6f7 100644
--- a/fhem/FHEM/42_SYSMON.pm
+++ b/fhem/FHEM/42_SYSMON.pm
@@ -38,7 +38,7 @@ use Data::Dumper;
 my $missingModulRemote;
 eval "use Net::Telnet;1" or $missingModulRemote .= "Net::Telnet ";
 
-my $VERSION = "2.2.4";
+my $VERSION = "2.2.5";
 
 use constant {
   PERL_VERSION    => "perl_version",
@@ -1163,7 +1163,7 @@ SYSMON_obtainParameters_intern($$)
     # nur lokal abfragen (macht remote keinen Sinn)
     if ($mode eq 'local') {
       # Perl version
-      $map->{+PERL_VERSION} = "$]";
+      $map->{+PERL_VERSION} = "$^V";
     }
     
     if(SYSMON_isProcFS($hash)) {
@@ -1488,8 +1488,10 @@ SYSMON_getUserDefined($$$$)
   
   my $out_str = "";
   foreach my $k (@out_arr) {
-    chomp($k);
-    $out_str.=$k." ";
+  	if(defined($k)) {
+      chomp($k);
+      $out_str.=$k." ";
+    }
   }
   #my $out_str = join(" ",@out_arr);
   ##my $out_str = SYSMON_execute($hash, $uCmd);