From 0404c15ee7c9fe430a8009db3f7f0b9dae4da56b Mon Sep 17 00:00:00 2001
From: Kevin Mihelich <kevin@archlinuxarm.org>
Date: Fri, 28 Apr 2017 01:18:47 +0000
Subject: [PATCH] added extra/perl-anyevent

---
 extra/perl-anyevent/PKGBUILD      | 47 +++++++++++++++++++++++++++++++
 extra/perl-anyevent/openssl.patch | 21 ++++++++++++++
 2 files changed, 68 insertions(+)
 create mode 100644 extra/perl-anyevent/PKGBUILD
 create mode 100644 extra/perl-anyevent/openssl.patch

diff --git a/extra/perl-anyevent/PKGBUILD b/extra/perl-anyevent/PKGBUILD
new file mode 100644
index 000000000..bba96a333
--- /dev/null
+++ b/extra/perl-anyevent/PKGBUILD
@@ -0,0 +1,47 @@
+# $Id$
+# Maintainer: Felix Yan <felixonmars@archlinux.org>
+
+# ALARM: Kevin Mihelich <kevin@archlinuxarm.org>
+#  - patch to replace deprecated SSL_ST_OK state with TLS_ST_OK (1)
+
+pkgname=perl-anyevent
+pkgver=7.13
+pkgrel=1.1
+epoch=4
+pkgdesc='The DBI of event loop programming'
+arch=('any')
+url="https://metacpan.org/release/AnyEvent"
+license=('PerlArtistic' 'GPL')
+depends=('perl')
+optdepends=('perl-async-interrupt: for fast signal handling'
+            'perl-ev: for the recommended EV event loop backend'
+            'perl-guard: to speed up guards'
+            'perl-json: send or receive JSON with AnyEvent::Handle'
+            'perl-json-xs: send or receive JSON with AnyEvent::Handle'
+            'perl-net-ssleay: TLS/SSL connections with AnyEvent::Handle')
+options=('!emptydirs')
+source=("http://search.cpan.org/CPAN/authors/id/M/ML/MLEHMANN/AnyEvent-$pkgver.tar.gz"
+        'openssl.patch')
+md5sums=('70eea152cf4686f8f351aa8bc96157f9'
+         '45b5b96cfd67a1ae2c1c36d4d7941c0d')
+
+prepare() {
+  cd AnyEvent-$pkgver
+  patch -p1 -i ../openssl.patch
+}
+
+build() {
+  cd AnyEvent-$pkgver
+  perl Makefile.PL INSTALLDIRS=vendor
+  make
+}
+
+check() {
+  cd AnyEvent-$pkgver
+  make test
+}
+
+package() {
+  cd AnyEvent-$pkgver
+  make DESTDIR="$pkgdir" install
+}
diff --git a/extra/perl-anyevent/openssl.patch b/extra/perl-anyevent/openssl.patch
new file mode 100644
index 000000000..b33074c4e
--- /dev/null
+++ b/extra/perl-anyevent/openssl.patch
@@ -0,0 +1,21 @@
+diff -urN a/lib/AnyEvent/Handle.pm b/lib/AnyEvent/Handle.pm
+--- a/lib/AnyEvent/Handle.pm	2016-01-07 10:01:45.000000000 +0000
++++ b/lib/AnyEvent/Handle.pm	2017-04-27 01:33:17.600679762 +0000
+@@ -2130,7 +2130,7 @@
+    }
+ 
+    $self->{_on_starttls}
+-      and Net::SSLeay::state ($self->{tls}) == Net::SSLeay::ST_OK ()
++      and Net::SSLeay::state ($self->{tls}) == 1
+       and (delete $self->{_on_starttls})->($self, 1, "TLS/SSL connection established");
+ }
+ 
+@@ -2224,7 +2224,7 @@
+ #   Net::SSLeay::CTX_set_mode ($ssl,
+ #      (eval { local $SIG{__DIE__}; Net::SSLeay::MODE_ENABLE_PARTIAL_WRITE () } || 1)
+ #      | (eval { local $SIG{__DIE__}; Net::SSLeay::MODE_ACCEPT_MOVING_WRITE_BUFFER () } || 2));
+-   Net::SSLeay::CTX_set_mode ($tls, 1|2);
++   Net::SSLeay::set_mode ($tls, 1|2);
+ 
+    $self->{_rbio} = Net::SSLeay::BIO_new (Net::SSLeay::BIO_s_mem ());
+    $self->{_wbio} = Net::SSLeay::BIO_new (Net::SSLeay::BIO_s_mem ());