Prevent double calls of perl_script_unload

This commit is contained in:
aquanight 2020-07-05 15:31:07 -06:00
commit 6012ec9e56
5 changed files with 41 additions and 5 deletions

View file

@ -106,7 +106,7 @@ static void cmd_script_unload(const char *data)
script_fix_name(name);
script = perl_script_find(name);
if (script == NULL) {
if (script == NULL || script->unloaded) {
printformat(NULL, NULL, MSGLEVEL_CLIENTERROR,
TXT_SCRIPT_NOT_LOADED, name);
} else {