From f6dde6baeef8e6cb5ec92bc6c67c5c0304ba4396 Mon Sep 17 00:00:00 2001 From: Daiki Ueno Date: Tue, 8 Dec 2015 19:18:10 +0900 Subject: build: Fix texi2html failure with perl 5.22 * gettext-runtime/libasprintf/texi2html (update_sec_num): Don't use "defined" against an array ref. * gettext-tools/doc/texi2html (update_sec_num): Likewise. --- gettext-runtime/libasprintf/texi2html | 4 ++-- gettext-tools/doc/texi2html | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/gettext-runtime/libasprintf/texi2html b/gettext-runtime/libasprintf/texi2html index 9e7e82c..7c94d5b 100755 --- a/gettext-runtime/libasprintf/texi2html +++ b/gettext-runtime/libasprintf/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); diff --git a/gettext-tools/doc/texi2html b/gettext-tools/doc/texi2html index 9e7e82c..7c94d5b 100755 --- a/gettext-tools/doc/texi2html +++ b/gettext-tools/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); -- cgit v1.1