Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP

Loading…

nicer error message of &evalfiles #30

Merged
merged 4 commits into from

2 participants

@sergot
Collaborator

pir::die prints strange error message
pir::die replaced by pir::exit and say

@jnthn jnthn merged commit 9903471 into perl6:master
@moritz moritz referenced this pull request from a commit
@moritz moritz Revert "Merge pull request #30 from sergot/master"
This reverts commit 9903471, reversing
changes made to d44ab2e.

This actually didn't produce nicer error messages, just looped infinitely.
3332c0a
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
This page is out of date. Refresh to see the latest.
Showing with 5 additions and 2 deletions.
  1. +5 −2 src/HLL/Compiler.pm
View
7 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);
Something went wrong with that request. Please try again.