texlive[67341] Build/source/texk/web2c/cwebdir/ctproofsort: [CWEB]

[commits+ascherer at tug.org]

Revision: 67341
          http://tug.org/svn/texlive?view=revision&revision=67341
Author:   ascherer
Date:     2023-06-12 21:38:52 +0200 (Mon, 12 Jun 2023)
Log Message:
-----------
[CWEB] Pick a few nits.

Modified Paths:
--------------
    trunk/Build/source/texk/web2c/cwebdir/ctproofsort

Modified: trunk/Build/source/texk/web2c/cwebdir/ctproofsort
===================================================================
--- trunk/Build/source/texk/web2c/cwebdir/ctproofsort	2023-06-12 17:20:32 UTC (rev 67340)
+++ trunk/Build/source/texk/web2c/cwebdir/ctproofsort	2023-06-12 19:38:52 UTC (rev 67341)
@@ -1,11 +1,11 @@
 #!/usr/bin/perl
 # This small Perl script 'proofsort' sorts the mini-indexes for each
-# section in the TeX fiie created by 'ctwill +P', i.e., prior to
+# section in the TeX file created by 'ctwill +P', i.e., prior to
 # formatting with the 'proofmac.tex' macros.
 #
 # Example from MMIX:
 # $ tie -c mmotype-twill.ch mmotype.{w,ch} mmotype-mini.ch
-# $ ctwill +P -x mmotype mmotype-twill
+# $ ctwill +P -x mmotype mmotype-twill (run this two times)
 # $ ./proofsort mmotype.tex > mmotype-sorted.tex
 # $ mv mmotype-sorted.tex mmotype.tex
 # $ tex mmotype
@@ -20,7 +20,7 @@
 
 my $tex=$ARGV[0];
 
-open(TEX, $tex) or die "Could not open input file $tex.";
+open(TEX, $tex) or die "$0: Could not open input file $tex.\n";
 
 my %mini_index; # storage for index entries of a section
 my $print_index=0; # do we collect and print a mini-index?