diff options
| author | Daiki Ueno <ueno@gnu.org> | 2015-12-08 19:18:10 +0900 |
|---|---|---|
| committer | Daiki Ueno <ueno@gnu.org> | 2015-12-08 19:18:10 +0900 |
| commit | f6dde6baeef8e6cb5ec92bc6c67c5c0304ba4396 (patch) | |
| tree | c5f195f3b6ea911d45916451e3f1d5adccfb8d3c | |
| parent | 21a40c91fa502feabb87b0457125cb87f16903eb (diff) | |
| download | external_gettext-f6dde6baeef8e6cb5ec92bc6c67c5c0304ba4396.zip external_gettext-f6dde6baeef8e6cb5ec92bc6c67c5c0304ba4396.tar.gz external_gettext-f6dde6baeef8e6cb5ec92bc6c67c5c0304ba4396.tar.bz2 | |
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.
| -rwxr-xr-x | gettext-runtime/libasprintf/texi2html | 4 | ||||
| -rwxr-xr-x | 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); |