Changeset 002906 in git

Timestamp:

Jan 18, 2018, 1:26:59 PM (6 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

c0a0e5c2821b7e65272ac540b3a99cd00f2c40c2

Parents:

ee3f56bf9b121241140b6416a129999ae0bb6d2f

Message:

fix: apdapt to newer perl

File:

• doc/texi2html (modified) (2 diffs)

doc/texi2html

@@ -4898 +4898 @@
 
     $level--; # here we start at 0
-    if ($name =~ /^appendix/ || defined(@appendix_sec_num)) {
+    if ($name =~ /^appendix/ || @appendix_sec_num) {
         # appendix style
-        if (defined(@appendix_sec_num)) {
+        if (@appendix_sec_num) {
             &incr_sec_num($level, @appendix_sec_num);
         } else {
@@ -4908 +4908 @@
     } else {
         # normal style
-        if (defined(@normal_sec_num))
+        if (@normal_sec_num)
         {
           &incr_sec_num($level, @normal_sec_num);