Sisyphus's fix for pod2html
authorRicardo Signes <rjbs@cpan.org>
Tue, 6 Mar 2012 03:31:52 +0000 (22:31 -0500)
committerRicardo Signes <rjbs@cpan.org>
Mon, 12 Mar 2012 17:25:23 +0000 (13:25 -0400)
ext/Pod-Html/lib/Pod/Html.pm

index 8fc74a4..c16b657 100644 (file)
@@ -325,7 +325,16 @@ sub pod2html {
             or die "$0: error open $Dircache for writing: $!\n";
 
         print $cache join(":", @Podpath) . "\n$Podroot\n";
+        my $_updirs_only = ($Podroot =~ /\.\./) && !($Podroot =~ /[^\.\\\/]/);
         foreach my $key (keys %Pages) {
+            if($_updirs_only) {
+              my $_dirlevel = $Podroot;
+              while($_dirlevel =~ /\.\./) {
+                $_dirlevel =~ s/\.\.//;
+                # Assume $Pages{$key} has '/' separators (html dir separators).
+                $Pages{$key} =~ s/^[\w\s\-]+\///;
+              }
+            }
             print $cache "$key $Pages{$key}\n";
         }