Fix copy() breakage when specifying relative paths

rakudo · Oct 3, 2014 · faf7805 · faf7805
1 parent da3aae7
commit faf7805
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src/core/IO/Path.pm b/src/core/IO/Path.pm
@@ -188,15 +188,15 @@ my class IO::Path is Cool does IO::FileTestable {
     multi method copy(IO::Path:D: IO::Path:D $to, :$createonly) {
         if $createonly and $to.e {
             fail X::IO::Copy.new(
-              :from(nqp::box_s($!path,Str)),
+              :from(self),
               :$to,
               :os-error(':createonly specified and destination exists'),
             );
         }
-        nqp::copy($!path, nqp::unbox_s($to.path));
+        nqp::copy($.abspath, nqp::unbox_s($to.abspath));
         CATCH { default {
             fail X::IO::Copy.new(
-              :from(nqp::box_s($!path,Str)), :$to, :os-error(.Str) );
+              :from(self), :$to, :os-error(.Str) );
         } }
         True;
     }