Remove deprecated IO::Path usage

Resolves #149
ugexe · Apr 8, 2017 · e2deb25 · e2deb25
1 parent f270052
commit e2deb25
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/lib/Zef/Distribution/Local.pm6 b/lib/Zef/Distribution/Local.pm6
@@ -12,7 +12,7 @@ class Zef::Distribution::Local is Zef::Distribution {
         my $meta-path = self.find-meta($path)                  || die "No meta file? Path: {$path}";
         my $abspath   = $meta-path.parent.absolute;
         my %meta      = try { %(from-json($meta-path.slurp)) } || die "Invalid json? File: {$meta-path}";
-        my $IO        = IO::Path.new-from-absolute-path($abspath);
+        my $IO        = $abspath.IO
         self.bless(:path($abspath), :$IO, |%(%meta.grep(?*.value.elems)));
     }
 

diff --git a/lib/Zef/Service/Shell/git.pm6 b/lib/Zef/Service/Shell/git.pm6
@@ -20,8 +20,8 @@ my role GitFetcher {
         # allow overriding the default scheme of git urls
         my $url = $!scheme ?? $orig-url.subst(/^\w+ '://'/, "{$!scheme}://") !! $orig-url;
 
-        my $clone-proc := $.zrun('git', 'clone', $url, $save-as.IO.abspath, '--quiet', :cwd($save-as.IO.parent));
-        my $pull-proc  := $.zrun('git', 'pull', '--quiet', :cwd($save-as.IO.abspath));
+        my $clone-proc := $.zrun('git', 'clone', $url, $save-as.IO.absolute, '--quiet', :cwd($save-as.IO.parent));
+        my $pull-proc  := $.zrun('git', 'pull', '--quiet', :cwd($save-as.IO.absolute));
 
         return ?$clone-proc || ?$pull-proc ?? $save-as !! False;
     }