| Как выполнить в Perl свой код перед аварийным завершением по die(). |
[исправить] |
sub die_sig{
# Случай вызова die в eval блоке.
die @_ if $^S;
# Удаляем лок.
unlink("$cfg_lock_file");
}
local ($SIG{__DIE__}) = \&die_sig;
|
| |
|
|
27.03.2003
|
| Раздел: Корень / Программисту и web-разработчику / Perl / Функции и модули в Perl |