summaryrefslogtreecommitdiff
path: root/systems/texlive/tlnet/tlpkg/TeXLive
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2021-01-16 03:02:59 +0000
committerNorbert Preining <norbert@preining.info>2021-01-16 03:02:59 +0000
commit07a2495c5aecc2f871625ae63d25ee1cc18b2ca5 (patch)
tree0aeb6fb87057d30e2e185c267e25fd0fd5ae946b /systems/texlive/tlnet/tlpkg/TeXLive
parentbdead7ff97ef61cca4f56b4a153cc85e18c41fda (diff)
CTAN sync 202101160302
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/TeXLive')
-rw-r--r--systems/texlive/tlnet/tlpkg/TeXLive/TLUtils.pm7
1 files changed, 3 insertions, 4 deletions
diff --git a/systems/texlive/tlnet/tlpkg/TeXLive/TLUtils.pm b/systems/texlive/tlnet/tlpkg/TeXLive/TLUtils.pm
index 80a5493059..e5e9c5a993 100644
--- a/systems/texlive/tlnet/tlpkg/TeXLive/TLUtils.pm
+++ b/systems/texlive/tlnet/tlpkg/TeXLive/TLUtils.pm
@@ -1,4 +1,4 @@
-# $Id: TLUtils.pm 56565 2020-10-06 00:40:39Z preining $
+# $Id: TLUtils.pm 57421 2021-01-14 23:27:16Z karl $
# TeXLive::TLUtils.pm - the inevitable utilities for TeX Live.
# Copyright 2007-2020 Norbert Preining, Reinhard Kotucha
# This file is licensed under the GNU General Public License version 2
@@ -6,7 +6,7 @@
package TeXLive::TLUtils;
-my $svnrev = '$Revision: 56565 $';
+my $svnrev = '$Revision: 57421 $';
my $_modulerevision = ($svnrev =~ m/: ([0-9]+) /) ? $1 : "unknown";
sub module_revision { return $_modulerevision; }
@@ -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: $!");