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

[Martin Storsjö]

On Tue, 18 Feb 2020, mypopy at gmail.com wrote:

> 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

Thanks, pushed.

// Martin