| @@ -0,0 +1,36 @@
+From 0274b746e6350ac80b9b4d6a2c89543f4da621b9 Mon Sep 17 00:00:00 2001
+From: Bas Couwenberg <sebastic@xs4all.nl>
+Date: Sat, 24 Dec 2016 13:29:57 +0100
+Subject: [PATCH] scape left brace in regex.
+
+Quoting perldelta:
+
+> A literal "{" should now be escaped in a pattern
+>
+> If you want a literal left curly bracket (also called a left brace) in
+> a regular expression pattern, you should now escape it by either
+> preceding it with a backslash ("\{") or enclosing it within square
+> brackets "[{]", or by using \Q; otherwise a deprecation warning will be
+> raised. This was first announced as forthcoming in the v5.16 release;
+> it will allow future extensions to the language to happen.
+
+http://search.cpan.org/dist/perl-5.22.0/pod/perldelta.pod#A_literal_%22{%22_should_now_be_escaped_in_a_pattern
+
+Fixes #12
+---
+ plugins/check_multi.in | 2 +-
+ 1 file changed, 1 insertion(+), 1 deletion(-)
+
+diff --git a/plugins/check_multi.in b/plugins/check_multi.in
+index 0be9ff0..4684798 100644
+--- a/plugins/check_multi.in
++++ b/plugins/check_multi.in
+@@ -1362,7 +1362,7 @@ sub parse_objects_cache {
+ }
+ while (<OBJECTS_CACHE>) {
+ #--- begin of object, determine type
+- if (/^define ([a-z0-9\_\-]+) {$/) {
++ if (/^define ([a-z0-9\_\-]+) \{$/) {
+ $type="$1";
+ $typelist{$type}++;
+ $objectcount++;
|
