IO.autoflush

rakudo · Jun 19, 2010 · f236549 · f236549
1 parent 92e914a
commit f236549
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/src/core/IO.pm b/src/core/IO.pm
@@ -1,6 +1,7 @@
 class IO is Cool {
     has $!PIO;
     has $!ins;
+    has $.autoflush is rw;
 
     multi method close() is export {
         try {
@@ -39,6 +40,7 @@ class IO is Cool {
             for @items -> $item {
                 (pir::descalarref__PP($!PIO)).print($item);
             }
+            pir::descalarref__PP($!PIO).flush() if $.autoflush;
         }
         $! ?? fail($!) !! Bool::True;
     }