summaryrefslogtreecommitdiff
path: root/Master/tlpkg
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2009-05-17 18:47:51 +0000
committerKarl Berry <karl@freefriends.org>2009-05-17 18:47:51 +0000
commit3ae3e7426f883c549a427ed3940e3beb8a40ea78 (patch)
treebb2cd4dc5e6acb004c7d39dc29b91a1e1f9d60c1 /Master/tlpkg
parentbe7ec57cd1c8a0810beab2be0b21308f232ce4fe (diff)
(main): relocate $obj rather than the nonexistent $tlp.
git-svn-id: svn://tug.org/texlive/trunk@13184 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg')
-rwxr-xr-xMaster/tlpkg/bin/tlprm5
1 files changed, 4 insertions, 1 deletions
diff --git a/Master/tlpkg/bin/tlprm b/Master/tlpkg/bin/tlprm
index 0c2663a6d02..0e8af8c946c 100755
--- a/Master/tlpkg/bin/tlprm
+++ b/Master/tlpkg/bin/tlprm
@@ -50,7 +50,10 @@ sub main
}
my @files = $obj->all_files;
- if ($tlp->relocated) { for (@files) { s:^$RelocPrefix/:$RelocTree/:; } }
+ if ($obj->relocated) {
+ s,^$RelocPrefix/,$RelocTree/, foreach @files;
+ }
+
my $tlpsrc = new TeXLive::TLPSRC;
$tlpsrc->from_file ($f);
push (@files, $tlpsrc->_srcfile); # also want to remove the tlpsrc file.