texlive[47719] Master/tlpkg/TeXLive/TLPDB.pm: use TLUtils::copy

[commits+preining at tug.org]

Revision: 47719
          http://tug.org/svn/texlive?view=revision&revision=47719
Author:   preining
Date:     2018-05-15 02:04:04 +0200 (Tue, 15 May 2018)
Log Message:
-----------
use TLUtils::copy instead of File::Copy::copy since that is only in perl 5.24

Modified Paths:
--------------
    trunk/Master/tlpkg/TeXLive/TLPDB.pm

Modified: trunk/Master/tlpkg/TeXLive/TLPDB.pm
===================================================================
--- trunk/Master/tlpkg/TeXLive/TLPDB.pm	2018-05-14 22:40:31 UTC (rev 47718)
+++ trunk/Master/tlpkg/TeXLive/TLPDB.pm	2018-05-15 00:04:04 UTC (rev 47719)
@@ -101,7 +101,6 @@
 use TeXLive::TLWinGoo;
 
 use Cwd 'abs_path';
-use File::Copy qw//;
 
 my $_listdir;
 
@@ -633,7 +632,7 @@
   # 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");
 }