This is an automated email from the git hooks/post-receive script. gregoa pushed a commit to branch master in repository libencode-arabic-perl.
commit 425f4a447743d7c2813e3df5be6123cac183f12e Author: gregor herrmann <gre...@debian.org> Date: Mon Dec 28 02:27:02 2015 +0100 Add patch to fix "Unescaped left brace in regex is deprecated" warning. Closes: #809094 --- debian/patches/series | 1 + debian/patches/unescaped_left_brace.patch | 157 ++++++++++++++++++++++++++++++ 2 files changed, 158 insertions(+) diff --git a/debian/patches/series b/debian/patches/series index 8d4da6e..0602d4e 100644 --- a/debian/patches/series +++ b/debian/patches/series @@ -1 +1,2 @@ typos.diff +unescaped_left_brace.patch diff --git a/debian/patches/unescaped_left_brace.patch b/debian/patches/unescaped_left_brace.patch new file mode 100644 index 0000000..741244e --- /dev/null +++ b/debian/patches/unescaped_left_brace.patch @@ -0,0 +1,157 @@ +Description: fix "Unescaped left brace in regex is deprecated, passed through in regex" warning +Origin: vendor +Bug-Debian: https://bugs.debian.org/809094 +Author: gregor herrmann <gre...@debian.org> +Last-Update: 2015-12-28 + +--- a/lib/Encode/Arabic/ArabTeX/RE.pm ++++ b/lib/Encode/Arabic/ArabTeX/RE.pm +@@ -60,67 +60,67 @@ + + $text = join '', map { exists $encode_used{$_} ? $encode_used{$_} : $_ } split '', $text; + +- $text =~ s/([\_\.\^]?\w)\\shadda{}/$1$1/g; +- $text =~ s/(\\ham{.})\\shadda{}/$1$1/g; ++ $text =~ s/([\_\.\^]?\w)\\shadda\{\}/$1$1/g; ++ $text =~ s/(\\ham\{.\})\\shadda\{\}/$1$1/g; + +- $text =~ s/([\=\s\-\%])\\alif{}\\vow{a}l/$1"al-/g; +- $text =~ s/([\=\s\-\%])\\alif{}l/$1al-/g; +- $text =~ s/(b\\vow{i})\\alif{}l/$1-al-/g; +- $text =~ s/([\=\s\-\%])\\alif{}\\vow{([ui])}/$1"$2/g; +- $text =~ s/([\=\s\-\%])\\alif{}/$1i/g; +- $text =~ s/(\\vow{aN})\\alif{}/$1/g; +- $text =~ s/\\alif{}(\\vow{aN})/$1/g; +- $text =~ s/\\vow{a}\\alif{}/\\vow{A}/g; +- $text =~ s/\\alif{}/\\aux{A}/g; +- +- $text =~ s/\\madda{}/'A/g; +- +- $text =~ s/\\vow{a}\\maq{}/\\vow{Y}/g; +- $text =~ s/\\maq{}(\\vow{aN})/\\vow{aNY}/g; +- $text =~ s/\\vow{aN}\\maq{}/\\vow{aNY}/g; +- $text =~ s/\\maq{}/\\aux{Y}/g; ++ $text =~ s/([\=\s\-\%])\\alif\{\}\\vow\{a\}l/$1"al-/g; ++ $text =~ s/([\=\s\-\%])\\alif\{\}l/$1al-/g; ++ $text =~ s/(b\\vow\{i\})\\alif\{\}l/$1-al-/g; ++ $text =~ s/([\=\s\-\%])\\alif\{\}\\vow\{([ui])\}/$1"$2/g; ++ $text =~ s/([\=\s\-\%])\\alif\{\}/$1i/g; ++ $text =~ s/(\\vow\{aN\})\\alif\{\}/$1/g; ++ $text =~ s/\\alif\{\}(\\vow\{aN\})/$1/g; ++ $text =~ s/\\vow\{a\}\\alif\{\}/\\vow{A}/g; ++ $text =~ s/\\alif\{\}/\\aux{A}/g; ++ ++ $text =~ s/\\madda\{\}/'A/g; ++ ++ $text =~ s/\\vow\{a\}\\maq\{\}/\\vow{Y}/g; ++ $text =~ s/\\maq\{\}(\\vow\{aN\})/\\vow{aNY}/g; ++ $text =~ s/\\vow\{aN\}\\maq\{\}/\\vow{aNY}/g; ++ $text =~ s/\\maq\{\}/\\aux{Y}/g; + + $text =~ s/i(}?)y([^aiuAIUY])/I$1$2/g; # produces \ham{I}, too + $text =~ s/u(}?)w([^aiuAIUY])/U$1$2/g; + +- $text =~ s/([iIuU]})(\\ham{a})/$1-$2/g; +- $text =~ s/([\-\s])\\ham{a}([^\\])/$1'\\aux{a}$2/g; +- $text =~ s/([^\}\s])\\ham{a}/$1\\aux{a}'/g; ++ $text =~ s/([iIuU]})(\\ham\{a\})/$1-$2/g; ++ $text =~ s/([\-\s])\\ham\{a\}([^\\])/$1'\\aux{a}$2/g; ++ $text =~ s/([^\}\s])\\ham\{a\}/$1\\aux{a}'/g; + +- $text =~ s/([^\-\s])(\\ham{i})/$1-$2/g; +- $text =~ s/\\ham{i}([^\\])/'\\aux{i}$1/g; ++ $text =~ s/([^\-\s])(\\ham\{i\})/$1-$2/g; ++ $text =~ s/\\ham\{i\}([^\\])/'\\aux{i}$1/g; + +- $text =~ s/([^\}])(\\ham{w})/$1\\aux{u}$2/g; +- $text =~ s/(\\ham{w})([^\\])/$1\\aux{u}$2/g; ++ $text =~ s/([^\}])(\\ham\{w\})/$1\\aux{u}$2/g; ++ $text =~ s/(\\ham\{w\})([^\\])/$1\\aux{u}$2/g; + +- $text =~ s/([^\}])(\\ham{y})/$1\\aux{i}$2/g; +- $text =~ s/(\\ham{y})([^\\])/$1\\aux{i}$2/g; ++ $text =~ s/([^\}])(\\ham\{y\})/$1\\aux{i}$2/g; ++ $text =~ s/(\\ham\{y\})([^\\])/$1\\aux{i}$2/g; + +- $text =~ s/\\ham{[aiwy]}/'/g; +- $text =~ s/\\ham{I}/'I/g; ++ $text =~ s/\\ham\{[aiwy]\}/'/g; ++ $text =~ s/\\ham\{I\}/'I/g; + +- $text =~ s/(?<![^\=\s\-\%])\\aux{A}/\\aux{i}/g; ++ $text =~ s/(?<![^\=\s\-\%])\\aux\{A\}/\\aux{i}/g; + + + no strict 'refs'; + + if (defined ${ $cls . '::enmode' } and ${ $cls . '::enmode' } == 3) { + +- $text =~ s/\\vow{(.+?)}/$1/g; +- $text =~ s/\\aux{(.+?)}/"$1/g; +- $text =~ s/\\sukun{}/"/g; ++ $text =~ s/\\vow\{(.+?)\}/$1/g; ++ $text =~ s/\\aux\{(.+?)\}/"$1/g; ++ $text =~ s/\\sukun\{\}/"/g; + } + elsif (defined ${ $cls . '::enmode' } and ${ $cls . '::enmode' } == 2) { + +- $text =~ s/\\vow{(.+?)}/"$1/g; +- $text =~ s/\\aux{(.+?)}/$1/g; +- $text =~ s/\\sukun{}/"/g; ++ $text =~ s/\\vow\{(.+?)\}/"$1/g; ++ $text =~ s/\\aux\{(.+?)\}/$1/g; ++ $text =~ s/\\sukun\{\}/"/g; + } + elsif (defined ${ $cls . '::enmode' } and ${ $cls . '::enmode' } == 4) { + +- $text =~ s/\\vow{(.+?)}/$1/g; +- $text =~ s/\\aux{(.+?)}/$1/g; +- $text =~ s/\\sukun{}//g; ++ $text =~ s/\\vow\{(.+?)\}/$1/g; ++ $text =~ s/\\aux\{(.+?)\}/$1/g; ++ $text =~ s/\\sukun\{\}//g; + } + + $text = Encode::encode "utf8", $text if Encode::is_utf8($text); +@@ -157,19 +157,19 @@ + $text =~ s/([\s\-])'([iI])/$1\\H{i}$2/gs; + $text =~ s/([\s\-])'A/$1\\M{}/gs; + +- $text =~ s/(I|y\\O{})'(aN[AY]?[\s\-])/$1\\H{y}$2/gs; +- $text =~ s/a'(|\\D{})(|[au]N?)([\s\-])/a\\H{a}$1$2$3/gs; +- $text =~ s/a'(|\\D{})(iN?)([\s\-])/a\\H{i}$1$2$3/gs; +- $text =~ s/i'(|\\D{})(|[aiu]N?)([\s\-])/i\\H{y}$1$2$3/gs; +- $text =~ s/u'(|\\D{})(|[aiu]N?)([\s\-])/u\\H{w}$1$2$3/gs; +- $text =~ s/'(|\\D{})(|[aiu]N?)([\s\-])/\\H{}$1$2$3/gs; +- +- $text =~ s/([iI]|y\\O{})'(|\\D{})/$1\\H{y}$2/g; +- $text =~ s/'(|\\D{})([iI])/\\H{y}$1$2/g; +- $text =~ s/([uU])'(|\\D{})/$1\\H{w}$2/g; +- $text =~ s/'(|\\D{})([uU])/\\H{w}$1$2/g; +- $text =~ s/A'(|\\D{})/A\\H{}$1/g; # how do you write <rA''AsuN>? +- $text =~ s/a'(\\D{})/a\\H{a}$1/g; # how do you write <ra''AsuN>? ++ $text =~ s/(I|y\\O\{\})'(aN[AY]?[\s\-])/$1\\H{y}$2/gs; ++ $text =~ s/a'(|\\D\{\})(|[au]N?)([\s\-])/a\\H{a}$1$2$3/gs; ++ $text =~ s/a'(|\\D\{\})(iN?)([\s\-])/a\\H{i}$1$2$3/gs; ++ $text =~ s/i'(|\\D\{\})(|[aiu]N?)([\s\-])/i\\H{y}$1$2$3/gs; ++ $text =~ s/u'(|\\D\{\})(|[aiu]N?)([\s\-])/u\\H{w}$1$2$3/gs; ++ $text =~ s/'(|\\D\{\})(|[aiu]N?)([\s\-])/\\H{}$1$2$3/gs; ++ ++ $text =~ s/([iI]|y\\O\{\})'(|\\D\{\})/$1\\H{y}$2/g; ++ $text =~ s/'(|\\D\{\})([iI])/\\H{y}$1$2/g; ++ $text =~ s/([uU])'(|\\D\{\})/$1\\H{w}$2/g; ++ $text =~ s/'(|\\D\{\})([uU])/\\H{w}$1$2/g; ++ $text =~ s/A'(|\\D\{\})/A\\H{}$1/g; # how do you write <rA''AsuN>? ++ $text =~ s/a'(\\D\{\})/a\\H{a}$1/g; # how do you write <ra''AsuN>? + $text =~ s/'A/\\M{}/g; + $text =~ s/'a/\\H{a}a/g; + $text =~ s/'Y/\\H{a}Y/g; +@@ -181,7 +181,7 @@ + # alas! using $one in the replacing expression produces extra \\ + + $text =~ s/aNY/\\V{aN}\\Q{}/g; +- $text =~ s/(?<=A\\H{}|\\H{a})aN/\\V{aN}/g; ++ $text =~ s/(?<=A\\H\{\}|\\H\{a\})aN/\\V{aN}/g; + $text =~ s/(?<=T)aN/\\V{aN}/g; + + $text =~ s/(?<!{)aNA?/\\V{aN}\\L{}/g; -- Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libencode-arabic-perl.git _______________________________________________ Pkg-perl-cvs-commits mailing list Pkg-perl-cvs-commits@lists.alioth.debian.org http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits