Fix for Win32 - stat with a trailing / on Win32 doesn't work out so w…

…ell.
rakudo · Mar 11, 2010 · dab10dd · dab10dd
1 parent 73cc9f2
commit dab10dd
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/Perl6/Module/Locator.pm b/src/Perl6/Module/Locator.pm
@@ -15,7 +15,8 @@ method find_candidates($lookfor, @inc) {
     for @inc {
         my $path := "$_/$localpath";
         # pir::say("  path: $path");
-        if pir::stat__ISI("$path", 0) && pir::stat__ISI($path, 2) {
+        my $check_path := pir::substr__SSII($path, 0, pir::length__IS($path) - 1);
+        if pir::stat__ISI($check_path, 0) && pir::stat__ISI($check_path, 2) {
             my @dir := pir::new__PS('OS').readdir($path);
             for @dir {
                 # pir::say("    readdir: $_");