perl.patch

   1 --- vice-2.4/doc/html/texi2html~        2008-03-30 17:04:15.000000000 +0200
   2 +++ vice-2.4/doc/html/texi2html 2016-10-20 08:58:42.902422283 +0200
   3 @@ -1557,7 +1557,7 @@
   4      $level--; # here we start at 0
   5      if ($name =~ /^appendix/) {
   6         # appendix style
   7 -       if (defined(@appendix_sec_num)) {
   8 +       if (@appendix_sec_num) {
   9             &incr_sec_num($level, @appendix_sec_num);
  10         } else {
  11             @appendix_sec_num = ('A', 0, 0, 0);
  12 @@ -1565,7 +1565,7 @@
  13         return(join('.', @appendix_sec_num[0..$level]));
  14      } else {
  15         # normal style
  16 -       if (defined(@normal_sec_num)) {
  17 +       if (@normal_sec_num) {
  18             &incr_sec_num($level, @normal_sec_num);
  19         } else {
  20             @normal_sec_num = (1, 0, 0, 0);