FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-04-19 12:46:03 +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

6
fhem/FHEM/42_SYSMON.pm
View File

@ -38,7 +38,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.2.4"; my $VERSION = "2.2.5";
use constant { use constant {
PERL_VERSION => "perl_version", PERL_VERSION => "perl_version",
@ -1163,7 +1163,7 @@ SYSMON_obtainParameters_intern($$)
# nur lokal abfragen (macht remote keinen Sinn) # nur lokal abfragen (macht remote keinen Sinn)
if ($mode eq 'local') { if ($mode eq 'local') {
# Perl version # Perl version
$map->{+PERL_VERSION} = "$]"; $map->{+PERL_VERSION} = "$^V";
} }
if(SYSMON_isProcFS($hash)) { if(SYSMON_isProcFS($hash)) {
@ -1488,9 +1488,11 @@ SYSMON_getUserDefined($$$$)
my $out_str = ""; my $out_str = "";
foreach my $k (@out_arr) { foreach my $k (@out_arr) {
if(defined($k)) {
chomp($k); chomp($k);
$out_str.=$k." "; $out_str.=$k." ";
} }
}
#my $out_str = join(" ",@out_arr); #my $out_str = join(" ",@out_arr);
##my $out_str = SYSMON_execute($hash, $uCmd); ##my $out_str = SYSMON_execute($hash, $uCmd);
##chomp $out_str; ##chomp $out_str;