Группа :: Разработка/Perl
Пакет: perl-Event-Lib
Главная Изменения Спек Патчи Sources Загрузить Gear Bugs and FR Repocop
Патч: Event-Lib-getpid.patch
Скачать
Скачать
diff --git a/Event-Lib/Lib.xs b/Event-Lib/Lib.xs
index ac3ae5c..d014744 100644
--- a/Event-Lib/Lib.xs
+++ b/Event-Lib/Lib.xs
@@ -255,7 +255,7 @@ int EVENT_INIT_DONE = -1; /* we use the pid here */
#define event_do_init() \
{\
- int _pid_ = SvIV(get_sv("$", FALSE)); \
+ int _pid_ = getpid(); \
if (!EVENT_INIT_DONE || EVENT_INIT_DONE != _pid_) {\
event_init(); \
DEBUG_init_pending(aTHX); \