From 0ab7f0c8b5019a1af10a4e22da884ea81e01205f8ee0b6fc2bcefe75dcc997fb Mon Sep 17 00:00:00 2001
From: "Dr. Werner Fink" <werner@suse.com>
Date: Thu, 15 Mar 2018 10:46:19 +0000
Subject: [PATCH] .

OBS-URL: https://build.opensuse.org/package/show/Publishing:TeXLive/texlive?expand=0&rev=281
---
 biber-perl-5.30.dif | 15 ++++-----------
 1 file changed, 4 insertions(+), 11 deletions(-)

diff --git a/biber-perl-5.30.dif b/biber-perl-5.30.dif
index 2fe330c..5022469 100644
--- a/biber-perl-5.30.dif
+++ b/biber-perl-5.30.dif
@@ -1,24 +1,17 @@
 Fun with Perl 5.30
 
 ---
- lib/Biber/LaTeX/Recode.pm |    7 ++++++-
- 1 file changed, 6 insertions(+), 1 deletion(-)
+ 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
-@@ -312,9 +312,14 @@ sub latex_decode {
-     #
+@@ -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
-+    # Careful here - reversing puts any combining chars before the char so \X can't be used
      $text = reverse $text;
 -    $text =~ s/}(\pM+\pL){(?!\pL+\\)/$1/g;
-+    $text =~ s/\}(\pM*\pL)\{(?!(?:\}[^}]+\{)*\pL+\\)/$1/g;
++    $text =~ s/}(\pM+\pL)\{(?!\pL+\\)/$1/g;
      $text = reverse $text;
-+    # Put brace markers back after doing the brace elimination as we only want to eliminate
-+    # braces introduced as part of decoding, not explicit braces in the data
-+    $text =~ s/\x{1f}/{/g;
-+    $text =~ s/\x{1e}/}/g;
  
      # Replace verbatim field markers
-     $text =~ s/([a-f0-9]{32})/$saveverb->{$1}/gie;