X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FPod%2FFind.pm;h=759cd3d1b994b30e1f3562071a3181dcc78bc9f4;hb=d7d9ad0c0eccd5b9ff687cafaaaa26c85d95fc9a;hp=6d4907ce3796d8868d11aad6d5d87877951ae54c;hpb=2eec1a1ed8f4ac423d53f3e0bb68e0581ea99aab;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/lib/Pod/Find.pm b/lib/Pod/Find.pm
index 6d4907c..759cd3d 100644
--- a/lib/Pod/Find.pm
+++ b/lib/Pod/Find.pm
@@ -163,6 +163,7 @@ sub pod_find
         # on VMS canonpath will vmsify:[the.path], but File::Find::find
         # wants /unixy/paths
         $try = File::Spec->canonpath($try) if ($^O ne 'VMS');
+        $try = VMS::Filespec::unixify($try) if ($^O eq 'VMS');
         my $name;
         if(-f $try) {
             if($name = _check_and_extract_name($try, $opts{-verbose})) {