diff options
| -rwxr-xr-x | tests/testcurl.pl | 25 |
1 files changed, 14 insertions, 11 deletions
diff --git a/tests/testcurl.pl b/tests/testcurl.pl index 2a2a2c754..cc08b155a 100755 --- a/tests/testcurl.pl +++ b/tests/testcurl.pl @@ -412,20 +412,23 @@ if ($configurebuild) { } sub findinpath { - my $c; - my $e; - my $p=$ENV{'PATH'}; - my @pa = split(":", $p); - for $c (@_) { - for $e (@pa) { - if( -x "$e/$c") { - return $c; - } - } + my $c; + my $e; + my $x=''; + $x='.exe' if ($^O eq 'MSWin32'); + my $s=':'; + $s=';' if ($^O eq 'MSWin32'); + my $p=$ENV{'PATH'}; + my @pa = split($s, $p); + for $c (@_) { + for $e (@pa) { + if( -x "$e/$c$x") { + return $c; + } } + } } - my $make = findinpath("gmake", "make", "nmake"); if(!$make) { mydie "Couldn't find make in the PATH"; |