allow "." in directory name
authorRicardo Signes <rjbs@cpan.org>
Fri, 20 Apr 2012 02:25:34 +0000 (22:25 -0400)
committerRicardo Signes <rjbs@cpan.org>
Fri, 20 Apr 2012 02:25:34 +0000 (22:25 -0400)
This qualifies as another of the "crude hack to keep Pod-Html
more usable" hacks that are in place until the path handling
is fixed more systematically.

ext/Pod-Html/lib/Pod/Html.pm

index f669873..5fb06f8 100644 (file)
@@ -332,7 +332,7 @@ sub pod2html {
               while($_dirlevel =~ /\.\./) {
                 $_dirlevel =~ s/\.\.//;
                 # Assume $Pages{$key} has '/' separators (html dir separators).
-                $Pages{$key} =~ s/^[\w\s\-]+\///;
+                $Pages{$key} =~ s/^[\w\s\-\.]+\///;
               }
             }
             print $cache "$key $Pages{$key}\n";