texlive[57421] Master/tlpkg/TeXLive/TLUtils.pm:

[commits+karl at tug.org]

Revision: 57421
          http://tug.org/svn/texlive?view=revision&revision=57421
Author:   karl
Date:     2021-01-15 00:27:16 +0100 (Fri, 15 Jan 2021)
Log Message:
-----------
(_create_config_files): use our own copy() fn
instead of File::Copy::copy.

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

Modified: trunk/Master/tlpkg/TeXLive/TLUtils.pm
===================================================================
--- trunk/Master/tlpkg/TeXLive/TLUtils.pm	2021-01-14 22:17:58 UTC (rev 57420)
+++ trunk/Master/tlpkg/TeXLive/TLUtils.pm	2021-01-14 23:27:16 UTC (rev 57421)
@@ -225,7 +225,6 @@
 use Cwd;
 use Getopt::Long;
 use File::Temp;
-use File::Copy qw//;
 
 use TeXLive::TLConfig;
 
@@ -3202,7 +3201,7 @@
   }
   if ($usermode && -e $dest) {
     tlwarn("Updating $dest, backup copy in $dest.backup\n");
-    File::Copy::copy($dest, "$dest.backup");
+    copy("-f", $dest, "$dest.backup");
   }
   open(OUTFILE,">$dest")
     or die("Cannot open $dest for writing: $!");