Sophie

Sophie

distrib > Fedora > 18 > i386 > by-pkgid > 09aa95e2cf720a906ea3d99863e8b6d6 > files > 2

perl-Event-Lib-1.03-20.fc18.src.rpm

---
 Lib.xs |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/Lib.xs b/Lib.xs
index ac3ae5c..d014744 100644
--- a/Lib.xs
+++ b/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);   \
-- 
1.7.0.4