generic-library/curl
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Ignore more features that curl-config is not expected to know about

Browse Source
This commit is contained in:
Dan Fandrich 2007-11-01 21:20:24 +00:00
parent 48dd0c5673
commit 2f3d520571
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
tests/libtest/test1013.pl
View File

@ -8,8 +8,9 @@ if ( $#ARGV != 2 )
my $what=$ARGV[2]; my $what=$ARGV[2];
# Read the output of curl --version
my $curl_protocols=""; my $curl_protocols="";
open(CURL, "@ARGV[1]") || die "Can't get curl $what list\n"; open(CURL, "$ARGV[1]") || die "Can't get curl $what list\n";
while( <CURL> ) while( <CURL> )
{ {
$curl_protocols = lc($_) if ( /$what:/i ); $curl_protocols = lc($_) if ( /$what:/i );
@ -18,11 +19,14 @@ close CURL;
$curl_protocols =~ /\w+: (.*)$/; $curl_protocols =~ /\w+: (.*)$/;
@curl = split / /,$1; @curl = split / /,$1;
@curl = grep(!/^Debug|Largefile$/i, @curl);
# These features are not supported by curl-config
@curl = grep(!/^(Debug|Largefile|CharConv|GSS-Negotiate|SPNEGO)$/i, @curl);
@curl = sort @curl; @curl = sort @curl;
# Read the output of curl-config
my @curl_config; my @curl_config;
open(CURLCONFIG, "sh @ARGV[0] --$what|") || die "Can't get curl-config $what list\n"; open(CURLCONFIG, "sh $ARGV[0] --$what|") || die "Can't get curl-config $what list\n";
while( <CURLCONFIG> ) while( <CURLCONFIG> )
{ {
chomp; chomp;