Add fix for issue #3971

File modified: src/core.c/IO/Path.pm6
rakudo · Oct 19, 2020 · 41a76ca · 41a76ca
1 parent d713e45
commit 41a76ca
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/src/core.c/IO/Path.pm6 b/src/core.c/IO/Path.pm6
@@ -448,6 +448,13 @@ my class IO::Path is Cool does IO {
     }
 
     method copy(IO::Path:D: IO() $to, :$createonly --> True) {
+        # add fix for issue #3971 where attempt to copy a dir
+        # to a file clobbers the file.
+        self.d and $to.f and fail X::IO::Copy.new:
+            :from($.absolute),
+            :to($to.absolute),
+            :os-error('cannot copy a directory to a file');
+
         $createonly and $to.e and fail X::IO::Copy.new:
             :from($.absolute),
             :to($to.absolute),