[io grant] Make IO::Handle.flush fail with typed exceptions

rakudo · May 13, 2017 · b43ed18 · b43ed18
1 parent 85230d0
commit b43ed18
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 2 deletions.
diff --git a/src/core/Exception.pm b/src/core/Exception.pm
@@ -552,6 +552,12 @@ my class X::IO::Cwd does X::IO {
     }
 }
 
+my class X::IO::Flush does X::IO {
+    method message() {
+        "Cannot flush handle: $.os-error"
+    }
+}
+
 my class X::IO::NotAChild does X::IO {
     has $.path;
     has $.child;

diff --git a/src/core/IO/Handle.pm b/src/core/IO/Handle.pm
@@ -593,8 +593,8 @@ my class IO::Handle {
 
 
     method flush(IO::Handle:D: --> True) {
-        fail("File handle not open, so cannot flush")
-            unless nqp::defined($!PIO);
+        CATCH { default { fail X::IO::Flush.new: :os-error(.Str) } }
+        nqp::defined($!PIO) or die 'File handle not open, so cannot flush';
         nqp::flushfh($!PIO);
     }