From 4a79475b139ed61c38dedb1b662e911cb89156a3 Mon Sep 17 00:00:00 2001
From: Dan Fandrich <dan@coneharvesters.com>
Date: Sun, 24 May 2015 12:02:30 +0200
Subject: testcurl.pl: use rel2abs to make the source directory absolute

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.
---
 tests/testcurl.pl | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'tests/testcurl.pl')

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