[FFmpeg-devel] [PATCH] Escape braces in a regex, fixing warnings with newer perl

[mypopy at gmail.com]

On Mon, Feb 17, 2020 at 3:46 PM Martin Storsjö <martin at martin.st> wrote:
>
> Perl 5.28 warns about this, saying it will be fatal in Perl 5.32.
>
> Signed-off-by: Martin Storsjö <martin at martin.st>
> ---
>  gas-preprocessor.pl | 2 +-
>  1 file changed, 1 insertion(+), 1 deletion(-)
>
> diff --git a/gas-preprocessor.pl b/gas-preprocessor.pl
> index b2a4bcc..e3805e0 100755
> --- a/gas-preprocessor.pl
> +++ b/gas-preprocessor.pl
> @@ -1102,7 +1102,7 @@ sub handle_serialized_line {
>              }
>
>              # Convert "ld1 {v0.4h-v3.4h}" into "ld1 {v0.4h,v1.4h,v2.4h,v3.4h}"
> -            if ($line =~ /(?:ld|st)\d\s+({\s*v(\d+)\.(\d[bhsdBHSD])\s*-\s*v(\d+)\.(\d[bhsdBHSD])\s*})/) {
> +            if ($line =~ /(?:ld|st)\d\s+(\{\s*v(\d+)\.(\d[bhsdBHSD])\s*-\s*v(\d+)\.(\d[bhsdBHSD])\s*\})/) {
>                  my $regspec = $1;
>                  my $reg1 = $2;
>                  my $layout1 = $3;
> --
LGTM, verified