[src/netbsd-7-0]: src/gnu/dist/gettext/gettext-tools/doc Apply patch (request...

[snj <snj%NetBSD.org@localhost>]

details:   https://anonhg.NetBSD.org/src/rev/1e753ebb9368
branches:  netbsd-7-0
changeset: 801341:1e753ebb9368
user:      snj <snj%NetBSD.org@localhost>
date:      Wed Jul 26 15:38:31 2017 +0000

description:
Apply patch (requested by mrg in ticket #1449):
Don't use defined() on perl arrays.

diffstat:

 gnu/dist/gettext/gettext-tools/doc/texi2html |  4 ++--
 1 files changed, 2 insertions(+), 2 deletions(-)

diffs (21 lines):

diff -r 390f7fc45869 -r 1e753ebb9368 gnu/dist/gettext/gettext-tools/doc/texi2html
--- a/gnu/dist/gettext/gettext-tools/doc/texi2html      Thu Jul 20 01:42:54 2017 +0000
+++ b/gnu/dist/gettext/gettext-tools/doc/texi2html      Wed Jul 26 15:38:31 2017 +0000
@@ -1532,7 +1532,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);
@@ -1540,7 +1540,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);