diff --git a/test/errchk b/test/errchk index 3aafddb82d..115aa7be09 100755 --- a/test/errchk +++ b/test/errchk @@ -31,7 +31,12 @@ close(SRC); # Run command $cmd = join(' ', @ARGV); open(CMD, "exec $cmd &1 |") || die "BUG: errchk: run $cmd: $!"; -@out = grep { !/^ / } ; + +# 6g error messages continue onto additional lines with leading tabs. +# Split the output at the beginning of each line that doesn't begin with a tab. +$out = join('', ); +@out = split(/^(?!\t)/m, $out); + close CMD; if($? == 0) {