diff options
author | mitza <mitza@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 2012-08-06 20:55:13 +0000 |
---|---|---|
committer | mitza <mitza@ae88bc3d-4319-0410-8dbf-d08b4c9d3795> | 2012-08-06 20:55:13 +0000 |
commit | 359bff7916142cd5ff5a49d97e03b0a1cd26528b (patch) | |
tree | 3da06768cd64a9583c4ceabd5169ca9324c718a7 /ACE/bin/PerlACE/TestTarget.pm | |
parent | 434d835dc2ec7586e13ead426789cfa157e5db09 (diff) | |
download | ATCD-359bff7916142cd5ff5a49d97e03b0a1cd26528b.tar.gz |
ChangeLogTag: Mon Aug 6 20:54:17 UTC 2012 Adam Mitz <mitza@ociweb.com>
Diffstat (limited to 'ACE/bin/PerlACE/TestTarget.pm')
-rw-r--r-- | ACE/bin/PerlACE/TestTarget.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/ACE/bin/PerlACE/TestTarget.pm b/ACE/bin/PerlACE/TestTarget.pm index 7004bea1770..4e356111db8 100644 --- a/ACE/bin/PerlACE/TestTarget.pm +++ b/ACE/bin/PerlACE/TestTarget.pm @@ -10,6 +10,7 @@ use strict; use English; use POSIX qw(:time_h); use File::Copy; +use File::Spec; use PerlACE::Run_Test; use Sys::Hostname; @@ -408,7 +409,8 @@ sub PutFile ($) my $self = shift; my $src = shift; my $dest = $self->LocalFile ($src); - if ($src ne $dest) { + if (($src ne $dest) && + (File::Spec->rel2abs($src) ne File::Spec->rel2abs($dest))) { copy ($src, $dest); } return 0; |