From: lane@duphy4.physics.drexel.edu <lane@duphy4.physics.drexel.edu>
Date: Tue, 4 May 1999 10:19:25 +0000 (-0700)
Subject: pod->html VMS fixes
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=fe4c6be141b0b356b13c8403bfd72e3f9e782a25;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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
--- 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;