From 718cf1a2fedab1ef95b1601ac86888034c3ee87d Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Wed, 11 Jun 2008 00:34:53 +0000 Subject: (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 --- Master/tlpkg/TeXLive/TLPSRC.pm | 8 +++----- 1 file 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"; } -- cgit v1.2.3