[perl-Event-Lib] Add patch to fix Segfault

[Nicolas Chauvet]

commit 05af753bf783cf20082478d1bf8cb61f7cf5be98
Author: Nicolas Chauvet <kwizart at gmail.com>
Date:   Sat May 18 10:10:28 2013 +0200

    Add patch to fix Segfault

 lib-event.patch     |   20 ++++++++++++++++++++
 perl-Event-Lib.spec |    8 +++++++-
 2 files changed, 27 insertions(+), 1 deletions(-)
---
diff --git a/lib-event.patch b/lib-event.patch
new file mode 100644
index 0000000..4127e43
--- /dev/null
+++ b/lib-event.patch
@@ -0,0 +1,20 @@
+---
+ 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
+
diff --git a/perl-Event-Lib.spec b/perl-Event-Lib.spec
index 81e530e..d557eec 100644
--- a/perl-Event-Lib.spec
+++ b/perl-Event-Lib.spec
@@ -1,12 +1,14 @@
 Name:           perl-Event-Lib
 Version:        1.03
-Release:        19%{?dist}
+Release:        20%{?dist}
 Summary:        Perl wrapper around libevent
 
 Group:          Development/Libraries
 License:        GPL+ or Artistic
 URL:            http://search.cpan.org/dist/Event-Lib/
 Source0:        http://search.cpan.org/CPAN/authors/id/V/VP/VPARSEVAL/Event-Lib-%{version}.tar.gz
+#https://rt.cpan.org/Public/Bug/Display.html?id=80644
+Patch0:         https://rt.cpan.org/Ticket/Attachment/1136922/598341/lib-event.patch
 BuildRoot:      %{_tmppath}/%{name}-%{version}-%{release}-root-%(%{__id_u} -n)
 
 BuildRequires:  perl(ExtUtils::MakeMaker)
@@ -26,6 +28,7 @@ received.
 
 %prep
 %setup -q -n Event-Lib-%{version}
+%patch0 -p1 -b .orig
 
 
 %build
@@ -64,6 +67,9 @@ rm -rf $RPM_BUILD_ROOT
 
 
 %changelog
+* Sat May 18 2013 Nicolas Chauvet <kwizart at gmail.com> - 1.03-20
+- Fix segfault with perl 5.16 - rhbz#958361
+
 * Thu Feb 14 2013 Fedora Release Engineering <rel-eng at lists.fedoraproject.org> - 1.03-19
 - Rebuilt for https://fedoraproject.org/wiki/Fedora_19_Mass_Rebuild