From 2e705ed787d0fb2a82992cf9de4234316e8e538f Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Tue, 26 Oct 2010 15:36:41 +0000 Subject: (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 --- Master/texmf/scripts/texlive/tlmgr.pl | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) (limited to 'Master/texmf') 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; -- cgit v1.2.3