Unicode::Collate may not be available

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

texk/web2c/cwebdir/ChangeLog

@@ -1,3 +1,10 @@
+2023-06-26  Karl Berry  <karl@freefriends.org>
+
+	* ctwill-proofsort: Unicode::Collate is required but may not be
+	available.
+	* ctwill.test: exit 0 if Unicode::Collate is not available,
+        so we don't fail in environments without it.
+
 2023-06-23  Andreas Scherer  <https://ascherer.github.io>
 
 	* ctwill.test: Check CTWILL output.

texk/web2c/cwebdir/ctwill-proofsort

@@ -8,7 +8,13 @@ use warnings;
 use File::Basename;
 use Getopt::Long qw(:config no_ignore_case bundling);
 use Pod::Usage;
-use Unicode::Collate;
+
+BEGIN {
+  # Unicode::Collate has been around a long time,
+  # but it's not part of core Perl.
+  my $rc = eval { require Unicode::Collate; };
+  die "$0: the Unicode::Collate module is required\n" unless $rc;
+}
 
 # We expect a TeX file as the single command-line parameter.
 my $progname = basename $0;

texk/web2c/cwebdir/ctwill.test

@@ -15,7 +15,9 @@ diff ham.tex $testdir/ham.tex || exit 1
 diff ham.sref $testdir/ham.sref || exit 1
 
 # Test CTWILL-PROOFSORT
-# Perl script not available in builddir
+# Perl script not available in builddir, and requires Unicode::Collate;
+# if that module is not available, just quit testing.
+perl -e 'use Unicode::Collate;' 2>/dev/null || exit 0
 $testdir/../ctwill-proofsort ham.tex > ham-sorted.tex || exit 1
 diff ham-sorted.tex $testdir/ham-sorted.tex || exit 1