summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2022-02-21 17:59:18 +0000
committerKarl Berry <karl@freefriends.org>2022-02-21 17:59:18 +0000
commita3ffbe2a05a3163b3c0c640ba9e02bc3e30e3581 (patch)
treef8633211757e69f0e579bb7c02d19cb5893b2316
parentd1e62cd9eceab9c96f6bf187d0dec0823a8ecee6 (diff)
do not lost last pages of ctan2tl output
git-svn-id: svn://tug.org/texlive/trunk@62119 c570f23f-e606-0410-a88d-b1316a301751
-rwxr-xr-xMaster/tlpkg/bin/c2l6
1 files changed, 3 insertions, 3 deletions
diff --git a/Master/tlpkg/bin/c2l b/Master/tlpkg/bin/c2l
index de9666175c3..fecdebe8ce8 100755
--- a/Master/tlpkg/bin/c2l
+++ b/Master/tlpkg/bin/c2l
@@ -121,7 +121,7 @@ sub main {
}
my $whole_string = join ("", @lines);
- my @page = split (/\f */, $whole_string);
+ my @page = split (/\f */, $whole_string, 4);
my $diff_list
= `test -s /tmp/$<.tlplace.diff && sed -n -e 's/^--- //' \\
@@ -132,8 +132,8 @@ sub main {
# page 0: build stuff.
# page 1: cooked hierarchy.
- # page 2: new vs. present.
+ # page 2: new vs. present (what's interesting).
# page 3: place output.
- print "$page[2]$diff_list\n\f$page[1]\n\f$page[0]\n\f$page[3]\n";
+ print "$page[2]$diff_list\n\f $page[1]\n\f $page[0]\n\f $page[3]\n";
return 0;
}