nicer error message of &evalfiles

Raku · Feb 26, 2012 · aee97aa · aee97aa
1 parent d44ab2e
commit aee97aa
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/src/HLL/Compiler.pm b/src/HLL/Compiler.pm
@@ -398,10 +398,13 @@ class HLL::Compiler {
                 pir::push(@codes, $in-handle.readall($_));
                 $in-handle.close;
                 CATCH {
-                    $err := "Error while reading from file: $_";
+                    $err := 1;
                 }
             }
-            pir::die($err) if $err;
+            if $err {
+                say("Cannot open \"$_\".");
+                pir::exit(1);
+            }
         }
         my $code := pir::join('', @codes);
         my $?FILES := pir::join(' ', @files);