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 (file)
--- 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'} : '' );