diff options
| author | lane@duphy4.physics.drexel.edu <lane@duphy4.physics.drexel.edu> | 1999-05-04 03:19:25 -0700 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-05-10 10:54:01 +0000 |
| commit | fe4c6be141b0b356b13c8403bfd72e3f9e782a25 (patch) | |
| tree | a9d9346881f3322ee6eeae11acf592db3f8275a8 | |
| parent | eb57363fedc1e70c9a6269b74b72371ac0c5eeef (diff) | |
| download | perl-fe4c6be141b0b356b13c8403bfd72e3f9e782a25.tar.gz | |
pod->html VMS fixes
Message-Id: <3.0.6.32.19990504101925.02ecde30@ous.edu>
p4raw-id: //depot/perl@3371
| -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; |