diff options
author | Andreas Scherer <andreas_tex@freenet.de> | 2023-06-12 19:38:52 +0000 |
---|---|---|
committer | Andreas Scherer <andreas_tex@freenet.de> | 2023-06-12 19:38:52 +0000 |
commit | 346fb9edbe67967aebeb750f9795db628d15deb1 (patch) | |
tree | 6c8e2a4adf9e551ca6965b8de0c17f21e9185b96 /Build/source | |
parent | 9a5f9c80e970ca10e258a66efe58ca3a9cde07a5 (diff) |
[CWEB] Pick a few nits.
git-svn-id: svn://tug.org/texlive/trunk@67341 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source')
-rwxr-xr-x | Build/source/texk/web2c/cwebdir/ctproofsort | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Build/source/texk/web2c/cwebdir/ctproofsort b/Build/source/texk/web2c/cwebdir/ctproofsort index 7b8c2332d2d..df545bc4d77 100755 --- a/Build/source/texk/web2c/cwebdir/ctproofsort +++ b/Build/source/texk/web2c/cwebdir/ctproofsort @@ -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 @@ die "$0 input_file\n" unless scalar @ARGV; 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? |