[IO] spurt :new is now :createonly

rakudo · Jul 14, 2012 · ee86a54 · ee86a54
1 parent 55cf00a
commit ee86a54
Showing 1 changed file with 6 additions and 6 deletions.
diff --git a/src/core/IO.pm b/src/core/IO.pm
@@ -381,21 +381,21 @@ proto sub spurt(|$) { * }
 multi sub spurt(Cool $filename,
                 Cool $contents,
                 :encoding(:$enc) = 'utf8',
-                :$new,
+                :$createonly,
                 :$append) {
-    fail("File '$filename' already exists, but :new was give to spurt")
-        if $new && $filename.IO.e;
+    fail("File '$filename' already exists, but :createonly was give to spurt")
+        if $createonly && $filename.IO.e;
     my $mode = $append ?? :a !! :w;
     my $fh = open($filename.Str, :$enc, |$mode);
     $fh.print($contents);
     $fh.close;
 }
 multi sub spurt(Cool $filename,
                 Buf $contents,
-                :$new,
+                :$createonly,
                 :$append) {
-    fail("File '$filename' already exists, but :new was give to spurt")
-        if $new && $filename.IO.e;
+    fail("File '$filename' already exists, but :createonly was give to spurt")
+        if $createonly && $filename.IO.e;
     my $mode = $append ?? :a !! :w;
     my $fh = open($filename.Str, :bin, |$mode);
     $fh.write($contents);