From: Timo Sirainen <timo.sirainen@dovecot.fi>
Date: Fri, 4 Mar 2016 11:12:59 +0000 (+0200)
Subject: config: Escape regexps properly in settings-get.pl to avoid warnings with new Perl
X-Git-Tag: 2.2.22~16
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=3e6b7d0d0073262cf759db379ba5ebbdad8ef750;p=thirdparty%2Fdovecot%2Fcore.git

config: Escape regexps properly in settings-get.pl to avoid warnings with new Perl
---

diff --git a/src/config/settings-get.pl b/src/config/settings-get.pl
index 3cc2247594..7c6edfeea0 100755
--- a/src/config/settings-get.pl
+++ b/src/config/settings-get.pl
@@ -37,11 +37,11 @@ foreach my $file (@ARGV) {
   while (<$f>) {
     my $write = 0;
     if ($state == 0) {
-      if (/struct .*_settings {/ ||
-	  /struct setting_define.*{/ ||
-	  /struct .*_default_settings = {/) {
+      if (/struct .*_settings \{/ ||
+	  /struct setting_define.*\{/ ||
+	  /struct .*_default_settings = \{/) {
 	$state++;
-      } elsif (/^struct service_settings (.*) = {/) {
+      } elsif (/^struct service_settings (.*) = \{/) {
 	$state++;
 	if ($ifdef eq "") {
 	  $state_ifdef = 0;
@@ -51,7 +51,7 @@ foreach my $file (@ARGV) {
 	}
 	push @services, $1;
 	push @service_ifdefs, $ifdef;
-      } elsif (/^(static )?const struct setting_parser_info (.*) = {/) {
+      } elsif (/^(static )?const struct setting_parser_info (.*) = \{/) {
 	$cur_name = $2;
 	$state++ if ($cur_name !~ /^\*default_/);
       } elsif (/^extern const struct setting_parser_info (.*);/) {