diff options
author | Karl Berry <karl@freefriends.org> | 2007-07-22 17:33:40 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2007-07-22 17:33:40 +0000 |
commit | 5491f687183e7e6175193dd3c72ac7db4ff8c7e5 (patch) | |
tree | aa83d74726026b7e6eef3a6705ad78786858ddf8 /Master | |
parent | 3a3aced33d56a5d722a7528115e43d4ec68a8948 (diff) |
(from_file): make $srcfile absolute.
git-svn-id: svn://tug.org/texlive/trunk@4642 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
-rw-r--r-- | Master/tlpkg/TeXLive/TLPSRC.pm | 3 |
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; } |