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 /lib | |
| 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
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Pod/Html.pm | 1 |
1 files changed, 1 insertions, 0 deletions
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; |