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

replaced tabs with spaces

Browse Source
This commit is contained in:
Yang Tse
2010-02-16 13:32:45 +00:00
parent f442dd6496
commit 46b112bcd4
26 changed files with 591 additions and 591 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
tests/libtest/test1022.pl
View File

@@ -2,8 +2,8 @@
# Determine if curl-config --version matches the curl --version
if ( $#ARGV != 2 )
{
print "Usage: $0 curl-config-script curl-version-output-file version|vernum\n";
exit 3;
print "Usage: $0 curl-config-script curl-version-output-file version|vernum\n";
exit 3;
}
my $what=$ARGV[2];
@@ -23,23 +23,23 @@ open(CURLCONFIG, "sh $ARGV[0] --$what|") || die "Can't get curl-config --$what l
$_ = <CURLCONFIG>;
chomp;
if ( $what eq "version" ) {
/^libcurl ([\.\d]+(-CVS)?)$/ ;
$curlconfigversion = $1;
/^libcurl ([\.\d]+(-CVS)?)$/ ;
$curlconfigversion = $1;
}
else {
# Convert hex version to decimal for comparison's sake
/^(..)(..)(..)$/ ;
$curlconfigversion = hex($1) . "." . hex($2) . "." . hex($3);
# Convert hex version to decimal for comparison's sake
/^(..)(..)(..)$/ ;
$curlconfigversion = hex($1) . "." . hex($2) . "." . hex($3);
# Strip off the -CVS from the curl version if it's there
$version =~ s/-CVS$//;
# Strip off the -CVS from the curl version if it's there
$version =~ s/-CVS$//;
}
close CURLCONFIG;
my $different = $version ne $curlconfigversion;
if ($different || !$version) {
print "Mismatch in --version:\n";
print "curl: $version\n";
print "curl-config: $curlconfigversion\n";
exit 1;
print "Mismatch in --version:\n";
print "curl: $version\n";
print "curl-config: $curlconfigversion\n";
exit 1;
}