diff options
author | Reinhard Kotucha <reinhard.kotucha@web.de> | 2008-01-03 22:08:33 +0000 |
---|---|---|
committer | Reinhard Kotucha <reinhard.kotucha@web.de> | 2008-01-03 22:08:33 +0000 |
commit | ef9c0f9c22c0b6e084b2e9a885fe55a19bed269b (patch) | |
tree | 934d789ea8694fe481b757708fb92ef9a6a5addb /Master/install-tl.pl | |
parent | dfe491d7771535d1ba0938695b937338c94ebdb3 (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-x | Master/install-tl.pl | 2 |
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!"); |