diff options
author | Karl Berry <karl@freefriends.org> | 2008-07-18 00:03:37 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2008-07-18 00:03:37 +0000 |
commit | 5ad6efc265ddbdac7f9787ee34b8b66dcbd6457f (patch) | |
tree | 2407a71c12e1e85b77b986f6e2db5d42dfc3f770 /Master/install-tl | |
parent | 9ca9ca5bd983485a2db0f1d1304b082bfc25accf (diff) |
(create_profile): text tweaks, and do not write
TEXDIRW twice.
git-svn-id: svn://tug.org/texlive/trunk@9650 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/install-tl')
-rwxr-xr-x | Master/install-tl | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/Master/install-tl b/Master/install-tl index 5c53ec28b44..b95a47d6e07 100755 --- a/Master/install-tl +++ b/Master/install-tl @@ -761,10 +761,10 @@ sub create_profile { } my $tim = gmtime(time); print $fh "# texlive.profile written on $tim UTC\n"; - print $fh "# it will NOT be overwritten and reflects only the\n"; - print $fh "# installation profile at installation time\n"; + print $fh "# It will NOT be updated and reflects only the\n"; + print $fh "# installation profile at installation time.\n"; print $fh "selected_scheme $vars{selected_scheme}\n"; - foreach my $key (sort (keys %vars)) { + foreach my $key (sort keys %vars) { print $fh "$key $vars{$key}\n" if $key=~/^collection/ and $vars{$key}==1; print $fh "$key $vars{$key}\n" if $key=~/^option_letter/; @@ -772,8 +772,7 @@ sub create_profile { print $fh "$key $vars{$key}\n" if $key=~/^option_fmt/; print $fh "$key $vars{$key}\n" if $key=~/^option_src/; print $fh "$key $vars{$key}\n" if $key=~/^option_symlinks/; - print $fh "$key $vars{$key}\n" if $key=~/^TEXDIRW/; - print $fh "$key $vars{$key}\n" if $key=~/^TEXDIR/; + print $fh "$key $vars{$key}\n" if $key=~/^TEXDIR/; # includes TEXDIRW print $fh "$key $vars{$key}\n" if $key=~/^TEXMFSYSVAR/; print $fh "$key $vars{$key}\n" if $key=~/^TEXMFSYSCONFIG/; print $fh "$key $vars{$key}\n" if $key=~/^TEXMFLOCAL/; |