This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
pod->html VMS fixes
authorlane@duphy4.physics.drexel.edu <lane@duphy4.physics.drexel.edu>
Tue, 4 May 1999 10:19:25 +0000 (03:19 -0700)
committerGurusamy Sarathy <gsar@cpan.org>
Mon, 10 May 1999 10:54:01 +0000 (10:54 +0000)
Message-Id: <3.0.6.32.19990504101925.02ecde30@ous.edu>

p4raw-id: //depot/perl@3371

installhtml
lib/Pod/Html.pm

index db1e612..d73124c 100755 (executable)
@@ -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);
 
index cc770de..ee303d3 100644 (file)
@@ -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;