tests: uses standard perl path for perl operation

This commit is contained in:
Gregory Hainaut 2016-01-24 16:37:36 +01:00
parent e985488471
commit e8f8d55010
1 changed files with 0 additions and 4 deletions

View File

@ -131,8 +131,6 @@ unless (-d $o_cfg) {
# $o_cygwin = 1;
#}
$o_cfg = cyg_abs_path($o_cfg);
my %blacklist;
if (defined $o_regression) {
# Blacklist bad test
@ -268,8 +266,6 @@ sub run_thread {
sub generate_cfg {
my $out_dir = shift;
$out_dir = cyg_abs_path($out_dir);
print "Info: Copy dir $o_cfg to $out_dir\n" if $o_debug_me;
local $File::Copy::Recursive::RMTrgDir = 2;
dircopy($o_cfg, $out_dir) or die "Failed to copy directory: $!\n";