diff options
| author | Peter Prymmer <PPrymmer@factset.com> | 2000-08-18 11:18:31 -0700 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-08-19 14:10:41 +0000 |
| commit | 16be52b8fb809cc375006ad8517483286dc5be74 (patch) | |
| tree | 7a57ad71789dd8f4554519c4073087ab556f31a7 /lib | |
| parent | 92e5451f6c185840d54cb52c79f90b7f2cad6b74 (diff) | |
| download | perl-16be52b8fb809cc375006ad8517483286dc5be74.tar.gz | |
was Re: [PATCH: 6640] VMS Makefile.SH update (fwd)
Message-ID: <Pine.OSF.4.10.10008181818100.322420-100000@aspara.forte.com>
p4raw-id: //depot/perl@6712
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Pod/Find.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lib/Pod/Find.pm b/lib/Pod/Find.pm index fb0f6b8dd1..516a624fce 100644 --- a/lib/Pod/Find.pm +++ b/lib/Pod/Find.pm @@ -160,7 +160,9 @@ sub pod_find $try = File::Spec->catfile($pwd,$try); } # simplify path - $try = File::Spec->canonpath($try); + # on VMS canonpath will vmsify:[the.path], but File::Find::find + # wants /unixy/paths + $try = File::Spec->canonpath($try) if ($^O ne 'VMS'); my $name; if(-f $try) { if($name = _check_and_extract_name($try, $opts{-verbose})) { |