$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;
$PLP::safe->reval($code);
}
-# Let the games begin!
-# No lexicals may exist at this point.
+# Let the games begin! No lexicals may exist at this point.
sub start {
my ($r) = @_;
no strict;