From 3ada87154f724ed5adb6a95afd47501eb5915ebb Mon Sep 17 00:00:00 2001
From: betateilchen <>
Date: Tue, 27 Jun 2017 17:51:03 +0000
Subject: [PATCH] 98_fheminfo.pm: fix perl warnings
git-svn-id: https://svn.fhem.de/fhem/trunk@14582 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
fhem/FHEM/98_fheminfo.pm | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/fhem/FHEM/98_fheminfo.pm b/fhem/FHEM/98_fheminfo.pm
index ac7474fdb..12d36f568 100644
--- a/fhem/FHEM/98_fheminfo.pm
+++ b/fhem/FHEM/98_fheminfo.pm
@@ -155,7 +155,8 @@ sub _fi2_HtmlTable($) {
$result .= "| System Info |
";
$result .= "| | Release: | $fhemInfo{'system'}{'release'} |
";
$result .= "| | FeatureLevel: | $fhemInfo{'system'}{'feature'} |
";
- $result .= "| | SVN rev: | $fhemInfo{'system'}{'revision'} |
";
+ $result .= "| | SVN rev: | $fhemInfo{'system'}{'revision'} |
"
+ if (defined($fhemInfo{'system'}{'revision'}));
$result .= "| | OS: | $fhemInfo{'system'}{'os'} |
";
$result .= "| | Arch: | $fhemInfo{'system'}{'arch'} |
";
$result .= "| | Perl: | $fhemInfo{'system'}{'perl'} |
";
@@ -167,7 +168,7 @@ sub _fi2_HtmlTable($) {
foreach my $type (sort @keys)
{
next if ($type eq 'system');
- next unless $type;
+ next unless (defined($type) && $type);
$result .= "| $type | | $fhemInfo{$type}{'noModel'} |
";
while ( my ($model, $count) = each(%{$fhemInfo{$type}}) )
{ $result .= "| | $model | $fhemInfo{$type}{$model} |
" unless $model eq 'noModel'; }