Bug#811223: FTBFS: perl texi2html: Can't use 'defined(@array)'

[Graham Inggs]

Control: tags -1 patch

The attached patch was applied in Ubuntu.

Description: Fix texi2html for Perl 5.22
 Fixes FTBFS for arch:all - Can't use 'defined(@array)'
Bug-Debian: https://bugs.debian.org/811223
Author: Graham Inggs <ginggs@debian.org>
Last-Update: 2016-02-05
--- a/doc/texi2html
+++ b/doc/texi2html
@@ -1526,7 +1526,7 @@
     $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);
@@ -1534,7 +1534,7 @@
 	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);