Trap AutoIndex bug when no lines to process (#1280)

Attempting to run HTML -> AutoIndex when there are no non-blank lines before the end of file, e.g. on empty file, caused an infinite loop
DistributedProofreaders · Nov 28, 2023 · 99ac441 · 99ac441
1 parent 529d91e
commit 99ac441
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/src/lib/Guiguts/HTMLConvert.pm b/src/lib/Guiguts/HTMLConvert.pm
@@ -3289,8 +3289,11 @@ sub autoindex {
     my $first  = 1;
     my $indent = 0;
 
+    my $endstep = $textwindow->index('end');
+    $endstep =~ s/\..*//;
     while ( $textwindow->get( "$step.0", "$step.end" ) eq '' ) {
         $step++;
+        return if $step >= $endstep;
     }
     while ( $step <= $ler ) {
         my $selection = $textwindow->get( "$step.0", "$step.end" );