File biber-perl-5.30.dif of Package texlive.14236

Fun with Perl 5.30

---
 lib/Biber/LaTeX/Recode.pm |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

--- lib/Biber/LaTeX/Recode.pm
+++ lib/Biber/LaTeX/Recode.pm	2018-03-15 08:49:32.341586613 +0000
@@ -313,7 +313,7 @@ sub latex_decode {
     # 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;
 
     # Replace verbatim field markers