0ab7f0c8b5
OBS-URL: https://build.opensuse.org/package/show/Publishing:TeXLive/texlive?expand=0&rev=281
18 lines
596 B
Plaintext
18 lines
596 B
Plaintext
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
|