summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLPDB.pm
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2018-05-15 00:04:04 +0000
committerNorbert Preining <preining@logic.at>2018-05-15 00:04:04 +0000
commitca37a8262efc1497ff546ec195a4d8fed2d1cf9f (patch)
tree47be32bc68ede09de0a64c0138e644e02bc88b89 /Master/tlpkg/TeXLive/TLPDB.pm
parent4f72d8bc5b19c84f984da441c10a7c8e00963239 (diff)
use TLUtils::copy instead of File::Copy::copy since that is only in perl 5.24
git-svn-id: svn://tug.org/texlive/trunk@47719 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLPDB.pm')
-rw-r--r--Master/tlpkg/TeXLive/TLPDB.pm3
1 files changed, 1 insertions, 2 deletions
diff --git a/Master/tlpkg/TeXLive/TLPDB.pm b/Master/tlpkg/TeXLive/TLPDB.pm
index 920db228282..0a5db18334f 100644
--- a/Master/tlpkg/TeXLive/TLPDB.pm
+++ b/Master/tlpkg/TeXLive/TLPDB.pm
@@ -101,7 +101,6 @@ use TeXLive::TLUtils qw(dirname mkdirhier member win32 info log debug ddebug
use TeXLive::TLWinGoo;
use Cwd 'abs_path';
-use File::Copy qw//;
my $_listdir;
@@ -633,7 +632,7 @@ sub save {
# on Windows the renaming sometimes fails, try to copy and unlink the
# .tmp file. This we do for all archs, cannot hurt.
# if we managed that one, we move it over
- File::Copy::copy ($tmppath, $path) or die ("copy $tmppath to $path failed: $!");
+ TeXLive::TLUtils::copy ("-f", $tmppath, $path) or die ("copy $tmppath to $path failed: $!");
unlink ($tmppath) or tlwarn ("TLPDB: cannot unlink $tmppath: $!\n");
}