Fix server.
This commit is contained in:
@@ -40,7 +40,7 @@ script_name(ScriptName) -->
|
|||||||
{atom_codes(ScriptName, [FirstChar|RemainingChars])}.
|
{atom_codes(ScriptName, [FirstChar|RemainingChars])}.
|
||||||
script_name_chars([Char|Chars]) -->
|
script_name_chars([Char|Chars]) -->
|
||||||
[Char],
|
[Char],
|
||||||
{char_type(Char, alnum); Char = '_'},
|
{char_type(Char, alnum); Char = '_'; Char = '-'},
|
||||||
script_name_chars(Chars).
|
script_name_chars(Chars).
|
||||||
script_name_chars([]) --> [].
|
script_name_chars([]) --> [].
|
||||||
condition(Condition, Level) -->
|
condition(Condition, Level) -->
|
||||||
|
|||||||
Reference in New Issue
Block a user