Description: fix regexp warning with perl 5.28
 Unescaped left brace in regex is deprecated here (and will be fatal in Perl 5.32), passed through in regex; marked by <-- HERE in m/\A((?![     ]*({ <-- HERE |\n)|.*?\S.*?\t.*?\S).*?\S.*\n)/ at lib/Getopt/Declare.pm line 651.
 Unescaped left brace in regex is deprecated here (and will be fatal in Perl 5.32), passed through in regex; marked by <-- HERE in m/\A((?![     ]*({ <-- HERE |\n)|.*?\S.*?\t.*?\S).*?\S.*\n)/ at lib/Getopt/Declare.pm line 1072.
Origin: vendor
Bug-Debian: https://bugs.debian.org/903323
Author: gregor herrmann <gregoa@debian.org>
Last-Update: 2018-07-08
Forwarded: https://rt.cpan.org/Ticket/Display.html?id=125797
Bug: https://rt.cpan.org/Ticket/Display.html?id=125797

--- a/lib/Getopt/Declare.pm
+++ b/lib/Getopt/Declare.pm
@@ -648,7 +648,7 @@
 			my $ditto;
 			$_strict ||= $desc =~ /\Q[strict]/;
 
-			$desc .= $1 while s/\A((?![ 	]*({|\n)|.*?\S.*?\t.*?\S).*?\S.*\n)//;
+			$desc .= $1 while s/\A((?![ 	]*(\{|\n)|.*?\S.*?\t.*?\S).*?\S.*\n)//;
 			
 			$_lastdesc and $desc =~ s/\A\s*\[\s*ditto\s*\]/$_lastdesc/
 				  and $ditto = 1;
@@ -1069,7 +1069,7 @@
 			my ($desc) = expand $2;
 
 			$desc .= (expand $1)[0]
-				while s/\A((?![ 	]*({|\n)|.*?\S.*?\t.*?\S).*?\S.*\n)//;
+				while s/\A((?![ 	]*(\{|\n)|.*?\S.*?\t.*?\S).*?\S.*\n)//;
 
 			# Skip parameters with the special directive [undocumented]
 			next if $desc =~ /\[\s*undocumented\s*\]/i;