moparisthebest/curl
1
0
Fork 0
mirror of https://github.com/moparisthebest/curl synced 2024-12-21 23:58:49 -05:00
Code Issues Releases Wiki Activity

fix to figure out the "real" windows path when built and run with mingw

Browse Source 
Andrs Garca helped out!
This commit is contained in:
Daniel Stenberg 2004-03-29 09:26:31 +00:00
parent 4b49b2e3cf
commit 712d0374f7
1 changed files with 42 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

45
tests/runtests.pl
View File

@ -659,12 +659,51 @@ sub checkcurl {
if($_ =~ /^curl/) { if($_ =~ /^curl/) {
$curl = $_; $curl = $_;
$curl =~ s/^(.*)(libcurl.*)/$1/g; $curl =~ s/^(.*)(libcurl.*)/$1/g;
$libcurl = $2; $libcurl = $2;
if($curl =~ /mingw32/) {
# This is a windows minw32 build, we need to translate the
# given path to the "actual" windows path.
if ($curl =~ /win32/) my @m = `mount`;
{ my $matchlen;
my $bestmatch;
my $mount;
# example mount output:
# C:\DOCUME~1\Temp on /tmp type user (binmode,noumount)
# c:\ActiveState\perl on /perl type user (binmode)
# C:\msys\1.0\bin on /usr/bin type user (binmode,cygexec,noumount)
# C:\msys\1.0\bin on /bin type user (binmode,cygexec,noumount)
foreach $mount (@m) {
if( $mount =~ /(.*) on ([^ ]*) type /) {
my ($mingw, $real)=($2, $1);
if($pwd =~ /^$mingw/) {
# the path we got from pwd starts with the path
# we found on this line in the mount output
my $len = length($real);
if($len > $matchlen) {
# we remember the match that is the longest
$matchlen = $len;
$bestmatch = $real;
}
}
}
}
if(!$matchlen) {
print "Serious error, can't find our \"real\" path!\n";
}
else {
# now prepend the prefix from the mount command to build
# our "actual path"
$pwd = "$bestmatch$pwd";
}
$pwd =~ s#\\#/#g;
}
elsif ($curl =~ /win32/)
{
# Native Windows builds don't understand the # Native Windows builds don't understand the
# output of cygwin's pwd. It will be # output of cygwin's pwd. It will be
# something like /cygdrive/c/<some path>. # something like /cygdrive/c/<some path>.