diff options
Diffstat (limited to 'Master/tlpkg/bin/tlprm')
-rwxr-xr-x | Master/tlpkg/bin/tlprm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Master/tlpkg/bin/tlprm b/Master/tlpkg/bin/tlprm index 997fb3b8d6a..0c2663a6d02 100755 --- a/Master/tlpkg/bin/tlprm +++ b/Master/tlpkg/bin/tlprm @@ -18,7 +18,7 @@ BEGIN { use strict; -use TeXLive::TLConfig; +use TeXLive::TLConfig qw/$RelocPrefix $RelocTree/; use TeXLive::TLPDB; use TeXLive::TLPSRC; use TeXLive::TLUtils; @@ -50,6 +50,7 @@ sub main } my @files = $obj->all_files; + if ($tlp->relocated) { for (@files) { s:^$RelocPrefix/:$RelocTree/:; } } my $tlpsrc = new TeXLive::TLPSRC; $tlpsrc->from_file ($f); push (@files, $tlpsrc->_srcfile); # also want to remove the tlpsrc file. |