[IO] Add :new flag to &spurt

rakudo · Jul 6, 2012 · 501e8a2 · 501e8a2
1 parent b1aa031
commit 501e8a2
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/src/core/IO.pm b/src/core/IO.pm
@@ -368,15 +368,21 @@ proto sub spurt(|$) { * }
 multi sub spurt(Cool $filename,
                 Cool $contents,
                 :encoding(:$enc) = 'utf8',
+                :$new,
                 :$append) {
+    fail("File '$filename' already exists, but :new was give to spurt")
+        if $new && $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,
                 :$append) {
+    fail("File '$filename' already exists, but :new was give to spurt")
+        if $new && $filename.IO.e;
     my $mode = $append ?? :a !! :w;
     my $fh = open($filename.Str, :bin, |$mode);
     $fh.write($contents);