Mercurial > dovecot > core-2.2

changeset 19920:c1b70b76f9bb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
config: Escape regexps properly in settings-get.pl to avoid warnings with new Perl
author Timo Sirainen <timo.sirainen@dovecot.fi>
date Fri, 04 Mar 2016 13:12:59 +0200
parents 126a81a431d2
children 7b75d494429c
files src/config/settings-get.pl
diffstat 1 files changed, 5 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/src/config/settings-get.pl	Thu Mar 03 16:10:51 2016 +0200
+++ b/src/config/settings-get.pl	Fri Mar 04 13:12:59 2016 +0200
@@ -37,11 +37,11 @@
   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 @@
 	}
 	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 (.*);/) {