diff options
author | Norbert Preining <preining@logic.at> | 2009-04-28 22:44:15 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2009-04-28 22:44:15 +0000 |
commit | cec0b4b2ea857719117db5376cba337791c4883a (patch) | |
tree | 0de60a87932b2839641a56dbe23536ea9db26ae6 | |
parent | ce6268c9f627c88fbbaf421f49877c7da1be02f0 (diff) |
same for branch2009 remove .tar.lzma if copied from CD
git-svn-id: svn://tug.org/texlive/branches/branch2009-dev@12847 c570f23f-e606-0410-a88d-b1316a301751
-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 9a84891a93a..8a6cbcb6613 100644 --- a/Master/tlpkg/TeXLive/TLUtils.pm +++ b/Master/tlpkg/TeXLive/TLUtils.pm @@ -1218,6 +1218,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; |