From a3ffbe2a05a3163b3c0c640ba9e02bc3e30e3581 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Mon, 21 Feb 2022 17:59:18 +0000 Subject: do not lost last pages of ctan2tl output git-svn-id: svn://tug.org/texlive/trunk@62119 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/bin/c2l | 6 +++--- 1 file 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; } -- cgit v1.2.3