diff options
author | Karl Berry <karl@freefriends.org> | 2020-04-17 21:35:25 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2020-04-17 21:35:25 +0000 |
commit | 77b8133a6dc28b8dc69f10c5d2f32fb1c45956f4 (patch) | |
tree | e2c379d048e27aa81cead61e001706c6c8115c15 /Build/source/texk/tests/TeXLive | |
parent | 5ccd2c08ab341c51d0fffa59b25317003f97f08b (diff) |
doc,sync
git-svn-id: svn://tug.org/texlive/trunk@54778 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/tests/TeXLive')
-rw-r--r-- | Build/source/texk/tests/TeXLive/TLUtils.pm | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/Build/source/texk/tests/TeXLive/TLUtils.pm b/Build/source/texk/tests/TeXLive/TLUtils.pm index 086f5daad57..cda2868c165 100644 --- a/Build/source/texk/tests/TeXLive/TLUtils.pm +++ b/Build/source/texk/tests/TeXLive/TLUtils.pm @@ -5,7 +5,7 @@ package TeXLive::TLUtils; -my $svnrev = '$Revision: 54143 $'; +my $svnrev = '$Revision: 54629 $'; my $_modulerevision = ($svnrev =~ m/: ([0-9]+) /) ? $1 : "unknown"; sub module_revision { return $_modulerevision; } @@ -544,7 +544,7 @@ and thus honors various env variables like C<TMPDIR>, C<TMP>, and C<TEMP>. sub initialize_global_tmpdir { $::tl_tmpdir = File::Temp::tempdir(CLEANUP => 1); - ddebug("tl_tempdir: creating global tempdir $::tl_tmpdir\n"); + ddebug("initialize_global_tmpdir: creating global tempdir $::tl_tmpdir\n"); return ($::tl_tmpdir); } @@ -558,7 +558,7 @@ is terminated. sub tl_tmpdir { initialize_global_tmpdir() if (!defined($::tl_tmpdir)); my $tmp = File::Temp::tempdir(DIR => $::tl_tmpdir, CLEANUP => 1); - ddebug("tl_tempdir: creating tempdir $tmp\n"); + ddebug("tl_tmpdir: creating tempdir $tmp\n"); return ($tmp); } @@ -2213,7 +2213,10 @@ 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"); - $check_file_tmpdir = File::Temp::tempdir("tlcheckfileXXXXXXXX"); + # on Windows passing a pattern creates the tmpdir in PWD + # which means that it will be tried to be created on the DVD + # $check_file_tmpdir = File::Temp::tempdir("tlcheckfileXXXXXXXX"); + $check_file_tmpdir = File::Temp::tempdir(); tlwarn("TLUtils::check_file: removing $xzfile, " . "but saving copy in $check_file_tmpdir\n"); copy($xzfile, $check_file_tmpdir); |