From ff19fbc4939a45ff7c6970f54887d70429b5a26d Mon Sep 17 00:00:00 2001
From: betateilchen <>
Date: Tue, 31 Mar 2020 19:12:58 +0000
Subject: [PATCH] : minor code cleanup

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

diff --git a/fhem/configDB.pm b/fhem/configDB.pm
index 82e1a32c8..5220d3bab 100644
--- a/fhem/configDB.pm
+++ b/fhem/configDB.pm
@@ -1201,10 +1201,10 @@ sub _cfgDB_Fileexport($;$) {
 	return "No data found for file $filename" unless $counter;
 	return ($blobContent,$counter) if $raw;
 	
-	open( FILE,">$filename" );
-		binmode(FILE);
-		print FILE $blobContent;
-	close( FILE );
+	open( my $f,">","$filename" );
+		binmode($f);
+		print $f $blobContent;
+	close( $f );
 	return "$counter bytes written from database into file $filename";
 }
 
@@ -1213,11 +1213,11 @@ sub _cfgDB_binFileimport($$;$) {
 	my ($filename,$filesize,$doDelete) = @_;
 	$doDelete = (defined($doDelete)) ? 1 : 0;
 
-	open (inFile,"<$filename") || die $!;
+	open (my $inFile,"<","$filename") || die $!;
 		my $blobContent;
-		binmode(inFile);
-		my $readBytes = read(inFile, $blobContent, $filesize);
-	close(inFile);
+		binmode($inFile);
+		my $readBytes = read($inFile, $blobContent, $filesize);
+	close($inFile);
 	$blobContent = encode_base64($blobContent);
 	my $fhem_dbh = _cfgDB_Connect;
 	$fhem_dbh->do("delete from fhemb64filesave where filename = '$filename'");