X-Git-Url: https://git.exim.org/users/heiko/exim.git/blobdiff_plain/4d8393c0433106c18f19b43287fee86d189378a5..5a8f5d724bbfd81cb2b89540e395359aaedc6c17:/test/lib/Exim/Utils.pm diff --git a/test/lib/Exim/Utils.pm b/test/lib/Exim/Utils.pm index b744b0b43..1dbd2d0da 100644 --- a/test/lib/Exim/Utils.pm +++ b/test/lib/Exim/Utils.pm @@ -2,8 +2,9 @@ package Exim::Utils; use v5.10.1; use strict; use warnings; +use File::Copy; use parent 'Exporter'; -our @EXPORT_OK = qw(uniq numerically); +our @EXPORT_OK = qw(uniq numerically cp); sub uniq { @@ -13,4 +14,14 @@ sub uniq { sub numerically { $::a <=> $::b } +sub cp { + if ($File::Copy::VERSION >= 2.15) { # since Perl 5.11 we should have >= 2.15 + return File::Copy::cp(@_); + } + copy(@_) or return undef; + my ($src, $dst) = @_; + my @st = stat $src or return undef; + chmod($st[2]&07777, $dst); +} + 1;