это с каких это пор перл - внутренний псевдо(!)-язык mmc?
это решение довольно кривое, так как sleep подвешивает намертво процесс ммс. Прервать неполучиться (за те 180 секунд пока он будет спать). Если только убить.
я думаю лучше так.
Код:
my $timeout = 180;
hook
{
timeout { CMD::cmd_connect "194.87.5.70", 443 } , $timeout, 1
} 'disconnect';
+какую нибудь команду killall, которая порешит этот внутренний процесс, например
Код:
alias { CMD::cmd_kill $_ for (1..10) } 'killall'
у меня этот килал забинден вместе с '~', так что довольно удобно получаеться )
Ну или сделать с флагами, тоже можно. Главное не через sleep