Unbreak panda

FROGGS++ for finding this one!!!
rakudo · Oct 3, 2014 · 414d911 · 414d911
1 parent f79cf92
commit 414d911
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/core/IO/Path.pm b/src/core/IO/Path.pm
@@ -307,7 +307,8 @@ my class IO::Path is Cool does IO::FileTestable {
 #?endif
 #?if moar
                     $elem = $!SPEC.catfile($!abspath, $elem); # moar = relative
-                    $elem = nqp::substr($elem, $cwd_chars + 1) if !$absolute;
+                    $elem = nqp::substr($elem, $cwd_chars + 1)
+                      if !$absolute and !$.is-absolute;
                     take $elem.IO(:$!SPEC,:$CWD) if $test.ACCEPTS($elem);
                 }
             }