diff options
author | Karl Berry <karl@freefriends.org> | 2008-06-11 00:34:53 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2008-06-11 00:34:53 +0000 |
commit | 718cf1a2fedab1ef95b1601ac86888034c3ee87d (patch) | |
tree | b30e7e87ecbbfc6697630939a9557585f86640cb /Master/tlpkg/TeXLive/TLPSRC.pm | |
parent | 05fa5316b8385516f9917869f0d330156465b403 (diff) |
(from_file): ignore blank lines instead of
aborting; they're significant in tlpobj, but not tlpsrc.
git-svn-id: svn://tug.org/texlive/trunk@8663 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLPSRC.pm')
-rw-r--r-- | Master/tlpkg/TeXLive/TLPSRC.pm | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/Master/tlpkg/TeXLive/TLPSRC.pm b/Master/tlpkg/TeXLive/TLPSRC.pm index 735e9714b52..c7077454c45 100644 --- a/Master/tlpkg/TeXLive/TLPSRC.pm +++ b/Master/tlpkg/TeXLive/TLPSRC.pm @@ -74,11 +74,9 @@ sub from_file foreach my $line (@lines) { $line =~ /^\s*#/ && next; # skip comment lines - if ($line =~ /^\s*$/) { - if (!$started) { next; } - if ($finished) { next; } - die("$srcfile: empty line not allowed in tlpsrc"); - } + next if $line =~ /^\s*$/; # skip blank lines + # (blank lines are significant in tlpobj, but not tlpsrc) + if ($line =~ /^ /) { die "$srcfile: continuation line not allowed in tlpsrc: $line\n"; } |