diff options
| author | Craig A. Berry <craigberry@mac.com> | 2003-03-13 07:44:55 -0600 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-03-14 05:43:34 +0000 |
| commit | 8e5f3f285c3a089acb6e38e5ef624a23fca2164f (patch) | |
| tree | 66654c8eac2b21606cffe70864836c8bd605709a /lib/Pod | |
| parent | 2e2853fe1c68dd9e8ea96e473981ea62e23eb7c4 (diff) | |
| download | perl-8e5f3f285c3a089acb6e38e5ef624a23fca2164f.tar.gz | |
Perldoc.pm tweak for VMS
From: "Craig A. Berry" <craigberry@mac.com>
Message-ID: <3E70DFB7.8070405@mac.com>
p4raw-id: //depot/perl@18969
Diffstat (limited to 'lib/Pod')
| -rw-r--r-- | lib/Pod/Perldoc.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Pod/Perldoc.pm b/lib/Pod/Perldoc.pm index 1d1f809187..3321d39372 100644 --- a/lib/Pod/Perldoc.pm +++ b/lib/Pod/Perldoc.pm @@ -29,7 +29,7 @@ use Pod::Perldoc::GetOptsOO; # uses the DEBUG. #.......................................................................... { my $pager = $Config{'pager'}; - push @Pagers, $pager if -x (split /\s+/, $pager)[0]; + push @Pagers, $pager if ((-x (split /\s+/, $pager)[0]) || $^O eq 'VMS'); } $Bindir = $Config{'scriptdirexp'}; $Pod2man = "pod2man" . ( $Config{'versiononly'} ? $Config{'version'} : '' ); |