diff options
author | Norbert Preining <preining@logic.at> | 2009-04-28 22:43:56 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2009-04-28 22:43:56 +0000 |
commit | 0723fde565ea4b3274f3130c62b8157fe38bd637 (patch) | |
tree | 8caf0ad9cef2ebec4a71924d8bbebf47497c4186 /Master | |
parent | 650a2e371424b0df21e41e8fbea5176f5a0f3ef9 (diff) |
remove .tar.lzma files when copied from DVD, but keep them when
downloaded from NET
git-svn-id: svn://tug.org/texlive/trunk@12846 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
-rw-r--r-- | Master/tlpkg/TeXLive/TLUtils.pm | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm index 6eb6f8d2941..4b7dafbc3f3 100644 --- a/Master/tlpkg/TeXLive/TLUtils.pm +++ b/Master/tlpkg/TeXLive/TLUtils.pm @@ -1217,6 +1217,13 @@ sub install_package { tlwarn("Un-tarring $tarfile did not succeed.\n"); return 0; } + if ($what =~ m,http://|ftp://,) { + # we downloaded the original .tar.lzma from the net, so we keep it + } else { + # we are downloading it from CD, so we can unlink it to save + # disk space + unlink($lzmafile); + } } else { tlwarn("Sorry, no idea how to install $what\n"); return 0; |