configDB.pm: fix perl warning

git-svn-id: https://svn.fhem.de/fhem/trunk@22995 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
betateilchen
2020-10-20 09:10:09 +00:00
parent f794479c88
commit bff07f0080

View File

@@ -1054,7 +1054,8 @@ sub _cfgDB_Search {
push @result, "search result for$text: $search in version: $searchversion";
push @result, "--------------------------------------------------------------------------------";
while (@line = $sth->fetchrow_array()) {
$row = "$line[0] $line[1] $line[2] $line[3]";
$row = "$line[0] $line[1] $line[2]";
$row .= " $line[3]" if defined($line[3]);
Log 5,"configDB: $row";
push @result, "$row" unless ($line[0] eq 'setuuid');
}