From dcb59d7d93c1252cb5dffb33099ed4bffc27fabc Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Sat, 16 Nov 2019 02:22:41 +0000 Subject: correct Perl module calls git-svn-id: svn://tug.org/texlive/trunk@52815 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/TeXLive/TLUtils.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm index acdc9884f0b..e1d1f0ef3b1 100644 --- a/Master/tlpkg/TeXLive/TLUtils.pm +++ b/Master/tlpkg/TeXLive/TLUtils.pm @@ -2183,7 +2183,7 @@ sub check_file_and_remove { if ($tlchecksum ne $checksum) { tlwarn("TLUtils::check_file: checksums differ for $xzfile:\n"); tlwarn("TLUtils::check_file: tlchecksum=$tlchecksum, arg=$checksum\n"); - (undef,$check_file_tmpdir) = File::temp::tempdir("tlcheckfileXXXXXXXX"); + (undef,$check_file_tmpdir) = File::Temp::tempdir("tlcheckfileXXXXXXXX"); tlwarn("TLUtils::check_file: removing $xzfile, " . "but saving copy in $check_file_tmpdir\n"); copy($xzfile, $check_file_tmpdir); @@ -2203,7 +2203,7 @@ sub check_file_and_remove { if (!defined($check_file_tmpdir)) { # the tmpdir should always be undefined, since we shouldn't get # here if the checksums failed, but test anyway. - $check_file_tmpdir = File::temp::tempdir("tlcheckfileXXXXXXXX"); + $check_file_tmpdir = File::Temp::tempdir("tlcheckfileXXXXXXXX"); tlwarn("TLUtils::check_file: saving copy in $check_file_tmpdir\n"); copy($xzfile, $check_file_tmpdir); } -- cgit v1.2.3