From 8356a432513a855e04428fa0c8646d9036bb1b4c Mon Sep 17 00:00:00 2001
From: betateilchen <>
Date: Sat, 19 Mar 2016 17:13:07 +0000
Subject: [PATCH] configDB.pm: fix filelist problem on perl >= 5.20

git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@11084 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 configDB.pm | 16 ++++++----------
 1 file changed, 6 insertions(+), 10 deletions(-)

diff --git a/configDB.pm b/configDB.pm
index 635a88131..d876865e6 100644
--- a/configDB.pm
+++ b/configDB.pm
@@ -110,6 +110,7 @@ use strict;
 use warnings;
 use Text::Diff;
 use DBI;
+use Data::Dumper;
 
 ##################################################
 # Forward declarations for functions in fhem.pl
@@ -1035,23 +1036,18 @@ sub _cfgDB_binFileimport($$;$) {
 sub _cfgDB_Filelist(;$) {
 	my ($notitle) = @_;
 	my $ret =	"Files found in database:\n".
-						"------------------------------------------------------------\n";
+				"------------------------------------------------------------\n";
 	$ret = "" if $notitle;
 	my $fhem_dbh = _cfgDB_Connect;
-	my @dbtable = ('fhembinfilesave');
-	foreach (@dbtable) {
-		my $sth = $fhem_dbh->prepare( "SELECT filename FROM $_ group by filename order by filename" );  
-		$sth->execute();
-		while (my $line = $sth->fetchrow_array()) {
-			$ret .= "$line\n";
-		}
-		$sth->finish();
+	my $sql = "SELECT filename FROM fhembinfilesave group by filename order by filename";  
+	my $content = $fhem_dbh->selectall_arrayref($sql);
+	foreach my $row (@$content) {
+		$ret .= "@$row[0]\n" if(defined(@$row[0]));
 	}
 	$fhem_dbh->disconnect();
 	return $ret;
 }
 
-
 1;
 
 =pod