Merge pull request #80 from bscan/master

Regex fix for compilation errors with DATA
FractalBoy · Jan 20, 2022 · f21efbf · f21efbf
2 parents 7558fd9 + 236e463
commit f21efbf
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/server/lib/PLS/Server/Request/TextDocument/PublishDiagnostics.pm b/server/lib/PLS/Server/Request/TextDocument/PublishDiagnostics.pm
@@ -152,7 +152,7 @@ sub get_compilation_errors
                     # Hide "BEGIN failed" and "Compilation failed" messages - these provide no useful info.
                     #next if $line =~ /^BEGIN failed/;
                     #next if $line =~ /^Compilation failed/;
-                    if (my ($error, $file, $line, $area) = $line =~ /^(.+) at (.+) line (\d+)(, .+)?/)
+                    if (my ($error, $file, $line, $area) = $line =~ /^(.+) at (.+?) line (\d+)(, .+)?/)
                     {
                         $error .= $area if (length $area);
                         $line = int $line;