Module Name: src
Committed By: snj
Date: Wed Jul 26 15:37:58 UTC 2017
Modified Files:
src/gnu/dist/gettext/gettext-tools/doc [netbsd-7]: texi2html
Log Message:
Apply patch (requested by mrg in ticket #1449):
Don't use defined() on perl arrays.
To generate a diff of this commit:
cvs rdiff -u -r1.1.1.1 -r1.1.1.1.62.1 \
src/gnu/dist/gettext/gettext-tools/doc/texi2html
Please note that diffs are not public domain; they are subject to the
copyright notices on the relevant files.
Modified files:
Index: src/gnu/dist/gettext/gettext-tools/doc/texi2html
diff -u src/gnu/dist/gettext/gettext-tools/doc/texi2html:1.1.1.1 src/gnu/dist/gettext/gettext-tools/doc/texi2html:1.1.1.1.62.1
--- src/gnu/dist/gettext/gettext-tools/doc/texi2html:1.1.1.1 Fri Apr 29 15:07:26 2005
+++ src/gnu/dist/gettext/gettext-tools/doc/texi2html Wed Jul 26 15:37:58 2017
@@ -1532,7 +1532,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);
@@ -1540,7 +1540,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);
