Add createonly to rename(). See RT #125280.

rakudo · Jun 11, 2015 · 897bef2 · 897bef2
1 parent d58e397
commit 897bef2
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/core/io_operators.pm b/src/core/io_operators.pm
@@ -227,8 +227,8 @@ multi sub mkdir($path, $mode = 0o777, :$SPEC = $*SPEC, :$CWD = $*CWD) {
     $path.IO(:$SPEC,:$CWD).mkdir($mode) ?? ($path,) !! ();
 }
 
-sub rename($from, $to, :$SPEC = $*SPEC, :$CWD = $*CWD) {
-    my $result := $from.IO(:$SPEC,:$CWD).rename($to,:$SPEC,:$CWD);
+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) {