summaryrefslogtreecommitdiff
path: root/Master/install-tl
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2009-04-12 23:21:05 +0000
committerKarl Berry <karl@freefriends.org>2009-04-12 23:21:05 +0000
commitc87c5680a97ea7d5458d6ae7c95bc83c60c912a0 (patch)
treed641691725961cb2a5a240e597778b871ad82c2e /Master/install-tl
parent1a87640a25a3cf2bf77b1cb9c69e3c90f2b3811b (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-xMaster/install-tl3
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) {