diff options
| -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; } |