[singular] 02/02: Fix for new perl versions

[Ximin Luo]

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

infinity0 pushed a commit to branch master3
in repository singular.

commit 78ba0322d769309700f93a52ff9847e6e1a475ee
Author: Ximin Luo <infinity0 at debian.org>
Date:   Tue Mar 29 01:20:23 2016 +0200

    Fix for new perl versions
---
 debian/patches/fix-for-new-perl.patch | 25 +++++++++++++++++++++++++
 debian/patches/series                 |  1 +
 2 files changed, 26 insertions(+)

diff --git a/debian/patches/fix-for-new-perl.patch b/debian/patches/fix-for-new-perl.patch
new file mode 100644
index 0000000..60d4a44
--- /dev/null
+++ b/debian/patches/fix-for-new-perl.patch
@@ -0,0 +1,25 @@
+diff --git a/doc/texi2html b/doc/texi2html
+index 8b87b9e..a204b41 100644
+--- a/doc/texi2html
++++ b/doc/texi2html
+@@ -4898,9 +4898,9 @@ sub update_sec_num {
+     my $ret;
+ 
+     $level--; # here we start at 0
+-    if ($name =~ /^appendix/ || defined(@appendix_sec_num)) {
++    if ($name =~ /^appendix/ || @appendix_sec_num) {
+ 	# appendix style
+-	if (defined(@appendix_sec_num)) {
++	if (@appendix_sec_num) {
+ 	    &incr_sec_num($level, @appendix_sec_num);
+ 	} else {
+ 	    @appendix_sec_num = ('A', 0, 0, 0);
+@@ -4908,7 +4908,7 @@ sub update_sec_num {
+ 	$ret = join('.', @appendix_sec_num[0..$level]);
+     } else {
+ 	# normal style
+-	if (defined(@normal_sec_num)) 
++	if (@normal_sec_num) 
+ 	{
+ 	  &incr_sec_num($level, @normal_sec_num);
+ 	} 
diff --git a/debian/patches/series b/debian/patches/series
index d1dca91..c8c997b 100644
--- a/debian/patches/series
+++ b/debian/patches/series
@@ -16,3 +16,4 @@
 0016-Use-full-path-for-a-few-coreutils.patch
 0017-make-interactive-docbuild-work.patch
 0018-NTL6-compatibility-patch-from-sagemath.patch
+fix-for-new-perl.patch

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