Fix doc build error with perl 5.22.

* doc/texi2html (update_sec_num): Omit defined(...) for array.

2 files changed, 7 insertions, 2 deletions

diff --git a/ChangeLog b/ChangeLog
index bf56b73..bd302f1 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2017-03-31  Bruno Haible  <bruno@clisp.org>
+
+	Fix doc build error with perl 5.22.
+	* doc/texi2html (update_sec_num): Omit defined(...) for array.
+
 2017-01-10  Bruno Haible  <bruno@clisp.org>
 
 	Update some URL.
diff --git a/doc/texi2html b/doc/texi2html
index d423c2f..5ada126 100755
--- a/doc/texi2html
+++ b/doc/texi2html
@@ -1561,7 +1561,7 @@ sub update_sec_num {
     $level--; # here we start at 0
     if ($name =~ /^appendix/) {
 	# 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);
@@ -1569,7 +1569,7 @@ sub update_sec_num {
 	return(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);
 	} else {
 	    @normal_sec_num = (1, 0, 0, 0);