Репозиторий Sisyphus
Последнее обновление: 1 октября 2023 | Пакетов: 18631 | Посещений: 37728912
en ru br
Репозитории ALT
S:1.03-alt7
5.1: 1.03-alt2
www.altlinux.org/Changes

Группа :: Разработка/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);   \
 
дизайн и разработка: Vladimir Lettiev aka crux © 2004-2005, Andrew Avramenko aka liks © 2007-2008
текущий майнтейнер: Michael Shigorin