texlive[52815] Master/tlpkg/TeXLive/TLUtils.pm: correct Perl module

[commits+preining at tug.org]

Revision: 52815
          http://tug.org/svn/texlive?view=revision&revision=52815
Author:   preining
Date:     2019-11-16 03:22:41 +0100 (Sat, 16 Nov 2019)
Log Message:
-----------
correct Perl module calls

Modified Paths:
--------------
    trunk/Master/tlpkg/TeXLive/TLUtils.pm

Modified: trunk/Master/tlpkg/TeXLive/TLUtils.pm
===================================================================
--- trunk/Master/tlpkg/TeXLive/TLUtils.pm	2019-11-16 00:54:10 UTC (rev 52814)
+++ trunk/Master/tlpkg/TeXLive/TLUtils.pm	2019-11-16 02:22:41 UTC (rev 52815)
@@ -2183,7 +2183,7 @@
     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 @@
       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);
       }