summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2007-07-22 17:33:40 +0000
committerKarl Berry <karl@freefriends.org>2007-07-22 17:33:40 +0000
commit5491f687183e7e6175193dd3c72ac7db4ff8c7e5 (patch)
treeaa83d74726026b7e6eef3a6705ad78786858ddf8 /Master/tlpkg/TeXLive
parent3a3aced33d56a5d722a7528115e43d4ec68a8948 (diff)
(from_file): make $srcfile absolute.
git-svn-id: svn://tug.org/texlive/trunk@4642 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive')
-rw-r--r--Master/tlpkg/TeXLive/TLPSRC.pm3
1 files changed, 2 insertions, 1 deletions
diff --git a/Master/tlpkg/TeXLive/TLPSRC.pm b/Master/tlpkg/TeXLive/TLPSRC.pm
index 01dd3dd6782..71f5263c286 100644
--- a/Master/tlpkg/TeXLive/TLPSRC.pm
+++ b/Master/tlpkg/TeXLive/TLPSRC.pm
@@ -46,7 +46,8 @@ sub from_file
# hierarchy where we are. The %INC hash records where packages were
# found, so we use that to locate ourselves.
(my $trydir = $INC{"TeXLive/TLPSRC.pm"}) =~ s,/[^/]*$,,;
- my $tryfile = "$trydir/../tlpsrc/$srcfile.tlpsrc";
+ chomp ($trydir = `cd $trydir/../tlpsrc && pwd`); # make absolute
+ my $tryfile = "$trydir/$srcfile.tlpsrc";
#warn "$trydir\n$tryfile\n";
$srcfile = $tryfile if -r $tryfile;
}