From 56d8874b8f15173907f9d7a0c8ab31378100afe6 Mon Sep 17 00:00:00 2001
From: pmichaud <pmichaud@pobox.com>
Date: Sun, 27 Jun 2010 10:32:52 -0500
Subject: [PATCH] open() should fail, not die.

---
 src/core/IO.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/core/IO.pm b/src/core/IO.pm
index d54e6750488..5a30767fef9 100644
--- a/src/core/IO.pm
+++ b/src/core/IO.pm
@@ -97,7 +97,7 @@ sub open($filename, :$r, :$w, :$a) {
     my $mode = $w ?? 'w' !! ($a ?? 'wa' !! 'r');
     my $PIO = pir::open__PSS($filename, $mode);
     unless pir::istrue__IP($PIO) {
-        die("Unable to open file '$filename'");
+        fail("Unable to open file '$filename'");
     }
     $PIO.encoding('utf8');
     IO.new(:$PIO)