diff options
| -rwxr-xr-x | installhtml | 2 | ||||
| -rw-r--r-- | lib/Pod/Html.pm | 1 |
2 files changed, 2 insertions, 1 deletions
diff --git a/installhtml b/installhtml index db1e612865..d73124ce13 100755 --- a/installhtml +++ b/installhtml @@ -515,7 +515,7 @@ sub installdir { || die "$0: error opening directory $podroot/$dir: $!\n"; # find the directories to recurse on - @dirlist = map { "$dir/$_" } + @dirlist = map { if ($^O eq 'VMS') {/^(.*)\.dir$/i; "$dir/$1";} else {"$dir/$_";}} grep(-d "$podroot/$dir/$_" && !/^\.{1,2}/, readdir(DIR)) if $recurse; rewinddir(DIR); diff --git a/lib/Pod/Html.pm b/lib/Pod/Html.pm index cc770deb4a..ee303d353f 100644 --- a/lib/Pod/Html.pm +++ b/lib/Pod/Html.pm @@ -1405,6 +1405,7 @@ sub pre_escape { # sub dosify { my($str) = @_; + return lc($str) if $^O eq 'VMS'; # VMS just needs casing if ($Is83) { $str = lc $str; $str =~ s/(\.\w+)/substr ($1,0,4)/ge; |