FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-04-14 15:39:12 +00:00
Code Issues Releases Wiki Activity

fix: warning (userdefined readings)

Browse Source 
change: determine perl version


git-svn-id: https://svn.fhem.de/fhem/trunk@8987 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
hexenmeister 2015-07-26 17:54:36 +00:00
parent 782095634e
commit 1746cbc33a
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
fhem/FHEM/42_SYSMON.pm
View File

@ -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);