[libencode-arabic-perl] 02/04: Add patch to fix "Unescaped left brace in regex is deprecated" warning.
gregor herrmann
gregoa at debian.org
Mon Dec 28 01:28:52 UTC 2015
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 <gregoa at 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 <gregoa at 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
More information about the Pkg-perl-cvs-commits
mailing list