diff options
Diffstat (limited to 'lib/Pod')
| -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})) { |