diff options
| author | Karl Berry <karl@freefriends.org> | 2009-04-12 23:21:05 +0000 |
|---|---|---|
| committer | Karl Berry <karl@freefriends.org> | 2009-04-12 23:21:05 +0000 |
| commit | c87c5680a97ea7d5458d6ae7c95bc83c60c912a0 (patch) | |
| tree | d641691725961cb2a5a240e597778b871ad82c2e /Master/install-tl | |
| parent | 1a87640a25a3cf2bf77b1cb9c69e3c90f2b3811b (diff) | |
(read_profile): change space-in-values fix to use
third arg to split, for Perl style.
git-svn-id: svn://tug.org/texlive/trunk@12706 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/install-tl')
| -rwxr-xr-x | Master/install-tl | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/Master/install-tl b/Master/install-tl index e841a3deb3a..45c09317d64 100755 --- a/Master/install-tl +++ b/Master/install-tl @@ -875,8 +875,7 @@ sub read_profile { while (<PROFILE>) { next if m/^[[:space:]]*$/; # skip empty lines next if m/^[[:space:]]*#/; # skip comment lines - my ($k,$v); - ($k,$v) = /(.*?)\s+(.*)/; # The *first* space is delimiter. + my ($k,$v) = split (" ", $_, 2); # value might have spaces $pro{$k} = $v; } foreach (keys %vars) { |