From: Craig A. Berry <craigberry@mac.com>
Date: Thu, 13 Mar 2003 13:44:55 +0000 (-0600)
Subject: Perldoc.pm tweak for VMS
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8e5f3f285c3a089acb6e38e5ef624a23fca2164f;p=p5sagit%2Fp5-mst-13.2.git

Perldoc.pm tweak for VMS
From: "Craig A. Berry" <craigberry@mac.com>
Message-ID: <3E70DFB7.8070405@mac.com>

p4raw-id: //depot/perl@18969
---

diff --git a/lib/Pod/Perldoc.pm b/lib/Pod/Perldoc.pm
index 1d1f809..3321d39 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'} : '' );