diff options
| author | Tim Bunce <Tim.Bunce@pobox.com> | 1998-12-12 23:08:51 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1998-12-31 09:21:45 +0000 |
| commit | 206c6dae049d8c6fe2f9de084a5732c603b6c9d7 (patch) | |
| tree | d6877e12f8496cc9f125eae7ca42d85753f75f83 /pod/pod2man.PL | |
| parent | 9cb0f15cafa42f295bc4c40bce0a9143250ef991 (diff) | |
| download | perl-206c6dae049d8c6fe2f9de084a5732c603b6c9d7.tar.gz | |
bug in pod2man search for perl binary [5.005_5x]
To: perlbug@perl.com
Message-ID: <19981212230851.A20578@ig.co.uk>
p4raw-id: //depot/cfgperl@2544
Diffstat (limited to 'pod/pod2man.PL')
| -rw-r--r-- | pod/pod2man.PL | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/pod/pod2man.PL b/pod/pod2man.PL index 4edf4f8bb2..3c55d6e29c 100644 --- a/pod/pod2man.PL +++ b/pod/pod2man.PL @@ -318,7 +318,11 @@ $cutting = 1; # running an installed version of Perl to produce documentation from an # uninstalled newer version's pod files. if ($^O ne 'plan9' and $^O ne 'dos' and $^O ne 'os2' and $^O ne 'MSWin32') { - my $perl = (-x './perl') ? './perl' : ((-x '../perl') ? '../perl' : ''); + my $perl = (-x './perl' && -f './perl' ) ? + './perl' : + ((-x '../perl' && -f '../perl') ? + '../perl' : + ''); ($version,$patch) = `$perl -e 'print $]'` =~ /^(\d\.\d{3})(\d{2})?/ if $perl; } # No luck; we'll just go with the running Perl's version |