texlive[62119] Master/tlpkg/bin/c2l: do not lost last pages of

[commits+karl at tug.org]

Revision: 62119
          http://tug.org/svn/texlive?view=revision&revision=62119
Author:   karl
Date:     2022-02-21 18:59:18 +0100 (Mon, 21 Feb 2022)
Log Message:
-----------
do not lost last pages of ctan2tl output

Modified Paths:
--------------
    trunk/Master/tlpkg/bin/c2l

Modified: trunk/Master/tlpkg/bin/c2l
===================================================================
--- trunk/Master/tlpkg/bin/c2l	2022-02-21 16:42:29 UTC (rev 62118)
+++ trunk/Master/tlpkg/bin/c2l	2022-02-21 17:59:18 UTC (rev 62119)
@@ -121,7 +121,7 @@
   }
   
   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 @@
 
   # 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;
 }