[pari-sage] 01/01: Avoid getting spammed by Perl deprecation warnings when building Sage

[Ximin Luo]

This is an automated email from the git hooks/post-receive script.

infinity0 pushed a commit to branch master
in repository pari-sage.

commit 81c2b05a437c95193c3808b081d739be5b2c41ba
Author: Ximin Luo <infinity0 at debian.org>
Date:   Tue Jul 5 22:56:12 2016 +0200

    Avoid getting spammed by Perl deprecation warnings when building Sage
---
 debian/patches/gphelp-avoid-deprecation-spam.patch | 88 ++++++++++++++++++++++
 debian/patches/series                              |  1 +
 2 files changed, 89 insertions(+)

diff --git a/debian/patches/gphelp-avoid-deprecation-spam.patch b/debian/patches/gphelp-avoid-deprecation-spam.patch
new file mode 100644
index 0000000..6e3998b
--- /dev/null
+++ b/debian/patches/gphelp-avoid-deprecation-spam.patch
@@ -0,0 +1,88 @@
+--- a/doc/gphelp.in
++++ b/doc/gphelp.in
+@@ -380,7 +380,7 @@
+   return if ($line !~ /$help/i);
+ 
+   local($_) = $current;
+-  s/\\b{(.)}/\\$1/;
++  s/\\b\{(.)}/\\$1/;
+   s/\{\}//g;
+   s/\\pow/^/;
+   s/\\%/%/;
+@@ -748,7 +748,7 @@
+   s/\\fun\s*\{([^{}]*)\}\s*\{((?:[^{}]|\{[^{}]*\})*)\}\s*\{((?:[^{}]|\{[^{}]*\})*)\}/\\kbd{$1 \\key{$2}($3)}\\sidx{$2}/g;
+ 
+   s/\\\\(?=[a-zA-Z])/\\bs /g;
+-  s/\\b{}\\b{}/\\bs\\bs /g;
++  s/\\b\{}\\b\{}/\\bs\\bs /g;
+   s/\\\\/\\bs/g;
+   s/(\'\'|\`\`)/"/g unless $to_pod;     # (english) double quotes
+   # asymptotic or isomorphic (~) [beware of ties]
+@@ -760,16 +760,16 @@
+   s/\\(~|tilde)/~/g;
+ 
+   s/\\(equiv)(?![a-zA-Z])/ = /g;
+-  s/\\`a/$tr{agrave}/; s/\\`{a}/$tr{agrave}/;
+-  s/\\"o/$tr{ouml}/;   s/\\"{o}/$tr{ouml}/;
+-  s/\\"u/$tr{uuml}/;   s/\\"{u}/$tr{uuml}/;
+-  s/\\'e/$tr{eacute}/; s/\\'{e}/$tr{eacute}/;
++  s/\\`a/$tr{agrave}/; s/\\`\{a}/$tr{agrave}/;
++  s/\\"o/$tr{ouml}/;   s/\\"\{o}/$tr{ouml}/;
++  s/\\"u/$tr{uuml}/;   s/\\"\{u}/$tr{uuml}/;
++  s/\\'e/$tr{eacute}/; s/\\'\{e}/$tr{eacute}/;
+ 
+   s/(^|[^\\])%.*/$1/g;		        # comments
+   s/\\vadjust\s*\{\s*\\penalty\s*\d+\s*\}//g;
+ 
+   # We do not strip %\n, thus:
+-  s/\\kbd{\n\s*/\\kbd{/g;
++  s/\\kbd\{\n\s*/\\kbd{/g;
+   s/\$\\bf(\b|(?=[\d_]))\s*([^\$]+)\$/\$$tr{startbcode}$1$tr{endbcode}\$/g;
+   s/\$/$tr{dollar}/g;		        # math mode
+   s/\t/ /g; s/\\,//g; s/\\[ ;]/ /g;     # various spaces
+@@ -779,7 +779,7 @@
+   s/\\TeX\{\}/TeX/g;
+   s/\\TeX(\W)/TeX$1/g;
+   s/ *\\circ\b */ o /g;
+-  s/\\d?frac{\s*((?:[^{}]|\{[^{}]*\})*)}{\s*((?:[^{}]|\{[^{}]*\})*)}/($1)\/($2)/g;
++  s/\\d?frac\{\s*((?:[^{}]|\{[^{}]*\})*)}\{\s*((?:[^{}]|\{[^{}]*\})*)}/($1)\/($2)/g;
+   s(\\d?frac\s*(\d)\s*(\d))(($1/$2))g;
+   s[{\s*(\w)\s*\\over(?![a-zA-Z])\s*(\w)\s*}]{($1/$2)}g;
+   s[{\s*((?:[^{}]|\{[^{}]*\})*)\\over(?![a-zA-Z])\s*((?:[^{}]|\{[^{}]*\})*)}][($1)/($2)]g;
+@@ -896,21 +896,21 @@
+   s/\\(floor|ceil|round|binom)\{/$1\{/g;
+   s/\\(var|emph)\{([^\}]*)\}/$tr{startit}$2$tr{endit}/g;
+   s/\\fl(?![a-zA-Z])/$tr{startit}flag$tr{endit}/g;
+-  s/\\b{([^}]*)}/$tr{startcode}\\$1$tr{endcode}/g;
++  s/\\b\{([^}]*)}/$tr{startcode}\\$1$tr{endcode}/g;
+   s/\\kbdsidx/\\sidx/g;
+   s/\\sidx\{[^\}]*\}//g unless $to_pod;
+   s/\\[a-zA-Z]*idx\{([^\}]*)\}/$1/g unless $to_pod;
+-  s/{\\text{(st|nd|th)}}/\\text{$1}/g;
+-  s/\^\\text{th}/-th/g;
+-  s/1\^\\text{st}/1st/g;
+-  s/2\^\\text{nd}/2nd/g;
++  s/{\\text\{(st|nd|th)}}/\\text{$1}/g;
++  s/\^\\text\{th}/-th/g;
++  s/1\^\\text\{st}/1st/g;
++  s/2\^\\text\{nd}/2nd/g;
+ 
+   s/\\(text|hbox|Big)//g;
+   s/^([ \t]+)\{ *\\(it|sl|bf|tt)\b/S<$1>{\\$2/gm;
+   s/\{ *\\(it|sl) *(([^{}]+(?=[{}])|\{[^{}]*\})*)\}/$tr{startit}$2$tr{endit}/g;
+   s/\{ *\\bf *(([^{}]+(?=[{}])|\{[^{}]*\})*)\}/$tr{startbold}$1$tr{endbold}/g;
+   s/\{ *\\tt *(([^{}]+(?=[{}])|\{[^{}]*\})*)\}/$tr{startpodcode}$1$tr{endpodcode}/g;
+-  $seek=1 if (s/\\emph{ */$tr{startit}/g);
++  $seek=1 if (s/\\emph\{ */$tr{startit}/g);
+   if ($seek) { $seek=0 if (s/\}/$tr{endit}/) }
+   s/\\(backslash|bs)\{(\w)\}/\\$2/g;
+   s/\\(backslash|bs)(?![a-zA-Z]) */\\/g;
+@@ -1105,7 +1105,7 @@
+ # s/\\(?:key|li)\s*{(.*)}\s*{}[ \t]*\n/\n\n=back\n\n$1\n\n=over\n\n/mgs;
+ # s/\\(key|var)(?![a-zA-Z])\s*{(\w+)}/C<$2>/mg;
+   s/\\var\s*{X<(\w+)>(\w+)}/X<$1>$tr{startcode}$2$tr{endcode}/mg;
+-  s/\\var\s*{f{}lag}/$tr{startcode}flag$tr{endcode}/mg;
++  s/\\var\s*{f\{}lag}/$tr{startcode}flag$tr{endcode}/mg;
+ 
+   s/\\metax(?![a-zA-Z])\s*{(.*)}\s*{\s*(\w+)(?=C\<)(.*)}[ \t]*\n/\n\n=item C<L<$2>$3>\n\n$1\n\n/mg;
+   s/\\metax(?![a-zA-Z])\s*{(.*)}\s*{(.*)}[ \t]*\n/\n\n=item C<$2>\n\n$1\n\n/mg;
diff --git a/debian/patches/series b/debian/patches/series
index c699890..8b36ae0 100644
--- a/debian/patches/series
+++ b/debian/patches/series
@@ -1,3 +1,4 @@
 enable_build_envvar
 public_memory_functions.patch
 perl-warning-non-fatal
+gphelp-avoid-deprecation-spam.patch

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/debian-science/packages/pari-sage.git