Only strip suffix in case of a match

erlang-ls · Oct 18, 2024 · 3601e0c · 3601e0c
1 parent 8038cc8
commit 3601e0c
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/src/els_dap_general_provider.erl b/src/els_dap_general_provider.erl
@@ -1150,4 +1150,9 @@ force_delete_breakpoints(ProjectNode, Module, Breakpoints) ->
 
 -spec strip_suffix(binary(), binary()) -> binary().
 strip_suffix(Path, Suffix) ->
-    binary:part(Path, 0, byte_size(Path) - binary:longest_common_suffix([Path, Suffix])).
+    SuffixSize = byte_size(Suffix),
+    PathSize = byte_size(Path),
+    case binary:part(Path, {PathSize, -SuffixSize}) of
+        Suffix -> binary:part(Path, {0, PathSize - SuffixSize});
+        _ -> Path
+    end.