From 53a8d1b8eb73ca45a9780f087010d37dca19fd16 Mon Sep 17 00:00:00 2001
From: Ricardo Signes <rjbs@cpan.org>
Date: Thu, 19 Apr 2012 22:25:34 -0400
Subject: allow "." in directory name

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 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'ext')

diff --git a/ext/Pod-Html/lib/Pod/Html.pm b/ext/Pod-Html/lib/Pod/Html.pm
index f6698738c2..5fb06f841c 100644
--- a/ext/Pod-Html/lib/Pod/Html.pm
+++ b/ext/Pod-Html/lib/Pod/Html.pm
@@ -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";
-- 
cgit v1.2.1