#2784 do not submit to many jobs for a project

hurricup · hurricup · commit 04e5f918d575 · 2024-09-01T12:27:29.000+04:00
Fixes #2784
diff --git a/plugin/core/src/main/java/com/perl5/lang/perl/idea/project/PerlProjectDirectoriesConfigurator.java b/plugin/core/src/main/java/com/perl5/lang/perl/idea/project/PerlProjectDirectoriesConfigurator.java
@@ -80,6 +80,7 @@ public void after(@NotNull List<? extends @NotNull VFileEvent> events) {
         return collector;
       }).expireWhen(project::isDisposed)
       .finishOnUiThread(ModalityState.defaultModalityState(), collector -> WriteAction.run(collector::commit))
+      .coalesceBy(project, PerlProjectDirectoriesConfigurator.class)
       .submit(AppExecutorUtil.getAppExecutorService());
   }
 

Original file line number	Diff line number	Diff line change
`@@ -80,6 +80,7 @@ public void after(@NotNull List<? extends @NotNull VFileEvent> events) {`
`80`	`80`	`return collector;`
`81`	`81`	`}).expireWhen(project::isDisposed)`
`82`	`82`	`.finishOnUiThread(ModalityState.defaultModalityState(), collector -> WriteAction.run(collector::commit))`
	`83`	`+ .coalesceBy(project, PerlProjectDirectoriesConfigurator.class)`
`83`	`84`	`.submit(AppExecutorUtil.getAppExecutorService());`
`84`	`85`	`}`
`85`	`86`