Correctly create IO::Dir.dirname

rakudo · Nov 4, 2014 · a49a556 · a49a556
1 parent 49874e1
commit a49a556
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/src/core/IO/Dir.pm b/src/core/IO/Dir.pm
@@ -32,6 +32,10 @@ my class IO::Dir is Cool does IO::Local {
 
     method rmdir(IO::Dir:D:) { REMOVE-DIR($!abspath) }
 
+    method dirname(IO::Local:D:)   {
+        self!parts;
+        '/' ~ @!parts[1 .. *-3].join('/');
+    }
     method basename(IO::Dir:D:)  { MAKE-BASENAME($!abspath.chop) }
     method extension(IO::Dir:D:) { MAKE-EXT(MAKE-BASENAME($!abspath.chop))}
     method succ(IO::Dir:D:) { $!abspath.chop.succ ~ '/' }