… | |
… | |
3460 | load_extensions; |
3460 | load_extensions; |
3461 | |
3461 | |
3462 | utime time, time, $RUNTIMEFILE; |
3462 | utime time, time, $RUNTIMEFILE; |
3463 | |
3463 | |
3464 | # no (long-running) fork's whatsoever before this point(!) |
3464 | # no (long-running) fork's whatsoever before this point(!) |
|
|
3465 | use POSIX (); |
3465 | POSIX::close delete $ENV{LOCKUTIL_LOCK_FD} if exists $ENV{LOCKUTIL_LOCK_FD}; |
3466 | POSIX::close delete $ENV{LOCKUTIL_LOCK_FD} if exists $ENV{LOCKUTIL_LOCK_FD}; |
3466 | |
3467 | |
3467 | (pop @POST_INIT)->(0) while @POST_INIT; |
3468 | (pop @POST_INIT)->(0) while @POST_INIT; |
3468 | }; |
3469 | }; |
3469 | |
3470 | |