From 4cf4a66b01406f187bfc26c82c23adbac19afd75 Mon Sep 17 00:00:00 2001
From: DS_Starter <DS_Starter@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Mon, 8 Jan 2018 20:50:13 +0000
Subject: [PATCH] 93_DbRep: syntax error if perl version < 5.20

git-svn-id: https://svn.fhem.de/fhem/trunk@15834 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/CHANGED          | 1 +
 fhem/FHEM/93_DbRep.pm | 7 ++++---
 2 files changed, 5 insertions(+), 3 deletions(-)

diff --git a/fhem/CHANGED b/fhem/CHANGED
index 9c599223b..375e569de 100644
--- a/fhem/CHANGED
+++ b/fhem/CHANGED
@@ -1,5 +1,6 @@
 # Add changes at the top of the list. Keep it in ASCII, and 80-char wide.
 # Do not insert empty lines here, update check depends on it.
+  - bugfix:  93_DbRep: syntax error if perl version < 5.20
   - feature: 74_AMADDevice: add new set command "takePicture",change Commandref
   - feature: 98_GOOGLECAST: support speak command for TTS
                             set castdevice speak "Hallo"
diff --git a/fhem/FHEM/93_DbRep.pm b/fhem/FHEM/93_DbRep.pm
index 795623dd8..d0e4835a6 100644
--- a/fhem/FHEM/93_DbRep.pm
+++ b/fhem/FHEM/93_DbRep.pm
@@ -37,6 +37,7 @@
 ###########################################################################################################################
 #  Versions History:
 #
+# 7.3.1        08.01.2018       fix syntax error for perl < 5.20
 # 7.3.0        07.01.2018       DbRep-charfilter avoid control characters in datasets to export, impfile_Push errortext
 #                               improved, 
 #                               expfile_DoParse changed to use aggregation for split selects in timeslices (avoid heavy 
@@ -278,7 +279,7 @@ use Encode qw(encode_utf8);
 
 sub DbRep_Main($$;$);
 
-my $DbRepVersion = "7.3.0";
+my $DbRepVersion = "7.3.1";
 
 my %dbrep_col = ("DEVICE"  => 64,
                  "TYPE"    => 64,
@@ -6421,9 +6422,9 @@ sub DbRep_getblockinginfo($@) {
   my $len = 99;
   foreach my $h (values %BC_hash) {
       next if($h->{terminated} || !$h->{pid});
-	  my @allk = keys(%$h);
+	  my @allk = keys%{$h};
 	  foreach my $k (@allk) {
-	      Log3 ($name, 5, "DbRep $name -> $k : ".%$h{$k});
+	      Log3 ($name, 5, "DbRep $name -> $k : ".$h->{$k});
 	  }
       my $fn   = (ref($h->{fn})  ? ref($h->{fn})  : $h->{fn});
       my $arg  = (ref($h->{arg}) ? ref($h->{arg}) : $h->{arg});