diff options
author | Norbert Preining <preining@logic.at> | 2016-05-16 00:33:33 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2016-05-16 00:33:33 +0000 |
commit | b4bd155553e61ae082569f8d671a9f740d044634 (patch) | |
tree | 49650c4d9248e8255ecfe30a914ce03b1fd809e1 /Master/install-tl | |
parent | fede31c23a0035aa8b5e5fea4e35d696b319240b (diff) |
tmp file rewrite
use one global tmp dir created with File::Temp and which will
be auto-removed. ALl other temp files and dirs are created
within this directory.
git-svn-id: svn://tug.org/texlive/trunk@41175 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/install-tl')
-rwxr-xr-x | Master/install-tl | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/Master/install-tl b/Master/install-tl index ce3bd80de75..9ef3b4ab6a9 100755 --- a/Master/install-tl +++ b/Master/install-tl @@ -48,7 +48,7 @@ use Pod::Usage; use TeXLive::TLUtils qw(platform platform_desc sort_archs which getenv win32 unix info log debug tlwarn ddebug tldie - get_system_tmpdir member process_logging_options rmtree wsystem + member process_logging_options rmtree wsystem mkdirhier make_var_skeleton make_local_skeleton install_package copy install_packages dirname setup_programs native_slashify forward_slashify); use TeXLive::TLPOBJ; @@ -334,10 +334,11 @@ my $location; my $finished = 0; @::info_hook = (); -my $system_tmpdir=get_system_tmpdir(); our $media; our @media_available; +TeXLive::TLUtils::initialize_global_tmpdir(); + # special uses of install-tl: if ($opt_print_arch) { print platform()."\n"; @@ -708,7 +709,7 @@ sub final_remote_init { } else { info("Distribution: $media\n"); } - info("Directory for temporary files: $system_tmpdir\n"); + info("Directory for temporary files: $::tl_tmpdir\n"); if ($opt_in_place and ($media ne "local_uncompressed")) { print "TeX Live not local or not decompressed; 'in_place' option not applicable\n"; |