dev-tex/biber/files/biber-2.5-unescaped-left-brace-in-regex.patch


1
2
3
4
5
6
7
8
9
10
11
12

diff -Naur ./lib/Biber/LaTeX/Recode.pm ./lib/Biber/LaTeX/Recode.pm
--- ./lib/Biber/LaTeX/Recode.pm	2018-07-25 21:20:25.961547631 +0200
+++ ./lib/Biber/LaTeX/Recode.pm	2018-07-25 21:20:06.653779312 +0200
@@ -292,7 +292,7 @@
     # Workaround perl's lack of variable-width negative look-behind -
     # Reverse string (and therefore some of the Re) and use variable width negative look-ahead
     $text = reverse $text;
-    $text =~ s/}(\pM+\pL){(?!\pL+\\)/$1/g;
+    $text =~ s/}(\pM+\pL)\{(?!\pL+\\)/$1/g;
     $text = reverse $text;
     $logger->trace("String in latex_decode() now -> '$text'");