diff options
| author | Norbert Preining <preining@logic.at> | 2018-05-15 00:04:04 +0000 |
|---|---|---|
| committer | Norbert Preining <preining@logic.at> | 2018-05-15 00:04:04 +0000 |
| commit | ca37a8262efc1497ff546ec195a4d8fed2d1cf9f (patch) | |
| tree | 47be32bc68ede09de0a64c0138e644e02bc88b89 /Master/tlpkg/TeXLive | |
| parent | 4f72d8bc5b19c84f984da441c10a7c8e00963239 (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')
| -rw-r--r-- | Master/tlpkg/TeXLive/TLPDB.pm | 3 |
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"); } |