(check_runfiles): texworks is not a normal

package.  (avoid duplicates with adobemapping --
also, the TW files should be updated.)


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

1 files changed, 8 insertions, 2 deletions

diff --git a/Master/texmf/scripts/texlive/tlmgr.pl b/Master/texmf/scripts/texlive/tlmgr.pl
index 440627c89d0..973c0a608b6 100755
--- a/Master/texmf/scripts/texlive/tlmgr.pl
+++ b/Master/texmf/scripts/texlive/tlmgr.pl
@@ -3857,13 +3857,19 @@ sub check_runfiles {
   # build a list of all runtime files associated to 'normal' packages
   #
   (my $non_normal = `ls $Master/bin`) =~ s/\n/\$|/g; # binaries
-  $non_normal .= '^0+texlive|^bin-|^collection-|^scheme-|^texlive-';
+  $non_normal .= '^0+texlive|^bin-|^collection-|^scheme-|^texlive-|^texworks';
   my @runtime_files = ();
+  #
   foreach my $tlpn ($localtlpdb->list_packages) {
     next if ($tlpn =~ /$non_normal/);
+    #
     my $tlp = $localtlpdb->get_package($tlpn);
     my @files = $tlp->runfiles;
-    if ($tlp->relocated) { for (@files) { s!^$TeXLive::TLConfig::RelocPrefix/!$TeXLive::TLConfig::RelocTree/!; } }
+    if ($tlp->relocated) {
+      for (@files) { 
+        s!^$TeXLive::TLConfig::RelocPrefix/!$TeXLive::TLConfig::RelocTree/!;
+      }
+    }
     # special case for koma-script where doc/src files are in runfiles section
     if ($tlpn eq "koma-script") {
       @files = grep {!m;^texmf-dist/source/latex/koma-script/;} @files;