diff options
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/TeXLive/TLUtils.pm')
-rw-r--r-- | systems/texlive/tlnet/tlpkg/TeXLive/TLUtils.pm | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/systems/texlive/tlnet/tlpkg/TeXLive/TLUtils.pm b/systems/texlive/tlnet/tlpkg/TeXLive/TLUtils.pm index 8b437b1b0b..0d86a1fdc0 100644 --- a/systems/texlive/tlnet/tlpkg/TeXLive/TLUtils.pm +++ b/systems/texlive/tlnet/tlpkg/TeXLive/TLUtils.pm @@ -1,4 +1,4 @@ -# $Id: TLUtils.pm 59044 2021-05-01 22:05:56Z karl $ +# $Id: TLUtils.pm 59098 2021-05-06 20:21:11Z karl $ # TeXLive::TLUtils.pm - the inevitable utilities for TeX Live. # Copyright 2007-2021 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: 59044 $'; +my $svnrev = '$Revision: 59098 $'; my $_modulerevision = ($svnrev =~ m/: ([0-9]+) /) ? $1 : "unknown"; sub module_revision { return $_modulerevision; } @@ -656,8 +656,8 @@ sub run_cmd { =item C<system_pipe($prog, $infile, $outfile, $removeIn, @extraargs)> -Runs C<$prog> with C<@extraargs> redirecting stdin from C<$infile>, stdout to C<$outfile>. -Removes C<$infile> if C<$removeIn> is true. +Runs C<$prog> with C<@extraargs> redirecting stdin from C<$infile>, +stdout to C<$outfile>. Removes C<$infile> if C<$removeIn> is true. =cut @@ -2394,7 +2394,7 @@ sub untar { # quoting issues. # so fall back on chdir in Perl. # - debug("unpacking $tarfile in $targetdir\n"); + debug("TLUtils::untar: unpacking $tarfile in $targetdir\n"); my $cwd = cwd(); chdir($targetdir) || die "chdir($targetdir) failed: $!"; @@ -2750,7 +2750,7 @@ sub download_file { return \*RETFH; } else { if (-r $filetoopen) { - copy ($filetoopen, $par); + copy ("-f", $filetoopen, $dest); return 1; } return 0; @@ -4585,7 +4585,7 @@ sub mktexupd { } -=item C<check_sys_user_mode($user,$sys,$tmfc, $tmfsc, $tmfv, $tmfsv)> +=item C<setup_sys_user_mode($user,$sys,$tmfc, $tmfsc, $tmfv, $tmfsv)> =cut |