regexp typo (error in perl/5.32)

Signed-off-by: Henry Cox <[email protected]>
linux-test-project · Dec 21, 2024 · b34c844 · b34c844
1 parent 58e4581
commit b34c844
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/lib/lcovutil.pm b/lib/lcovutil.pm
@@ -4507,8 +4507,8 @@ sub addAlias
         my $len    = length($name);
         # penalize lambda functions so that their name is not chosen
         #  (java workaround or ugly hack, depending on your perspective)
-        $curlen += 1000 if $self->[NAME] =~ /({lambda\(|\.lambda\$)/;
-        $len    += 1000 if $name         =~ /({lambda\(|\.lambda\$)/;
+        $curlen += 1000 if $self->[NAME] =~ /(\{lambda\(|\.lambda\$)/;
+        $len    += 1000 if $name         =~ /(\{lambda\(|\.lambda\$)/;
         $self->[NAME] = $name
             if ($len < $curlen ||    # alias is shorter
                 ($len == $curlen &&   # alias is same length but lexically first