From 5491f687183e7e6175193dd3c72ac7db4ff8c7e5 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Sun, 22 Jul 2007 17:33:40 +0000 Subject: (from_file): make $srcfile absolute. git-svn-id: svn://tug.org/texlive/trunk@4642 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/TeXLive/TLPSRC.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'Master/tlpkg/TeXLive') 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; } -- cgit v1.2.3