(_create_config_files): use our own copy() fn

instead of File::Copy::copy.


git-svn-id: svn://tug.org/texlive/trunk@57421 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 1 insertions, 2 deletions

diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm
index c1810a76a6f..6f31356cca7 100644
--- a/Master/tlpkg/TeXLive/TLUtils.pm
+++ b/Master/tlpkg/TeXLive/TLUtils.pm
@@ -225,7 +225,6 @@ BEGIN {
 use Cwd;
 use Getopt::Long;
 use File::Temp;
-use File::Copy qw//;
 
 use TeXLive::TLConfig;
 
@@ -3202,7 +3201,7 @@ sub _create_config_files {
   }
   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: $!");