… | |
… | |
3588 | POSIX::close delete $ENV{LOCKUTIL_LOCK_FD} if exists $ENV{LOCKUTIL_LOCK_FD}; |
3588 | POSIX::close delete $ENV{LOCKUTIL_LOCK_FD} if exists $ENV{LOCKUTIL_LOCK_FD}; |
3589 | |
3589 | |
3590 | (pop @POST_INIT)->(0) while @POST_INIT; |
3590 | (pop @POST_INIT)->(0) while @POST_INIT; |
3591 | }; |
3591 | }; |
3592 | |
3592 | |
|
|
3593 | cf::object::thawer::errors_are_fatal 0; |
|
|
3594 | |
3593 | main_loop; |
3595 | main_loop; |
3594 | } |
3596 | } |
3595 | |
3597 | |
3596 | ############################################################################# |
3598 | ############################################################################# |
3597 | # initialisation and cleanup |
3599 | # initialisation and cleanup |