...

modules/alias.pm

@@ -8,7 +8,7 @@ our %aliases;
 sub Alias :ATTR 
 {
   my ($package, $symbol, $referent, $attr, $data) = @_;
-  $aliases{$data->[0]} = $referent;
+  $aliases{$data->[0]} = $symbol eq "ANON" ? async $referent : $referent;
 }
 
 1;

modules/commands.pm

@@ -23,7 +23,7 @@ sub command_help :Alias("помощь")
 #
   notify($chatid, <<"---", $rest);
 <b>/purge</b> <i>ip-адрес-устройства номер-дерева</i> - Очистить дерево PON
-<b>/очистить</b> <i>ip-адрес-устройства номер-дерева</i>
+<b>/почистить</b> <i>ip-адрес-устройства номер-дерева</i>
 <b>/inspect</b> <i>ip-адрес-устройства номер-дерева</i> - Информация об ONU на дереве
 <b>/проверить</b> <i>ip-адрес-устройства номер-дерева</i>
 <b>/onu</b> <i>ip-адрес-устройства номер-дерева</i> - Краткая информация ONU на дереве

run

@@ -1 +1 @@
-MOJO_CLIENT_DEBUG=1 MOJO_LOG_LEVEL=debug perl  djinn.pl daemon --mode test --listen http://*:2217
+MOJO_CLIENT_DEBUG=1 MOJO_LOG_LEVEL=debug morbo djinn.pl daemon --mode test --listen http://*:2217