Re: [perl #41555] Bug in File::Find on Windows when target

[p5sagit/p5-mst-13.2.git] / lib / File / Find.pm

diff --git a/lib/File/Find.pm b/lib/File/Find.pm
index f316962..d39063b 100644 (file)
--- a/lib/File/Find.pm
+++ b/lib/File/Find.pm
@@ -795,7 +795,7 @@ sub _find_dir($$$) {
     if ($Is_MacOS) {
        $dir_pref= ($p_dir =~ /:$/) ? $p_dir : "$p_dir:"; # preface
     } elsif ($^O eq 'MSWin32') {
-       $dir_pref = ($p_dir =~ m|\w:/$| ? $p_dir : "$p_dir/" );
+       $dir_pref = ($p_dir =~ m|\w:/?$| ? $p_dir : "$p_dir/" );
     } elsif ($^O eq 'VMS') {
 
        #       VMS is returning trailing .dir on directories
@@ -987,7 +987,7 @@ sub _find_dir($$$) {
                $dir_pref = "$dir_name:";
            }
            elsif ($^O eq 'MSWin32') {
-               $dir_name = ($p_dir =~ m|\w:/$| ? "$p_dir$dir_rel" : "$p_dir/$dir_rel");
+               $dir_name = ($p_dir =~ m|\w:/?$| ? "$p_dir$dir_rel" : "$p_dir/$dir_rel");
                $dir_pref = "$dir_name/";
            }
            elsif ($^O eq 'VMS') {