diff options
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/TeXLive/TLUtils.pm')
-rw-r--r-- | systems/texlive/tlnet/tlpkg/TeXLive/TLUtils.pm | 7 |
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: $!"); |