[io grant] Make IO::Path.is-absolute about 80% faster

Benched with IO::Spec::Unix spec
rakudo · Apr 20, 2017 · 74680d4 · 74680d4
1 parent 277b6e5
commit 74680d4
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/src/core/IO/Path.pm b/src/core/IO/Path.pm
@@ -57,7 +57,10 @@ my class IO::Path is Cool does IO {
     }
 
     method is-absolute() {
-        $!is-absolute //= so $!SPEC.is-absolute($!path);
+        nqp::if(
+          nqp::isconcrete($!is-absolute),
+          $!is-absolute,
+          $!is-absolute = nqp::p6bool($!SPEC.is-absolute: $!path))
     }
     method is-relative() {
         !( $!is-absolute //= so $!SPEC.is-absolute($!path) );