Fix CHANGE-DIR (don't make an IO::Path)

rakudo · Nov 29, 2014 · e84fb7e · e84fb7e
1 parent f4496d2
commit e84fb7e
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/core/IO.pm b/src/core/IO.pm
@@ -131,9 +131,9 @@ sub REMOVE-ROOT(Str $r, Str $p) {
 
 sub CHANGE-DIRECTORY($path,$base,&test) {
 
-    my $abspath = MAKE-CLEAN-PARTS(MAKE-ABSOLUTE-PATH($path,$base)).join('/');
+    my $abspath := MAKE-CLEAN-PARTS(MAKE-ABSOLUTE-PATH($path,$base)).join('/');
     FILETEST-E($abspath) && FILETEST-D($abspath) && test($abspath)
-      ?? IO::Path.new-from-absolute-path($abspath.chop)
+      ?? IO::Dir.new(:$abspath)
       !! fail X::IO::Chdir.new(
            :$path,
            :os-error( "does not exist, is not a dir or no access" ),