From 9eba61018a4ca451a30bc0b3ab88b3ea25a2ec81 Mon Sep 17 00:00:00 2001
From: Wilson Snyder <wsnyder@wsnyder.org>
Date: Sat, 12 Aug 2023 09:39:02 -0400
Subject: [PATCH] Tests: Ignore debug message in error line

---
 test_regress/driver.pl | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/test_regress/driver.pl b/test_regress/driver.pl
index 76f394231..69c8cccb4 100755
--- a/test_regress/driver.pl
+++ b/test_regress/driver.pl
@@ -1680,8 +1680,12 @@ sub _run {
     if (!$param{fails} && $status) {
         my $firstline = "";
         if (my $fh = IO::File->new("<$param{logfile}")) {
-            $firstline = $fh->getline || '';
-            chomp $firstline;
+            while (defined(my $line = $fh->getline)) {
+                next if $line =~ /^- /;  # Debug message
+                $firstline = $line;
+                chomp $firstline;
+                last;
+            }
         }
         $self->error("Exec of $param{cmd}[0] failed: $firstline\n");
     }