diff options
| author | Ricardo Signes <rjbs@cpan.org> | 2012-04-19 22:25:34 -0400 |
|---|---|---|
| committer | Ricardo Signes <rjbs@cpan.org> | 2012-04-19 22:25:34 -0400 |
| commit | 53a8d1b8eb73ca45a9780f087010d37dca19fd16 (patch) | |
| tree | 0ad6725827e6853d18655f3b792a379f7dda3789 /ext/Pod-Html/lib/Pod/Html.pm | |
| parent | 276c43f2d2142de2d4f48edf3eea35ea2ebfb749 (diff) | |
| download | perl-53a8d1b8eb73ca45a9780f087010d37dca19fd16.tar.gz | |
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.
Diffstat (limited to 'ext/Pod-Html/lib/Pod/Html.pm')
| -rw-r--r-- | ext/Pod-Html/lib/Pod/Html.pm | 2 |
1 files changed, 1 insertions, 1 deletions
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"; |