global-functions: $LogPrintOnce: detect and warn on possible crash

This commit is contained in:
Christian Hesse 2024-03-27 07:43:32 +01:00
parent bd2301a28c
commit 43ecec854f

View file

@ -737,6 +737,11 @@
:return false;
}
:if ([ :len [ /log/find where message=($Name . ": " . $Message) ] ] > 0) do={
$LogPrint warning $0 \
("The message is already in log, scripting subsystem may have crashed before!");
}
:set ($LogPrintOnceMessages->$Message) 1;
$LogPrint $Severity $Name $Message;
:return true;