Merge pull request #30 from sergot/master

nicer error message when file specified at command line is not found; maybe not perfect, but surely an improvement from user's point of view
Raku · Feb 26, 2012 · 9903471 · 9903471
2 parents d44ab2e + 3133d4a
commit 9903471
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 := "$_\n";
                 }
             }
-            pir::die($err) if $err;
+            if $err {
+                pir::printerr($err);
+                pir::exit(1);
+            }
         }
         my $code := pir::join('', @codes);
         my $?FILES := pir::join(' ', @files);