summaryrefslogtreecommitdiff
path: root/Master/install-tl.pl
diff options
context:
space:
mode:
authorReinhard Kotucha <reinhard.kotucha@web.de>2008-01-03 22:08:33 +0000
committerReinhard Kotucha <reinhard.kotucha@web.de>2008-01-03 22:08:33 +0000
commitef9c0f9c22c0b6e084b2e9a885fe55a19bed269b (patch)
tree934d789ea8694fe481b757708fb92ef9a6a5addb /Master/install-tl.pl
parentdfe491d7771535d1ba0938695b937338c94ebdb3 (diff)
install-tl.pl: added --no-cls switch. Disables clear_screen for debugging.
git-svn-id: svn://tug.org/texlive/trunk@6031 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/install-tl.pl')
-rwxr-xr-xMaster/install-tl.pl2
1 files changed, 2 insertions, 0 deletions
diff --git a/Master/install-tl.pl b/Master/install-tl.pl
index 734ec47b5db..fb8af44fe19 100755
--- a/Master/install-tl.pl
+++ b/Master/install-tl.pl
@@ -88,11 +88,13 @@ our %vars=( # 'n_' means 'number of'.
my $opt_media = "";
my $opt_url = "";
my $opt_profile = "";
+my $opt_no_cls=0;
$::netarchive = "archive";
$::diskarchive = "archive";
GetOptions("media=s" => \$opt_media,
"profile=s"=> \$opt_profile,
+ "no-cls",
"netarchive=s" => \$::netarchive,
"diskarchive=s" => \$::diskarchive,
"url=s" => \$opt_url ) or die("No pod doc till now!");