File 0274b746e6350ac80b9b4d6a2c89543f4da621b9.patch of Package nagios-plugins-check_multi

File 0274b746e6350ac80b9b4d6a2c89543f4da621b9.patch of Package nagios-plugins-check_multi (Revision acd9aa79fef7eb06fd783a068e5413d3)

Currently displaying revision acd9aa79fef7eb06fd783a068e5413d3, show latest

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++;