From 3ae3e7426f883c549a427ed3940e3beb8a40ea78 Mon Sep 17 00:00:00 2001
From: Karl Berry <karl@freefriends.org>
Date: Sun, 17 May 2009 18:47:51 +0000
Subject: (main): relocate $obj rather than the nonexistent $tlp.

git-svn-id: svn://tug.org/texlive/trunk@13184 c570f23f-e606-0410-a88d-b1316a301751
---
 Master/tlpkg/bin/tlprm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'Master/tlpkg/bin')

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.
-- 
cgit v1.2.3