Add :createonly to sub copy()

rakudo · Aug 28, 2015 · 17a7747 · 17a7747
1 parent 906ca06
commit 17a7747
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/core/io_operators.pm b/src/core/io_operators.pm
@@ -238,8 +238,8 @@ sub rename($from, $to, :$SPEC = $*SPEC, :$CWD = $*CWD, :$createonly) {
     my $result := $from.IO(:$SPEC,:$CWD).rename($to,:$SPEC,:$CWD,:$createonly);
     $result // $result.throw;
 }
-sub copy($from, $to, :$SPEC = $*SPEC, :$CWD = $*CWD) {
-    my $result := $from.IO(:$SPEC,:$CWD).copy($to,:$SPEC,:$CWD);
+sub copy($from, $to, :$SPEC = $*SPEC, :$CWD = $*CWD, :$createonly) {
+    my $result := $from.IO(:$SPEC,:$CWD).copy($to,:$SPEC,:$CWD, :$createonly);
     $result // $result.throw;
 }
 sub symlink($target, $name, :$SPEC = $*SPEC, :$CWD = $*CWD) {