X-Git-Url: http://git.shiar.net/perl/plp/.git/blobdiff_plain/814e7ba10b896c8810b28a5b5172ef1973d66e3c..a3e055f384279c0e88b1063ccc2b417c65f4df07:/PLP.pm

diff --git a/PLP.pm b/PLP.pm
index 93ec49a..0e2a2f9 100644
--- a/PLP.pm
+++ b/PLP.pm
@@ -120,7 +120,7 @@ sub sendheaders () {
 		    $inB = 0;
 		    $source .= "; print q\cQ";
 		} elsif ($part =~ /^<\((.*?)\)>\z/ and not $inA || $inB) {
-		    my $ipath = File::Spec->rel2abs($1);
+		    my $ipath = File::Spec->rel2abs($1, File::Basename::dirname($path));
 		    $source .= source($1, $level + 1, undef, $ipath) .
 			       qq/\cQ, \n#line $linenr "$file"\nq\cQ/;
 		    push @{ $cached{$path}[0] }, $ipath;