fix off-by-one in error reporting

Fourmilab · Sep 29, 2021 · 95bc014 · 95bc014
1 parent ccb2f6c
commit 95bc014
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/perl/fbench.pl b/src/perl/fbench.pl
@@ -307,9 +307,9 @@ sub transit_surface {
       printf("\nError in results on line %d...\n", $i + 1);
       print("Expected:  $refarr[$i]\n");
       print("Received:  $outarr[$i]\n");
-      print("(Errors)    ");
+      print("(Errors)   ");
       my $k = length($refarr[$i]);
-      for (my $j = 0; $j < $k; $j++) {
+      for my $j (0..$k-1) {
          print(substr($refarr[$i], $j, 1) eq substr($outarr[$i], $j, 1) ? ' ' : '^');
          if (substr($refarr[$i], $j, 1) ne substr($outarr[$i], $j, 1)) {
             $errors++;