diff options
| author | martin <martin@NetBSD.org> | 2015-07-27 18:09:27 +0000 |
|---|---|---|
| committer | martin <martin@NetBSD.org> | 2015-07-27 18:09:27 +0000 |
| commit | 021f56ad352b31872dd7fbb6f77c1bf12fea1cf1 (patch) | |
| tree | c369de1e1db573af87db2a7cd8900da8315f0d4b /gnu | |
| parent | ddaffbb02a44bcd0cff9f0c609225b06127c38ba (diff) | |
Make this work with newer perl versions.
Ok: mrg@
Diffstat (limited to 'gnu')
| -rw-r--r-- | gnu/dist/gettext/gettext-tools/doc/texi2html | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gnu/dist/gettext/gettext-tools/doc/texi2html b/gnu/dist/gettext/gettext-tools/doc/texi2html index e5e3d165ea0..223dbe5324a 100644 --- a/gnu/dist/gettext/gettext-tools/doc/texi2html +++ b/gnu/dist/gettext/gettext-tools/doc/texi2html @@ -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); |
