From e6a481d4cf632a837135937f4f0995b9fd69ab99 Mon Sep 17 00:00:00 2001
From: Niko Tyni <ntyni@debian.org>
Date: Sun, 27 Dec 2015 22:23:19 +0200
Subject: [PATCH] Fix regexp syntax for Perl 5.22

Unescaped left brace in regex is deprecated, passed through in regex

Bug-Debian: https://bugs.debian.org/809098
Bug: https://rt.cpan.org/Public/Bug/Display.html?id=110678
---
 lib/LaTeX/Decode.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/LaTeX/Decode.pm b/lib/LaTeX/Decode.pm
index 7741405..92fef90 100644
--- a/lib/LaTeX/Decode.pm
+++ b/lib/LaTeX/Decode.pm
@@ -130,7 +130,7 @@ sub latex_decode {
         $text =~ s/\\not\\($NEG_SYMB_RE)/$NEGATEDSYMBOLS{$1}/ge;
         $text =~ s/\\textsuperscript{($SUPER_RE)}/$SUPERSCRIPTS{$1}/ge;
         $text =~ s/\\textsuperscript{\\($SUPERCMD_RE)}/$CMDSUPERSCRIPTS{$1}/ge;
-        $text =~ s/\\dings{([2-9AF][0-9A-F])}/$DINGS{$1}/ge;
+        $text =~ s/\\dings\{([2-9AF][0-9A-F])}/$DINGS{$1}/ge;
     }
 
     $text =~ s/(\\[a-zA-Z]+)\\(\s+)/$1\{\}$2/g;    # \foo\ bar -> \foo{} bar
-- 
2.6.4

