From 348e25a4350b66df4cade81979a31a80bf0b50b9 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Thu, 14 Jan 2021 23:27:16 +0000 Subject: (_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 --- Master/tlpkg/TeXLive/TLUtils.pm | 3 +-- 1 file changed, 1 insertion(+), 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: $!"); -- cgit v1.2.3