From a3e055f384279c0e88b1063ccc2b417c65f4df07 Mon Sep 17 00:00:00 2001
From: Juerd Waalboer <juerd@cpan.org>
Date: Sat, 31 Mar 2007 02:17:09 +0200
Subject: [PATCH] use relative paths in compile-time includes

---
 PLP.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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;
-- 
2.30.0