From 9c7f17ef17e23ddb1fb71ca2913d1734ef32b533 Mon Sep 17 00:00:00 2001
From: Slaven Rezic <
[email protected]>
Date: Sun, 12 Mar 2017 08:51:30 +0100
Subject: [PATCH 1/2] workaround to get compiled for newer curl
https://github.com/sparky/perl-Net-Curl/issues/18
---
Makefile.PL | 1 +
1 file changed, 1 insertion(+)
diff --git a/Makefile.PL b/Makefile.PL
index 083c0d2..5d58139 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -310,6 +310,7 @@ sub get_constants_headers
}
close H;
}
+ delete $syms{CURL_STRICTER};
my @out;
foreach my $e (sort keys %syms) {
--
2.1.2
From aef9008e4df796cdc504ddb31e82535923971cca Mon Sep 17 00:00:00 2001
From: Slaven Rezic <
[email protected]>
Date: Sun, 12 Mar 2017 08:51:41 +0100
Subject: [PATCH 2/2] workaround for test failure
---
t/old-22sendrecv.t | 9 ++++++---
1 file changed, 6 insertions(+), 3 deletions(-)
diff --git a/t/old-22sendrecv.t b/t/old-22sendrecv.t
index d7b81fe..02fabd7 100644
--- a/t/old-22sendrecv.t
+++ b/t/old-22sendrecv.t
@@ -61,6 +61,9 @@ alarm 2;
eval {
1 while $c->recv( $buffer, 1024 * 16 );
};
-ok( $@ && ( $@ == CURLE_AGAIN() || $@ == CURLE_UNSUPPORTED_PROTOCOL() ),
- "no more data to read" );
-
+if ($@) {
+ ok( $@ && ( $@ == CURLE_AGAIN() || $@ == CURLE_UNSUPPORTED_PROTOCOL() ),
+ "no more data to read" );
+} else {
+ pass "loop exited normally";
+}
--
2.1.2
