texlive[51140] Master/texmf-dist/scripts/texlive/tlmgr.pl: import

[commits+preining at tug.org]

Revision: 51140
          http://tug.org/svn/texlive?view=revision&revision=51140
Author:   preining
Date:     2019-05-16 12:12:50 +0200 (Thu, 16 May 2019)
Log Message:
-----------
import tlmgr repository status output

Modified Paths:
--------------
    trunk/Master/texmf-dist/scripts/texlive/tlmgr.pl

Modified: trunk/Master/texmf-dist/scripts/texlive/tlmgr.pl
===================================================================
--- trunk/Master/texmf-dist/scripts/texlive/tlmgr.pl	2019-05-15 23:38:01 UTC (rev 51139)
+++ trunk/Master/texmf-dist/scripts/texlive/tlmgr.pl	2019-05-16 10:12:50 UTC (rev 51140)
@@ -4550,12 +4550,18 @@
       init_tlmedia_or_die();
     }
     if (!$remotetlpdb->is_virtual) {
-      print "main: ", $remotetlpdb->location, ", verification status: ", $remotetlpdb->is_verified, "\n";
+      my $verstat = $remotetlpdb->verification_status;
+      print "main ", $remotetlpdb->location, " ", 
+        ($::machinereadable ? "$verstat " : ""),
+        $VerificationStatusDescription{$verstat}, "\n";
       return ($F_OK);
     } else {
       for my $t ($remotetlpdb->virtual_get_tags()) {
         my $tlpdb = $remotetlpdb->virtual_get_tlpdb($t);
-        print "$t: ", $tlpdb->location, ", verification status: ", $tlpdb->is_verified, "\n";
+        my $verstat = $tlpdb->verification_status;
+        print "$t ", $tlpdb->location, " ",
+          ($::machinereadable ? "$verstat " : ""),
+          $VerificationStatusDescription{$verstat}, "\n";
       }
       return($F_OK);
     }