pod->html VMS fixes

	Message-Id: <3.0.6.32.19990504101925.02ecde30@ous.edu>

p4raw-id: //depot/perl@3371

diff --git a/installhtml b/installhtml
index db1e612..d73124c 100755 (executable)
--- 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 cc770de..ee303d3 100644 (file)
--- 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;