texlive[54619] Master/tlpkg/TeXLive/TLPDB.pm:

[commits+karl at tug.org]

Revision: 54619
          http://tug.org/svn/texlive?view=revision&revision=54619
Author:   karl
Date:     2020-04-06 00:19:30 +0200 (Mon, 06 Apr 2020)
Log Message:
-----------
(not_virtual_install_package): for a
local_compressed install, request versioned
container. That is, the unversioned symlinks in
archive/ in the .iso image cannot be dereferenced
on Windows.

Modified Paths:
--------------
    trunk/Master/tlpkg/TeXLive/TLPDB.pm

Modified: trunk/Master/tlpkg/TeXLive/TLPDB.pm
===================================================================
--- trunk/Master/tlpkg/TeXLive/TLPDB.pm	2020-04-05 22:14:32 UTC (rev 54618)
+++ trunk/Master/tlpkg/TeXLive/TLPDB.pm	2020-04-05 22:19:30 UTC (rev 54619)
@@ -1779,7 +1779,13 @@
       $container = \@installfiles;
     } elsif ($media eq 'local_compressed') {
       for my $ext (map { $Compressors{$_}{'extension'} } keys %Compressors) {
-        if (-r "$root/$Archive/$pkg.tar.$ext") {
+        # request versioned containers when local (i.e., ISO image),
+        # since the unversioned symlinks cannot be dereferenced
+        # on Windows.
+        my $rev = $tlpobj->revision;
+        if (-r "$root/$Archive/$pkg.$rev.tar.$ext") {
+          $container = "$root/$Archive/$pkg.$rev.tar.$ext";
+        } elsif (-r "$root/$Archive/$pkg.tar.$ext") {
           $container = "$root/$Archive/$pkg.tar.$ext";
         }
       }
@@ -1789,6 +1795,8 @@
         return(0);
       }
     } elsif (&media eq 'NET') {
+      # Since the NET server cannot be a Windows machine,
+      # ok to request the unversioned file.
       $container = "$root/$Archive/$pkg.tar."
                    . $Compressors{$DefaultCompressorFormat}{'extension'};
     }