From e42f5dd7d9bf9f4e7580e983854876e62ee4f89c Mon Sep 17 00:00:00 2001
From: betateilchen <>
Date: Sat, 10 Jun 2017 10:27:15 +0000
Subject: [PATCH] 98_fheminfo.pm: prevent perl warnings

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

diff --git a/fhem/FHEM/98_fheminfo.pm b/fhem/FHEM/98_fheminfo.pm
index ef3c12432..8d3c921a2 100644
--- a/fhem/FHEM/98_fheminfo.pm
+++ b/fhem/FHEM/98_fheminfo.pm
@@ -117,7 +117,8 @@ sub _fi2_Send() {
 sub _fi2_TelnetTable($) {
   my ($doSend) = shift;
   my $upTime = _fi2_Uptime();
-  my $str =  "Following statistics data will be sent to server:\n(see Logfile for server response)\n\n" if($doSend == 1);
+  my $str;
+  $str .= "Following statistics data will be sent to server:\n(see Logfile for server response)\n\n" if($doSend == 1);
   $str .= "System Info\n";
   $str .= sprintf("  Release%*s: %s\n",6," ",$fhemInfo{'system'}{'release'});
   $str .= sprintf("  FeatureLevel%*s: %s\n",0," ",$fhemInfo{'system'}{'feature'});
@@ -159,7 +160,8 @@ sub _fi2_HtmlTable($) {
    my @keys = keys %fhemInfo;
    foreach my $type (sort @keys)
    {
-      next if $type eq 'system';
+      next if ($type eq 'system');
+      next unless $type;
       $result .= "<tr><td>$type</td><td> </td><td>$fhemInfo{$type}{'noModel'}</td></tr>";
       while ( my ($model, $count) = each(%{$fhemInfo{$type}}) )
       { $result .= "<tr><td> </td><td>$model</td><td>$fhemInfo{$type}{$model}</td></tr>" unless $model eq 'noModel'; }