From 0723fde565ea4b3274f3130c62b8157fe38bd637 Mon Sep 17 00:00:00 2001
From: Norbert Preining <preining@logic.at>
Date: Tue, 28 Apr 2009 22:43:56 +0000
Subject: 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
---
 Master/tlpkg/TeXLive/TLUtils.pm | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'Master/tlpkg')

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;
-- 
cgit v1.2.3