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