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.

diff --git a/gettext-runtime/libasprintf/texi2html b/gettext-runtime/libasprintf/texi2html
index 9e7e82c019b5f8d9f4214f9a6eb22e122c889a95..7c94d5b62e931bfcdd950b940c932f99af02d2c9 100755 (executable)
--- 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 9e7e82c019b5f8d9f4214f9a6eb22e122c889a95..7c94d5b62e931bfcdd950b940c932f99af02d2c9 100755 (executable)
--- 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);