Merge pull request #626 from cygx/open-fail

make IO::Handle.open fail when nqp::open dies
rakudo · Dec 8, 2015 · d3e89a5 · d3e89a5
2 parents 9476601 + fbba428
commit d3e89a5
Showing 1 changed file with 7 additions and 5 deletions.
diff --git a/src/core/IO/Handle.pm b/src/core/IO/Handle.pm
@@ -94,11 +94,13 @@ my class IO::Handle does IO {
             $truncate  ?? 't' !! '',
             $exclusive ?? 'x' !! '';
 
-        # TODO: catch error, and fail()
-        $!PIO := nqp::open(
-          nqp::unbox_s($!path.abspath),
-          nqp::unbox_s($llmode),
-        );
+        {
+            CATCH { .fail }
+            $!PIO := nqp::open(
+              nqp::unbox_s($!path.abspath),
+              nqp::unbox_s($llmode),
+            );
+        }
 
         $!chomp = $chomp;
         $!nl-out = $nl-out;