added extra/perl-anyevent

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
+}

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 ());