perl-www-curl: curl 7.66.0 compatibility

Signed-off-by: Alexander Ryzhov <github@ryzhov-al.ru>
This commit is contained in:
Alexander Ryzhov 2019-09-27 15:02:29 +03:00
parent 48af6b5bfb
commit 7910715d86
No known key found for this signature in database
GPG Key ID: 668EC7CA19147A4E
2 changed files with 57 additions and 1 deletions

View File

@ -9,7 +9,7 @@ include $(TOPDIR)/rules.mk
PKG_NAME:=perl-www-curl
PKG_VERSION:=4.17
PKG_RELEASE:=5
PKG_RELEASE:=6
PKG_SOURCE_URL:=http://www.cpan.org/authors/id/S/SZ/SZBALINT/
PKG_SOURCE:=WWW-Curl-$(PKG_VERSION).tar.gz

View File

@ -0,0 +1,56 @@
--- a/Curl.xs
+++ b/Curl.xs
@@ -70,7 +70,7 @@
typedef struct {
-#ifdef __CURL_MULTI_H
+#ifdef CURLINC_MULTI_H
struct CURLM *curlm;
#else
struct void *curlm;
@@ -234,7 +234,7 @@
{
perl_curl_multi *self;
Newz(1, self, 1, perl_curl_multi);
-#ifdef __CURL_MULTI_H
+#ifdef CURLINC_MULTI_H
self->curlm=curl_multi_init();
#else
croak("curl version too old to support curl_multi_init()");
@@ -245,7 +245,7 @@
/* delete the multi */
static void perl_curl_multi_delete(perl_curl_multi *self)
{
-#ifdef __CURL_MULTI_H
+#ifdef CURLINC_MULTI_H
if (self->curlm)
curl_multi_cleanup(self->curlm);
Safefree(self);
@@ -1065,7 +1065,7 @@
WWW::Curl::Multi curlm
WWW::Curl::Easy curl
CODE:
-#ifdef __CURL_MULTI_H
+#ifdef CURLINC_MULTI_H
curl_multi_add_handle(curlm->curlm, curl->curl);
#endif
@@ -1074,7 +1074,7 @@
WWW::Curl::Multi curlm
WWW::Curl::Easy curl
CODE:
-#ifdef __CURL_MULTI_H
+#ifdef CURLINC_MULTI_H
curl_multi_remove_handle(curlm->curlm, curl->curl);
#endif
@@ -1149,7 +1149,7 @@
PREINIT:
int remaining;
CODE:
-#ifdef __CURL_MULTI_H
+#ifdef CURLINC_MULTI_H
while(CURLM_CALL_MULTI_PERFORM ==
curl_multi_perform(self->curlm, &remaining));
RETVAL = remaining;