code comment cleanup addendum

[perl/plp/.git] / PLP.pm

diff --git a/PLP.pm b/PLP.pm
index 93ec49a2ac4de121d27a34c77209efa70029385f..e595ec16363f09b43cf65ccedc0850ae55a0685c 100644 (file)
--- 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;
@@ -274,8 +274,7 @@ sub safe_eval {
     $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;