[packages/perl-Coro] Up to 6.51.1

[mmazur]

commit 6c1092f95df7fc0cd0dc09b1c4c9c63259965c1c
Author: Mariusz Mazur <mmazur at pld-linux.org>
Date:   Fri May 19 15:46:24 2017 +0200

    Up to 6.51.1

 coro-5.24.patch | 21 +++++++++++++++++++++
 perl-Coro.spec  | 13 ++++++++-----
 2 files changed, 29 insertions(+), 5 deletions(-)
---
diff --git a/perl-Coro.spec b/perl-Coro.spec
index e36cae9..371ff39 100644
--- a/perl-Coro.spec
+++ b/perl-Coro.spec
@@ -5,17 +5,19 @@
 %include	/usr/lib/rpm/macros.perl
 %define		pdir	Coro
 %define		pnam	Coro
+%define		pver	6.511
 Summary:	Coro - do events the coro-way
 Summary(pl.UTF-8):	Coro - obsługa zdarzeń na sposób coro
 Name:		perl-Coro
-Version:	6.41
-Release:	4
+Version:	6.51.1
+Release:	1
 # same as perl
 License:	GPL v1+ or Artistic
 Group:		Development/Languages/Perl
-Source0:	http://www.cpan.org/modules/by-authors/id/M/ML/MLEHMANN/%{pnam}-%{version}.tar.gz
-# Source0-md5:	882b3606487db94b35ac309bc7025009
+Source0:	http://www.cpan.org/modules/by-authors/id/M/ML/MLEHMANN/%{pnam}-%{pver}.tar.gz
+# Source0-md5:	bcad7051f573fed680eaf72e64e2140e
 Patch0:		kill-blocked-test.patch
+Patch1:		coro-5.24.patch
 URL:		http://search.cpan.org/dist/Coro/
 BuildRequires:	perl-AnyEvent >= 2:5.0
 BuildRequires:	perl-EV >= 1:4.0
@@ -49,8 +51,9 @@ Ten moduł pozwala na tworzenie programów przy użyciu potężnego modelu
 wątkowych programów.
 
 %prep
-%setup -q -n %{pnam}-%{version}
+%setup -q -n %{pnam}-%{pver}
 %patch0 -p1
+%patch1 -p1
 
 %{__sed} -i "s^/opt/bin/perl^%{_bindir}/perl^" Coro/jit*pl
 
diff --git a/coro-5.24.patch b/coro-5.24.patch
new file mode 100644
index 0000000..86394fc
--- /dev/null
+++ b/coro-5.24.patch
@@ -0,0 +1,21 @@
+Description: fix for Coro with 5.24
+Origin: https://paste.debian.net/688072
+Bug-Debian: https://bugs.debian.org/838851
+Bug: https://rt.cpan.org/Public/Bug/Display.html?id=114708
+Author: Anonymous
+Last-Update: 2016-09-25
+
+--- a/Coro/State.xs
++++ b/Coro/State.xs
+@@ -1412,7 +1412,11 @@
+                           PUSHMARK (SP);
+                           PUSHs (&PL_sv_yes);
+                           PUSHs (fullname);
++# if PERL_VERSION_ATLEAST(5,24,0)
++                          PUSHs (CxHASARGS (cx) ? sv_2mortal (newRV_inc (PL_curpad[0])) : &PL_sv_undef);
++#else
+                           PUSHs (CxHASARGS (cx) ? sv_2mortal (newRV_inc ((SV *)cx->blk_sub.argarray)) : &PL_sv_undef);
++#endif
+                           PUTBACK;
+                           cb = hv_fetch ((HV *)SvRV (coro_current), "_trace_sub_cb", sizeof ("_trace_sub_cb") - 1, 0);
+                           if (cb) call_sv (*cb, G_KEEPERR | G_EVAL | G_VOID | G_DISCARD);
================================================================

---- gitweb:

http://git.pld-linux.org/gitweb.cgi/packages/perl-Coro.git/commitdiff/6c1092f95df7fc0cd0dc09b1c4c9c63259965c1c