Fix for #123308, raydiak++ for spotting

rakudo · Nov 27, 2014 · 482cc32 · 482cc32
1 parent 456d8f0
commit 482cc32
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/core/IO/Path.pm b/src/core/IO/Path.pm
@@ -342,7 +342,9 @@ my class IO::Path is Cool {
         my str $cwd = nqp::cwd();
         nqp::chdir(nqp::unbox_s($.abspath));
 #?endif
-        my $abspath-sep := $.abspath ~ $!SPEC.dir-sep;
+        my $abspath-sep := $.abspath eq $!SPEC.dir-sep
+          ?? $!SPEC.dir-sep
+          !! $.abspath ~ $!SPEC.dir-sep;
 
 #?if parrot
         my Mu $RSA := pir::new__PS('OS').readdir(nqp::unbox_s($.abspath));