1#!/usr/bin/env perl 2# Determine if curl-config --protocols/--features matches the 3# curl --version protocols/features 4if ( $#ARGV != 2 ) 5{ 6 print "Usage: $0 curl-config-script curl-version-output-file features|protocols\n"; 7 exit 3; 8} 9 10my $what=$ARGV[2]; 11 12# Read the output of curl --version 13my $curl_protocols=""; 14open(CURL, "$ARGV[1]") || die "Can't get curl $what list\n"; 15while( <CURL> ) 16{ 17 $curl_protocols = lc($_) if ( /$what:/i ); 18} 19close CURL; 20 21$curl_protocols =~ s/\r//; 22$curl_protocols =~ /\w+: (.*)$/; 23@curl = split / /,$1; 24 25# These features are not supported by curl-config 26@curl = grep(!/^(Debug|TrackMemory|Metalink|Largefile|CharConv|GSS-Negotiate|SPNEGO)$/i, @curl); 27@curl = sort @curl; 28 29# Read the output of curl-config 30my @curl_config; 31open(CURLCONFIG, "sh $ARGV[0] --$what|") || die "Can't get curl-config $what list\n"; 32while( <CURLCONFIG> ) 33{ 34 chomp; 35 # ignore curl-config --features not in curl's feature list 36 if(!/^(GSS-API)$/) { 37 push @curl_config, lc($_); 38 } 39} 40close CURLCONFIG; 41 42@curl_config = sort @curl_config; 43 44my $curlproto = join ' ', @curl; 45my $curlconfigproto = join ' ', @curl_config; 46 47my $different = $curlproto ne $curlconfigproto; 48if ($different) { 49 print "Mismatch in $what lists:\n"; 50 print "curl: $curlproto\n"; 51 print "curl-config: $curlconfigproto\n"; 52} 53exit $different; 54