RT #126006: after .spurt, the file exists

rakudo · Sep 20, 2015 · 386153c · 386153c
1 parent 97e47a5
commit 386153c
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/src/core/IO/Path.pm b/src/core/IO/Path.pm
@@ -495,6 +495,7 @@ my class IO::Path is Cool {
           ?? $handle.write($contents)
           !! $handle.print($contents);
         $handle.close;  # can't use LEAVE in settings :-(
+        $!e = True;
         $spurt;
     }