From 2f3d52057154d510c0a6188f81aee584adb1f4fe Mon Sep 17 00:00:00 2001 From: Dan Fandrich Date: Thu, 1 Nov 2007 21:20:24 +0000 Subject: Ignore more features that curl-config is not expected to know about --- tests/libtest/test1013.pl | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/tests/libtest/test1013.pl b/tests/libtest/test1013.pl index 6c5a5dcdc..b46e5ae3a 100755 --- a/tests/libtest/test1013.pl +++ b/tests/libtest/test1013.pl @@ -8,8 +8,9 @@ if ( $#ARGV != 2 ) my $what=$ARGV[2]; +# Read the output of curl --version 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_protocols = lc($_) if ( /$what:/i ); @@ -18,11 +19,14 @@ close CURL; $curl_protocols =~ /\w+: (.*)$/; @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; +# Read the output of 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( ) { chomp; -- cgit v1.2.3