From 8f91d1d00eb2808ad1c66475c1769f3884622f44 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Mon, 22 Sep 2008 23:35:04 +0000 Subject: add a patch to allow continuation lines in tlpsrc files git-svn-id: svn://tug.org/texlive/trunk@10695 c570f23f-e606-0410-a88d-b1316a301751 --- .../etc/allow-continuation-lines-in-tlpsrc.diff | 30 ++++++++++++++++++++++ 1 file changed, 30 insertions(+) create mode 100644 Master/tlpkg/etc/allow-continuation-lines-in-tlpsrc.diff diff --git a/Master/tlpkg/etc/allow-continuation-lines-in-tlpsrc.diff b/Master/tlpkg/etc/allow-continuation-lines-in-tlpsrc.diff new file mode 100644 index 00000000000..d4ea539611a --- /dev/null +++ b/Master/tlpkg/etc/allow-continuation-lines-in-tlpsrc.diff @@ -0,0 +1,30 @@ +Index: TLPSRC.pm +=================================================================== +--- TLPSRC.pm (revision 10694) ++++ TLPSRC.pm (working copy) +@@ -68,10 +68,25 @@ + my (@runpatterns, @docpatterns, @binpatterns, @srcpatterns); + my $started = 0; + my $finished = 0; ++ my $savedline = ""; + + foreach my $line (@lines) { ++ # we allow continuation lines in tlpsrc files, i.e., lines with a \ at ++ # the end ++ if ($line =~ /^(.*)\\$/) { ++ $savedline .= "$1"; ++ next; ++ } ++ if ($savedline ne "") { ++ # we are in a continuation line ++ $line = "$savedline$line"; ++ $savedline = ""; ++ } ++ + $line =~ /^\s*#/ && next; # skip comment lines + next if $line =~ /^\s*$/; # skip blank lines ++ ++ + # (blank lines are significant in tlpobj, but not tlpsrc) + + if ($line =~ /^ /) { -- cgit v1.2.3