do not lost last pages of ctan2tl output

git-svn-id: svn://tug.org/texlive/trunk@62119 c570f23f-e606-0410-a88d-b1316a301751

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;
 }