Aren/NetBSD
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Make this work with newer perl versions.

Browse Source 
Ok: mrg@
This commit is contained in:
martin 2015-07-27 18:09:27 +00:00
parent 122c565fcd
commit 6ab712103f
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gnu/dist/gettext/gettext-tools/doc/texi2html vendored
View File

@ -1532,7 +1532,7 @@ sub update_sec_num {
$level--; # here we start at 0 $level--; # here we start at 0
if ($name =~ /^appendix/) { if ($name =~ /^appendix/) {
# appendix style # appendix style
if (defined(@appendix_sec_num)) { if (@appendix_sec_num) {
&incr_sec_num($level, @appendix_sec_num); &incr_sec_num($level, @appendix_sec_num);
} else { } else {
@appendix_sec_num = ('A', 0, 0, 0); @appendix_sec_num = ('A', 0, 0, 0);
@ -1540,7 +1540,7 @@ sub update_sec_num {
return(join('.', @appendix_sec_num[0..$level])); return(join('.', @appendix_sec_num[0..$level]));
} else { } else {
# normal style # normal style
if (defined(@normal_sec_num)) { if (@normal_sec_num) {
&incr_sec_num($level, @normal_sec_num); &incr_sec_num($level, @normal_sec_num);
} else { } else {
@normal_sec_num = (1, 0, 0, 0); @normal_sec_num = (1, 0, 0, 0);