texlive[59098] Master: (writeout): dddebug, since this happens on

[commits+karl at tug.org]

Revision: 59098
          http://tug.org/svn/texlive?view=revision&revision=59098
Author:   karl
Date:     2021-05-06 22:21:11 +0200 (Thu, 06 May 2021)
Log Message:
-----------
(writeout): dddebug, since this happens on every package in tlpdb; other debugging tweaks

Modified Paths:
--------------
    trunk/Master/texmf-dist/scripts/texlive/tlmgr.pl
    trunk/Master/tlpkg/TeXLive/TLPDB.pm
    trunk/Master/tlpkg/TeXLive/TLPOBJ.pm
    trunk/Master/tlpkg/TeXLive/TLUtils.pm
    trunk/Master/tlpkg/bin/tl-try-install

Modified: trunk/Master/texmf-dist/scripts/texlive/tlmgr.pl
===================================================================
--- trunk/Master/texmf-dist/scripts/texlive/tlmgr.pl	2021-05-06 18:08:29 UTC (rev 59097)
+++ trunk/Master/texmf-dist/scripts/texlive/tlmgr.pl	2021-05-06 20:21:11 UTC (rev 59098)
@@ -5379,6 +5379,7 @@
     $tlpdb->add_tlpobj($tlp);
   }
   # writeout the re-created tlpdb to stdout
+  &debug("tlmgr:action_recreate_tlpdb: writing out tlpdb\n");
   $tlpdb->writeout;
   return;
 }
@@ -7220,14 +7221,16 @@
   # check for being frozen
   if ($remotetlpdb->config_frozen) {
     my $frozen_msg = <<FROZEN;
-TeX Live $TeXLive::TLConfig::ReleaseYear is frozen and will no longer
-be routinely updated. This happens when a new release is made.
+TeX Live $TeXLive::TLConfig::ReleaseYear is frozen
+and will no longer be routinely updated.  This happens when a new
+release is made, or will be made shortly.
 
-If you're willing to help with pretesting the new release, and we hope
-you are, (when pretests are available), please read
-https://tug.org/texlive/pretest.html.
+If you're willing to help with pretesting a new release, and we hope
+you are, please see https://tug.org/texlive/pretest.html.
 
-Otherwise, just wait, and the new release will be ready in due time.
+For general status information about TeX Live, see its home page:
+https://tug.org/texlive
+
 FROZEN
     # don't die here, we want to allow updates even if tlnet is frozen!
     tlwarn($frozen_msg);
@@ -7249,7 +7252,7 @@
       # similar
       &debug("Cannot save remote TeX Live database to $loc_copy_of_remote_tlpdb: $!\n");
     } else {
-      &debug("writing out tlpdb to $loc_copy_of_remote_tlpdb\n");
+      &debug("tlmgr:setup_one_remote_tlpdb: writing out remote tlpdb to $loc_copy_of_remote_tlpdb\n");
       $remotetlpdb->writeout($tlfh);
       close($tlfh);
       # Remove all other copies of main databases in case different mirrors

Modified: trunk/Master/tlpkg/TeXLive/TLPDB.pm
===================================================================
--- trunk/Master/tlpkg/TeXLive/TLPDB.pm	2021-05-06 18:08:29 UTC (rev 59097)
+++ trunk/Master/tlpkg/TeXLive/TLPDB.pm	2021-05-06 20:21:11 UTC (rev 59098)
@@ -1,6 +1,6 @@
 # $Id$
 # TeXLive::TLPDB.pm - tlpdb plain text database files.
-# Copyright 2007-2020 Norbert Preining
+# Copyright 2007-2021 Norbert Preining
 # This file is licensed under the GNU General Public License version 2
 # or any later version.
 
@@ -98,7 +98,8 @@
 use TeXLive::TLCrypto;
 use TeXLive::TLPOBJ;
 use TeXLive::TLUtils qw(dirname mkdirhier member win32 info log debug ddebug
-                        tlwarn basename download_file merge_into tldie system_pipe);
+                        tlwarn basename download_file merge_into tldie
+                        system_pipe);
 use TeXLive::TLWinGoo;
 
 use Cwd 'abs_path';
@@ -424,7 +425,8 @@
   }
   my $fd = (@_ ? $_[0] : STDOUT);
   foreach (sort keys %{$self->{'tlps'}}) {
-    ddebug("writeout: tlpname=$_  ", $self->{'tlps'}{$_}->name, "\n");
+    TeXLive::TLUtils::dddebug("writeout: tlpname=$_  ",
+                              $self->{'tlps'}{$_}->name, "\n");
     $self->{'tlps'}{$_}->writeout($fd);
     print $fd "\n";
   }

Modified: trunk/Master/tlpkg/TeXLive/TLPOBJ.pm
===================================================================
--- trunk/Master/tlpkg/TeXLive/TLPOBJ.pm	2021-05-06 18:08:29 UTC (rev 59097)
+++ trunk/Master/tlpkg/TeXLive/TLPOBJ.pm	2021-05-06 20:21:11 UTC (rev 59098)
@@ -1,6 +1,6 @@
 # $Id$
 # TeXLive::TLPOBJ.pm - module for using tlpobj files
-# Copyright 2007-2019 Norbert Preining
+# Copyright 2007-2021 Norbert Preining
 # This file is licensed under the GNU General Public License version 2
 # or any later version.
 

Modified: trunk/Master/tlpkg/TeXLive/TLUtils.pm
===================================================================
--- trunk/Master/tlpkg/TeXLive/TLUtils.pm	2021-05-06 18:08:29 UTC (rev 59097)
+++ trunk/Master/tlpkg/TeXLive/TLUtils.pm	2021-05-06 20:21:11 UTC (rev 59098)
@@ -656,8 +656,8 @@
 
 =item C<system_pipe($prog, $infile, $outfile, $removeIn, @extraargs)>
 
-Runs C<$prog> with C<@extraargs> redirecting stdin from C<$infile>, stdout to C<$outfile>.
-Removes C<$infile> if C<$removeIn> is true.
+Runs C<$prog> with C<@extraargs> redirecting stdin from C<$infile>,
+stdout to C<$outfile>. Removes C<$infile> if C<$removeIn> is true.
 
 =cut
 
@@ -2394,7 +2394,7 @@
   # quoting issues.
   # so fall back on chdir in Perl.
   #
-  debug("unpacking $tarfile in $targetdir\n");
+  debug("TLUtils::untar: unpacking $tarfile in $targetdir\n");
   my $cwd = cwd();
   chdir($targetdir) || die "chdir($targetdir) failed: $!";
 
@@ -4585,7 +4585,7 @@
 }
 
 

-=item C<check_sys_user_mode($user,$sys,$tmfc, $tmfsc, $tmfv, $tmfsv)>
+=item C<setup_sys_user_mode($user,$sys,$tmfc, $tmfsc, $tmfv, $tmfsv)>
 
 =cut
 

Modified: trunk/Master/tlpkg/bin/tl-try-install
===================================================================
--- trunk/Master/tlpkg/bin/tl-try-install	2021-05-06 18:08:29 UTC (rev 59097)
+++ trunk/Master/tlpkg/bin/tl-try-install	2021-05-06 20:21:11 UTC (rev 59098)
@@ -16,7 +16,7 @@
 Master=`cd $mydir/../.. && pwd`
 profiledir=$Master/tlpkg/dev/profiles
 
-opt= # -v -vv
+opt=
 profile=$profiledir/TLinfra.pro
 repo=$Master
 
@@ -24,6 +24,7 @@
   case $1 in
   -p|--profile) shift; profile=$1;;
   -r|--repo)    shift; repo=$1;;
+  -v|-vv)       opt=$1;;
   --help)       echo "ustl. sorry."; exit 0;;
   --version)    echo "$vc_id"; exit 0;;
   *) echo "$0: unrecognized option \`$1'." >&2