Commit | Line | Data |
---|---|---|
2c560aa2 TGR |
1 | From: Tobias Geerinckx-Rice <me@tobias.gr> |
2 | Date: Sat, 14 Nov 2020 15:40:38 +0100 | |
3 | Subject: [PATCH] gnu: perl-www-curl: Remove undeclared symbols. | |
a19da406 | 4 | |
2c560aa2 | 5 | Copied verbatim from the FreeBSD port[0]. |
a19da406 | 6 | |
2c560aa2 | 7 | [0]: https://www.freshports.org/www/p5-WWW-Curl |
a19da406 | 8 | |
2c560aa2 TGR |
9 | --- a/Makefile.PL 2014-02-21 08:08:09.000000000 -0800 |
10 | +++ b/Makefile.PL 2020-04-20 15:36:35.008798000 -0700 | |
11 | @@ -100,6 +100,13 @@ | |
12 | print "Found curl.h in $curl_h\n\0"; | |
13 | my @syms; | |
14 | my $has_cpp = 0; | |
15 | + my @skiplist = qw/ | |
16 | + CURL_DID_MEMORY_FUNC_TYPEDEFS | |
17 | + CURL_STRICTER | |
18 | + CURLINC_CURL_H | |
19 | + CURL_WIN32 | |
20 | + CURLOPT | |
21 | + /; | |
22 | open(H_IN, "-|", "cpp", $curl_h) and $has_cpp++; | |
23 | unless ($has_cpp) { | |
24 | warn "No working cpp ($!). Parsing curl.h in Perl"; | |
25 | @@ -121,6 +128,7 @@ | |
26 | open (H, "<", $curl_h) or die ("Cannot open $curl_h: ".$!); | |
27 | while(<H>) { | |
28 | if (/^#define (CURL[A-Za-z0-9_]*)/) { | |
29 | + next if $1 ~~ @skiplist; | |
30 | push @syms, $1; | |
31 | } | |
32 | } |