X-Git-Url: https://git.netwichtig.de/gitweb/?a=blobdiff_plain;f=test%2Flib%2FExim%2FUtils.pm;h=1dbd2d0da567b604db74cd6e39759fda3389fc0b;hb=c4b4086235b1d5e21fcf1ad72a1b05813e15dcbd;hp=b744b0b43e19eea645fe50d11d9b51ac05baacc7;hpb=d5c0d8c9374623620844d539d4810da63e9abca1;p=user%2Fhenk%2Fcode%2Fexim.git

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;