[PATCH] Perldoc.pm tweak for VMS

[Craig A. Berry]

When placing the configured paging program at the head of its list of 
possible pagers, lib/pod/Perldoc.pm uses the -x file test to see if the 
program can be run by the current process.  This test generally fails on 
VMS because $Config{pager} is by default a command and not a file.  The 
patch below gets us our configured pager back by skipping the file test 
on VMS.

This is against [EMAIL PROTECTED]

--- lib/Pod/Perldoc.pm;-0       Thu Jan 23 08:22:47 2003
+++ lib/Pod/Perldoc.pm  Tue Mar 11 21:40:48 2003
@@ -29,7 +29,7 @@
 
 #..........................................................................
 { 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'} : '' );