(check_executes): omit special case for cygwin

made in r13816, no longer needed.


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

1 files changed, 2 insertions, 15 deletions

diff --git a/Master/texmf/scripts/texlive/tlmgr.pl b/Master/texmf/scripts/texlive/tlmgr.pl
index 2e8ed2e2454..979ac2c373b 100755
--- a/Master/texmf/scripts/texlive/tlmgr.pl
+++ b/Master/texmf/scripts/texlive/tlmgr.pl
@@ -34,7 +34,7 @@ our $Master;
 BEGIN {
   $^W = 1;
   # make subprograms (including kpsewhich) have the right path:
-  my $bindir, $kpsewhichname;
+  my ($bindir, $kpsewhichname);
   if ($^O =~ /^MSWin/i) {
     # on win32 $0 points directly to tlmgr.pl; it can be relative
     $Master = "$0/../../../..";
@@ -2776,20 +2776,7 @@ sub check_executes {
     for my $a ($localtlpdb->available_architectures) {
       my $f = "$Master/bin/$a/$name";
       if (!check_file($a, $f)) {
-        if ($a eq "i386-cygwin") {
-          # on cygwin the following can happen: xmltex -> pdftex, but
-          # there is only pdftex.exe, so -r does not succeed
-          if (-l $f) {
-            my $ld = readlink ($f);
-            if (!check_file($a, "$Master/bin/$a/$ld")) {
-              push @{$missingbins{$_}}, "bin/$a/$name" if $mode;
-            }
-          } else {
-            push @{$missingbins{$_}}, "bin/$a/$name" if $mode;
-          }
-        } else {
-          push @{$missingbins{$_}}, "bin/$a/$name" if $mode;
-        }
+        push @{$missingbins{$_}}, "bin/$a/$name" if $mode;
       }
       if (!check_file($a, "$Master/bin/$a/$engine")) {
         push @{$missingengines{$_}}, "bin/$a/$engine" if $mode;