From fe379b6f0590eb58a3c5273a5f47fae9aeb6e4f5 Mon Sep 17 00:00:00 2001
From: Lars Kruse <devel@sumpfralle.de>
Date: Mon, 12 Aug 2019 05:49:33 +0200
Subject: [PATCH] Plugin amr: fix regex issue

An unescpaed left brace is rejected by recent versions of perl.
---
 plugins/amr/amr | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/plugins/amr/amr b/plugins/amr/amr
index e6ae91e9..c200ccec 100755
--- a/plugins/amr/amr
+++ b/plugins/amr/amr
@@ -133,7 +133,7 @@ sub parse
 
     while (<$log>) {
         # \d protects us against HTML injection here, be careful when changing
-	if (m,SCM:{ID:(\d+) +.* +Consumption: +(\d+) +,) {
+	if (m,SCM:\{ID:(\d+) +.* +Consumption: +(\d+) +,) {
 	    $stations{$1} = $2;
             $signals{$1}++;
 	}