texlive[68696] Master/tlpkg: context-collating-marks correct in

[commits+karl at tug.org]

Revision: 68696
          https://tug.org/svn/texlive?view=revision&revision=68696
Author:   karl
Date:     2023-10-29 21:39:37 +0100 (Sun, 29 Oct 2023)
Log Message:
-----------
context-collating-marks correct in catalogue now

Modified Paths:
--------------
    trunk/Master/tlpkg/bin/tlpkginfo
    trunk/Master/tlpkg/tlpsrc/context-collating-marks.tlpsrc

Modified: trunk/Master/tlpkg/bin/tlpkginfo
===================================================================
--- trunk/Master/tlpkg/bin/tlpkginfo	2023-10-29 20:14:43 UTC (rev 68695)
+++ trunk/Master/tlpkg/bin/tlpkginfo	2023-10-29 20:39:37 UTC (rev 68696)
@@ -269,7 +269,7 @@
 # 
 sub tlpsrc_find_catalogue {
   my ($me) = @_;
-  
+
   chomp (my $mydir = `dirname $0`);
   chomp (my $tlpsrcdir = `cd $mydir/../tlpsrc && /bin/pwd`);
   my $tlpsrc = "$tlpsrcdir/$me.tlpsrc";
@@ -282,6 +282,7 @@
   if ($cat =~ /\./) {
     warn "$0: $tlpsrc catalogue value should not contain a period: $cat\n";
   }
+  #warn "tlpsrc_find_catalogue value = $cat\n";
   return $cat;
 }
 
@@ -294,6 +295,7 @@
   # Happily, the Catalogue uses all-lowercase file/directory names.
   my $firstchar = substr (lc ($pkgname), 0, 1);
   my $catfile =  "$CATALOGUE/$firstchar/$pkgname.xml";
+
   return -r $catfile ? $catfile : undef;
 }
 
@@ -309,6 +311,7 @@
   my ($pkgname,$do_copy) = @_;
 
   my $catfile = &catalogue_find_file ($pkgname);
+#warn $catfile ? "got catalogue file $catfile\n" : "no catalogue file\n":
   return undef if ! $catfile;
 
   # get the raw tag from the catalogue file.

Modified: trunk/Master/tlpkg/tlpsrc/context-collating-marks.tlpsrc
===================================================================
--- trunk/Master/tlpkg/tlpsrc/context-collating-marks.tlpsrc	2023-10-29 20:14:43 UTC (rev 68695)
+++ trunk/Master/tlpkg/tlpsrc/context-collating-marks.tlpsrc	2023-10-29 20:39:37 UTC (rev 68696)
@@ -1,3 +1,2 @@
 category ConTeXt
 depend context
-catalogue context-collatingmarks