aboutsummaryrefslogtreecommitdiff
path: root/www/p5-WWW-Curl/files
diff options
context:
space:
mode:
Diffstat (limited to 'www/p5-WWW-Curl/files')
-rw-r--r--www/p5-WWW-Curl/files/patch-Curl.xs42
-rw-r--r--www/p5-WWW-Curl/files/patch-Makefile.PL10
2 files changed, 49 insertions, 3 deletions
diff --git a/www/p5-WWW-Curl/files/patch-Curl.xs b/www/p5-WWW-Curl/files/patch-Curl.xs
index b0e42ee55023..968e3619f76e 100644
--- a/www/p5-WWW-Curl/files/patch-Curl.xs
+++ b/www/p5-WWW-Curl/files/patch-Curl.xs
@@ -1,6 +1,25 @@
---- Curl.xs.orig 2019-09-17 09:12:44 UTC
+--- Curl.xs.orig 2014-02-21 16:08:30 UTC
+++ Curl.xs
-@@ -73,7 +73,7 @@ typedef struct {
+@@ -18,6 +18,10 @@
+ #include <curl/easy.h>
+ #include <curl/multi.h>
+
++#ifdef CURLINC_MULTI_H
++#define __CURL_MULTI_H
++#endif
++
+ #define header_callback_func writeheader_callback_func
+
+ /* Do a favor for older perl versions */
+@@ -38,6 +42,7 @@ typedef enum {
+ SLIST_HTTPHEADER = 0,
+ SLIST_QUOTE,
+ SLIST_POSTQUOTE,
++ SLIST_CONNECT_TO,
+ #ifdef CURLOPT_RESOLVE
+ SLIST_RESOLVE,
+ #endif
+@@ -73,7 +78,7 @@ typedef struct {
#ifdef __CURL_MULTI_H
struct CURLM *curlm;
#else
@@ -9,3 +28,22 @@
#endif
} perl_curl_multi;
+@@ -129,6 +134,10 @@ slist_index(int option)
+ case CURLOPT_POSTQUOTE:
+ return SLIST_POSTQUOTE;
+ break;
++ case CURLOPT_CONNECT_TO:
++ return SLIST_CONNECT_TO;
++ break;
++
+ #ifdef CURLOPT_RESOLVE
+ case CURLOPT_RESOLVE:
+ return SLIST_RESOLVE;
+@@ -754,6 +763,7 @@ curl_easy_setopt(self, option, value, push=0)
+ case CURLOPT_HTTPHEADER:
+ case CURLOPT_QUOTE:
+ case CURLOPT_POSTQUOTE:
++ case CURLOPT_CONNECT_TO:
+ #ifdef CURLOPT_RESOLVE
+ case CURLOPT_RESOLVE:
+ #endif
diff --git a/www/p5-WWW-Curl/files/patch-Makefile.PL b/www/p5-WWW-Curl/files/patch-Makefile.PL
index 9d1115ce54ea..93d9de7d38e9 100644
--- a/www/p5-WWW-Curl/files/patch-Makefile.PL
+++ b/www/p5-WWW-Curl/files/patch-Makefile.PL
@@ -1,6 +1,6 @@
--- Makefile.PL.orig 2014-02-21 16:08:09 UTC
+++ Makefile.PL
-@@ -121,6 +121,7 @@ if (!defined($curl_h)) {
+@@ -121,13 +121,14 @@ if (!defined($curl_h)) {
open (H, "<", $curl_h) or die ("Cannot open $curl_h: ".$!);
while(<H>) {
if (/^#define (CURL[A-Za-z0-9_]*)/) {
@@ -8,3 +8,11 @@
push @syms, $1;
}
}
+ close H;
+
+ for my $e (sort @syms) {
+- if($e =~ /(OBSOLETE|^CURL_EXTERN|_LAST\z|_LASTENTRY\z)/) {
++ if($e =~ /(OBSOLETE|^CURL_EXTERN|_LAST\z|_LASTENTRY\z|^CURLINC_)/) {
+ next;
+ }
+ my ($group) = $e =~ m/^([^_]+_)/;