tlmgr.pl: use the regexp for special-update-win32 packages

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

1 files changed, 1 insertions, 6 deletions

diff --git a/Master/texmf/scripts/texlive/tlmgr.pl b/Master/texmf/scripts/texlive/tlmgr.pl
index a4f33c970d6..a9909f9852c 100755
--- a/Master/texmf/scripts/texlive/tlmgr.pl
+++ b/Master/texmf/scripts/texlive/tlmgr.pl
@@ -637,12 +637,7 @@ sub action_update {
                                  $opt_backupdir, "${pkg}.r" . $tlp->revision);
           }
         }
-
-        if (win32() && (($pkg =~ m/^texlive\.infra/) ||
-                        ($pkg =~ m/^luatex/) ||
-                        ($pkg =~ m/^bin-tlperl\.win32$/) ||
-                        ($pkg =~ m/^texlive.infra/) ||
-                        ($pkg =~ m/^bin-texlive/))) {
+        if (win32() && ($pkg =~ m/$WinSpecialUpdatePackagesRegexp/)) {
           if (!$updater_started) {
             open UPDATER, ">" . $localtlpdb->root . "/tlpkg/installer/updater.bat"
               or die "Cannot create updater.bat: $!";