Make IO::Spec::Unix.is-absolute about 4.4x faster

rakudo · Mar 26, 2017 · 4eef6db · 4eef6db
1 parent ae5e510
commit 4eef6db
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/core/IO/Spec/Unix.pm b/src/core/IO/Spec/Unix.pm
@@ -93,8 +93,8 @@ my class IO::Spec::Unix is IO::Spec {
         ) ?? $io !! IO::Path.new(".");
     }
 
-    method is-absolute( $file ) {
-        substr( $file, 0, 1 ) eq '/';
+    method is-absolute( Str() \path ) {
+        nqp::p6bool(nqp::eqat(path, '/', 0));
     }
 
     method path {