moparisthebest/curl
1
0
Fork 0
mirror of https://github.com/moparisthebest/curl synced 2025-02-28 17:31:46 -05:00
Code Issues Releases Wiki Activity

testcurl.pl: use rel2abs to make the source directory absolute

Browse Source 
This function makes a platform-specific absolute path which uses
backslashes on Windows. This form works when passing it on the
command-line, as well as if the source is on another drive.
This commit is contained in:
Dan Fandrich 2015-05-24 12:02:30 +02:00
parent b6e3da5f08
commit 4a79475b13
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
tests/testcurl.pl
View File

@ -61,7 +61,7 @@
use strict; use strict;
use Cwd; use Cwd;
use Cwd 'abs_path'; use File::Spec;
# Turn on warnings (equivalent to -w, which can't be used with /usr/bin/env) # Turn on warnings (equivalent to -w, which can't be used with /usr/bin/env)
#BEGIN { $^W = 1; } #BEGIN { $^W = 1; }
@ -390,7 +390,7 @@ if (-d $CURLDIR) {
} }
# make the path absolute so we can use it everywhere # make the path absolute so we can use it everywhere
$CURLDIR = abs_path("$CURLDIR"); $CURLDIR = File::Spec->rel2abs("$CURLDIR");
$build="build-$$"; $build="build-$$";
$buildlogname="buildlog-$$"; $buildlogname="buildlog-$$";
@ -573,7 +573,7 @@ if ($configurebuild) {
} else { } else {
logit "copying files to build dir ..."; logit "copying files to build dir ...";
if (($^O eq 'MSWin32') && ($targetos !~ /netware/)) { if (($^O eq 'MSWin32') && ($targetos !~ /netware/)) {
system("xcopy /s /q $CURLDIR ."); system("xcopy /s /q \"$CURLDIR\" .");
system("buildconf.bat"); system("buildconf.bat");
} }
elsif ($targetos =~ /netware/) { elsif ($targetos =~ /netware/) {