tlmgr.pl: re-allow updating of core packages, strange that it works

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

1 files changed, 6 insertions, 4 deletions

diff --git a/Master/texmf/scripts/texlive/tlmgr.pl b/Master/texmf/scripts/texlive/tlmgr.pl
index e35ffcea155..d20f14500c3 100755
--- a/Master/texmf/scripts/texlive/tlmgr.pl
+++ b/Master/texmf/scripts/texlive/tlmgr.pl
@@ -594,10 +594,12 @@ sub action_update {
   }
   foreach my $pkg (@todo) {
     next if ($pkg =~ m/^00texlive/);
-    if (win32() && (($pkg eq "texlive-infra") || ($pkg eq "bin-texlive"))) {
-      info("We cannot upgrade $pkg on win32, since we are running it!\n");
-      next;
-    }
+    # it looks like that can actually be done!!!
+    # It gives several warnings but afterwards the files are changed. Strange
+    #if (win32() && (($pkg eq "texlive-infra") || ($pkg eq "bin-texlive"))) {
+    #  info("We cannot upgrade $pkg on win32, since we are running it!\n");
+    #  next;
+    #}
     my $tlp = $localtlpdb->get_package($pkg);
     if (!defined($tlp)) {
       printf STDERR "Strange, $pkg cannot be found!\n";