octave-qthelp-texinfo7.patch

   1 --- octave-4.4.1/doc/interpreter/mk-qthelp.pl.orig      2018-08-09 20:20:32.000000000 +0200
   2 +++ octave-4.4.1/doc/interpreter/mk-qthelp.pl   2022-12-25 16:48:08.895830547 +0100
   3 @@ -27,7 +27,7 @@ open (my $HTML, "<", $htmlfname) or die
   4
   5  # Skip through preamble of file to find start of list
   6  while (($_ = <$HTML>) !~ /^<div class="contents">/ ) {;}
   7 -while (($_ = <$HTML>) !~ /^<ul class="no-bullet">/ ) {;}
   8 +while (($_ = <$HTML>) !~ /^<ul class="(no-bullet|toc-numbered-mark)">/ ) {;}
   9
  10  $level = 0;
  11  while (<$HTML>)
  12 @@ -68,7 +68,7 @@ $htmlfname = File::Spec->catfile ($based
  13  open ($HTML, "<", $htmlfname) or die "Unable to open $htmlfname";
  14
  15  # Skip through preamble of file to find start of list
  16 -while (($_ = <$HTML>) !~ /^<table class="index-fn/ ) {;}
  17 +while (($_ = <$HTML>) !~ /^<table class="(index-fn|fn-entries-printindex)/ ) {;}
  18
  19  while (<$HTML>)
  20  {