From 0274b746e6350ac80b9b4d6a2c89543f4da621b9 Mon Sep 17 00:00:00 2001 From: Bas Couwenberg 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 () { #--- begin of object, determine type - if (/^define ([a-z0-9\_\-]+) {$/) { + if (/^define ([a-z0-9\_\-]+) \{$/) { $type="$1"; $typelist{$type}++; $objectcount++;