Lines 1-6
Link Here
|
1 |
--- Makefile.PL.orig 2014-02-21 16:08:09 UTC |
1 |
--- Makefile.PL.orig 2014-02-21 16:08:09 UTC |
2 |
+++ Makefile.PL |
2 |
+++ Makefile.PL |
3 |
@@ -121,6 +121,7 @@ if (!defined($curl_h)) { |
3 |
@@ -121,13 +121,14 @@ if (!defined($curl_h)) { |
4 |
open (H, "<", $curl_h) or die ("Cannot open $curl_h: ".$!); |
4 |
open (H, "<", $curl_h) or die ("Cannot open $curl_h: ".$!); |
5 |
while(<H>) { |
5 |
while(<H>) { |
6 |
if (/^#define (CURL[A-Za-z0-9_]*)/) { |
6 |
if (/^#define (CURL[A-Za-z0-9_]*)/) { |
Lines 8-10
Link Here
|
8 |
push @syms, $1; |
8 |
push @syms, $1; |
9 |
} |
9 |
} |
10 |
} |
10 |
} |
|
|
11 |
close H; |
12 |
|
13 |
for my $e (sort @syms) { |
14 |
- if($e =~ /(OBSOLETE|^CURL_EXTERN|_LAST\z|_LASTENTRY\z)/) { |
15 |
+ if($e =~ /(OBSOLETE|^CURL_EXTERN|_LAST\z|_LASTENTRY\z|^CURLINC_)/) { |
16 |
next; |
17 |
} |
18 |
my ($group) = $e =~ m/^([^_]+_)/; |